求救：如何实现上传和下载功能，在线等待~！

Question

最近手头有个课题：实现从服务器上下载，上传。eg：学生考试系统，考题从服务器上下载，将答案上传到服务器~！
苦于没有思路，希望各位gg,jj帮忙提供一下思路，分不够还可以再加~！在线等待~！

Answer 1

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

Answer 2

文件上传
1、先加载Microsoft Internet Transfer控件
2、实现
　　inet1.URL=ftp://username:password@hostname/document 
　　inet1.Protocol=2-icFTP 
　　inet1.RemoteHost=hostname 
　　inet1.RemotePort=21 
　　inet1.Username=username 
　　inet1. Password=password 
　　'执行文件传输: 
　　Inet1.Execute "ftp://username:password@hostname", _ 
　　"PUT" &local_filename & " UPLOAD1.TXT" 
　　right1 = Inet1.StillExecuting 
　　Do While right1 
　　　 right1 = Inet1.StillExecuting 
　　　 DoEvents 
　　Loop 
　　'这样便实现了文件的上载。 

Answer 3

楼上的兄弟：谢谢，不过还有几个问题
1）上传功能上面代码没有实现啊
2）问个很菜的问题，异常处理是否要给出代码
3）我做的东西主要是局域网的，上面的“strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf ''中的”HTTP/1。0“是否指的是http协议,如果是局域网内通信的话，协议是netbois，我应该怎么写？

Answer 4

inet1.Protocol=2-icFTP 
这句的功能是什么啊？有什么用，能省吗~！？

Answer 5

inet1.Protocol=2-icFTP是设置端口协议，不能省转贴文章
用Visual Basic轻松地设计Browser及Ftp程序 自从Internet盛行以来，人们对于文件下载、即时信息获取、电子邮件传送变得方便 
许多。 Internet可以说是21世纪人类科技的一大创新。由于这个重大改变，人们的生活 
方式也受到非常大的影响；电子购物、网上信息库、网上股市实时交易如雨后春笋般的出 
现。以往，Visual Basic 4.0并没有提供一个完整的solution供Visual Basic的爱好者设 
计Internet程序。 还好，Visual Basic 5.0 提供了一些控件，供我们设计Internet的相 
关程序。在本文中，笔者将会用 Internet Transfer control配合Web Browser control 
，来告诉读者如何用Visual Basic 5.0轻松地设计Browser及FTP程序。 Control简介 Internet Transfer control Internet Transfer control 是微软为方便使用者设计Internet应用程序所提供的一 
种control。它提供两种Internet protocol：HTTP及FTP。我们在使用时，必须先设置好 
它的存取方式。存取方式分为直接连接到Internet网络，或通过proxy来连接Internet网 
络两种，完全依我们的网络性质来定。当我们设置好了相关参数之后，Internet Transfe 
r control提供两个method：OpenURL及Execute 来让我们执行网络相关操作，我们可以用 
这两个命令来执行一些Internet command。在下面的设计中，笔者会说明它的用法。 Web Browser control Web Browser control最早是由IE 3.0所提供，在安装IE 3.0时就会自动载入；Visua 
l Basic 5.0 将它变成内部控件。它提供Navigate method，使我们能够连接到我们想要 
去的WWW Server。 各位读者一定很奇怪：既然Internet Transfer control能够通过HTTP及TP protocol 
连接到 Internet，我们还要Web Browser control干甚么？只因为Internet Transfer co 
ntrol并没有提供图形模式的存取方式，所得到的文件仅能以文本模式传回。如果传回的 
文件包含图形的话，还必须将所得到的HTML文件用程序来做一个转换。所以笔者选择了We 
b Browser control来帮我们做一个转换。 以下就让笔者来告诉读者如何设计Web Browser及FTP client。 Web Browser程序设计 Step 1：设置好网络参数 首先要知道我们的网络系统是直接连到Internet，还是通过proxy连接到Internet。 
我们可以通过以下的步骤来确定我们的系统是以哪种方式连接Internet： 在"我的电脑"选项double click进入"控制面板"。在"控制面板"选项中double click 
进入"Internet" 选项。在Internet Dialog Box中选择connection。由屏幕显示的Dialog 
Box就可以知道系统是通过proxy还是通过dialing的方式连接到Internet。由于笔者的系 
统是通过proxy连接到Internet，我们必须要找出proxy Server的address及port，以利于 
程序设置。 接着click"setting"选项来查看它的address及port。屏幕接着会显示一个Dialog Bo 
x，里面记着"address of proxy to use ": 172.18.16.65，"port" : 8080。将它记录下 
来，等会儿就会用到这些参数。 Step 2：开始设计程序 在File选项中选择New Project建立一个新的工程，在屏幕上会看到许多选项，如Act 
iveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等，这时 
要选Standard.EXE。 接着在Project下，选择Property属性选项，在general选项下将Project Name改为We 
b browser。在屏幕的Form上加入一个Web browser control，取名为web1；接着加入一个 
Internet Transfer control，取名为Inet1。 加入三个TextBox control，分别取名为CGISearch、webname和htmlshow，并在CGISe 
arch TextBox前加入一个Label，将其Caption改为Search 　。 加入三个Button control，分别取名为Search、Go和ShowDoc。将Caption分别改为Se 
arch、　 Go to和show document 　。 为方便读者了解关系，以下以表格解释一遍： 
(TextBox) 
Name 
------------------------------------------------- 
CGISearch(输入CGI命令) 
webname(输入要前往的web address) 
htmlshow(显示html文字结果) (Button) 
Name Caption 
--------------------------------------------------------------------------- 
----- 
Search(执行CGI命令) search 
Go(执行前往web address的动作) Go to 
ShowDoc(显示html文字结果) show document 接着将Inet1的各项属性设置如下： 
Accesstype=2-icnamedproxy 
protocol=4-icHTTP 
proxy=172.18.16.65:8080 在Go_Click()中加入以下程序代码， 这个动作是连接到所想要去的web Server，并 
将屏幕显示在web1的方块区域内： 
Private Sub Go_Click() 
web1.Navigate webname.Text 
End Sub 
以上程序是运用web1的Navigate，这个method将屏幕连接到web name TextBox中所指 
定的网络站点。 在htmlshow _Click()加入以下的程序代码： 
Private Sub htmlshow _Click() 
a$ = web1.LocationURL 
ShowDoc.Text = Inet1.OpenURL(a$) 
End Sub 以上程序，是先将web1所连接到的URL address，通过LocationURL这个property读出 
，并将它暂存于字符串a。接着使用OpenURL()命令来将所接收到的HTML程序代码，显示在 
ShowDoc这个TextBox中。 在CGIserch _Click()中加入以下程序代码： 
Private Sub CGIserch _Click() 
Web1.Navigate "http://search.yahoo.com/bin/Search ? p=" + CGI. 
Text 
End Sub 
这个动作是用CGI命令来查询文件。在这里我们将查询命令指定传送到Yahoo 这个网 
络搜寻站。 这样我们就完成了一个小型的Web Browser。 Step 3：测试程序 
执行刚设计完的Web Browser，并在web name这个TextBox中填入所要去的网址。这里 
我们将它设置为http://www.Microsoft.com。接着按下Go Button，将会看到在web1 cont 
rol的方块区域内显示了Microsoft的HomePage。 按下ShowDoc Button，将可以在htmlshow这个TextBox中看到Microsoft HomePage的H 
TML 程序代码。