Sign in to follow this  
Followers 0
mesale0077

skinsharp guı

10 posts in this topic

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Func _SkinsharpGUI($SkinH_VB6dll, $skinhshe, $Handle)
;help  me
    ;$sDll= DllOpen("SkinH_VB6.dll")
;
EndFunc   ;==> _SkinsharpGUI
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[#] Form1 [#]", 633, 447, 192, 124)
   _SkinsharpGUI("SkinH_VB6.dll",  "skinh.she" , $Form1)
$Button1 = GUICtrlCreateButton("Button1", 80, 208, 145, 65, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 336, 216, 161, 89, $WS_GROUP)
$Input1 = GUICtrlCreateInput("Input1", 64, 40, 209, 21)
$Edit1 = GUICtrlCreateEdit("", 80, 72, 185, 113)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        
            DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00050010);implode
Opt("TrayIconHide", 1)
ProcessClose(@AutoItPID)

        
    
        
            Exit

    EndSwitch
WEnd
hi

How can I run SkinH_VB6.dll

thank you help me

==========================================================

Func _SkinsharpGUI(_$SkinH_VB6dll, $skinhshe, $Handle)

;help me

;$sDll= DllOpen("SkinH_VB6.dll")

;?????

EndFunc ;==> _SkinsharpGUI

===========================================================

$Form1 = GUICreate("[#] Form1 [#]", 633, 447, 192, 124)

_SkinsharpGUI("SkinH_VB6.dll", "skinh.she" , $Form1)

;__________________________________________________________

;example file

Share this post


Link to post
Share on other sites



I use SHE skin files too but with another dll

you can find it here ! Posted Image

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[#] Form1 [#]", 633, 447, 192, 124)
_SkinsharpGUI ( )
$Button1 = GUICtrlCreateButton("Button1", 80, 208, 145, 65, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 336, 216, 161, 89, $WS_GROUP)
$Input1 = GUICtrlCreateInput("Input1", 64, 40, 209, 21)
$Edit1 = GUICtrlCreateEdit("", 80, 72, 185, 113)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00050010);implode
            Opt("TrayIconHide", 1)
            ProcessClose(@AutoItPID)
            Exit
    EndSwitch
WEnd

Func _SkinsharpGUI ( )
    $Dll = DllOpen ( @ScriptDir & "\SkinH_EL.dll" )
    DllCall ( $Dll, "int", "SkinH_AttachEx", "str", @ScriptDir & "\skinh.she", "str", "mhgd" )
    DllCall ( $Dll, "int", "SkinH_SetAero", "int", 1 )
EndFunc ;==> _SkinsharpGUI ( )

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

I looked inside the dll to see the function names, it has one called *Detach. I'm sure this must be used.

A question to those of you that have the dll, do you know where there's an english translation to the dll's api calls?

How are the skins made and where?

I can't read EULA's/TOS/Any type of licensing requirements either. I imagine the "str" part of the skin dll call is either a unique id or a license string. Would be nice to know.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

very very thank you

Share this post


Link to post
Share on other sites

Where did you find your skins ?


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

hi

again very very thank you

I saw this skin in a program

but I found the web of skins

down there on the download button

chinese web

link:

http://bbs.skinsharp.com/htdocs/repos.htm

Edited by mesale0077

Share this post


Link to post
Share on other sites

hi

again very very thank you

I saw this skin in a program

but I found the web of skins

down there on the download button

chinese web

link:

http://bbs.skinsharp.com/htdocs/repos.htm

Argh ! Posted Image

we have the same source !

I was hoping to find others ! Posted Image


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

hi

example guı and skins

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

hi

example guı and skins

Thanks but i have already found them !

A little chinese script modified for test skins :

#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>

Global $_DllFilePath = @TempDir & '\SkinH_EL.dll'
Global $_SheSkinListDir = @ScriptDir & '\She' ; .she files folder
$_SheSkinListArray = _FileListToArray ( $_SheSkinListDir, '*.she', 1 );_ArrayDisplay ( $_SheSkinListArray )
_FileInstall ( )

            GUICreate ( "Try All This .She Skins...", 470, 280 )
             GUIRegisterMsg ( $WM_NOTIFY, "_WnNotify" )
$_ListView = GUICtrlCreateListView ( ".She Skins List", 280, 5, 185, 250 )
            _GUICtrlListView_SetColumnWidth ( $_ListView, 0, $LVSCW_AUTOSIZE_USEHEADER )
            _CreateListViewItem ( $_ListView, $_SheSkinListArray )
            GUICtrlCreateInput ( "Input1", 40, 40, 100, 21 )
            GUICtrlCreateCombo ( "Combo1", 40, 100, 100, 25 )
            GUICtrlSetData ( -1, "Combo2|Combo3|Combo4|Combo5|Combo6|Combo7|Combo8|Combo9|Combo10" )
            GUICtrlCreateButton ( "Button1", 30, 220, 75, 30, $WS_GROUP )
            GUICtrlCreateButton ( "Button2", 180, 220, 75, 30, $WS_GROUP )
            GUICtrlCreateCheckbox ( "Checkbox1", 150, 40, 80, 17 )
            GUICtrlCreateRadio ( "Radio1", 150, 100, 80, 17 )
            GUICtrlCreateProgress ( 40, 150, 200, 20 )
            GUICtrlSetData ( -1, 50 )
            GUICtrlCreateGroup ( "Group1", 10, 10, 249, 193 )
            GUISetState ( )

Do
    Sleep ( 50 )
Until GUIGetMsg ( ) = -3

Exit

Func _WnNotify ( $_Wnd, $_Msg, $_WParam, $_LParam )
    $_Tnmtv = DllStructCreate ( $tagNMTVDISPINFO, $_LParam )
    $_Code = DllStructGetData ( $_Tnmtv, "Code" )
    $_Index = _GUICtrlListView_GetSelectedIndices ( $_ListView )
    If $_Code = $NM_DBLCLK And StringLen ( $_Index ) <> 0 Then _
    _SkinGui ( $_SheSkinListDir & '\' & _GUICtrlListView_GetItemText ( $_ListView, Number ( $_Index ) ) )
EndFunc ;==> _WnNotify ( )

Func _SkinGui ( $_SheSkinFilePath )
    $Dll = DllOpen ( $_DllFilePath )
    DllCall ( $Dll, "int", "SkinH_AttachEx", "str", $_SheSkinFilePath, "str", "mhgd" )
    DllCall ( $Dll, "int", "SkinH_SetAero", "int", 1 )
EndFunc ;==> _SkinGui ( )

Func _FileInstall ( )
    FileInstall ( "SkinH_EL.dll", $_DllFilePath )
EndFunc ;==> _FileInstall ( )

Func _CreateListViewItem ( $_ListViewId, $_ListArray )
    For $_I = 1 To UBound ( $_ListArray ) -1
       GUICtrlCreateListViewItem ( _StringProper ( $_ListArray[$_I] ), $_ListViewId )
    Next
EndFunc ;==> _CreateListViewItem ( )
Edited by wakillon

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

thank you

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0