怎样用VB在网络中下载文件

来源：百度知道 编辑：UC知道 时间：2024/06/06 03:39:14
我想下载网页页面的源文件，用VB应当怎样写代码？请告知，谢谢！
页面上不是有“查看”---“源文件”吗？就是要下载这个源文件。
我初学，请将代码写出来，不要用“……很简单，……用……就可以了”。
谢谢！

这位 Null_bd朋友，前面没有说清楚，麻烦您了。
我想在窗体上添加两个Textbox和一个命令按钮，Textbox1写页面URL地址，点击命令按钮后Textbox2显示页面中的源文件。
暂时还没有想到有什么实用价值，主要是想学习VB，所以请尽量将代码写详细一点。
谢谢了！

仍不能运行，提示未定义xml2或参数不正确

如果是页面文件(竟服务器解析过的HTML代码的话),有很多,可以用XMLHTTP,browser对象等,写起来相对都比较简单,如果想下载服务器源码(程序原代码),那要看对方网站服务器是否支持了(或者说有这方面的漏洞或提供源代码开放式下载)
---------------------------------------------------------------
XML HTTP的,在工程中引用XML类型库即可,返回值就是源代码
================================================================
你需要引用你需要在工程->引用中,选择Microsoft XML类型库,最好选6.0
,代码刚做了个修改,多了个strUrl=""语句,我刚测试正常,如果需要可以传给你,就是下边的代码:

public function getData(byval strUrl as string) as string
Dim objHttp As MSXML2.ServerXMLHTTP
Set objHttp = New MSXML2.ServerXMLHTTP

getData=""
On Error GoTo 0
On Error GoTo ErrSubmit

objHttp.open "GET", strUrl, False
objHttp.send

getData = Trim$(Replace(objHttp.responseText, vbCrLf, ""))

exit function
ErrSubmit:
Msgbox err.description
set objHttp= Nothing
end function
==================================
在命令按钮的CLICK事件中写如下