为了账号安全,请及时绑定邮箱和手机立即绑定

如何使用VB做一个自动从FTP服务器下载文件并运行的程序?求帮忙

如何使用VB做一个自动从FTP服务器下载文件并运行的程序?求帮忙

ITMISS 2021-12-02 07:07:06

用VB做一个自动从FTP服务器下载文件并运行的程序的代码是怎样的?麻烦会的写下出来,并教下怎样使用。我不会的。求各位兄弟了。

查看完整描述

1 回答

?
哈士奇WWW

TA贡献1440条经验 获得超6个赞

Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = "202.103.176.81" '返回或设置远程计算机,控件向它发送数据或从它那里接收数据。既可提供主机名,比如 "FTP://ftp.microsoft.com",也可提供点格式下的 IP 地址字符串,比如 "100.0.1.1"。 Winsock1.RemotePort = 80 '返回或设置要连接的远程端口号 Winsock1.Connect '返回与远程计算机的连接。 End Sub Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生。 On Error Resume Next strWebPage = " http://202.103.176.81/crun/yingzi007/code_1.asp" strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 'GET 为FTP命令 strCommand = strCommand + "Accept: */*" + vbCrLf '这句可以不要 strCommand = strCommand + "Accept: text/html" + vbCrLf '这句可以不要 strCommand = strCommand + vbCrLf '记住一定要加上vbCrLf Debug.Print strCommand Winsock1.SendData strCommand ''给远程计算机发送数据 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '当新数据到达时产生该事件 On Error Resume Next '在错误处理程序结束后,恢复原有的运行 Dim webData As String Winsock1.GetData webData, vbString '检取当前的数据块 Text1.Text = Text1.Text + webData End Sub



查看完整回答
反对 回复 2021-12-06

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信