marselo Posted August 6, 2009 Posted August 6, 2009 i made a script for a game "silkroad online" its supposed to open 15 clients from different directories with different usernames and passwords theres save/load settings option but something seems to be wrong with my script can u please help me? it does save/load for some users and doesnt for others and is there anyway to optimize my script ??? Code expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseUpx=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <String.au3> #Region ### START Koda GUI section ### Form=c:\documents and settings\biohazard\my documents\form1.kxf $input1 = "" $input2 = "" $input3 = "" $input4 = "" $input5 = "" $input6 = "" $input7 = "" $input8 = "" $input9 = "" $input10 = "" $input11 = "" $input12 = "" $input13 = "" $input14 = "" $input15 = "" $Form1_1 = GUICreate("Silkroad Connect Helper", 551, 927, 291, 8) GUISetBkColor(0xffffff) $Checkbox1 = GUICtrlCreateCheckbox("Enable", 16, 24, 57, 17) GUICtrlSetState(-1, $GUI_CHECKED) $input1 = GUICtrlCreateInput("C:\Sbot\", 80, 24, 265, 21) $Button1 = GUICtrlCreateButton("Start", 96, 864, 105, 41, 0) $Label1 = GUICtrlCreateLabel("Idle", 370, 24, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group1 = GUICtrlCreateGroup("Account 1", 8, 8, 457, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Account 2", 8, 64, 457, 49) $Checkbox2 = GUICtrlCreateCheckbox("Enable", 16, 80, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input2 = GUICtrlCreateInput("C:\Sbot\", 80, 77, 265, 21) $Label2 = GUICtrlCreateLabel("Idle", 370, 80, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group3 = GUICtrlCreateGroup("Account 3", 8, 120, 457, 49) $Checkbox3 = GUICtrlCreateCheckbox("Enable", 16, 136, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input3 = GUICtrlCreateInput("C:\Sbot\", 80, 133, 265, 21) $Label3 = GUICtrlCreateLabel("Idle", 370, 136, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group4 = GUICtrlCreateGroup("Account 4", 8, 176, 457, 49) $Checkbox4 = GUICtrlCreateCheckbox("Enable", 16, 192, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input4 = GUICtrlCreateInput("C:\Sbot\", 80, 189, 265, 21) $Label4 = GUICtrlCreateLabel("Idle", 370, 192, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group5 = GUICtrlCreateGroup("Account 5", 8, 232, 457, 49) $Checkbox5 = GUICtrlCreateCheckbox("Enable", 16, 248, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input5 = GUICtrlCreateInput("C:\Sbot\", 80, 245, 265, 21) $Label5 = GUICtrlCreateLabel("Idle", 370, 248, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group6 = GUICtrlCreateGroup("Account 6", 8, 288, 457, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $Checkbox6 = GUICtrlCreateCheckbox("Enable", 16, 304, 57, 17) GUICtrlSetState(-1, $GUI_CHECKED) $input6 = GUICtrlCreateInput("C:\Sbot\", 80, 304, 265, 21) $Label6 = GUICtrlCreateLabel("Idle", 370, 304, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group7 = GUICtrlCreateGroup("Account 7", 8, 344, 457, 49) $Checkbox7 = GUICtrlCreateCheckbox("Enable", 16, 360, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input7 = GUICtrlCreateInput("C:\Sbot\", 80, 357, 265, 21) $Label7 = GUICtrlCreateLabel("Idle", 370, 360, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group8 = GUICtrlCreateGroup("Account 8", 8, 400, 457, 49) $Checkbox8 = GUICtrlCreateCheckbox("Enable", 16, 416, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input8 = GUICtrlCreateInput("C:\Sbot\", 80, 413, 265, 21) $Label8 = GUICtrlCreateLabel("Idle", 370, 416, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group9 = GUICtrlCreateGroup("Account 9", 8, 456, 457, 49) $Checkbox9 = GUICtrlCreateCheckbox("Enable", 16, 472, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input9 = GUICtrlCreateInput("C:\Sbot\", 80, 469, 265, 21) $Label9 = GUICtrlCreateLabel("Idle", 370, 472, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group10 = GUICtrlCreateGroup("Account 10", 8, 512, 457, 49) $Checkbox10 = GUICtrlCreateCheckbox("Enable", 16, 528, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input10 = GUICtrlCreateInput("C:\Sbot\", 80, 525, 265, 21) $Label10 = GUICtrlCreateLabel("Idle", 370, 528, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group11 = GUICtrlCreateGroup("Account 11", 8, 568, 457, 49) GUICtrlCreateGroup("", -99, -99, 1, 1) $Checkbox11 = GUICtrlCreateCheckbox("Enable", 16, 600, 57, 17) GUICtrlSetState(-1, $GUI_CHECKED) $input11 = GUICtrlCreateInput("C:\Sbot\", 80, 584, 265, 21) $Label11 = GUICtrlCreateLabel("Idle", 370, 584, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group12 = GUICtrlCreateGroup("Account 12", 8, 624, 457, 49) $Checkbox12 = GUICtrlCreateCheckbox("Enable", 16, 640, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) $input12 = GUICtrlCreateInput("C:\Sbot\", 80, 637, 265, 21) $Label12 = GUICtrlCreateLabel("Idle", 370, 640, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group13 = GUICtrlCreateGroup("Account 13", 8, 680, 457, 49) $Checkbox13 = GUICtrlCreateCheckbox("Enable", 16, 696, 57, 25) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetState(-1, $GUI_DISABLE) $input13 = GUICtrlCreateInput("C:\Sbot\", 80, 693, 265, 21) $Label13 = GUICtrlCreateLabel("Idle", 370, 696, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $Group14 = GUICtrlCreateGroup("Account 14", 8, 736, 457, 49) $Checkbox14 = GUICtrlCreateCheckbox("Enable", 16, 752, 57, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetState(-1, $GUI_DISABLE) $input14 = GUICtrlCreateInput("C:\Sbot\", 80, 749, 265, 21) GUICtrlSetState(-1, $GUI_DISABLE) $Label14 = GUICtrlCreateLabel("Disabled", 370, 752, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Group15 = GUICtrlCreateGroup("Account 15", 8, 792, 457, 49) $Checkbox15 = GUICtrlCreateCheckbox("Enable", 16, 808, 57, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $input15 = GUICtrlCreateInput("C:\Sbot\", 80, 805, 265, 21) GUICtrlSetState(-1, $GUI_DISABLE) $Label15 = GUICtrlCreateLabel("Disabled", 370, 808, 86, 24, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button2 = GUICtrlCreateButton("Exit", 272, 864, 113, 41, 0) $Button3 = GUICtrlCreateButton("Set user/pass", 472, 24, 75, 25, 0) $Button4 = GUICtrlCreateButton("Set user/pass", 472, 80, 75, 25, 0) $Button5 = GUICtrlCreateButton("Set user/pass", 472, 136, 75, 25, 0) $Button6 = GUICtrlCreateButton("Set user/pass", 472, 192, 75, 25, 0) $Button7 = GUICtrlCreateButton("Set user/pass", 472, 248, 75, 25, 0) $Button8 = GUICtrlCreateButton("Set user/pass", 472, 304, 75, 25, 0) $Button9 = GUICtrlCreateButton("Set user/pass", 472, 360, 75, 25, 0) $Button10 = GUICtrlCreateButton("Set user/pass", 472, 416, 75, 25, 0) $Button11 = GUICtrlCreateButton("Set user/pass", 472, 472, 75, 25, 0) $Button12 = GUICtrlCreateButton("Set user/pass", 472, 528, 75, 25, 0) $Button13 = GUICtrlCreateButton("Set user/pass", 472, 584, 75, 25, 0) $Button14 = GUICtrlCreateButton("Set user/pass", 472, 640, 75, 25, 0) $Button15 = GUICtrlCreateButton("Set user/pass", 472, 696, 75, 25, 0) $Button16 = GUICtrlCreateButton("Set user/pass", 472, 752, 75, 25, 0) GUICtrlSetState(-1, $GUI_DISABLE) $Button17 = GUICtrlCreateButton("Set user/pass", 472, 808, 75, 25, 0) GUICtrlSetState(-1, $GUI_DISABLE) $Button18 = GUICtrlCreateButton("Save Settings", 472, 864, 75, 25, 0) GUICtrlSetBkColor(-1, 0x316AC5) $Button19 = GUICtrlCreateButton("...", 344, 24, 27, 25, 0) $Button20 = GUICtrlCreateButton("...", 344, 80, 27, 25, 0) $Button21 = GUICtrlCreateButton("...", 344, 136, 27, 25, 0) $Button22 = GUICtrlCreateButton("...", 344, 192, 27, 25, 0) $Button23 = GUICtrlCreateButton("...", 344, 248, 27, 25, 0) $Button24 = GUICtrlCreateButton("...", 344, 304, 27, 25, 0) $Button25 = GUICtrlCreateButton("...", 344, 360, 27, 25, 0) $Button26 = GUICtrlCreateButton("...", 344, 416, 27, 25, 0) $Button27 = GUICtrlCreateButton("...", 344, 472, 27, 25, 0) $Button28 = GUICtrlCreateButton("...", 344, 528, 27, 25, 0) $Button29 = GUICtrlCreateButton("...", 344, 584, 27, 25, 0) $Button30 = GUICtrlCreateButton("...", 344, 640, 27, 25, 0) $Button31 = GUICtrlCreateButton("...", 344, 696, 27, 25, 0) $Button32 = GUICtrlCreateButton("...", 344, 752, 27, 25, 0) GUICtrlSetState(-1, $GUI_DISABLE) $Button33 = GUICtrlCreateButton("...", 344, 808, 27, 25, 0) GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### loadsettings() $user1 = "" $pw1 = "" $char1 = "" $user2 = "" $pw2 = "" $char2 = "" $user3 = "" $pw3 = "" $char3 = "" $user4 = "" $pw4 = "" $char4 = "" $user5 = "" $pw5 = "" $char5 = "" $user6 = "" $pw6 = "" $char6 = "" $user7 = "" $pw7 = "" $char7 = "" $user8 = "" $pw8 = "" $char8 = "" $user9 = "" $pw9 = "" $char9 = "" $user10 = "" $pw10 = "" $char10 = "" $user11 = "" $pw11 = "" $char11 = "" $user12 = "" $pw12 = "" $char12 = "" $user13 = "" $pw13 = "" $char13 = "" $user14 = "" $pw14 = "" $char14 = "" $user15 = "" $pw15 = "" $char15 = "" $pass1 = "" $pass2 = "" $pass3 = "" $pass4 = "" $pass5 = "" $pass6 = "" $pass7 = "" $pass8 = "" $pass9 = "" $pass10 = "" $pass11 = "" $pass12 = "" $pass13 = "" $pass14 = "" $pass15 = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 Exit Case $Button3 Setup() Case $Button4 Setup2() Case $Button5 Setup3() Case $Button6 Setup4() Case $Button7 Setup5() Case $Button8 Setup6() Case $Button9 Setup7() Case $Button10 Setup8() Case $Button11 Setup9() Case $Button12 Setup10() Case $Button13 Setup11() Case $Button14 Setup12() Case $Button15 Setup13() Case $Button16 Setup14() Case $Button17 Setup15() Case $Button18 Savestngs() Case $Button19 setdir1() Case $Button20 setdir2() Case $Button21 setdir3() Case $Button22 setdir4() Case $Button23 setdir5() Case $Button24 setdir6() Case $Button25 setdir7() Case $Button26 setdir8() Case $Button27 setdir9() Case $Button28 setdir10() Case $Button29 setdir11() Case $Button30 setdir12() Case $Button31 setdir13() Case $Button32 setdir14() Case $Button33 setdir15() Case $Checkbox1 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then accenable1() Else accdisable1() EndIf Case $Checkbox2 If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then accenable2() Else accdisable2() EndIf Case $Checkbox3 If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then accenable3() Else accdisable3() EndIf Case $Checkbox4 If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then accenable4() Else accdisable4() EndIf Case $Checkbox5 If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then accenable5() Else accdisable5() EndIf Case $Checkbox6 If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then accenable6() Else accdisable6() EndIf Case $Checkbox7 If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then accenable7() Else accdisable7() EndIf Case $Checkbox8 If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then accenable8() Else accdisable8() EndIf Case $Checkbox9 If GUICtrlRead($Checkbox9) = $GUI_CHECKED Then accenable9() Else accdisable9() EndIf Case $Checkbox10 If GUICtrlRead($Checkbox10) = $GUI_CHECKED Then accenable10() Else accdisable10() EndIf Case $Checkbox11 If GUICtrlRead($Checkbox11) = $GUI_CHECKED Then accenable11() Else accdisable11() EndIf Case $Checkbox12 If GUICtrlRead($Checkbox12) = $GUI_CHECKED Then accenable12() Else accdisable12() EndIf Case $Checkbox13 If GUICtrlRead($Checkbox13) = $GUI_CHECKED Then accenable13() Else accdisable13() EndIf Case $Checkbox14 If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then accenable14() Else accdisable14() EndIf Case $Checkbox15 If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then accenable15() Else accdisable15() EndIf Case $Button1 prestart() EndSwitch WEnd Func Setup() $user1 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass1 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw1 = _StringEncrypt(1, $pass1, "sss", 1) $char1 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group1, $char1) EndFunc ;==>Setup Func Setup2() $user2 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass2 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw2 = _StringEncrypt(1, $pass2, "sss", 1) $char2 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group2, $char2) EndFunc ;==>Setup2 Func Setup3() $user3 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass3 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw3 = _StringEncrypt(1, $pass3, "sss", 1) $char3 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group3, $char3) EndFunc ;==>Setup3 Func Setup4() $user4 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass4 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw4 = _StringEncrypt(1, $pass4, "sss", 1) $char4 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group4, $char4) EndFunc ;==>Setup4 Func Setup5() $user5 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass5 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw5 = _StringEncrypt(1, $pass5, "sss", 1) $char5 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group5, $char5) EndFunc ;==>Setup5 Func Setup6() $user6 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass6 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw6 = _StringEncrypt(1, $pass6, "sss", 1) $char6 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group6, $char6) EndFunc ;==>Setup6 Func Setup7() $user7 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass7 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw7 = _StringEncrypt(1, $pass7, "sss", 1) $char7 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group7, $char7) EndFunc ;==>Setup7 Func Setup8() $user8 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass8 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw8 = _StringEncrypt(1, $pass8, "sss", 1) $char8 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group8, $char8) EndFunc ;==>Setup8 Func Setup9() $user9 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass9 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw9 = _StringEncrypt(1, $pass9, "sss", 1) $char9 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group9, $char9) EndFunc ;==>Setup9 Func Setup10() $user10 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass10 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw10 = _StringEncrypt(1, $pass10, "sss", 1) $char10 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group10, $char10) EndFunc ;==>Setup10 Func Setup11() $user11 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass11 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw11 = _StringEncrypt(1, $pass11, "sss", 1) $char11 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group11, $char11) EndFunc ;==>Setup11 Func Setup12() $user12 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass12 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw12 = _StringEncrypt(1, $pass12, "sss", 1) $char12 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group12, $char12) EndFunc ;==>Setup12 Func Setup13() $user13 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass13 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw13 = _StringEncrypt(1, $pass13, "sss", 1) $char13 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group13, $char13) EndFunc ;==>Setup13 Func Setup14() $user14 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass14 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw14 = _StringEncrypt(1, $pass14, "sss", 1) $char14 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group14, $char14) EndFunc ;==>Setup14 Func Setup15() $user15 = InputBox("Silkroad Login Helper", "Please , Enter your desired username") $pass15 = InputBox("Silkroad Login Helper", "Please , Enter your desired Password", "", "#") $pw15 = _StringEncrypt(1, $pass15, "sss", 1) $char15 = InputBox("Silkroad Login Helper", "Please , Enter your desired char name (Case Sensetive)") GUICtrlSetData($Group15, $char15) EndFunc ;==>Setup15 Func Savestngs() IniWrite("settings.ini", "Char 1", "directory", GUICtrlRead($input1)) IniWrite("settings.ini", "Char 1", "username", $user1) IniWrite("settings.ini", "Char 1", "password", $pw1) IniWrite("settings.ini", "Char 1", "char", $char1) IniWrite("settings.ini", "Char 2", "directory", GUICtrlRead($input2)) IniWrite("settings.ini", "Char 2", "username", $user2) IniWrite("settings.ini", "Char 2", "password", $pw2) IniWrite("settings.ini", "Char 2", "char", $char2) IniWrite("settings.ini", "Char 3", "directory", GUICtrlRead($input3)) IniWrite("settings.ini", "Char 3", "username", $user3) IniWrite("settings.ini", "Char 3", "password", $pw3) IniWrite("settings.ini", "Char 3", "char", $char3) IniWrite("settings.ini", "Char 4", "directory", GUICtrlRead($input4)) IniWrite("settings.ini", "Char 4", "username", $user4) IniWrite("settings.ini", "Char 4", "password", $pw4) IniWrite("settings.ini", "Char 4", "char", $char4) IniWrite("settings.ini", "Char 5", "directory", GUICtrlRead($input5)) IniWrite("settings.ini", "Char 5", "username", $user5) IniWrite("settings.ini", "Char 5", "password", $pw5) IniWrite("settings.ini", "Char 5", "char", $char5) IniWrite("settings.ini", "Char 6", "directory", GUICtrlRead($input6)) IniWrite("settings.ini", "Char 6", "username", $user6) IniWrite("settings.ini", "Char 6", "password", $pw6) IniWrite("settings.ini", "Char 6", "char", $char6) IniWrite("settings.ini", "Char 7", "directory", GUICtrlRead($input7)) IniWrite("settings.ini", "Char 7", "username", $user7) IniWrite("settings.ini", "Char 7", "password", $pw7) IniWrite("settings.ini", "Char 7", "char", $char7) IniWrite("settings.ini", "Char 8", "directory", GUICtrlRead($input8)) IniWrite("settings.ini", "Char 8", "username", $user8) IniWrite("settings.ini", "Char 8", "password", $pw8) IniWrite("settings.ini", "Char 8", "char", $char8) IniWrite("settings.ini", "Char 9", "directory", GUICtrlRead($input9)) IniWrite("settings.ini", "Char 9", "username", $user9) IniWrite("settings.ini", "Char 9", "password", $pw9) IniWrite("settings.ini", "Char 9", "char", $char9) IniWrite("settings.ini", "Char 10", "directory", GUICtrlRead($input10)) IniWrite("settings.ini", "Char 10", "username", $user10) IniWrite("settings.ini", "Char 10", "password", $pw10) IniWrite("settings.ini", "Char 10", "char", $char10) IniWrite("settings.ini", "Char 11", "directory", GUICtrlRead($input11)) IniWrite("settings.ini", "Char 11", "username", $user11) IniWrite("settings.ini", "Char 11", "password", $pw11) IniWrite("settings.ini", "Char 12", "char", $char11) IniWrite("settings.ini", "Char 12", "directory", GUICtrlRead($input12)) IniWrite("settings.ini", "Char 12", "username", $user12) IniWrite("settings.ini", "Char 12", "password", $pw12) IniWrite("settings.ini", "Char 13", "char", $char12) IniWrite("settings.ini", "Char 13", "directory", GUICtrlRead($input13)) IniWrite("settings.ini", "Char 13", "username", $user13) IniWrite("settings.ini", "Char 13", "password", $pw13) IniWrite("settings.ini", "Char 14", "char", $char13) IniWrite("settings.ini", "Char 14", "directory", GUICtrlRead($input14)) IniWrite("settings.ini", "Char 14", "username", $user14) IniWrite("settings.ini", "Char 14", "password", $pw14) IniWrite("settings.ini", "Char 15", "char", $char14) IniWrite("settings.ini", "Char 15", "directory", GUICtrlRead($input15)) IniWrite("settings.ini", "Char 15", "username", $user15) IniWrite("settings.ini", "Char 15", "password", $pw15) IniWrite("settings.ini", "Char 1", "char", $char15) msgbox(0,"Silkroad login helper","Settings saved successfully") EndFunc ;==>Savestngs Func setdir1() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input1, $var) EndFunc ;==>setdir1 Func setdir2() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input2, $var) EndFunc ;==>setdir2 Func setdir3() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input3, $var) EndFunc ;==>setdir3 Func setdir4() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input4, $var) EndFunc ;==>setdir4 Func setdir5() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input5, $var) EndFunc ;==>setdir5 Func setdir6() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input6, $var) EndFunc ;==>setdir6 Func setdir7() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input7, $var) EndFunc ;==>setdir7 Func setdir8() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input8, $var) EndFunc ;==>setdir8 Func setdir9() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input9, $var) EndFunc ;==>setdir9 Func setdir10() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input10, $var) EndFunc ;==>setdir10 Func setdir11() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input11, $var) EndFunc ;==>setdir11 Func setdir12() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input12, $var) EndFunc ;==>setdir12 Func setdir13() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input13, $var) EndFunc ;==>setdir13 Func setdir14() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input14, $var) EndFunc ;==>setdir14 Func setdir15() $var = FileOpenDialog("Select the Sbot exe", @DesktopCommonDir & "\", "exe files (*.exe)") If Not @error Then GUICtrlSetData($input15, $var) EndFunc ;==>setdir15 Func accenable1() GUICtrlSetState($input1, $GUI_enABLE) GUICtrlSetState($Label1, $GUI_enABLE) GUICtrlSetBkColor($Label1, 0xFF0000) GUICtrlSetColor($Label1, 0x000000) GUICtrlSetData($Label1, "Idle") GUICtrlSetState($Button3, $GUI_enABLE) GUICtrlSetState($Button19, $GUI_enABLE) $acc1 = "1" EndFunc ;==>accenable1 Func accdisable1() GUICtrlSetState($input1, $GUI_DISABLE) GUICtrlSetState($Label1, $GUI_DISABLE) GUICtrlSetBkColor($Label1, 0x000000) GUICtrlSetColor($Label1, 0xFFFFFF) GUICtrlSetData($Label1, "Disabled") GUICtrlSetState($Button3, $GUI_DISABLE) GUICtrlSetState($Button19, $GUI_DISABLE) $acc1="0" EndFunc ;==>accdisable1 Func accenable2() GUICtrlSetState($input2, $GUI_enABLE) GUICtrlSetState($Label2, $GUI_enABLE) GUICtrlSetBkColor($Label2, 0xFF0000) GUICtrlSetColor($Label2, 0x000000) GUICtrlSetData($Label2, "Idle") GUICtrlSetState($Button4, $GUI_enABLE) GUICtrlSetState($Button20, $GUI_enABLE) $acc2="1" EndFunc ;==>accenable2 Func accdisable2() GUICtrlSetState($input2, $GUI_DISABLE) GUICtrlSetState($Label2, $GUI_DISABLE) GUICtrlSetBkColor($Label2, 0x000000) GUICtrlSetColor($Label2, 0xFFFFFF) GUICtrlSetData($Label2, "Disabled") GUICtrlSetState($Button4, $GUI_DISABLE) GUICtrlSetState($Button20, $GUI_DISABLE) $acc2="0" EndFunc ;==>accdisable2 Func accenable3() GUICtrlSetState($input3, $GUI_enABLE) GUICtrlSetState($Label3, $GUI_enABLE) GUICtrlSetBkColor($Label3, 0xFF0000) GUICtrlSetColor($Label3, 0x000000) GUICtrlSetData($Label3, "Idle") GUICtrlSetState($Button5, $GUI_enABLE) GUICtrlSetState($Button21, $GUI_enABLE) $acc3="1" EndFunc ;==>accenable3 Func accdisable3() GUICtrlSetState($input3, $GUI_DISABLE) GUICtrlSetState($Label3, $GUI_DISABLE) GUICtrlSetBkColor($Label3, 0x000000) GUICtrlSetColor($Label3, 0xFFFFFF) GUICtrlSetData($Label3, "Disabled") GUICtrlSetState($Button5, $GUI_DISABLE) GUICtrlSetState($Button21, $GUI_DISABLE) $acc3="0" EndFunc ;==>accdisable3 Func accenable4() GUICtrlSetState($input4, $GUI_enABLE) GUICtrlSetState($Label4, $GUI_enABLE) GUICtrlSetBkColor($Label4, 0xFF0000) GUICtrlSetColor($Label4, 0x000000) GUICtrlSetData($Label4, "Idle") GUICtrlSetState($Button6, $GUI_enABLE) GUICtrlSetState($Button22, $GUI_enABLE) $acc4="1" EndFunc ;==>accenable4 Func accdisable4() GUICtrlSetState($input4, $GUI_DISABLE) GUICtrlSetState($Label4, $GUI_DISABLE) GUICtrlSetBkColor($Label4, 0x000000) GUICtrlSetColor($Label4, 0xFFFFFF) GUICtrlSetData($Label4, "Disabled") GUICtrlSetState($Button6, $GUI_DISABLE) GUICtrlSetState($Button22, $GUI_DISABLE) $acc4="0" EndFunc ;==>accdisable4 Func accenable5() GUICtrlSetState($input5, $GUI_enABLE) GUICtrlSetState($Label5, $GUI_enABLE) GUICtrlSetBkColor($Label5, 0xFF0000) GUICtrlSetColor($Label5, 0x000000) GUICtrlSetData($Label5, "Idle") GUICtrlSetState($Button7, $GUI_enABLE) GUICtrlSetState($Button23, $GUI_enABLE) $acc5="1" EndFunc ;==>accenable5 Func accdisable5() GUICtrlSetState($input5, $GUI_DISABLE) GUICtrlSetState($Label5, $GUI_DISABLE) GUICtrlSetBkColor($Label5, 0x000000) GUICtrlSetColor($Label5, 0xFFFFFF) GUICtrlSetData($Label5, "Disabled") GUICtrlSetState($Button7, $GUI_DISABLE) GUICtrlSetState($Button23, $GUI_DISABLE) $acc5="0" EndFunc ;==>accdisable5 Func accenable6() GUICtrlSetState($input6, $GUI_enABLE) GUICtrlSetState($Label6, $GUI_enABLE) GUICtrlSetBkColor($Label6, 0xFF0000) GUICtrlSetColor($Label6, 0x000000) GUICtrlSetData($Label6, "Idle") GUICtrlSetState($Button8, $GUI_enABLE) GUICtrlSetState($Button24, $GUI_enABLE) $acc6="1" EndFunc ;==>accenable6 Func accdisable6() GUICtrlSetState($input6, $GUI_DISABLE) GUICtrlSetState($Label6, $GUI_DISABLE) GUICtrlSetBkColor($Label6, 0x000000) GUICtrlSetColor($Label6, 0xFFFFFF) GUICtrlSetData($Label6, "Disabled") GUICtrlSetState($Button8, $GUI_DISABLE) GUICtrlSetState($Button24, $GUI_DISABLE) $acc6="0" EndFunc ;==>accdisable6 Func accenable7() GUICtrlSetState($input7, $GUI_enABLE) GUICtrlSetState($Label7, $GUI_enABLE) GUICtrlSetBkColor($Label7, 0xFF0000) GUICtrlSetColor($Label7, 0x000000) GUICtrlSetData($Label7, "Idle") GUICtrlSetState($Button9, $GUI_enABLE) GUICtrlSetState($Button25, $GUI_enABLE) $acc7="1" EndFunc ;==>accenable7 Func accdisable7() GUICtrlSetState($input7, $GUI_DISABLE) GUICtrlSetState($Label7, $GUI_DISABLE) GUICtrlSetBkColor($Label7, 0x000000) GUICtrlSetColor($Label7, 0xFFFFFF) GUICtrlSetData($Label7, "Disabled") GUICtrlSetState($Button9, $GUI_DISABLE) GUICtrlSetState($Button25, $GUI_DISABLE) $acc7="0" EndFunc ;==>accdisable7 Func accenable8() GUICtrlSetState($input8, $GUI_enABLE) GUICtrlSetState($Label8, $GUI_enABLE) GUICtrlSetBkColor($Label8, 0xFF0000) GUICtrlSetColor($Label8, 0x000000) GUICtrlSetData($Label8, "Idle") GUICtrlSetState($Button10, $GUI_enABLE) GUICtrlSetState($Button26, $GUI_enABLE) $acc8="1" EndFunc ;==>accenable8 Func accdisable8() GUICtrlSetState($input8, $GUI_DISABLE) GUICtrlSetState($Label8, $GUI_DISABLE) GUICtrlSetBkColor($Label8, 0x000000) GUICtrlSetColor($Label8, 0xFFFFFF) GUICtrlSetData($Label8, "Disabled") GUICtrlSetState($Button10, $GUI_DISABLE) GUICtrlSetState($Button26, $GUI_DISABLE) $acc8="0" EndFunc ;==>accdisable8 Func accenable9() GUICtrlSetState($input9, $GUI_enABLE) GUICtrlSetState($Label9, $GUI_enABLE) GUICtrlSetBkColor($Label9, 0xFF0000) GUICtrlSetColor($Label9, 0x000000) GUICtrlSetData($Label9, "Idle") GUICtrlSetState($Button11, $GUI_enABLE) GUICtrlSetState($Button27, $GUI_enABLE) $acc9="1" EndFunc ;==>accenable9 Func accdisable9() GUICtrlSetState($input9, $GUI_DISABLE) GUICtrlSetState($Label9, $GUI_DISABLE) GUICtrlSetBkColor($Label9, 0x000000) GUICtrlSetColor($Label9, 0xFFFFFF) GUICtrlSetData($Label9, "Disabled") GUICtrlSetState($Button11, $GUI_DISABLE) GUICtrlSetState($Button27, $GUI_DISABLE) $acc9="0" EndFunc ;==>accdisable9 Func accenable10() GUICtrlSetState($input10, $GUI_enABLE) GUICtrlSetState($Label10, $GUI_enABLE) GUICtrlSetBkColor($Label10, 0xFF0000) GUICtrlSetColor($Label10, 0x000000) GUICtrlSetData($Label10, "Idle") GUICtrlSetState($Button12, $GUI_enABLE) GUICtrlSetState($Button28, $GUI_enABLE) $acc10="1" EndFunc ;==>accenable10 Func accdisable10() GUICtrlSetState($input10, $GUI_DISABLE) GUICtrlSetState($Label10, $GUI_DISABLE) GUICtrlSetBkColor($Label10, 0x000000) GUICtrlSetColor($Label10, 0xFFFFFF) GUICtrlSetData($Label10, "Disabled") GUICtrlSetState($Button12, $GUI_DISABLE) GUICtrlSetState($Button28, $GUI_DISABLE) $acc10="0" EndFunc ;==>accdisable10 Func accenable11() GUICtrlSetState($input11, $GUI_enABLE) GUICtrlSetState($Label11, $GUI_enABLE) GUICtrlSetBkColor($Label11, 0xFF0000) GUICtrlSetColor($Label11, 0x000000) GUICtrlSetData($Label11, "Idle") GUICtrlSetState($Button13, $GUI_enABLE) GUICtrlSetState($Button29, $GUI_enABLE) $acc11="1" EndFunc ;==>accenable11 Func accdisable11() GUICtrlSetState($input11, $GUI_DISABLE) GUICtrlSetState($Label11, $GUI_DISABLE) GUICtrlSetBkColor($Label11, 0x000000) GUICtrlSetColor($Label11, 0xFFFFFF) GUICtrlSetData($Label11, "Disabled") GUICtrlSetState($Button13, $GUI_DISABLE) GUICtrlSetState($Button29, $GUI_DISABLE) $acc11="0" EndFunc ;==>accdisable11 Func accenable12() GUICtrlSetState($input12, $GUI_enABLE) GUICtrlSetState($Label12, $GUI_enABLE) GUICtrlSetBkColor($Label12, 0xFF0000) GUICtrlSetColor($Label12, 0x000000) GUICtrlSetData($Label12, "Idle") GUICtrlSetState($Button14, $GUI_enABLE) GUICtrlSetState($Button30, $GUI_enABLE) $acc12="1" EndFunc ;==>accenable12 Func accdisable12() GUICtrlSetState($input12, $GUI_DISABLE) GUICtrlSetState($Label12, $GUI_DISABLE) GUICtrlSetBkColor($Label12, 0x000000) GUICtrlSetColor($Label12, 0xFFFFFF) GUICtrlSetData($Label12, "Disabled") GUICtrlSetState($Button14, $GUI_DISABLE) GUICtrlSetState($Button30, $GUI_DISABLE) $acc12="0" EndFunc ;==>accdisable12 Func accenable13() GUICtrlSetState($input13, $GUI_enABLE) GUICtrlSetState($Label13, $GUI_enABLE) GUICtrlSetBkColor($Label13, 0xFF0000) GUICtrlSetColor($Label13, 0x000000) GUICtrlSetData($Label13, "Idle") GUICtrlSetState($Button15, $GUI_enABLE) GUICtrlSetState($Button31, $GUI_enABLE) $acc13="1" EndFunc ;==>accenable13 Func accdisable13() GUICtrlSetState($input13, $GUI_DISABLE) GUICtrlSetState($Label13, $GUI_DISABLE) GUICtrlSetBkColor($Label13, 0x000000) GUICtrlSetColor($Label13, 0xFFFFFF) GUICtrlSetData($Label13, "Disabled") GUICtrlSetState($Button15, $GUI_DISABLE) GUICtrlSetState($Button31, $GUI_DISABLE) $acc13="0" EndFunc ;==>accdisable13 Func accenable14() GUICtrlSetState($input14, $GUI_enABLE) GUICtrlSetState($Label14, $GUI_enABLE) GUICtrlSetBkColor($Label14, 0xFF0000) GUICtrlSetColor($Label14, 0x000000) GUICtrlSetData($Label14, "Idle") GUICtrlSetState($Button16, $GUI_enABLE) GUICtrlSetState($Button32, $GUI_enABLE) $acc14="1" EndFunc ;==>accenable14 Func accdisable14() GUICtrlSetState($input14, $GUI_DISABLE) GUICtrlSetState($Label14, $GUI_DISABLE) GUICtrlSetBkColor($Label14, 0x000000) GUICtrlSetColor($Label14, 0xFFFFFF) GUICtrlSetData($Label14, "Disabled") GUICtrlSetState($Button16, $GUI_DISABLE) GUICtrlSetState($Button32, $GUI_DISABLE) $acc14="0" EndFunc ;==>accdisable14 Func accenable15() GUICtrlSetState($input15, $GUI_enABLE) GUICtrlSetState($Label15, $GUI_enABLE) GUICtrlSetBkColor($Label15, 0xFF0000) GUICtrlSetColor($Label15, 0x000000) GUICtrlSetData($Label15, "Idle") GUICtrlSetState($Button17, $GUI_enABLE) GUICtrlSetState($Button33, $GUI_enABLE) $acc15="1" EndFunc ;==>accenable15 Func accdisable15() GUICtrlSetState($input15, $GUI_DISABLE) GUICtrlSetState($Label15, $GUI_DISABLE) GUICtrlSetBkColor($Label15, 0x000000) GUICtrlSetColor($Label15, 0xFFFFFF) GUICtrlSetData($Label15, "Disabled") GUICtrlSetState($Button17, $GUI_DISABLE) GUICtrlSetState($Button33, $GUI_DISABLE) $acc15="0" EndFunc ;==>accdisable15 Func loadsettings() $dirsr1 = IniRead("settings.ini", "Char 1", "directory", "") GUICtrlSetData($input1, $dirsr1) $user1 = IniRead("settings.ini", "Char 1", "username", "") $pw1 = IniRead("settings.ini", "Char 1", "password", "") $pass1 = _StringEncrypt(0, $pw1, "sss", 1) $char1 = IniRead("settings.ini", "Char 1", "char", "") If $char1 = "" Then GUICtrlSetData($Group1, "Account 1") Else GUICtrlSetData($Group1, $char1) EndIf $dirsr2 = IniRead("settings.ini", "Char 2", "directory", "") GUICtrlSetData($input2, $dirsr2) $user2 = IniRead("settings.ini", "Char 2", "username", "") $pw2 = IniRead("settings.ini", "Char 2", "password", "") $pass2 = _StringEncrypt(0, $pw2, "sss", 1) $char2 = IniRead("settings.ini", "Char 2", "char", "") If $char2 = "" Then GUICtrlSetData($Group2, "Account 2") Else GUICtrlSetData($Group2, $char2) EndIf $dirsr3 = IniRead("settings.ini", "Char 3", "directory", "") GUICtrlSetData($input3, $dirsr3) $user3 = IniRead("settings.ini", "Char 3", "username", "") $pw3 = IniRead("settings.ini", "Char 3", "password", "") $pass3 = _StringEncrypt(0, $pw3, "sss", 1) $char3 = IniRead("settings.ini", "Char 3", "char", "") If $char3 = "" Then GUICtrlSetData($Group3, "Account 3") Else GUICtrlSetData($Group3, $char3) EndIf $dirsr4 = IniRead("settings.ini", "Char 4", "directory", "") GUICtrlSetData($input4, $dirsr4) $user4 = IniRead("settings.ini", "Char 4", "username", "") $pw4 = IniRead("settings.ini", "Char 4", "password", "") $pass4 = _StringEncrypt(0, $pw4, "sss", 1) $char4 = IniRead("settings.ini", "Char 4", "char", "") If $char4 = "" Then GUICtrlSetData($Group4, "Account 4") Else GUICtrlSetData($Group4, $char4) EndIf $dirsr5 = IniRead("settings.ini", "Char 5", "directory", "") GUICtrlSetData($input5, $dirsr5) $user5 = IniRead("settings.ini", "Char 5", "username", "") $pw5 = IniRead("settings.ini", "Char 5", "password", "") $pass5 = _StringEncrypt(0, $pw5, "sss", 1) $char5 = IniRead("settings.ini", "Char 5", "char", "") If $char5 = "" Then GUICtrlSetData($Group5, "Account 5") Else GUICtrlSetData($Group5, $char5) EndIf $dirsr6 = IniRead("settings.ini", "Char 6", "directory", "") GUICtrlSetData($input6, $dirsr6) $user6 = IniRead("settings.ini", "Char 6", "username", "") $pw6 = IniRead("settings.ini", "Char 6", "password", "") $pass6 = _StringEncrypt(0, $pw6, "sss", 1) $char6 = IniRead("settings.ini", "Char 6", "char", "") If $char6 = "" Then GUICtrlSetData($Group6, "Account 6") Else GUICtrlSetData($Group6, $char6) EndIf $dirsr7 = IniRead("settings.ini", "Char 7", "directory", "") GUICtrlSetData($input7, $dirsr7) $user7 = IniRead("settings.ini", "Char 7", "username", "") $pw7 = IniRead("settings.ini", "Char 7", "password", "") $pass7 = _StringEncrypt(0, $pw7, "sss", 1) $char7 = IniRead("settings.ini", "Char 7", "char", "") If $char7 = "" Then GUICtrlSetData($Group7, "Account 7") Else GUICtrlSetData($Group7, $char7) EndIf $dirsr8 = IniRead("settings.ini", "Char 8", "directory", "") GUICtrlSetData($input8, $dirsr8) $user8 = IniRead("settings.ini", "Char 8", "username", "") $pw8 = IniRead("settings.ini", "Char 8", "password", "") $pass8 = _StringEncrypt(0, $pw8, "sss", 1) $char8 = IniRead("settings.ini", "Char 8", "char", "") If $char8 = "" Then GUICtrlSetData($Group8, "Account 8") Else GUICtrlSetData($Group8, $char8) EndIf $dirsr9 = IniRead("settings.ini", "Char 9", "directory", "") GUICtrlSetData($input9, $dirsr9) $user9 = IniRead("settings.ini", "Char 9", "username", "") $pw9 = IniRead("settings.ini", "Char 9", "password", "") $pass9 = _StringEncrypt(0, $pw9, "sss", 1) $char9 = IniRead("settings.ini", "Char 9", "char", "") If $char9 = "" Then GUICtrlSetData($Group9, "Account 9") Else GUICtrlSetData($Group9, $char9) EndIf $dirsr10 = IniRead("settings.ini", "Char 10", "directory", "") GUICtrlSetData($input10, $dirsr10) $user10 = IniRead("settings.ini", "Char 10", "username", "") $pw10 = IniRead("settings.ini", "Char 10", "password", "") $pass10 = _StringEncrypt(0, $pw10, "sss", 1) $char10 = IniRead("settings.ini", "Char 10", "char", "") If $char10 = "" Then GUICtrlSetData($Group10, "Account 10") Else GUICtrlSetData($Group10, $char10) EndIf $dirsr11 = IniRead("settings.ini", "Char 11", "directory", "") GUICtrlSetData($input11, $dirsr11) $user11 = IniRead("settings.ini", "Char 11", "username", "") $pw11 = IniRead("settings.ini", "Char 11", "password", "") $pass11 = _StringEncrypt(0, $pw11, "sss", 1) $char11 = IniRead("settings.ini", "Char 11", "char", "") If $char11 = "" Then GUICtrlSetData($Group11, "Account 11") Else GUICtrlSetData($Group11, $char11) EndIf $dirsr12 = IniRead("settings.ini", "Char 12", "directory", "") GUICtrlSetData($input12, $dirsr12) $user12 = IniRead("settings.ini", "Char 12", "username", "") $pw12 = IniRead("settings.ini", "Char 12", "password", "") $pass12 = _StringEncrypt(0, $pw12, "sss", 1) $char12 = IniRead("settings.ini", "Char 12", "char", "") If $char12 = "" Then GUICtrlSetData($Group12, "Account 12") Else GUICtrlSetData($Group12, $char12) EndIf $dirsr13 = IniRead("settings.ini", "Char 13", "directory", "") GUICtrlSetData($input13, $dirsr13) $user13 = IniRead("settings.ini", "Char 13", "username", "") $pw13 = IniRead("settings.ini", "Char 13", "password", "") $pass13 = _StringEncrypt(0, $pw13, "sss", 1) $char13 = IniRead("settings.ini", "Char 13", "char", "") If $char13 = "" Then GUICtrlSetData($Group13, "Account 13") Else GUICtrlSetData($Group13, $char13) EndIf $dirsr14 = IniRead("settings.ini", "Char 14", "directory", "") GUICtrlSetData($input14, $dirsr14) $user14 = IniRead("settings.ini", "Char 14", "username", "") $pw14 = IniRead("settings.ini", "Char 14", "password", "") $pass14 = _StringEncrypt(0, $pw14, "sss", 1) $char14 = IniRead("settings.ini", "Char 14", "char", "") If $char14 = "" Then GUICtrlSetData($Group14, "Account 14") Else GUICtrlSetData($Group14, $char14) EndIf $dirsr15 = IniRead("settings.ini", "Char 15", "directory", "") GUICtrlSetData($input15, $dirsr15) $user15 = IniRead("settings.ini", "Char 15", "username", "") $pw15 = IniRead("settings.ini", "Char 15", "password", "") $pass15 = _StringEncrypt(0, $pw15, "sss", 1) $char15 = IniRead("settings.ini", "Char 15", "char", "") If $char15 = "" Then GUICtrlSetData($Group15, "Account 15") Else GUICtrlSetData($Group15, $char15) EndIf EndFunc ;==>loadsettings Func logincheck() $loginchk = ControlGetText('SBot v1.32d (C)2008,2009 by bot-cave.net', "", "[CLASS:Static; INSTANCE:7]") If $loginchk = "Error - Connection failed!" Then MsgBox(0, "Silkroad Login Helper", "Sbot connection failed Please retry") Exit EndIf EndFunc ;==>logincheck Func prestart() global $dirsr1 , $dirsr2 , $dirsr3 ,$dirsr4 ,$dirsr5 ,$dirsr6 ,$dirsr7 ,$dirsr8 ,$dirsr9 ,$dirsr10 ,$dirsr11 ,$dirsr12 ,$dirsr13 ,$dirsr14 ,$dirsr15 $dirsr1 = GUICtrlRead($input1) $dirsr2 = GUICtrlRead($input2) $dirsr3 = GUICtrlRead($input3) $dirsr4 = GUICtrlRead($input4) $dirsr5 = GUICtrlRead($input5) $dirsr6 = GUICtrlRead($input6) $dirsr7 = GUICtrlRead($input7) $dirsr8 = GUICtrlRead($input8) $dirsr9 = GUICtrlRead($input9) $dirsr10 = GUICtrlRead($input10) $dirsr11 = GUICtrlRead($input11) $dirsr12 = GUICtrlRead($input12) $dirsr13 = GUICtrlRead($input13) $dirsr14 = GUICtrlRead($input14) $dirsr15 = GUICtrlRead($input15) start() EndFunc ;==>prestart Func start() Run($dirsr1) WinWaitActive('SBot v1.32d (C)2008,2009 by bot-cave.net') Sleep(3000) logincheck() EndFunc ;==>start ill be really thankful for your help ^^
colafrysen Posted August 6, 2009 Posted August 6, 2009 Is there anyway to optimize my script ???Have a look at Arrays and For...To...Step...Next [font="Impact"]Use the helpfile, It´s one of the best exlusive features of Autoit.[/font]http://support.microsoft.com/kb/q555375ALIBI Run - a replacement for the windows run promptPC Controller - an application for controlling other PCs[size="1"]Science flies us to the moon. Religion flies us into buildings.[/size][size="1"]http://bit.ly/cAMPZV[/size]
smashly Posted August 6, 2009 Posted August 6, 2009 Hi, as colafrysen said arrays and loops would make your code a lot shorter. I had a play with your code, maybe you can get some ideas from what I changed. I don't play silkroad so I didn't bother trying the connection side of things. Mainly I just played with the gui and generating the controls in a briefer manner. Sorry I used 10 slots instead of 15 as my laptop res only has 1024x768...lol expandcollapse popup#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) Global $Ini = @ScriptDir & "\SRHelper.ini" Global $hGui, $aCID[11][9], $iX = 5, $iY = 5, $Start Global $hDetail, $Name, $Pass, $Char $hGui = GUICreate("Silkroad Connect Helper", 550, 600, -1, -1) GUISetBkColor(0xffffff) GUISetOnEvent($GUI_EVENT_CLOSE, "GuiEvent", $hGui) For $i = 1 To UBound($aCID, 1) -1 $aCID[$i][0] = GUICtrlCreateGroup("Account " & $i, $iX, $iY, 540, 50) $aCID[$i][1] = GUICtrlCreateCheckbox("Enable", $iX + 10, $iY + 20, 55, 20) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetOnEvent(-1, "CheckBox") $aCID[$i][2] = GUICtrlCreateInput("Path not currently set", $iX + 70, $iY + 20, 260, 20, $ES_READONLY) GUICtrlSetBkColor(-1, 0xFFFFFF) $aCID[$i][3] = GUICtrlCreateButton("...", $iX + 340, $iY + 20, 25, 20) GUICtrlSetOnEvent(-1, "Browse") GUICtrlSetTip(-1, "Click to browse for Sbot exe for Account " & $i) $aCID[$i][4] = GUICtrlCreateLabel("Idle", $iX + 375, $iY + 20, 70, 20, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE) GUICtrlSetBkColor(-1, 0xFF0000) $aCID[$i][5] = GUICtrlCreateButton("Login Details", $iX + 455, $iY + 20, 75, 20) GUICtrlSetOnEvent(-1, "Details") $iY += 55 Next $Start = GUICtrlCreateButton("Start", 225, 555, 100, 40) GUICtrlSetOnEvent(-1, "Start") Load() GUISetState(@SW_SHOW, $hGui) $hDetail = GUICreate("", 285, 200, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST) GUICtrlCreateLabel("Username:", 5, 5, 55, 20, $BS_CENTER) GUICtrlCreateLabel("Password:", 5, 30, 55, 20, $BS_CENTER) GUICtrlCreateLabel("Character:", 5, 55, 55, 20, $BS_CENTER) $Name = GUICtrlCreateInput("", 70, 5, 200, 20) $Pass = GUICtrlCreateInput("", 70, 30, 200, 20, $ES_PASSWORD) $Char = GUICtrlCreateInput("", 70, 55, 200, 20) GUICtrlSetTip(-1, "Enter you character name (Case Sensitive)") $Ok = GUICtrlCreateButton("Ok", 50, 90, 60, 20) GUICtrlSetOnEvent(-1, "SetDetails") $Cancel = GUICtrlCreateButton("Cancel", 120, 90, 60, 20) GUICtrlSetOnEvent(-1, "SetDetails") GUISetState(@SW_HIDE, $hDetail) While 1 Sleep(100) WEnd Func GuiEvent() Switch @GUI_CtrlId Case $GUI_EVENT_CLOSE Save() Exit Case $GUI_EVENT_MINIMIZE Case $GUI_EVENT_RESTORE EndSwitch EndFunc Func CheckBox() Local $cID = @GUI_CtrlId For $i = 1 To Ubound($aCID, 1) -1 If $cID == $aCID[$i][1] Then CheckBoxState($i) Return EndIf Next EndFunc Func CheckBoxState($iD) Local $State, $BkClr, $Clr, $sTxt If BitAnd(GUICtrlRead($aCID[$iD][1]), $GUI_CHECKED) Then $State = $GUI_ENABLE $BkClr = 0xFF0000 $Clr = 0x000000 $sTxt = "Idle" Else $State = $GUI_DISABLE $BkClr = 0x000000 $Clr = 0xFF0000 $sTxt = "Disabled" EndIf GUICtrlSetState($aCID[$iD][2], $State) GUICtrlSetState($aCID[$iD][3], $State) GUICtrlSetBkColor($aCID[$iD][4], $BkClr) GUICtrlSetColor($aCID[$iD][4], $Clr) GUICtrlSetData($aCID[$iD][4], $sTxt) GUICtrlSetState($aCID[$iD][5], $State) EndFunc Func Browse() Local $cID = @GUI_CtrlId For $i = 1 To Ubound($aCID, 1) -1 If $cID == $aCID[$i][3] Then Local $FOD $FOD = FileOpenDialog("Select the Sbot exe for " & GUICtrlRead($aCID[$i][0]), @DesktopCommonDir, "exe files (*.exe)", 3, "", $hGui) If Not @error Then GUICtrlSetData($aCID[$i][2], $FOD) Save() EndIf Return EndIf Next EndFunc Func Details() Local $cID = @GUI_CtrlId For $i = 1 To Ubound($aCID, 1) -1 If $cID == $aCID[$i][5] Then GUISetState(@SW_HIDE, $hGui) $aCID[0][0] = $i WinSetTitle($hDetail, "", "Silkroad login details for " & GUICtrlRead($aCID[$i][0])) GUICtrlSetData($Name, $aCID[$i][6]) GUICtrlSetData($Pass, $aCID[$i][7]) GUICtrlSetData($Char, GUICtrlRead($aCID[$i][0])) Save() GUISetState(@SW_SHOW, $hDetail) Return EndIf Next EndFunc Func SetDetails() If @GUI_CtrlId = $Ok Then $aCID[$aCID[0][0]][6] = GUICtrlRead($Name) $aCID[$aCID[0][0]][7] = GUICtrlRead($Pass) $aCID[$aCID[0][0]][8] = GUICtrlRead($Char) GUICtrlSetData($aCID[$aCID[0][0]][0], $aCID[$aCID[0][0]][8]) Save() EndIf GUISetState(@SW_HIDE, $hDetail) GUISetState(@SW_SHOW, $hGui) $aCID[0][0] = 0 EndFunc Func Save() For $i = 1 To Ubound($aCID, 1) -1 IniWrite($Ini, "Char" & $i, "GroupName", GUICtrlRead($aCID[$i][0])) IniWrite($Ini, "Char" & $i, "Enabled", GUICtrlRead($aCID[$i][1])) IniWrite($Ini, "Char" & $i, "Directory", GUICtrlRead($aCID[$i][2])) IniWrite($Ini, "Char" & $i, "UserName", $aCID[$i][6]) IniWrite($Ini, "Char" & $i, "Password", $aCID[$i][7]) IniWrite($Ini, "Char" & $i, "CharName", $aCID[$i][8]) Next EndFunc Func Load() Local $IRSN, $IRS $IRSN = IniReadSectionNames($Ini) If @error Or Not IsArray($IRSN) Then Return For $i = 1 To $IRSN[0] $IRS = IniReadSection($Ini, $IRSN[$i]) If @error Or Not IsArray($IRS) Then ContinueLoop GUICtrlSetData($aCID[$i][0], $IRS[1][1]) GUICtrlSetTip($aCID[$i][0], "Click to enable or disable " & $IRS[1][1]) GUICtrlSetState($aCID[$i][1], $IRS[2][1]) CheckBoxState($i) GUICtrlSetData($aCID[$i][2], $IRS[3][1]) $aCID[$i][6] = $IRS[4][1] $aCID[$i][7] = $IRS[5][1] $aCID[$i][8] = $IRS[6][1] Next EndFunc Func Start() GUICtrlSetState($Start, $GUI_DISABLE) For $i = 1 To UBound($aCID, 1) -1 If BitAnd(GUICtrlRead($aCID[$i][1]), $GUI_CHECKED) Then If FileExists(GUICtrlRead($aCID[$i][2])) And $aCID[$i][6] <> "" And $aCID[$i][7] <> "" And $aCID[$i][8] <> "" Then Run(GUICtrlRead($aCID[$i][2])) WinWaitActive('SBot v1.32d (C)2008,2009 by bot-cave.net', "", 5) Sleep(3000) If Not LoginCheck($i) Then Return GUICtrlSetState($Start, $GUI_ENABLE) EndIf EndIf Next GUICtrlSetState($Start, $GUI_ENABLE) EndFunc Func LoginCheck($iD) Local $loginchk, $MB $loginchk = ControlGetText('SBot v1.32d (C)2008,2009 by bot-cave.net', "", "[CLASS:Static; INSTANCE:7]") If @error Or ($loginchk = "Error - Connection failed!") Then $MB = MsgBox(36, "Silkroad Login Helper", "Sbot connection failed Login with Account " & $iD & @LF & _ "FilePath: " & GUICtrlRead($aCID[$iD][2]) & @LF & _ "UserName: " & $aCID[$iD][6] & @LF & _ "Password: " & $aCID[$iD][7] & @LF & _ "Character: " & $aCID[$iD][8] & @LF & @LF & _ "Continue login with next Account?") Switch $MB Case 6 Return 1 Case Else Return 0 EndSwitch EndIf EndFunc Cheers
marselo Posted August 8, 2009 Author Posted August 8, 2009 Thx for your efforts colafrysen and smashly, and thanks smashly for writing the script , ill need a few hours to analyze and understand it but at the end ill learn something ^_-
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now