How to appearing text in bitvise ssh client

[alfianpradana]

sorry, I am a beginner in this. what I want is to fill the inputbox and the words that exist in the inputbox out in an application. script please explain to me ....

and I mean like the picture below

click to see the image http://prntscr.com/1ljbkx

[JohnOne]

You made a second account for this, seriously?

'?do=embed' frameborder='0' data-embedContent>>

Edited August 16, 2013 by JohnOne

[alfianpradana]

i'm sorry sir , that isn't my account . i swear
but thank's for your attention

[DW1]

I have my doubts as to that not being your account, but that aside (since that's for a mod to look in to), this is all very possible in AutoIt.

Look in to GUICtrlRead() and ControlSetText().

That being said, why not just provide BitVise to the user?  I ask because I don't like people writing unnecessary wrappers around other peoples work, as it usually appears as if you are trying to pass off somebodies work as your own.  Typically you only see a wrapper like this for command line utilities or when you are trying to consolidate multiple utilities in to 1.  Even at that, make sure to give credit to BitVise.  Sorry for going off about this but I'm interested to hear WHY you are trying to do this.

[alfianpradana]

because I want to know it can happen and can be very fun when doing so.
 

and this is the script please correct it

expandcollapse popup

#RequireAdmin

;;; #cs
MsgBox(4096, "", "Jangan Lupa")
;;; #ce

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\acer\downloads\ssid connect v1.kxf
$Form1_1 = GUICreate("SSID Connect v1.0 BETA", 428, 390, 197, 123)
GUISetBkColor(0x3399FF)
$Group1 = GUICtrlCreateGroup("Setting", 16, 24, 265, 201)
$Host = GUICtrlCreateInput("", 112, 56, 153, 21)
$Username = GUICtrlCreateInput("", 112, 96, 153, 21)
$Pass = GUICtrlCreateInput("", 112, 136, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Port = GUICtrlCreateInput("", 112, 176, 89, 21)
$Label1 = GUICtrlCreateLabel("Host", 32, 56, 26, 17)
$Label2 = GUICtrlCreateLabel("User", 32, 96, 26, 17)
$Label3 = GUICtrlCreateLabel("Password", 32, 136, 50, 17)
$Label4 = GUICtrlCreateLabel("Port", 32, 176, 23, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Login", 32, 240, 89, 25)
$Button2 = GUICtrlCreateButton("Disconnect", 152, 240, 89, 25)
$Button3 = GUICtrlCreateButton("PROXIFIER", 32, 280, 209, 25)
$Button4 = GUICtrlCreateButton("Exit", 32, 312, 97, 25)
$Group2 = GUICtrlCreateGroup("Inject", 296, 24, 121, 201)
$Button5 = GUICtrlCreateButton("XL", 312, 48, 89, 25)
$Button6 = GUICtrlCreateButton("INDOSAT", 312, 88, 89, 25)
$Button7 = GUICtrlCreateButton("TELKOMSEL", 312, 128, 89, 25)
$Button8 = GUICtrlCreateButton("SMART", 312, 168, 89, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic(@ProgramFilesDir &"\SSID Connect v1.0 BETA\images.jpg", 256, 248, 169, 137)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $Msg = GUIGetMsg()
    If $msg=$Button1 Then Button1()
    If $msg=$Button3 Then Button3()
    If $msg=$Button4 Then Button4()
    If $msg=$Button5 Then Button5()
    If $msg=$Button7 Then Button7()
    If $msg=$Button6 Then Button6()
    If $msg=$Button8 Then Button8()
    If $msg=$Button9 Then Button9()
    If $msg=$Button10 Then Button10()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func Button1()
    GUICtrlRead($Host)
    GUICtrlRead($Port)
    GUICtrlRead($Username)
    GUICtrlRead($Pass)
    $PAR1 = "-profile=ssh.bscp" & "-host=" & $Host & "-port=443" & "-proxy=y" & "-proxyType=HTTP" & "-proxyServer=127.0.0.1" & "-proxyPort=" & $Port & "-username=" & $Username & "-password=" & $Pass "-loginOnStartup"
    Run(@ScriptDir & "\SSID Connect v1.0 BETA\tunnelier.exe" & $PAR1 , @ScriptDir, @SW_HIDE)
EndFunc

Func Button3()
    Run(@ProgramFilesDir & "\SSID Connect v1.0 BETA\Proxifier\Proxifier.exe")
EndFunc

Func Button4()
    Exit
EndFunc

Func Button5()
    Run(@ProgramFilesDir & "\SSID Connect v1.0 BETA\Inject\1.exe")
EndFunc

Func Button6()
    Run(@ProgramFilesDir & "\SSID Connect v1.0 BETA\Inject\2.exe")
EndFunc

Func Button7()
    MsgBox(4096, "", "Under Maintenance ^_^")
EndFunc

Func Button8()
    Run(@ProgramFilesDir & "\SSID Connect v1.0 BETA\Inject\4.exe")
EndFunc

[JohnOne]

Func Button1()
    $readhost = GUICtrlRead($Host)
    $readport = GUICtrlRead($Port)
    $readusername = GUICtrlRead($Username)
    $readpass = GUICtrlRead($Pass)
    $PAR1 = "-profile=ssh.bscp" & "-host=" & $readhost & "-port=443" & "-proxy=y" & "-proxyType=HTTP" & "-proxyServer=127.0.0.1" & "-proxyPort=" & $readport & "-username=" & $readusername & "-password=" & $readpass "-loginOnStartup"
    Run(@ScriptDir & "\SSID Connect v1.0 BETA\tunnelier.exe" & $PAR1 , @ScriptDir, @SW_HIDE)
EndFunc

[alfianpradana]

I have followed your script, but out syntax error after "loginOnStartup"

 

C:\Users\ACER\Documents\SciTe\Hampir Jadi.au3(67,234) : ERROR: syntax error
    $PAR1 = ("-profile=ssh.bscp" & "-host=" & $readhost & "-port=443" & "-proxy=y" & "-proxyType=HTTP" & "-proxyServer=127.0.0.1" & "-proxyPort=" & $readport & "-username=" & $readusername & "-password=" & $readpass "-loginOnStartup"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

[DW1]

 

I have followed your script, but out syntax error after "loginOnStartup"

 

C:\Users\ACER\Documents\SciTe\Hampir Jadi.au3(67,234) : ERROR: syntax error
    $PAR1 = ("-profile=ssh.bscp" & "-host=" & $readhost & "-port=443" & "-proxy=y" & "-proxyType=HTTP" & "-proxyServer=127.0.0.1" & "-proxyPort=" & $readport & "-username=" & $readusername & "-password=" & $readpass "-loginOnStartup"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

Because you are missing an "&" between

$readpass and "-loginOnStartup"

[alfianpradana]

and now tunnelier.exe not go out when I click button1
 

Func Button1()
    $readhost = GUICtrlRead($Host)
    $readport = GUICtrlRead($Port)
    $readusername = GUICtrlRead($Username)
    $readpass = GUICtrlRead($Pass)
    $PAR1 = "-profile=ssh.bscp" & "-host=" & $readhost & "-port=443" & "-proxy=y" & "-proxyType=HTTP" & "-proxyServer=127.0.0.1" & "-proxyPort=" & $readport & "-username=" & $readusername & "-password=" & $readpass & "-loginOnStartup"
    Run(@ScriptDir & "\SSID Connect v1.0 BETA\tunnelier.exe" & $PAR1 , @ScriptDir, @SW_HIDE)
EndFunc

[alfianpradana]

thank's the problem solved i changed @ScriptDir to @ProgramFIlesDir

[fikri1979]

I have tried, but get a message this "WARNING: $Host: possibly used before declaration."

how do I fix it?

to learn, can I download your scrip which is final?

[mLipok]

I know terminal with support for ActiveX,

Unfortunately, the support for ActiveX is available only in mainframe version.

http://www.jtsoft.com.pl/index.php?option=com_content&task=view&id=7&Itemid=14

There is native Polish interface and translation, English  Rusian translation.

Cost less then 100 Euro per station.

There is a 30 day evaluation demo.

I made the appropriate UDF if anyone is interested please PM me.

Edited August 21, 2013 by mlipok