使用控件有: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" strW...[ 查看全文 ]