Jump to content
Sign in to follow this  
FelixRoachDCrusher

SciTe Help : need help for combobox selection problem

Recommended Posts

FelixRoachDCrusher

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]

#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

Share this post


Link to post
Share on other sites
FelixRoachDCrusher

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

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  

×