Help Me create showing log on editbox

[water]

Replace the While loop after the Run statement with the loop I posted above.

[jezzjj]

still not working,

this is my script

expandcollapse popup

Global $bRunning = False

$username = InputBox("username","Enter username")
$password = InputBox("password","Enter password",'','•')
$Port = InputBox ("Port","Enter your port")

If $bRunning = False Then
Local $foo = Run(@scriptdir & "\plink.exe IP -v -l "&$username&" -pw "&$password&" -P "&$Port&" -D 1080", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDERR_MERGED)
GUICtrlSetData($Edit1, "")
$bRunning = True
While ProcessExists($foo)
If $bRunning = False Then ExitLoop
$Line = StdoutRead($foo)
If StringstripWS($Line, 3) <> "" Then GUICtrlSetData($Edit1, $Line, 1)
If $Line = "Store key in cache (y/n)?" then StdInWrite($foo, "y")
Sleep(10)
Wend
$bRunning = False
EndIf

Local $line=""
While 1
$line &= StdoutRead($foo)
If @error Then ExitLoop
;MsgBox(0, "STDOUT read:", $line)
GUICtrlSetData($Edit1, $line)
Wend

While 1
$line &= StderrRead($foo)
If @error Then ExitLoop
; MsgBox(0, "STDERR read:", $line)
GUICtrlSetData($Edit1, $line)
Wend


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
EndFunc

[water]

I have no OpenVPN installed so I can't test - just guess.

Make sure that $Line is exactly "Store key in cache (y/n)?" and doesn't have spaces at the start or end.

[jezzjj]

hello water,

i have the other way to fix my own problem

but i have a question

im create this :

expandcollapse popup

#region ;
$pbkpath = @ScriptDir&"\rasphone.pbk" ;
if FileExists ($pbkpath) then ;
    $profile_list = IniReadSectionNames ($pbkpath) ;
    for $i = 1 to UBound ($profile_list) -1
        _GUICtrlComboBox_AddString($Combo1,$profile_list[$i]);
    Next
EndIf
#endregion ;==> go to dialup

#region ;settings
$settings = @ScriptDir&"\my_setting.ini" ;
$configuration = "configuration"
$last_dialname = "Last Dial Name"
$Last_IPC = "Last IPC"

if Not FileExists ($settings) then ;
    _FileCreate($settings) ;
    IniWriteSection($settings,$configuration,"") ; 
    IniWrite($settings,$configuration,$last_dialname,"") ;
    IniWrite($settings,$configuration,$Last_IPC,"");
EndIf

func _SaveSetting() ; membuat fungsi baru
    IniWrite($settings,$configuration,$last_dialname,GUICtrlRead($Combo1));
    IniWrite($settings,$configuration,$Last_IPC,GUICtrlRead($Input3));
EndFunc
Func _LoadSetting()
    _GUICtrlComboBox_SelectString($Combo1,IniRead($settings,$configuration,$last_dialname,""))
    GUICtrlSetData($Input3,IniRead($settings,$configuration,$Last_IPC,""))
EndFunc
_LoadSetting()
    #endregion ;=>setting

#region ;status
Global $status = "", $disconnected = "Disconnected", $Connected = "Connected"
if @IPAddress1 <> "127.0.0.1" Then
    $status = $Connected ;
    GUICtrlSetData($Go,"Disconnect") ;
Else
    $status = $disconnected ; 
EndIf

Func _UpdateStatus($status_text);
    GUICtrlSetData($Edit2,"") ; 
    _GUICtrlEdit_AppendText(@CRLF & $Edit2,$status_text) ;
EndFunc
#endregion

#region ; Connect/DC
func _connect()
$dial_name = GUICtrlRead($Combo1);
_UpdateStatus("Connecting to"& $dial_name) ;
$Connect_Process = Run("rasdial "&$dial_name,"",@SW_HIDE)
Sleep (100)
ProcessWaitClose($Connect_Process)
_UpdateStatus("Connected to "&$dial_name)
GUICtrlSetData($List1,@IPAddress1);
Sleep (110)
_UpdateStatus("connected Ip "& @IPAddress1)
$status = $Connected
GUICtrlSetData($Go,"Disconnect") ; 
EndFunc

