FelixRoachDCrusher Posted September 13, 2013 Share Posted September 13, 2013 Hey , Friend i had problem , on this script ,, can you help me please ? Func button5();load profile if ;I NEED THIS SCRIPT IF combo box text = PROFILE_1 then [load data from .ini] expandcollapse popup#include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <XSkin.au3> Local $data1 = IniRead(@ScriptDir & "\Files\config.ini", "Data1", "HOST" , "") Local $data2 = IniRead(@ScriptDir & "\Files\config.ini", "Data1", "USER" , "") Local $data3 = IniRead(@ScriptDir & "\Files\config.ini", "Data1", "PASS" , "") Local $data4 = IniRead(@ScriptDir & "\Files\config.ini", "Data1", "PORT" , "") Local $data5 = IniRead(@ScriptDir & "\Files\config.ini", "Data1", "LPORT" , "") #Region ### START Koda GUI section ### Form=e:\tunnel test\form1.kxf $Form1_1 = GUICreate("KOTASGRETZ Auto Connect BITVISE dan PROXIFIER V 1.0", 750, 298, -1, -1) GUISetBkColor(0x000000) $Pic1 = GUICtrlCreatePic("C:\Program Files\KOTASGRETZ PHREACK TEAM\Files\gambar\kotasgretz.jpg", 0, 0, 749, 193) $Button1 = GUICtrlCreateButton("Login SSH", 464, 200, 137, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("Logout SSH", 608, 200, 137, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("HELP ME [CARA CONNECT] !!!!!", 464, 261, 281, 33) $Button4 = GUICtrlCreateButton("Save Profile", 376, 200, 83, 22) $Button5 = GUICtrlCreateButton("Load Profile", 376, 224, 83, 22) $Button6 = GUICtrlCreateButton("Lihat Struktur KOTASGRETZ Auto Connect", 195, 248, 265, 45) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("HOST :", 8, 202, 57, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label2 = GUICtrlCreateLabel("USER :", 8, 225, 58, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label3 = GUICtrlCreateLabel("PASS :", 8, 250, 59, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label4 = GUICtrlCreateLabel("PORT :", 8, 273, 57, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label5 = GUICtrlCreateLabel("LPORT :", 195, 202, 57, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label6 = GUICtrlCreateLabel("PROFIL:", 195, 226, 57, 19) GUICtrlSetFont(-1, 9, 800, 0, "Microsoft Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Input1 = GUICtrlCreateInput("", 69, 224, 113, 21) GUICtrlSetTip(-1, "Insert Your Username") $Input2 = GUICtrlCreateInput("", 69, 200, 113, 21) GUICtrlSetTip(-1, "Insert Your Host ID") $Input3 = GUICtrlCreateInput("", 69, 272, 113, 21) GUICtrlSetTip(-1, "Insert port to connect to server") $Input4 = GUICtrlCreateInput("", 69, 248, 113, 21) GUICtrlSetTip(-1, "Insert Your Password") $Input5 = GUICtrlCreateInput("", 253, 200, 113, 21) GUICtrlSetTip(-1, "Insert port from listen port on your inject!!") $Combo1 = GUICtrlCreateCombo("PROFILE_1", 253, 224, 113, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "PROFILE_2|PROFILE_3|PROFILE_4|PROFILE_5") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg=GuiGetMsg() If $msg=-3 Then Exit If $msg=$button1 Then button1() If $msg=$button2 Then button2() If $msg=$button3 Then button3() If $msg=$button4 Then button4() If $msg=$button5 Then button5() If $msg=$button6 Then button6() WEnd Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 2) $file = FileOpen("test.txt", 0) $proxyServer = "127.0.0.1" ;isi dengan proxy andalan om disini $proxyport = "1945" ;isi dengan port dari proxy diatas $HOST = "199.195.193.49" ;198.27.86.137 $PORT = "443" ;143 $DIRPATH = @ScriptDir $USER = IniRead(@ScriptDir & "Files\config.ini", "Data", "USER", "NULL DATA") $PASS = IniRead(@ScriptDir & "Files\config.ini", "Data", "PASS", "") $PAR1 = " -host="& $HOST &" -port="& $PORT &" -username=" & $USER & " -password=" & $PASS & " -proxy=- -proxyType=HTTP -proxyServer=-"& $proxyServer &" -proxyport=-"& $proxyport &" -proxyUsername=" & $USER & " -proxyPassword=" & $PASS & "" Func button1() ;login ssh Run("C:\Program Files\KOTASGRETZ PHREACK TEAM\Files\Bitvise\BvSsh.exe -profile=/Profiles/ssh1.bscp -loginOnStartup") EndFunc Func button2();logout ssh ProcessClose("proxifier.exe") ProcessClose("BvSsh.exe") EndFunc Func button3();help me [[success]] ShellExecute("C:\Program Files\KOTASGRETZ PHREACK TEAM\Files\CARA CONNECT.txt", 0) EndFunc Func button4();save profile EndFunc Func button5();load profile if ;I NEED THIS SCRIPT GUICtrlSetData($input2 , $data1) GUICtrlSetData($input1 , $data2) GUICtrlSetData($input4 , $data3) GUICtrlSetData($input3 , $data4) GUICtrlSetData($input5 , $data5) Endif EndFunc Func button6();design view [[success]] ShellExecute("C:\Program Files\KOTASGRETZ PHREACK TEAM\Files\gambar\Kotasgretz Structur.jpg", 0) EndFunc Link to comment Share on other sites More sharing options...
Solution FelixRoachDCrusher Posted September 13, 2013 Author Solution Share Posted September 13, 2013 SOLVED BY MY SELF ! Func button5();load profile if GUICtrlRead($Combo1) = "PROFILE_1" then GUICtrlSetData($input2 , $data1) GUICtrlSetData($input1 , $data2) GUICtrlSetData($input4 , $data3) GUICtrlSetData($input3 , $data4) GUICtrlSetData($input5 , $data5) EndIf EndFunc Link to comment Share on other sites More sharing options...
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