能不能精简下列的SCRIPT有关FTP_已解决

davydavid

Dim $date
Dim $ip
$date = InputBox("Please input Date","yymd",""," 6")
$ip = InputBox("Please input ipaddress","ipaddress")

Run ("ftp.exe "&$ip)
sleep (1000)
Send ("user")
sleep (1000)
send ("{ENTER}")
sleep (1000)
send ("pwd")
sleep (1000)
send ("{ENTER}")
sleep (2000)
send ("cd replication")
sleep (2000)
send ("{ENTER}")
sleep (2000)
send ("get rsync_logs_"&$date&" d:\ftp\"&$date&"_"&$ip&".txt")
sleep (2000)
send ("{ENTER}")
sleep (2000)
Send ("quit")
sleep (5000)
MsgBox (0, "OK","Finished")

上面这段代码是要在某个FTP上自动下载到本地的。
自己看来都比较蠢：（
1. 想问问高手有什么别的方法。
2. 想问问有没有办法让这段代码是在后台运行的，也就是说是看不出来的。
先谢谢了__

[ 本帖最后由 davydavid 于 2008-11-23 13:36 编辑 ]

akmm88

用TCPSEND和TCPRECV。
网络编程对新手比较难，你要先了解FTP协议。

netegg

那个延迟是必需的，要不没办法打开

sunless

ftp.exe 本身就支持脚本操作。  ftp -s:FTPSCRIPT.TXT  就是执行 FTPSCRIPT.TXT  中的操作。。
下面是FTPSCRIPT.TXT  的内容，你只要写AU3脚本 来生成这个TXT 然后再 runwait("ftp.exe" &" -s:FTPSCRIPT.TXT","",@sw_hide)
就可以隐藏运行了。。


open 192.168.0.1
user
password
cd replication
binary
hash
lcd d:\ftp\
get rsync_logs_
bye

bing614

不是有FTP的UDF吗？为什么还要模拟键盘操作？？？？？？？？

sbyguli

UDF超好用,楼主翻下帮助,上面有的,论坛也有例子,搜FTP就可以找到了

davydavid

谢谢大家了～～～

seebbs