Question

VB6.0怎样用API来获取网页源代码

我做了一个软件，需要大量获取网页的源代码，我用Microsoft.XMLHTTP来获取，会出现拒绝访问。我于是用Inet1控件来获取，但发现很多网站都获取的都是出现乱码。所以我想知道还有什么方法可以获取网页源代码。希望高手们帮帮忙！

Answer 1

网页源代码出现乱码的原因可能是：网页源代码是UTF-8编码，必须转换为Unicode才行。
这个问题不解决，用任何API来获取都是一样的结果。
所以，用Inet1控件来获取是没有问题的。

追问

怎样转换？

追答

请参考：http://zhidao.baidu.com/question/123224632.html?an=0&si=2

Answer 2

Private Declare Function icePub_openUrl2 Lib "icePubDll.dll" (ByVal currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As Integer) As Integer

Dim str1 As String
Dim a2 As Integer

str1 = Space(1024 * 20 + 1)

a2=icePub_openUrl2("http://www.baidu.com",buff,1024*20,"")

http://dl.icese.net/dev.php?f=icePubDll.rar 下载