Jump to content

Problem with EzSkin


Recommended Posts

I have a strange problem after put my script into EzSkin format. The problem is the run function of my script is only working AFTER you moved the transparency slider... I hope you can tell me a solution. My script is:

#include <EzSkin.au3>
#include <GUIConstants.au3>
#Include <Constants.au3>
#Include <Misc.au3>
#include <IE.au3>
#include <guilist.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <array.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <FontConstants.au3>
#include <GDIPLus.au3>
#include <GDIPlusConstants.au3>
#include <GUIConstantsEX.au3>
#include <IPAddressConstants.au3>
#include <ListBoxConstants.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <MemoryConstants.au3>
#include <MenuConstants.au3>
#include <ProgressConstants.au3>
#include <XSkin.au3>

HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "Minimize")
HotKeySet("{F4}", "Maximize")
HotKeySet("{F5}", "Hide")
HotKeySet("{F6}", "Show")
HotKeySet("{F9}", "GUIClose")
Opt ("TrayOnEventMode", 1)
Opt ("TrayMenuMode", 1)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;          Declaring Section                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$title = "SRO Manager"
$resolution = @DesktopHeight + @DesktopWidth
$_trans = 0
$stopscript = 0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;          Declaring Section _ End          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TraySetToolTip($title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "HideSHow")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$updateGUI = EzSkinGuiCreate($title)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form3 = EzSkinGuiCreate($title, 465, 248, 178, 365)
GUISetBkColor(0x0A246A)
EzSkinGUISetOnEvent($GUI_EVENT_CLOSE, "GuiClose")
EzSkinGUISetOnEvent($GUI_EVENT_MINIMIZE, "HideShow")
EzSkinGUISetOnEvent($GUI_EVENT_MAXIMIZE, "HideShow")

MsgBox( 8240, "Warning", "Every time you launch the application you MUST set the transparency to maximum! The program won't work correctly if you don't do that... This is a bug I'm working on a solution. After setting it to maximum, you can choose the setting you like." )

