这是一段关于文件下载的代码　　
首先，声明一些变量，代码如下所示。

　　Dim strCommand As String

　　Dim strWebPage As String

　　为了动态设置Winsock控件的一些属性，在“开始”按钮的Click事件加入以下代码。

　　Winsock1.RemoteHost="192.168.100.101" '设置连接的IP地址

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

　　Winsock1.Connect '开始连接远程计算机。

　　当Winsock控件连接操作完成，就可以传送FTP命令给服务器了，因此在Winsock控件的Connect事件中加入以下代码：

　　On Error Resume Next '在错误处理程序结束后，恢复原有的运行

　　strWebPage= " 192.168.100.101/main.htm" '设置要下载的文件'添加FTP中取得文件的命令(GET)

　　strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 

　　strCommand = strCommand + "Accept: */*" + vbCrLf 

　　strCommand = strCommand + "Accept: text/html" + vbCrLf 

　　strCommand = strCommand + vbCrLf '必须以vbCrLf结束命令

　　Winsock1.SendData strCommand '向远程计算机发送命令 

　　当Winsock控件获取到数据时，需要对数据进行处理，本例中将获取的内容显示在文本框控件中，因此在Winsock控件的DataArrival事件加入以下代码：

　　On Error Resume Next '在错误处理程序结束后，恢复原有的运行

　　Dim webData As String

　　Winsock1.GetData webData,vbString '获取当前的数据块

　　Text1.Text = Text1.Text + webData '显示接收到的数据


我现在想将服务器“***.***.***.***/v.dat"文件下载下来并显示在text上
这段代码如何改
　　strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 

　　strCommand = strCommand + "Accept: */*" + vbCrLf 

　　strCommand = strCommand + "Accept: text/html" + vbCrLf 

　　strCommand = strCommand + vbCrLf '必须以vbCrLf结束命令

　　Winsock1.SendData strCommand '向远程计算机发送命令 
我试了很长时间都不行