用Winsock控件实现文件的下载

页面导航:首页 > 软件编程 > vb.net > 用Winsock控件实现文件的下载

用Winsock控件实现文件的下载

来源: 作者: 时间:2016-02-05 12:32 【

使用控件有:Winsock控件,CommandButton 控件,TextBox 控件编程步骤如下:1.首先声明变量Dim strCommand As StringDim strWebPage As String2.把如下代码加到Command1的Command1_C

 

使用控件有:Winsock控件,CommandButton 控件,TextBox 控件

编程步骤如下:

1.首先声明变量

Dim strCommand As String

Dim strWebPage As String

2.把如下代码加到Command1的Command1_Click事件:

Private Sub Command1_Click()

Winsock1.RemoteHost = "202.103.176.81" 设置连接的网址

Winsock1.RemotePort = 80 设置要连接的远程端口号

Winsock1.Connect 返回与远程计算机的连接。

End Sub

3.把如下代码加到Winsock1的Connect事件:

Private Sub Winsock1_Connect() 当一个 Connect 操作完成时发生

On Error Resume Next

strWebPage = "http://202.103.176.81/crun/yingzi007/index.html" 要的文件

strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf GET 为FTP命令 取得文件

strCommand = strCommand + "Accept: */*" + vbCrLf 这句可以不要

strCommand = strCommand + "Accept: text/" + vbCrLf 这句可以不要

strCommand = strCommand + vbCrLf 记住一定要加上vbCrLf

Debug.Print strCommand 注:你可以用Debug.Print strCommand 来查看一下格式

Winsock1.SendData strCommand 给远程计算机发送数据

End Sub

4.把如下代码加到Winsock1的DataAmival事件:

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

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <