Jump to content

skinsharp guı


Recommended Posts

#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

Link to comment
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

Link to comment
Share on other sites

  • Moderators

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.

Link to comment
Share on other sites

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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...