文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

使用控件有：Winsock控件，CommandButton控件，TextBox控件 编程步骤如下： 1.首先声明变量 DimstrCommandAsString DimstrWebPageAsString 2.把如下代码加到Command1的Command1_Click事件： PrivateSubCommand1_Click() Winsock1.RemoteHost="202.103.176.81"'设置连接的网址 Winsock1.RemotePort=80'设置要连接的远程端口号 Winsock1.Connect'返回与远程计算机的连接。 EndSub 3.把如下代码加到Winsock1的Connect事件： PrivateSubWinsock1_Connect()'当一个Connect操作完成时发生 OnErrorResumeNext strWebPage="http://www.vbeden.com/index_main.htm"'要下载的文件 strCommand="GET" strWebPage "HTTP/1.0" vbCrLf''GET为FTP命令取得文件 strCommand=strCommand "Accept:*/*" vbCrLf'这句可以不要 strCommand=strCommand "Accept:text/html" vbCrLf'这句可以不要 strCommand=strCommand vbCrLf'记住一定要加上vbCrLf 'Debug.PrintstrCommand'注：你可以用Debug.PrintstrCommand来查看一下格式 Winsock1.SendDatastrCommand'给远程计算机发送数据 EndSub 4.把如下代码加到Winsock1的DataAmival事件： PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)'取得数据时产生该事件 OnErrorResumeNext'在错误处理程序结束后，恢复原有的运行 DimwebDataAsString Winsock1.GetDatawebData,vbString'检取当前的数据块 Text1.Text=Text1.Text webData EndSub->

上一篇:在VB中利用UDP协议编写聊天程序

下一篇:VisualBasic通信程序设计