Sign in to follow this  
Followers 0
Gustorm

Problem with EzSkin

15 posts in this topic

#1 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

#2 ·  Posted (edited)

you did not read the three simple steps

Posted Image

did you see it?? There are only 4 commands that start with EzSkin

I don't know where you got that other stuff

..... Thats Why Its So Damn Easy!!!!

8)

Edited by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

Share this post


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

Share this post


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

Share this post


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

Share this post


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

Share this post


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

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

Sorry, they both work the same from me... just fine

Windows Xp sp2, Autoit 3.2.12.0

9)


NEWHeader1.png

Share this post


Link to post
Share on other sites

So if you run the start func (at any way) you mustn't move the transparency slider first?

Share this post


Link to post
Share on other sites

So if you run the start func (at any way) you mustn't move the transparency slider first?

Correct!

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#14 ·  Posted (edited)

LOL I cant believe it:D After i removed the EzSkin.au3 from the folder of the program and compiled it to a .exe it works fine:D

Edited by Gustorm

Share this post


Link to post
Share on other sites

LOL I cant believe it:D After i removed the EzSkin.au3 from the folder of the program and compiled it to a .exe it works fine:D

GREAT!!!

You sure had me confussed... :)

lol

8)


NEWHeader1.png

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