$SRO = EzSkin_GUICtrlCreateTab(8, 8, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)
EzSkinCtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$HLPR = GUICtrlCreateTabItem("SRO Helper")
$Rapi = EzSkin_GUICtrlCreateGroup("Rapi's skill helper", 23, 39, 177, 169)
$Run = EzSkinCreateButton("Run", 39, 55, 145, 25, 0)
EzSkinCtrlSetOnEvent($Run, "start")
$Stop = EzSkinCreateButton("Stop", 55, 95, 113, 25, 0)
EzSkinCtrlSetOnEvent($Stop, "stop")
$Exit = EzSkinCreateButton("Exit", 31, 175, 65, 25, 0)
EzSkinCtrlSetOnEvent($Exit, "GUIClose")
$Ex = EzSkin_GUICtrlCreateLabel("Press F9 to exit", 111, 183, 76, 17)
$RS = EzSkin_GUICtrlCreateLabel("Press F1 to run and F2 to stop", 39, 135, 146, 17)
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$MNG = EzSkin_GUICtrlCreateGroup("SRO Manager", 209, 40, 233, 169)
$Minimize = EzSkinCreateButton("Minimize", 217, 56, 81, 25, 0)
EzSkinCtrlSetOnEvent($Minimize, "Minimize")
$Maximize = EzSkinCreateButton("Maximize", 217, 88, 81, 25, 0)
EzSkinCtrlSetOnEvent($Maximize, "Maximize")
$Hide = EzSkinCreateButton("Hide", 217, 120, 81, 25, 0)
EzSkinCtrlSetOnEvent($Hide, "Hide")
$Show = EzSkinCreateButton("Show", 217, 152, 81, 25, 0)
EzSkinCtrlSetOnEvent($Show, "Show")
$Min = EzSkin_GUICtrlCreateLabel("  Press F3 to minimize", 321, 56, 105, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
$Max = EzSkin_GUICtrlCreateLabel("   Press F4 to maximize", 321, 96, 111, 17)
$Hid = EzSkin_GUICtrlCreateLabel("Press F5 to hide", 329, 128, 80, 17)
$Sho = EzSkin_GUICtrlCreateLabel("Press F6 to show", 329, 152, 85, 17)
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$Trans = EzSkin_GUICtrlCreateSlider(351, 215, 94, 21)
GUICtrlSetLimit($Trans, 250, 50)
EzSkinCtrlSetData($Trans, 50)
$Tran = EzSkin_GUICtrlCreateLabel("Transparency", 271, 220, 69, 17)
$BL = GUICtrlCreateTabItem("Bots and Loaders")
$Testo = EzSkin_GUICtrlCreateGroup("Testosterone Loader", 21, 43, 201, 89)
$Tes = EzSkin_GUICtrlCreateLabel("Only works with default SRO Install", 37, 99, 169, 17)
$Test = EzSkinCreateButton("Install Testosterone Loader", 37, 67, 161, 25, 0)
EzSkinCtrlSetOnEvent($Test, "install")
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$grey = EzSkin_GUICtrlCreateGroup("GreyFox's  NoDC Client", 236, 43, 193, 89)
$nodc = EzSkinCreateButton("Install NoDC Client", 244, 67, 169, 25, 0)
EzSkinCtrlSetOnEvent($nodc, "NoDC")
$warn = EzSkin_GUICtrlCreateLabel("Only works with default SRO Install", 244, 99, 169, 17)
EzSkin_GUICtrlCreateGroup("", -99, -99, 1, 1)
$AL = GUICtrlCreateTabItem("Auto Login")
$CS = EzSkin_GUICtrlCreateLabel("COMING SOON", 95, 95, 239, 41)
GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif")
$ABOUT = GUICtrlCreateTabItem("About")
EzSkinCtrlSetState(-1,$GUI_SHOW)
$Pics = EzSkin_GUICtrlCreatePic(@ScriptDir & "Files\icon-sro.jpg", 21, 36, 113, 100)
$Pname = EzSkin_GUICtrlCreateLabel("Product Name", 154, 47, 72, 17, $WS_GROUP)
$Readme = EzSkinCreateButton("Readme", 257, 113, 161, 41, 0)
EzSkinCtrlSetOnEvent($Readme, "readme")
$helper = EzSkin_GUICtrlCreateLabel("SRO Helper", 233, 47, 61, 17)
$version = EzSkin_GUICtrlCreateLabel("Version", 157, 78, 39, 17, $WS_GROUP)
$onedotnul = EzSkin_GUICtrlCreateLabel("1.0", 201, 79, 19, 17)
$Cop = EzSkin_GUICtrlCreateLabel("Copyright", 27, 144, 48, 17, $WS_GROUP)
$RG = EzSkin_GUICtrlCreateLabel("Rapi and Gustorn", 80, 145, 87, 17)
$COM = EzSkin_GUICtrlCreateLabel("Comments", 28, 171, 53, 17, $WS_GROUP)
$Free = EzSkin_GUICtrlCreateLabel("The program is freeware, feel free to modify it", 85, 171, 215, 17)
GUICtrlCreateTabItem("")
EzSkinGUISetState(@SW_SHOW)
trans()
#EndRegion ### END Koda GUI section ###

While 1
    EzSkinGuiGetMsg(); Sleep(100) - To avoid that the EzSkin do not Over Control Events
    WinSetTrans($Form3,"",EzSkinCtrlRead($Trans))
WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Start()
    $stopscript=0
Do
    
Send("1")
Sleep(250)
Send("2")
Sleep(250)
Send("3")
Sleep(250)
Send("4")
Sleep(250)
Send("5")
Sleep(250)
Send("6")
Sleep(250)
Send("7")
Sleep(250)

Until $stopscript = 1
EndFunc

Func Stop()
$stopscript = 1
endfunc


Func minimize()
    WinSetState("SRO_Client","",@SW_MINIMIZE)
EndFunc

Func maximize()
    WinSetState("SRO_Client","",@SW_MAXIMIZE)
EndFunc

Func hide()
    WinSetState("SRO_Client","",@SW_HIDE)
EndFunc

Func show()
    WinSetState("SRO_Client","",@SW_SHOW)
EndFunc

Func readme()
    ShellExecute(@ScriptDir & "Files\readme.txt")
EndFunc

Func install()
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.ini", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.dll", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\Loader.exe", "C:\Program Files\Silkroad")
EndFunc

Func NoDC()
    $iEzSkinMsgBoxAnswer = EzSkinMsgBox( 4100, "Confirmation", "Do you really want to install GreyFox's NoDC client? The application will make a backup file: sro_client_backup.exe (just rename the file to restore it)" )
    Select
    Case $iEzSkinMsgBoxAnswer = 6;Yes
        FileCopy( "C:\Program Files\Silkroad\sro_client.exe", "C:\Program Files\Silkroad\sro_client_backup.exe")
        FileCopy(@ScriptDir & "Client\sro_client.exe", "C:\Program Files\Silkroad\sro_client.exe", 1)
        
    EndSelect
    

    EndFunc
    
Func Trans()
    If $_trans = 220 Then
        For $_trans = EzSkinCtrlRead($Trans) To 0 Step - 0.1
            WinSetTrans($Form3,"",$_trans)
            EzSkinCtrlSetData($Trans,$_trans)
        Next
    ElseIf $_trans = 0 Then
        WinSetTrans($title,"",$_trans)
        EzSkinGUISetState()
        For $_trans = 0 To 220 Step 0.3
            WinSetTrans($Form3,"",$_trans)
            EzSkinCtrlSetData($Trans,$_trans)
        Next
    EndIf
EndFunc

Func HideSHow()
    If $show = True Then
        $_trans = 220
        trans()
        EzSkinGUISetState(@SW_HIDE,$title & ".")
        $show = False
    Else
        $_trans = 0
        trans()
        EzSkinGUISetState(@SW_SHOW,$title & ".")
        $show = True
    EndIf
EndFunc

Func GuiClose()
    $Quit = EzSkinMsgBox(36,$title,"Are you sure you want to Quit?")
    If $Quit = 6 Then
        $_trans = 220
        trans()
        Exit
    EndIf
EndFunc
Edited by Gustorm
Link to comment
Share on other sites

This one is created with the EzSkin123_NewFormat linked in the topic of the EzSkin, but it isnt't it's fault, i tried to do it with the normal EzSkin and only change the buttons and add EzSkinOver() but the same thing happened...(with XSkin fully loaded, too) So look at it as it has got only the 4 basic commands...

Edit: Of course I read the scripts :)

Edited by Gustorm
Link to comment
Share on other sites

$SRO = EzSkin_GUICtrlCreateTab(8, 8, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)

EzSkinCtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$HLPR = GUICtrlCreateTabItem("SRO Helper")

$Rapi = EzSkin_GUICtrlCreateGroup("Rapi's skill helper", 23, 39, 177, 169)

$Run = EzSkinCreateButton("Run", 39, 55, 145, 25, 0)

EzSkinCtrlSetOnEvent($Run, "start")

$Stop = EzSkinCreateButton("Stop", 55, 95, 113, 25, 0)

EzSkinCtrlSetOnEvent($Stop, "stop")

$Exit = EzSkinCreateButton("Exit", 31, 175, 65, 25, 0)

