vb求一个ftp上传和下载的代码

vb求一个ftp上传和下载的代码

我从新兴源码上下的 给你参考一下吧

const synchronize = &h100000 const infinite = &hffffffff private declare function openprocess lib "kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as long private declare function closehandle lib "kernel32" (byval hobject as long) as long private declare function waitforsingleobject lib "kernel32" (byval hhandle as long, byval dwmilliseconds as long) as long private sub command1_click() dim filename as string dim ftp as string dim uname as string dim upin as string ftp = inputbox("请输入服务器地址") uname = inputbox("请输入帐号", , "anonymous") upin = inputbox("请输入密码", , "ie@user") filename = timer() open filename & ".script" for output as #1 print #1, "user" print #1, uname print #1, upin print #1, "pwd" print #1, "hash" print #1, "put " & filename & ".txt" print #1, "quit" close #1 open filename & ".txt" for output as #1 print #1, text1.text print #1, combo1.text close #1 doevents dim pid as long, phnd as long pid = shell("ftp -n -s:" & filename & ".script" & " " & ftp, vbhide) phnd = openprocess(synchronize, 0, pid) if phnd <> 0 then call waitforsingleobject(phnd, infinite) call closehandle(phnd) end if kill filename & ".script" end sub 如果你觉得可以，把100分给我吧 我的方法很另类，给你说说过程 为了不重复文件名，我取时间为文件名filename 生成filename.script脚本，传输ftp用 生成filename.txt保存了combo1和text1的文字 调用ftp命令传输，不需要inet或winsock控件 api是shell wait功能，因为script脚本保存了帐号和密码，当传输完成后删除filename.script脚本 觉得如何，如果用inet不如这个简单，毕竟ftp不是自己写的，不管pasv与否都正常使用，唯一就是密码保存要等传输完成 你想的第一个方案是不可能的，ftp是文本传输协议，与http不一样，不能写post，实在想那样，vb做不了，需要手动创建数据包欺骗服务器

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息