UC知道vb 获取网页源码！
来源：百度知道 编辑：UC知道 时间：2024/07/07 23:56:59
gimpo.2（hx）c(hx)h.n(hx)et/test/read.cgi/kaden/1223701996/
这个页面，我要获取到它的代码并且放进一个变量以便我处理字符
用什么方法都可以，下载啊，转换编码啊，都可以！但是不要用WebBrowser1.Document.body.outerHTML，太慢了
注意，这是个日文页面，普通的方法都会乱码！希望再回答之前先测试一下自己所说的方法！不要拿个没用的代码还贴上来，浪费你时间也浪费我时间
能解决的送300分！！！
谢谢，就是说用普通的方式打开一次删掉这几个字符，然后再用你说的方法打开得到代码，就可以了吧？手动试了一下删掉那些字符就可以了
这个页面，我要获取到它的代码并且放进一个变量以便我处理字符
用什么方法都可以，下载啊，转换编码啊，都可以！但是不要用WebBrowser1.Document.body.outerHTML，太慢了
注意，这是个日文页面，普通的方法都会乱码！希望再回答之前先测试一下自己所说的方法！不要拿个没用的代码还贴上来，浪费你时间也浪费我时间
能解决的送300分！！！
谢谢，就是说用普通的方式打开一次删掉这几个字符，然后再用你说的方法打开得到代码，就可以了吧？手动试了一下删掉那些字符就可以了
引用microsoft activex object data 2.5
Private Sub Form_Load()
Dim xml As Object, ReturnType As String
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://gimpo.2ch.net/test/read.cgi/kaden/1223701996/", False
xml.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
xml.Send
While Not xml.readyState = 4
DoEvents
Wend
Dim intFile As Integer
intFile = FreeFile
Open "c:\1.html" For Binary Access Write As #intFile
Put #intFile, , xml.responsebody
Close #intFile
Dim s As New Stream
s.Open
s.Type = adTypeText
s.Charset = "shift-jis"
s.Position =