奇怪,用FileZilla连接没问题,
用AU3就不行,是哪里要特殊设置吗?
#include <FTPEx.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
_Example()
Func _Example()
Local $sServer = 'ftp.tech.com' ; 这里是外部ftp,举例,没有放实际的地址哈,实际也是.com地址
Local $sUsername = 'dafds' ;用户名
Local $sPass = 'y.7Y$j112Q' ;密码
Local $prot= '21'
Local $Err, $sFTP_Message
Local $hOpen = _FTP_Open('我的 FTP 控制')
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass,$prot)
If @error Then
MsgBox($MB_SYSTEMMODAL, '_FTP_Connect', 'ERROR=' & @error)
Else
;~ _FTP_GetLastResponseInfo($Err, $sFTP_Message)
Local $aFile = _FTP_ListToArray2D($hConn, 0)
_ArrayDisplay($aFile)
;~ ConsoleWrite('$Err=' & $Err & ' $sFTP_Message:' & @CRLF & $sFTP_Message & @CRLF)
; 某些其它处理代码 ...
EndIf
Local $iFtpc = _FTP_Close($hConn)
Local $iFtpo = _FTP_Close($hOpen)
EndFunc ;==>_Example
|