不用MSInet.ocx控件如何获得网页的源码？

Question

我写了一个小程序，其中有一个部分大概功能是访问服务器上的xxx.txt文件，将其内容保存到name变量中。 
name=inet1.openurl("http://www.xxx.com/data/name.txt") 
在本机运行正常。但是到了别的没装VB的机器上程序就根本没法正常启动，提示没有MSInet.ocx控件。由于users组没有注册控件的权限，所以我想要问大家一下，还有没有什么别的方法可以做到的？ 
（最好说得详细一点，有源代码更好，谢谢！！）

Answer 1

原理倒是不难，你用过sniffer吗？抓网卡数据的工具，你可以按照他的工具原理，解析数据包，自然能够得到网页数据。不过要想不用控件，只有用api连接socket了。

Answer 2

不过你比sniffer简单多了，他是监听网卡的数据，你呢，就用api直接connect到目标机器的80端口就行了，get 下来代码。

Answer 3

说一句，我那个代码是5秒钟执行一次的，用URLdownloadtofile实在太慢了，在比较慢的电脑上根本没法用。
所以，有没有更好的方法？？谢谢了！！！

Answer 4

    Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
    xmlHTTP1.Open "get", "网页地址"
    xmlHTTP1.send
    While xmlHTTP1.ReadyState <> 4
        DoEvents
    Wend

Answer 5

不好意思，我落东西了……
    Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
    xmlHTTP1.Open "get", "网页地址"
    xmlHTTP1.send
    While xmlHTTP1.ReadyState <> 4
        DoEvents
    Wend
    Text1.Text = xmlHTTP1.responseText
    Set xmlHTTP1 = Nothing

Answer 6

打开TXT文件时中文符号全是乱码……残念……
能否解决？？

Answer 7

cangyue727 
cangyue 
等 级：
 发表于：2008-02-04 04:31:074楼 得分:0 
说一句，我那个代码是5秒钟执行一次的，用URLdownloadtofile实在太慢了，在比较慢的电脑上根本没法用。  
 
//那么这是你程序结构上的问题了.既然文件是存放于网络上的,这种读取方式本身就不稳定.而你还要求这么高的实时性.使用URLdownloadtofile只是会把调用线程挂起而已,你用另一个线程来执行不就行了.不过还是祝你好运.