SFTP UDF运行出现没法登陆sFTP问题，UDF SFTPEX.au3问题解析
在英文论坛找到一个UDF SFTPEX.au3.是调用PSFTP实现登陆SFTP的。但在实际运行的过程中会程式卡主没反应。
#include <SFTPEx.au3>
#include <Array.au3>
;修改以下变量为你的FTP服务器信息和登录凭据
$ftpServer = "xxx.xxx.xxx.xxx"; FTP服务器地址
$ftpUsername = "xxxx"; FTP用户名
$ftpPassword = "xxxxx"; FTP密码
;If ProcessExists("psftp.exe") Then ProcessClose("psftp.exe")
Sleep(1000)
$hSession=_SFTP_Open()
If @error Then
MsgBox(0,0,"Open PSFTP.exe error!!")
EndIf
$hConnection=_SFTP_Connect($hSession, $SFTP, $SFTP_User, $SFTP_Password,22)
If @error Then
_MsgBox(0,0,"Connect the SFTP["&$ftpServer&"] by PSFTP.exe fail!!")
EndIf
MsgBox(0,0,"OK!!")下面是UDF下载链接和PSFTP.exe 链接。
UDF to support SFTP protocol using PSFTP - AutoIt Example Scripts - AutoIt Forums
追查发现是$sLine = StdoutRead($hSession) 这一句读取不到数据。 大神帮忙看看这个问题如何解？
Func _SFTP_Connect($hSession, $sServerName, $sUsername = "", $sPassword = "", $iServerPort = 0)
If ProcessExists($hSession) = 0 Then
Return SetError(1, 0, 0)
EndIf
If $iServerPort = 0 Then
$iServerPort = ""
EndIf
Local $sLine, $sStringSplit, $iWaitKeySaving = 0, $bSaveKey = True
StdinWrite($hSession, 'open ' & $sServerName & ' ' & $iServerPort & @CRLF)
Local $Ltimeout = 0 ; NSC modified 10ms * 1000 = 10.000 = 10 seconds timeout
While 1
$Ltimeout += 1 ; NSC modified
$iWaitKeySaving += 1
If $iWaitKeySaving >= 500 And $bSaveKey Then
StdinWrite($hSession, 'y' & @CRLF)
$bSaveKey = False
EndIf
<span style="background-color: yellow;"><font color="#ff0000"> $sLine = StdoutRead($hSession)</font></span>
If ProcessExists($hSession) = 0 Then
Return SetError(1, 0, 0)
ElseIf StringInStr($sLine, "psftp>") Then
ExitLoop
ElseIf StringInStr($sLine, "login as:") Then
StdinWrite($hSession, $sUsername & @CRLF)
While 1
$sLine = StdoutRead($hSession)
If ProcessExists($hSession) = 0 Then
Return SetError(1, 0, 0)
ElseIf StringInStr($sLine, "psftp>") Then
ExitLoop 2
ElseIf StringInStr($sLine, "password:") Then
StdinWrite($hSession, $sPassword & @CRLF)
ExitLoop 2
EndIf
Sleep(10)
WEnd
ElseIf $sLine <> "" Then
Return SetError(3, 0, 0)
EndIf
Sleep(10)
If $Ltimeout > 1000 Then ; NSC modified
Return SetError(4, 0, 0); NSC generic timeout
EndIf
WEnd
If $sLine <> "psftp>" Then ; Connection With User And Password.
$Ltimeout = 0 ; NSC modified 10ms * 1000 = 10.000 = 10 seconds timeout
While 1
$Ltimeout += 1 ; NSC modified
$sLine = StdoutRead($hSession)
If ProcessExists($hSession) = 0 Then
Return SetError(1, 0, 0)
ElseIf StringInStr($sLine, "psftp>") Then
ExitLoop
ElseIf StringInStr($sLine, "Access denied") Then
Return SetError(2, 0, 0) ; The Password Is Required Again.
EndIf
Sleep(10)
If $Ltimeout > 1000 Then ; NSC modified
Return SetError(5, 0, 0) ; NSC pass not valid
EndIf
WEnd
EndIf
If StringInStr($sLine, "Remote working directory is") Then
$sStringSplit = StringSplit($sLine, @CRLF)
$__gsRemoteDir_SFTP = StringTrimLeft($sStringSplit, 28)
EndIf
If $__gsRemoteDir_SFTP = 0 Then
$__gsRemoteDir_SFTP = _SFTP_DirGetCurrent($hSession)
EndIf
Return $hSession
EndFunc ;==>_SFTP_Connect
页:
[1]