Func _disconnect()
    _UpdateStatus("Disconnecting. . .")
    $dial_name = GUICtrlRead($Combo1)
    $disconnect_process = Run("rasdial "&$dial_name&" /disconnect","", @SW_HIDE)
    Sleep (100)
    ProcessWaitClose($disconnect_process)
    _UpdateStatus("Disconnected from "&$dial_name)
    Sleep (100)
    $status = $disconnected
    GUICtrlSetData($Go,"Connect")
EndFunc
#endregion

#region ;
While 1
sleep (10)
$nmsg = GUIGetMsg()
    Switch $nmsg
        Case $GUI_EVENT_CLOSE ; 
            _SaveSetting() ;
            Exit
        Case $Go
            Switch $status
                case $disconnected ; 
                    _connect()
                case $Connected ;
                    _disconnect()
            EndSwitch
    EndSwitch
WEnd
#endregion

this just an ip finder for dial up connection

why if i put that code, my GUI function doesn't working (like button,inputbox,edit box, even close button)

i guess,

i wrong  place that script 

can you explain to me?

hmm...

this is the example

expandcollapse popup

#include <Inet.au3>
#include <Process.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#Include <GuiEdit.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <ComboConstants.au3>
#include <string.au3>
#include <array.au3>
#include <GUIComboBox.au3>
#include <File.au3>

#NoTrayIcon

#Region ### START Koda GUI section ### Form=F:\Project\continous Project\SSH\CHain penta\CHain.kxf
Sleep (5000)
 Global Const $margin = 12; distance from edge of window where dragging is possible
 $Gui = GUICreate("Drag sides to move form", 570, 264, -1, -1, $WS_POPUP)
 GUISetBkColor(0x000000)

$chk1 = GUICtrlCreateCheckbox("Drag", 500, 0, 16, 17)
 GUICtrlSetFont(-1, 8, 400, 0, "Consolas")
GUICtrlSetColor(-1, 0x008000)
$Button = GUICtrlCreateButton("Exit", 515, -6, 55, 30)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
 GUISetState(@SW_SHOW, $Gui)

 GUIRegisterMsg($WM_LBUTTONDOWN, "WM_LBUTTONDOWN")
 GUIRegisterMsg($WM_MOUSEMOVE, "SetCursor")

