Demo tạo kết nối SSH với ChilkatSsh, chắc mọi người nghe tới Chilkat không lạ, nhưng trước giờ chỉ dùng được với C#
Nay mình hướng dẫn sử dụng Chilkat với AutoIt
Nay mình hướng dẫn sử dụng Chilkat với AutoIt
Code:
;~ https://www.chilkatsoft.com/refdoc/xChilkatSshTunnelRef.html
;~ https://www.youtube.com/watch?v=5_iSdS05CKA
Global $SshHostname = "64.132.38.245"
Global $SshPort = 22, $SshListenPort = 1080
Global $SshUsername = "admin", $SshPassword = "default"
Global $oChilkat = ObjCreate("Chilkat_9_5_0.SshTunnel")
If Not IsObj($oChilkat) Then
Run("regsvr32 /s ChilkatAx-9.5.0-win32.dll")
Exit
EndIf
With $oChilkat
.TcpNoDelay = 1
.VerboseLogging = True
ConsoleWrite(".UnlockComponent" & @CRLF)
If Not .UnlockComponent('*** CÓ KEY') Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
ConsoleWrite(".Connect" & @CRLF)
If Not .Connect($SshHostname, $SshPort) Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
ConsoleWrite(".AuthenticatePw" & @CRLF)
If Not .AuthenticatePw($SshUsername, $SshPassword) Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
ConsoleWrite(".DynamicPortForwarding" & @CRLF)
.DynamicPortForwarding = 1
If Not .LastMethodSuccess Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
.InboundSocksVersion = 5
ConsoleWrite(".IsSshConnected" & @CRLF)
If Not .IsSshConnected Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
ConsoleWrite(".BeginAccepting" & @CRLF)
If Not .BeginAccepting($SshListenPort) Then
ConsoleWrite(.LastErrorText & @CRLF)
Exit
EndIf
EndWith
While True
Sleep(50)
WEnd