FelixRoachDCrusher Posted September 13, 2013 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
Solution FelixRoachDCrusher Posted September 13, 2013 Author Solution 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
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