$siix = GUICtrlCreateButton("S.IIX", 16, 40, 57, 25, $WS_GROUP)
$susa = GUICtrlCreateButton("S.USA", 16, 232, 57, 21)
$viix = GUICtrlCreateButton("V.IIX", 16, 200, 57, 25)
$vusa = GUICtrlCreateButton("V.USA", 16, 72, 57, 25)
$Route = GUICtrlCreateButton("Route", 16, 104, 57, 25)
$ipconf = GUICtrlCreateButton("IP.Conf", 16, 136, 57, 25)
$Help = GUICtrlCreateButton("Help", 16, 168, 57, 25)
$Pic1 = GUICtrlCreatePic(@scriptdir & "\pacino.jpg", 472, 24, 97, 233)
$scroll = 0
$Edit1 = GUICtrlCreateEdit("", 80, 40, 393, 185, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN),0)
GUICtrlSetData(-1, "Chainz Ver.2 Beta Release Rev.8 @2013" & @CRLF)
GUICtrlSetFont(-1, 6, 800, 0, "Terminal")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 80, 232, 113, 21)
$input2 = GUICtrlCreateInput("", 200, 232, 33, 21)
$Set = GUICtrlCreateButton("Set", 240, 232, 65, 21)
$Reset = GUICtrlCreateButton("Reset", 312, 232, 65, 21)
$Combo1 = GUICtrlCreateCombo("", 16, 8, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Input3 = GUICtrlCreateInput("", 88, 8, 73, 21)
$Go = GUICtrlCreateButton("Go", 168, 8, 81, 21)
$List1 = GUICtrlCreateList("", 256, 8, 89, 19)
$Edit2 = GUICtrlCreateEdit("", 352, 8, 129, 17, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN),0)
GUICtrlSetFont(-1, 6, 800, 0, "Terminal")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Dialer = GUICtrlCreateButton("Dialer", 384, 232, 65, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#region ;
$pbkpath = @ScriptDir&"\rasphone.pbk" ;
if FileExists ($pbkpath) then ;
    $profile_list = IniReadSectionNames ($pbkpath) ;
    for $i = 1 to UBound ($profile_list) -1
        _GUICtrlComboBox_AddString($Combo1,$profile_list[$i]);
    Next
EndIf
#endregion ;==> go to dialup

#region ;settings
$settings = @ScriptDir&"\my_setting.ini" ;
$configuration = "configuration"
$last_dialname = "Last Dial Name"
$Last_IPC = "Last IPC"

if Not FileExists ($settings) then ;
    _FileCreate($settings) ;
    IniWriteSection($settings,$configuration,"") ; 
    IniWrite($settings,$configuration,$last_dialname,"") ;
    IniWrite($settings,$configuration,$Last_IPC,"");
EndIf

func _SaveSetting() ; 
    IniWrite($settings,$configuration,$last_dialname,GUICtrlRead($Combo1));
    IniWrite($settings,$configuration,$Last_IPC,GUICtrlRead($Input3));
EndFunc
Func _LoadSetting()
    _GUICtrlComboBox_SelectString($Combo1,IniRead($settings,$configuration,$last_dialname,""))
    GUICtrlSetData($Input3,IniRead($settings,$configuration,$Last_IPC,""))
EndFunc
_LoadSetting()
    #endregion ;=>setting

#region ;status
Global $status = "", $disconnected = "Disconnected", $Connected = "Connected"
if @IPAddress1 <> "127.0.0.1" Then
    $status = $Connected ;
    GUICtrlSetData($Go,"Disconnect") ;
Else
    $status = $disconnected ; 
EndIf

Func _UpdateStatus($status_text);
    GUICtrlSetData($Edit2,"") ; 
    _GUICtrlEdit_AppendText(@CRLF & $Edit2,$status_text) ;
EndFunc
#endregion

#region ; Connect/DC
func _connect()
$dial_name = GUICtrlRead($Combo1);
_UpdateStatus("Connecting to"& $dial_name) ;
$Connect_Process = Run("rasdial "&$dial_name,"",@SW_HIDE)
Sleep (100)
ProcessWaitClose($Connect_Process)
_UpdateStatus("Connected to "&$dial_name)
GUICtrlSetData($List1,@IPAddress1);
Sleep (110)
_UpdateStatus("connected Ip "& @IPAddress1)
$status = $Connected
GUICtrlSetData($Go,"Disconnect") ; 
EndFunc

Func _disconnect()
    _UpdateStatus("Disconnecting. . .")
    $dial_name = GUICtrlRead($Combo1)
    $disconnect_process = Run("rasdial "&$dial_name&" /disconnect","", @SW_HIDE)
    Sleep (100)
    ProcessWaitClose($disconnect_process)
    _UpdateStatus("Disconnected from "&$dial_name)
    Sleep (100)
    $status = $disconnected
    GUICtrlSetData($Go,"Connect")
EndFunc
#endregion

#region ;
While 1
sleep (10)
$nmsg = GUIGetMsg()
    Switch $nmsg
        Case $GUI_EVENT_CLOSE ; 
            _SaveSetting() ;
            Exit
        Case $Go
            Switch $status
                case $disconnected ; 
                    _connect()
                case $Connected ;
                    _disconnect()
            EndSwitch
    EndSwitch
WEnd
#endregion

While 1
    $msg = GUIGetMsg()
    If $msg = $siix Then button1()
if $msg = $susa then button2 ()
if $msg = $viix then button3 ()
If $msg = $vusa Then button4 ()
if $msg = $Route then button5 ()
If $msg = $ipconf Then button6 ()
if $msg = $Help then button7 ()
if $msg = $Button Then button8 ()
if $msg = $Set then button9 ()
if $msg = $Reset then button10 ()
WEnd

;GetMousePosType returns a code depending on the border the mouse cursor is near
 Func GetMousePosType()
 Local $cp = GUIGetCursorInfo()
 Local $wp = WinGetPos($Gui)
 Local $side = 0
 Local $TopBot = 0
 Local $curs
 If $cp[0] < $margin Then $side = 1
 If $cp[0] > $wp[2] - $margin Then $side = 2
 If $cp[1] < $margin Then $TopBot = 3
 If $cp[1] > $wp[3] - $margin Then $TopBot = 6

 Return $side + $TopBot

 EndFunc;==>GetMousePosType

 Func SetCursor()
 Local $curs
 If GUICtrlRead($chk1) <> $GUI_CHECKED Then Return
 Switch GetMousePosType()
    Case 0
    $curs = 2
    Case 1, 2
    $curs = 13
    Case 3, 6
    $curs = 11
    Case 5, 7
    $curs = 10
    Case 4, 8
    $curs = 12
 EndSwitch

 GUISetCursor($curs, 1)

 EndFunc;==>SetCursor


 Func WM_LBUTTONDOWN($hWnd, $iMsg, $StartWIndowPosaram, $lParam)

 If GUICtrlRead($chk1) <> $GUI_CHECKED Then Return $GUI_RUNDEFMSG
 Local $drag = GetMousePosType()
 If $drag > 0 Then

    DllCall("user32.dll", "long", "SendMessage", "hwnd", $hWnd, "int", $WM_SYSCOMMAND, "int", 0xF012, "int", 0)
 EndIf

;F001 = LHS, F002 = RHS, F003 = top, F004 = TopLeft, F005 = TopRight, F006 = Bottom, F007 = BL, F008 = BR
;F009 = move gui, same as F011 F012 to F01F
;F010, moves cursor to centre top of gui - no idea what that is useful for.
;F020 minimizes
;F030 maximizes

 EndFunc;==>WM_LBUTTONDOWN

Edited May 12, 2013 by jezzjj

[water]

Can't test at the moment. Will check on Thursday.

[jezzjj]

hello, 

i want to ask about script that can change my string in combo box into a value

this is what i mean , i know this script is not working :

If GUICtrlRead($Combo1) = "SG1" Then $Value = "180.210.204.184"

that the example if im choose "SG1" then my software connect to that IP

[water]

I don't see anything wrong with the line you posted. Add some debugging statements (ConsoleWrite, MsgBox) to check that the selected value is "SG1".

[jezzjj]

hello water,

can you give me the example?

this is my ex scrtipt : 

$Host = GUICtrlRead($Combo1)
$Port = GUICtrlRead($Combo2)
$user = GUICtrlRead($Username)
$pass = GUICtrlRead($Password)
$LOC = "127.0.0.1"
$proxyport = GUICtrlRead($Combo3)
If GUICtrlRead($Combo1) = "SG1" Then $Value = "MYIP"
If GUICtrlRead($Combo3) = "tsel" Then $Value = "9000"
    $PAR1 = "-host=" & $Combo1 & " -port=" & $Combo2 & " -username=" & $User & " -password=" & $Pass & " -proxy=y -proxyType=HTTP -proxyserver="& $LOC &" -proxyport="& $Combo3 &""
Sleep(100)
Run(@ComSpec & " /k " & "tunnel.exe -profile=o1.bscp -loginOnStartup " & $PAR1, @ScriptDir, @SW_HIDE)
EndFunc

but "combo3" not give the value "9000" if i using this script, its give random freak value like "14,12 etc"

[water]

Is it sensible to set $Value for Combo1 and Combo3?

[jezzjj]

i guess no,

that's why im asking for the correct example script...so i can fix my noob script

[water]

How do you know that you get "random freak value like "14,12 etc"? I only see 2 assignments to $value.

[BrewManNH]

Your problem is in this line.
 

$PAR1 = "-host=" & $Combo1 & " -port=" & $Combo2 & " -username=" & $User & " -password=" & $Pass & " -proxy=y -proxyType=HTTP -proxyserver="& $LOC &" -proxyport="

$Combo1 + 2  are the control IDs of the combo boxes, not their contents. I'm guessing you need to put the variable $value in one of those spots, and assign a value to what you want $Combo2 to be.

[jezzjj]

hello BrewMaNH, can you give me the simple example?

[BrewManNH]

$PAR1 = "-host=" & $Value & " -port=" & $Port & " -username=" & $user & " -password=" & $pass & " -proxy=y -proxyType=HTTP -proxyserver=" & $LOC & " -proxyport=" & $Combo3 & ""

Probably something like that, but next time, post runnable code so we can test it.

[jezzjj]

wow BrewMaNH, so simple but so perfect, now i can write to my tunnel program , thank you 

i will try to finish my script , if im stuck again i will ask again