you need to re-write this

IT WILL NOT WORK!

sorry!

8)

NEWHeader1.png

Link to comment
Share on other sites

Cant edit now sorry for the double post:

If you really dont like that here it is with only the buttons changed:

#include <GUIConstants.au3>
#Include <Constants.au3>
#Include <Misc.au3>
#include <IE.au3>
#include <GUIConstantsEX.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <EZSkin.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>


HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "Minimize")
HotKeySet("{F4}", "Maximize")
HotKeySet("{F5}", "Hide")
HotKeySet("{F6}", "Show")
HotKeySet("{F9}", "GUIClose")
Opt ("TrayOnEventMode", 1)
Opt ("TrayMenuMode", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$title = "SRO Manager"
$resolution = @DesktopHeight + @DesktopWidth
$_trans = 0
$stopscript = 0


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section _ End              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TraySetToolTip($title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "HideSHow")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$updateGUI = GUICreate($title)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form3 = EzSkinGUICreate($title, 465, 248, 178, 365)
GUISetBkColor(0x0A246A)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "HideShow")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "HideShow")

$SRO = GUICtrlCreateTab(8, 8, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$HLPR = GUICtrlCreateTabItem("SRO Helper")
$Rapi = GUICtrlCreateGroup("Rapi's skill helper", 23, 39, 177, 169)
$Run = EZSkinButton("Run", 39, 55, 145, 25)
GUICtrlSetOnEvent($Run, "start")
$Stop = EZSkinButton("Stop", 55, 95, 113, 25, 0)
GUICtrlSetOnEvent($Stop, "stop")
$Exit = EZSkinButton("Exit", 31, 175, 65, 25, 0)
GUICtrlSetOnEvent($Exit, "GUIClose")
$Ex = GUICtrlCreateLabel("Press F9 to exit", 111, 183, 76, 17)
$RS = GUICtrlCreateLabel("Press F1 to run and F2 to stop", 39, 135, 146, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MNG = GUICtrlCreateGroup("SRO Manager", 209, 40, 233, 169)
$Minimize = EZSkinButton("Minimize", 217, 56, 81, 25, 0)
GUICtrlSetOnEvent($Minimize, "Minimize")
$Maximize = EZSkinButton("Maximize", 217, 88, 81, 25, 0)
GUICtrlSetOnEvent($Maximize, "Maximize")
$Hide = EZSkinButton("Hide", 217, 120, 81, 25, 0)
GUICtrlSetOnEvent($Hide, "Hide")
$Show = EZSkinButton("Show", 217, 152, 81, 25, 0)
GUICtrlSetOnEvent($Show, "Show")
$Min = GUICtrlCreateLabel("  Press F3 to minimize", 321, 56, 105, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
$Max = GUICtrlCreateLabel("   Press F4 to maximize", 321, 96, 111, 17)
$Hid = GUICtrlCreateLabel("Press F5 to hide", 329, 128, 80, 17)
$Sho = GUICtrlCreateLabel("Press F6 to show", 329, 152, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Trans = GUICtrlCreateSlider(351, 215, 94, 21)
GUICtrlSetLimit($Trans, 250, 50)
GUICtrlSetData($Trans, 50)
$Tran = GUICtrlCreateLabel("Transparency", 271, 220, 69, 17)
$BL = GUICtrlCreateTabItem("Bots and Loaders")
$Testo = GUICtrlCreateGroup("Testosterone Loader", 21, 43, 201, 89)
$Tes = GUICtrlCreateLabel("Only works with default SRO Install", 37, 99, 169, 17)
$Test = EZSkinButton("Install Testosterone Loader", 37, 67, 161, 25, 0)
GUICtrlSetOnEvent($Test, "install")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grey = GUICtrlCreateGroup("GreyFox's  NoDC Client", 236, 43, 193, 89)
$nodc = EZSkinButton("Install NoDC Client", 244, 67, 169, 25, 0)
GUICtrlSetOnEvent($nodc, "NoDC")
$warn = GUICtrlCreateLabel("Only works with default SRO Install", 244, 99, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$AL = GUICtrlCreateTabItem("Auto Login")
$CS = GUICtrlCreateLabel("COMING SOON", 95, 95, 239, 41)
GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif")
$ABOUT = GUICtrlCreateTabItem("About")
GUICtrlSetState(-1,$GUI_SHOW)
$Pics = GUICtrlCreatePic(@ScriptDir & "Files\icon-sro.jpg", 21, 36, 113, 100)
$Pname = GUICtrlCreateLabel("Product Name", 154, 47, 72, 17, $WS_GROUP)
$Readme = EZSkinButton("Readme", 257, 113, 161, 41, 0)
GUICtrlSetOnEvent($Readme, "readme")
$helper = GUICtrlCreateLabel("SRO Helper", 233, 47, 61, 17)
$version = GUICtrlCreateLabel("Version", 157, 78, 39, 17, $WS_GROUP)
$onedotnul = GUICtrlCreateLabel("2.0", 201, 79, 19, 17)
$Cop = GUICtrlCreateLabel("Copyright", 27, 144, 48, 17, $WS_GROUP)
$RG = GUICtrlCreateLabel("Rapi and Gustorn, Ideas: ADS", 80, 145, 87, 17)
$COM = GUICtrlCreateLabel("Comments", 28, 171, 53, 17, $WS_GROUP)
$Free = GUICtrlCreateLabel("The program is freeware, feel free to modify it", 85, 171, 215, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
trans()
#EndRegion ### END Koda GUI section ###


    

While 1
    EzSkinOver()
    Sleep(100)
    WinSetTrans($Form3,"",GUICtrlRead($Trans))
WEnd

    







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Start()
    
    $stopscript=0
    
Do
    
Send("1")
Sleep(250)
Send("2")
Sleep(250)
Send("3")
Sleep(250)
Send("4")
Sleep(250)
Send("5")
Sleep(250)
Send("6")
Sleep(250)
Send("7")
Sleep(250)

Until $stopscript = 1
EndFunc

Func Stop()
$stopscript = 1
EndFunc


Func minimize()
    WinSetState("SRO_Client","",@SW_MINIMIZE)
EndFunc

Func maximize()
    WinSetState("SRO_Client","",@SW_MAXIMIZE)
EndFunc

Func hide()
    WinSetState("SRO_Client","",@SW_HIDE)
EndFunc

Func show()
    WinSetState("SRO_Client","",@SW_SHOW)
EndFunc

Func readme()
    ShellExecute(@ScriptDir & "Files\readme.txt")
EndFunc

Func install()
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.ini", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.dll", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\Loader.exe", "C:\Program Files\Silkroad")
EndFunc

Func NoDC()
    $iMsgBoxAnswer = MsgBox( 4100, "Confirmation", "Do you really want to install GreyFox's NoDC client? The application will make a backup file: sro_client_backup.exe (just rename the file to restore it)" )
    Select
    Case $iMsgBoxAnswer = 6 ;Yes
        FileCopy( "C:\Program Files\Silkroad\sro_client.exe", "C:\Program Files\Silkroad\sro_client_backup.exe")
        FileCopy(@ScriptDir & "Client\sro_client.exe", "C:\Program Files\Silkroad\sro_client.exe", 1)
        
    EndSelect
    

    EndFunc
    
Func Trans()
    If $_trans = 220 Then
        For $_trans = GUICtrlRead($Trans) To 0 Step - 0.1
            WinSetTrans($Form3,"",$_trans)
            GUICtrlSetData($Trans,$_trans)
        Next
    ElseIf $_trans = 0 Then
        WinSetTrans($title,"",$_trans)
        GUISetState()
        For $_trans = 0 To 220 Step 0.3
            WinSetTrans($Form3,"",$_trans)
            GUICtrlSetData($Trans,$_trans)
        Next
    EndIf
EndFunc

Func HideSHow()
    If $show = True Then
        $_trans = 220
        trans()
        GUISetState(@SW_HIDE,$title & ".")
        $show = False
    Else
        $_trans = 0
        trans()
        GUISetState(@SW_SHOW,$title & ".")
        $show = True
    EndIf
EndFunc

Func GuiClose()
    $Quit = MsgBox(36,$title,"Are you sure you want to Quit?")
    If $Quit = 6 Then
        $_trans = 220
        trans()
        Exit
    EndIf
EndFunc
Link to comment
Share on other sites

#include <GUIConstants.au3>
#include <Constants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <GUIConstantsEX.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <EZSkin.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>


HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "Minimize")
HotKeySet("{F4}", "Maximize")
HotKeySet("{F5}", "Hide")
HotKeySet("{F6}", "Show")
HotKeySet("{F9}", "GUIClose")
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$title = "SRO Manager"
$resolution = @DesktopHeight + @DesktopWidth
$_trans = 0
$stopscript = 0


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section _ End              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TraySetToolTip($title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "HideSHow")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$updateGUI = GUICreate($title)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form3 = EzSkinGUICreate($title, 565, 348)

GUISetBkColor(0x0A246A)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "HideShow")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "HideShow")

$SRO = GUICtrlCreateTab(58, 58, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$HLPR = GUICtrlCreateTabItem("SRO Helper")
$Rapi = GUICtrlCreateGroup("Rapi's skill helper", 73, 89, 177, 169)
$Run = EZSkinButton("Run", 89, 105, 145, 25)
GUICtrlSetOnEvent($Run, "start")
$Stop = EZSkinButton("Stop", 105, 145, 113, 25, 0)
GUICtrlSetOnEvent($Stop, "stop")
$Exit = EZSkinButton("Exit", 81, 225, 65, 25, 0)
GUICtrlSetOnEvent($Exit, "GUIClose")
$Ex = GUICtrlCreateLabel("Press F9 to exit", 161, 233, 76, 17)
$RS = GUICtrlCreateLabel("Press F1 to run and F2 to stop", 89, 185, 146, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MNG = GUICtrlCreateGroup("SRO Manager", 259, 90, 233, 169)
$Minimize = EZSkinButton("Minimize", 267, 106, 81, 25, 0)
GUICtrlSetOnEvent($Minimize, "Minimize")
$Maximize = EZSkinButton("Maximize", 267, 138, 81, 25, 0)
GUICtrlSetOnEvent($Maximize, "Maximize")
$Hide = EZSkinButton("Hide", 267, 170, 81, 25, 0)
GUICtrlSetOnEvent($Hide, "Hide")
$Show = EZSkinButton("Show", 267, 202, 81, 25, 0)
GUICtrlSetOnEvent($Show, "Show")
$Min = GUICtrlCreateLabel("  Press F3 to minimize", 371, 106, 105, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Max = GUICtrlCreateLabel("   Press F4 to maximize", 371, 146, 111, 17)
$Hid = GUICtrlCreateLabel("Press F5 to hide", 379, 178, 80, 17)
$Sho = GUICtrlCreateLabel("Press F6 to show", 379, 202, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Trans = GUICtrlCreateSlider(401, 265, 94, 21)
GUICtrlSetLimit($Trans, 250, 50)
GUICtrlSetData($Trans, 50)
$Tran = GUICtrlCreateLabel("Transparency", 321, 270, 69, 17)
$BL = GUICtrlCreateTabItem("Bots and Loaders")
$Testo = GUICtrlCreateGroup("Testosterone Loader", 71, 93, 201, 89)
$Tes = GUICtrlCreateLabel("Only works with default SRO Install", 87, 149, 169, 17)
$Test = EZSkinButton("Install Testosterone Loader", 87, 117, 161, 25, 0)
GUICtrlSetOnEvent($Test, "install")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grey = GUICtrlCreateGroup("GreyFox's  NoDC Client", 286, 93, 193, 89)
$nodc = EZSkinButton("Install NoDC Client", 294, 117, 169, 25, 0)
GUICtrlSetOnEvent($nodc, "NoDC")
$warn = GUICtrlCreateLabel("Only works with default SRO Install", 294, 149, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$AL = GUICtrlCreateTabItem("Auto Login")
$CS = GUICtrlCreateLabel("COMING SOON", 145, 145, 239, 41)
GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif")
$ABOUT = GUICtrlCreateTabItem("About")
GUICtrlSetState(-1, $GUI_SHOW)
$Pics = GUICtrlCreatePic(@ScriptDir & "Files\icon-sro.jpg", 71, 86, 113, 100)
$Pname = GUICtrlCreateLabel("Product Name", 204, 97, 72, 17, $WS_GROUP)
$Readme = EZSkinButton("Readme", 307, 163, 161, 41, 0)
GUICtrlSetOnEvent($Readme, "readme")
$helper = GUICtrlCreateLabel("SRO Helper", 283, 97, 61, 17)
$version = GUICtrlCreateLabel("Version", 207, 128, 39, 17, $WS_GROUP)
$onedotnul = GUICtrlCreateLabel("2.0", 251, 129, 19, 17)
$Cop = GUICtrlCreateLabel("Copyright", 77, 194, 48, 17, $WS_GROUP)
$RG = GUICtrlCreateLabel("Rapi and Gustorn, Ideas: ADS", 130, 195, 215, 17)
$COM = GUICtrlCreateLabel("Comments", 78, 221, 53, 17, $WS_GROUP)
$Free = GUICtrlCreateLabel("The program is freeware, feel free to modify it", 135, 221, 215, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
Trans()
#EndRegion ### END Koda GUI section ###




While 1
    EzSkinOver()
    Sleep(100)
    WinSetTrans($Form3, "", GUICtrlRead($Trans))
WEnd









;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Start()

    $stopscript = 0

    Do

        Send("1")
        Sleep(250)
        Send("2")
        Sleep(250)
        Send("3")
        Sleep(250)
        Send("4")
        Sleep(250)
        Send("5")
        Sleep(250)
        Send("6")
        Sleep(250)
        Send("7")
        Sleep(250)

    Until $stopscript = 1
EndFunc   ;==>Start

Func Stop()
    $stopscript = 1
EndFunc   ;==>Stop


Func minimize()
    WinSetState("SRO_Client", "", @SW_MINIMIZE)
EndFunc   ;==>minimize

Func maximize()
    WinSetState("SRO_Client", "", @SW_MAXIMIZE)
EndFunc   ;==>maximize

Func hide()
    WinSetState("SRO_Client", "", @SW_HIDE)
EndFunc   ;==>hide

Func show()
    WinSetState("SRO_Client", "", @SW_SHOW)
EndFunc   ;==>show

Func readme()
    ShellExecute(@ScriptDir & "Files\readme.txt")
EndFunc   ;==>readme

Func install()
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.ini", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.dll", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\Loader.exe", "C:\Program Files\Silkroad")
EndFunc   ;==>install

Func NoDC()
    $iMsgBoxAnswer = MsgBox(4100, "Confirmation", "Do you really want to install GreyFox's NoDC client? The application will make a backup file: sro_client_backup.exe (just rename the file to restore it)")
    Select
        Case $iMsgBoxAnswer = 6 ;Yes
            FileCopy("C:\Program Files\Silkroad\sro_client.exe", "C:\Program Files\Silkroad\sro_client_backup.exe")
            FileCopy(@ScriptDir & "Client\sro_client.exe", "C:\Program Files\Silkroad\sro_client.exe", 1)

    EndSelect


EndFunc   ;==>NoDC

Func Trans()
    If $_trans = 220 Then
        For $_trans = GUICtrlRead($Trans) To 0 Step -0.1
            WinSetTrans($Form3, "", $_trans)
            GUICtrlSetData($Trans, $_trans)
        Next
    ElseIf $_trans = 0 Then
        WinSetTrans($title, "", $_trans)
        GUISetState()
        For $_trans = 0 To 220 Step 0.3
            WinSetTrans($Form3, "", $_trans)
            GUICtrlSetData($Trans, $_trans)
        Next
    EndIf
EndFunc   ;==>Trans

Func HideSHow()
    If $Show = True Then
        $_trans = 220
        Trans()
        GUISetState(@SW_HIDE, $title & ".")
        $Show = False
    Else
        $_trans = 0
        Trans()
        GUISetState(@SW_SHOW, $title & ".")
        $Show = True
    EndIf
EndFunc   ;==>HideSHow

Func GuiClose()
    $Quit = MsgBox(36, $title, "Are you sure you want to Quit?")
    If $Quit = 6 Then
        $_trans = 220
        Trans()
        Exit
    EndIf
EndFunc   ;==>GuiClose

8)

NEWHeader1.png

Link to comment
Share on other sites

Thank you for the modified script, but the problem is still the same: I have a strange problem after put my script into EzSkin format. The problem is the run function of my script is only working AFTER you moved the transparency slider... I've tested it with your script too but it's the same... Pls help me if you can

Link to comment
Share on other sites

#include <GUIConstants.au3>
#include <Constants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <GUIConstantsEX.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <EZSkin.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>


HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "Minimize")
HotKeySet("{F4}", "Maximize")
HotKeySet("{F5}", "Hide")
HotKeySet("{F6}", "Show")
HotKeySet("{F9}", "GUIClose")
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$title = "SRO Manager"
$resolution = @DesktopHeight + @DesktopWidth
$_trans = 0
$stopscript = 0


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section _ End              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TraySetToolTip($title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "HideSHow")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$updateGUI = GUICreate($title)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form3 = EzSkinGUICreate($title, 565, 348)

GUISetBkColor(0x0A246A)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "HideShow")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "HideShow")

$SRO = GUICtrlCreateTab(58, 58, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$HLPR = GUICtrlCreateTabItem("SRO Helper")
$Rapi = GUICtrlCreateGroup("Rapi's skill helper", 73, 89, 177, 169)
$Run = EZSkinButton("Run", 89, 105, 145, 25)
GUICtrlSetOnEvent($Run, "start")
$Stop = EZSkinButton("Stop", 105, 145, 113, 25, 0)
GUICtrlSetOnEvent($Stop, "stop")
$Exit = EZSkinButton("Exit", 81, 225, 65, 25, 0)
GUICtrlSetOnEvent($Exit, "GUIClose")
$Ex = GUICtrlCreateLabel("Press F9 to exit", 161, 233, 76, 17)
$RS = GUICtrlCreateLabel("Press F1 to run and F2 to stop", 89, 185, 146, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MNG = GUICtrlCreateGroup("SRO Manager", 259, 90, 233, 169)
$Minimize = EZSkinButton("Minimize", 267, 106, 81, 25, 0)
GUICtrlSetOnEvent($Minimize, "Minimize")
$Maximize = EZSkinButton("Maximize", 267, 138, 81, 25, 0)
GUICtrlSetOnEvent($Maximize, "Maximize")
$Hide = EZSkinButton("Hide", 267, 170, 81, 25, 0)
GUICtrlSetOnEvent($Hide, "Hide")
$Show = EZSkinButton("Show", 267, 202, 81, 25, 0)
GUICtrlSetOnEvent($Show, "Show")
$Min = GUICtrlCreateLabel("  Press F3 to minimize", 371, 106, 105, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
$Max = GUICtrlCreateLabel("   Press F4 to maximize", 371, 146, 111, 17)
$Hid = GUICtrlCreateLabel("Press F5 to hide", 379, 178, 80, 17)
$Sho = GUICtrlCreateLabel("Press F6 to show", 379, 202, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Trans = GUICtrlCreateSlider(401, 265, 94, 21)
GUICtrlSetLimit($Trans, 250, 50)
GUICtrlSetData($Trans, 50)
$Tran = GUICtrlCreateLabel("Transparency", 321, 270, 69, 17)
$BL = GUICtrlCreateTabItem("Bots and Loaders")
$Testo = GUICtrlCreateGroup("Testosterone Loader", 71, 93, 201, 89)
$Tes = GUICtrlCreateLabel("Only works with default SRO Install", 87, 149, 169, 17)
$Test = EZSkinButton("Install Testosterone Loader", 87, 117, 161, 25, 0)
GUICtrlSetOnEvent($Test, "install")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grey = GUICtrlCreateGroup("GreyFox's  NoDC Client", 286, 93, 193, 89)
$nodc = EZSkinButton("Install NoDC Client", 294, 117, 169, 25, 0)
GUICtrlSetOnEvent($nodc, "NoDC")
$warn = GUICtrlCreateLabel("Only works with default SRO Install", 294, 149, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$AL = GUICtrlCreateTabItem("Auto Login")
$CS = GUICtrlCreateLabel("COMING SOON", 145, 145, 239, 41)
GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif")
$ABOUT = GUICtrlCreateTabItem("About")
GUICtrlSetState(-1, $GUI_SHOW)
$Pics = GUICtrlCreatePic(@ScriptDir & "Files\icon-sro.jpg", 71, 86, 113, 100)
$Pname = GUICtrlCreateLabel("Product Name", 204, 97, 72, 17, $WS_GROUP)
$Readme = EZSkinButton("Readme", 307, 163, 161, 41, 0)
GUICtrlSetOnEvent($Readme, "readme")
$helper = GUICtrlCreateLabel("SRO Helper", 283, 97, 61, 17)
$version = GUICtrlCreateLabel("Version", 207, 128, 39, 17, $WS_GROUP)
$onedotnul = GUICtrlCreateLabel("2.0", 251, 129, 19, 17)
$Cop = GUICtrlCreateLabel("Copyright", 77, 194, 48, 17, $WS_GROUP)
$RG = GUICtrlCreateLabel("Rapi and Gustorn, Ideas: ADS", 130, 195, 215, 17)
$COM = GUICtrlCreateLabel("Comments", 78, 221, 53, 17, $WS_GROUP)
$Free = GUICtrlCreateLabel("The program is freeware, feel free to modify it", 135, 221, 215, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
Trans()
#EndRegion ### END Koda GUI section ###




While 1
    EzSkinOver()
    Sleep(100)
    WinSetTrans($Form3, "", GUICtrlRead($Trans))
    
    If $stopscript Then
        #cs
            Do
            
            Send("1")
            Sleep(250)
            Send("2")
            Sleep(250)
            Send("3")
            Sleep(250)
            Send("4")
            Sleep(250)
            Send("5")
            Sleep(250)
            Send("6")
            Sleep(250)
            Send("7")
            Sleep(250)
            
            Until $stopscript = 0
        #ce
        ; for testing
        While $stopscript
            Sleep(100)
            ToolTip('Script is "Running"', 0, 0)
        WEnd
        ToolTip("")
    EndIf
WEnd









;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Start()
    ; for testing
    $stopscript = 1
    ; this is the only way I know to beat the on-event button problems, this has nothing to do with EzSkin... 8)
EndFunc   ;==>Start

Func Stop()
    $stopscript = 0
EndFunc   ;==>Stop


Func minimize()
    WinSetState("SRO_Client", "", @SW_MINIMIZE)
EndFunc   ;==>minimize

Func maximize()
    WinSetState("SRO_Client", "", @SW_MAXIMIZE)
EndFunc   ;==>maximize

Func hide()
    WinSetState("SRO_Client", "", @SW_HIDE)
EndFunc   ;==>hide

Func show()
    WinSetState("SRO_Client", "", @SW_SHOW)
EndFunc   ;==>show

Func readme()
    ShellExecute(@ScriptDir & "Files\readme.txt")
EndFunc   ;==>readme

Func install()
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.ini", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.dll", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\Loader.exe", "C:\Program Files\Silkroad")
EndFunc   ;==>install

Func NoDC()
    $iMsgBoxAnswer = MsgBox(4100, "Confirmation", "Do you really want to install GreyFox's NoDC client? The application will make a backup file: sro_client_backup.exe (just rename the file to restore it)")
    Select
        Case $iMsgBoxAnswer = 6 ;Yes
            FileCopy("C:\Program Files\Silkroad\sro_client.exe", "C:\Program Files\Silkroad\sro_client_backup.exe")
            FileCopy(@ScriptDir & "Client\sro_client.exe", "C:\Program Files\Silkroad\sro_client.exe", 1)

    EndSelect


EndFunc   ;==>NoDC

Func Trans()
    If $_trans = 220 Then
        For $_trans = GUICtrlRead($Trans) To 0 Step -0.1
            WinSetTrans($Form3, "", $_trans)
            GUICtrlSetData($Trans, $_trans)
        Next
    ElseIf $_trans = 0 Then
        WinSetTrans($title, "", $_trans)
        GUISetState()
        For $_trans = 0 To 220 Step 0.3
            WinSetTrans($Form3, "", $_trans)
            GUICtrlSetData($Trans, $_trans)
        Next
    EndIf
EndFunc   ;==>Trans

Func HideSHow()
    If $Show = True Then
        $_trans = 220
        Trans()
        GUISetState(@SW_HIDE, $title & ".")
        $Show = False
    Else
        $_trans = 0
        Trans()
        GUISetState(@SW_SHOW, $title & ".")
        $Show = True
    EndIf
EndFunc   ;==>HideSHow

Func GuiClose()
    $Quit = MsgBox(36, $title, "Are you sure you want to Quit?")
    If $Quit = 6 Then
        $_trans = 220
        Trans()
        Exit
    EndIf
EndFunc   ;==>GuiClose

8)

NEWHeader1.png

Link to comment
Share on other sites

It has something to do with EzSkin try this(No EzSkin, but exactly the SAME script):

#include <GUIConstants.au3>
#Include <Constants.au3>
#Include <Misc.au3>
#include <IE.au3>
#include <GUIConstantsEX.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <EZSkin.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "Minimize")
HotKeySet("{F4}", "Maximize")
HotKeySet("{F5}", "Hide")
HotKeySet("{F6}", "Show")
HotKeySet("{F9}", "GUIClose")
Opt ("TrayOnEventMode", 1)
Opt ("TrayMenuMode", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$title = "SRO Manager"
$resolution = @DesktopHeight + @DesktopWidth
$_trans = 0
$stopscript = 0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            Declaring Section _ End              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TraySetToolTip($title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "HideSHow")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$updateGUI = GUICreate($title)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate($title, 465, 248, 178, 365)
GUISetBkColor(0x0A246A)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "HideShow")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "HideShow")

$SRO = GUICtrlCreateTab(8, 8, 449, 233, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$HLPR = GUICtrlCreateTabItem("SRO Helper")
$Rapi = GUICtrlCreateGroup("Rapi's skill helper", 23, 39, 177, 169)
$Run = GUICtrlCreateButton("Run", 39, 55, 145, 25, 0)
GUICtrlSetOnEvent($Run, "start")
$Stop = GUICtrlCreateButton("Stop", 55, 95, 113, 25, 0)
GUICtrlSetOnEvent($Stop, "stop")
$Exit = GUICtrlCreateButton("Exit", 31, 175, 65, 25, 0)
GUICtrlSetOnEvent($Exit, "GUIClose")
$Ex = GUICtrlCreateLabel("Press F9 to exit", 111, 183, 76, 17)
$RS = GUICtrlCreateLabel("Press F1 to run and F2 to stop", 39, 135, 146, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MNG = GUICtrlCreateGroup("SRO Manager", 209, 40, 233, 169)
$Minimize = GUICtrlCreateButton("Minimize", 217, 56, 81, 25, 0)
GUICtrlSetOnEvent($Minimize, "Minimize")
$Maximize = GUICtrlCreateButton("Maximize", 217, 88, 81, 25, 0)
GUICtrlSetOnEvent($Maximize, "Maximize")
$Hide = GUICtrlCreateButton("Hide", 217, 120, 81, 25, 0)
GUICtrlSetOnEvent($Hide, "Hide")
$Show = GUICtrlCreateButton("Show", 217, 152, 81, 25, 0)
GUICtrlSetOnEvent($Show, "Show")
$Min = GUICtrlCreateLabel("  Press F3 to minimize", 321, 56, 105, 17, BitOR($SS_CENTER,$SS_CENTERIMAGE))
$Max = GUICtrlCreateLabel("   Press F4 to maximize", 321, 96, 111, 17)
$Hid = GUICtrlCreateLabel("Press F5 to hide", 329, 128, 80, 17)
$Sho = GUICtrlCreateLabel("Press F6 to show", 329, 152, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Trans = GUICtrlCreateSlider(351, 215, 94, 21)
GUICtrlSetLimit($Trans, 250, 50)
GUICtrlSetData($Trans, 50)
$Tran = GUICtrlCreateLabel("Transparency", 271, 220, 69, 17)
$BL = GUICtrlCreateTabItem("Bots and Loaders")
$Testo = GUICtrlCreateGroup("Testosterone Loader", 21, 43, 201, 89)
$Tes = GUICtrlCreateLabel("Only works with default SRO Install", 37, 99, 169, 17)
$Test = GUICtrlCreateButton("Install Testosterone Loader", 37, 67, 161, 25, 0)
GUICtrlSetOnEvent($Test, "install")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grey = GUICtrlCreateGroup("GreyFox's  NoDC Client", 236, 43, 193, 89)
$nodc = GUICtrlCreateButton("Install NoDC Client", 244, 67, 169, 25, 0)
GUICtrlSetOnEvent($nodc, "NoDC")
$warn = GUICtrlCreateLabel("Only works with default SRO Install", 244, 99, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$AL = GUICtrlCreateTabItem("Auto Login")
$CS = GUICtrlCreateLabel("COMING SOON", 95, 95, 239, 41)
GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif")
$ABOUT = GUICtrlCreateTabItem("About")
GUICtrlSetState(-1,$GUI_SHOW)
$Pics = GUICtrlCreatePic(@ScriptDir & "Files\icon-sro.jpg", 21, 36, 113, 100)
$Pname = GUICtrlCreateLabel("Product Name", 154, 47, 72, 17, $WS_GROUP)
$Readme = GUICtrlCreateButton("Readme", 257, 113, 161, 41, 0)
GUICtrlSetOnEvent($Readme, "readme")
$helper = GUICtrlCreateLabel("SRO Helper", 233, 47, 61, 17)
$version = GUICtrlCreateLabel("Version", 157, 78, 39, 17, $WS_GROUP)
$onedotnul = GUICtrlCreateLabel("1.0", 201, 79, 19, 17)
$Cop = GUICtrlCreateLabel("Copyright", 27, 144, 48, 17, $WS_GROUP)
$RG = GUICtrlCreateLabel("Rapi and Gustorn", 80, 145, 87, 17)
$COM = GUICtrlCreateLabel("Comments", 28, 171, 53, 17, $WS_GROUP)
$Free = GUICtrlCreateLabel("The program is freeware, feel free to modify it", 85, 171, 215, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
trans()
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
    WinSetTrans($Form3,"",GUICtrlRead($Trans))
WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Func Start()
    $stopscript=0
Do
    
Send("1")
Sleep(250)
Send("2")
Sleep(250)
Send("3")
Sleep(250)
Send("4")
Sleep(250)
Send("5")
Sleep(250)
Send("6")
Sleep(250)
Send("7")
Sleep(250)

Until $stopscript = 1
EndFunc

Func Stop()
$stopscript = 1
endfunc


Func minimize()
    WinSetState("SRO_Client","",@SW_MINIMIZE)
EndFunc

Func maximize()
    WinSetState("SRO_Client","",@SW_MAXIMIZE)
EndFunc

Func hide()
    WinSetState("SRO_Client","",@SW_HIDE)
EndFunc

Func show()
    WinSetState("SRO_Client","",@SW_SHOW)
EndFunc

Func readme()
    ShellExecute(@ScriptDir & "Files\readme.txt")
EndFunc

Func install()
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.ini", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\C19H28O2.dll", "C:\Program Files\Silkroad")
    FileCopy(@ScriptDir & "Testosterone\Loader.exe", "C:\Program Files\Silkroad")
EndFunc

Func NoDC()
    $iMsgBoxAnswer = MsgBox( 4100, "Confirmation", "Do you really want to install GreyFox's NoDC client? The application will make a backup file: sro_client_backup.exe (just rename the file to restore it)" )
    Select
    Case $iMsgBoxAnswer = 6 ;Yes
        FileCopy( "C:\Program Files\Silkroad\sro_client.exe", "C:\Program Files\Silkroad\sro_client_backup.exe")
        FileCopy(@ScriptDir & "Client\sro_client.exe", "C:\Program Files\Silkroad\sro_client.exe", 1)
        
    EndSelect
    

    EndFunc
    
Func Trans()
    If $_trans = 220 Then
        For $_trans = GUICtrlRead($Trans) To 0 Step - 0.1
            WinSetTrans($Form3,"",$_trans)
            GUICtrlSetData($Trans,$_trans)
        Next
    ElseIf $_trans = 0 Then
        WinSetTrans($title,"",$_trans)
        GUISetState()
        For $_trans = 0 To 220 Step 0.3
            WinSetTrans($Form3,"",$_trans)
            GUICtrlSetData($Trans,$_trans)
        Next
    EndIf
EndFunc

Func HideSHow()
    If $show = True Then
        $_trans = 220
        trans()
        GUISetState(@SW_HIDE,$title & ".")
        $show = False
    Else
        $_trans = 0
        trans()
        GUISetState(@SW_SHOW,$title & ".")
        $show = True
    EndIf
EndFunc

Func GuiClose()
    $Quit = MsgBox(36,$title,"Are you sure you want to Quit?")
    If $Quit = 6 Then
        $_trans = 220
        trans()
        Exit
    EndIf
EndFunc
Edited by Gustorm
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...