79.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 23 行

<p>用 WinSock 控件下载文件</p>
<p></p>
<p>1 增加一个 Winsock 控件， 名称为 Winsock1。</p>
<p>2 建立连接：</p>
<p>Winsock1.RemoteHost = "nease.com"</p>
<p>Winsock1.RemotePort = 80</p>
<p>Winsock1.Connect</p>
<p>3 在Winsock1.Connect 事件中加入：</p>
<p></p>
<p>Dim strCommand as String</p>
<p>Dim strWebPage as String</p>
<p>strWebPage = "http://www.nease.com/~kenj/index.html"</p>
<p>strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf </p>
<p>strCommand = strCommand + "Accept: */*" + vbCrLf </p>
<p>strCommand = strCommand + "Accept: text/html" + vbCrLf </p>
<p>strCommand = strCommand + vbCrLf </p>
<p>Winsock1.SendData strCommand</p>
<p>4 Winsock 开始下载， 在收到数据时， 发生DataArrival 事件。</p>
<p>Dim webData As String </p>
<p>Winsock1.GetData webData, vbString</p>
<p>TxtWebPage.Text = TxtWebPage.Text + webData</p>
<p></p>