102.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用Winsock控件实现文件的下载</p>
<p>使用控件有：Winsock控件，CommandButton 控件，TextBox 控件</p>
<p>编程步骤如下：</p>
<p>1.首先声明变量</p>
<p>Dim strCommand As String</p>
<p>Dim strWebPage As String</p>
<p>2.把如下代码加到Command1的Command1_Click事件：</p>
<p>Private Sub Command1_Click()</p>
<p>Winsock1.RemoteHost = "202.103.176.81" '设置连接的网址</p>
<p>Winsock1.RemotePort = 80 '设置要连接的远程端口号</p>
<p>Winsock1.Connect '返回与远程计算机的连接。</p>
<p>End Sub</p>
<p>3.把如下代码加到Winsock1的Connect事件：</p>
<p>Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生</p>
<p>On Error Resume Next</p>
<p>strWebPage = "http://202.103.176.81/crun/yingzi007/index.html" '要下载的文件</p>
<p>strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf ''GET 为FTP命令 取得文件</p>
<p>strCommand = strCommand + "Accept: */*" + vbCrLf '这句可以不要</p>
<p>strCommand = strCommand + "Accept: text/html" + vbCrLf '这句可以不要</p>
<p>strCommand = strCommand + vbCrLf '记住一定要加上vbCrLf</p>
<p>'Debug.Print strCommand '注：你可以用Debug.Print strCommand 来查看一下格式</p>
<p>Winsock1.SendData strCommand '给远程计算机发送数据 </p>
<p>End Sub</p>
<p>4.把如下代码加到Winsock1的DataAmival事件：</p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时产生该事件</p>
<p>On Error Resume Next '在错误处理程序结束后，恢复原有的运行</p>
<p>Dim webData As String</p>
<p>Winsock1.GetData webData, vbString '检取当前的数据块</p>
<p>Text1.Text = Text1.Text + webData</p>
<p>End Sub</p>
<p></p>