使用Microsoft Internet Transfer control遇到的问题

Question

Dim strURL As String '链接
 Dim strHead As String '头
 dim str_Url str_Url="http://wap.qcmw.com"
    
 '重新构造请求头
  strHead = "VIA:WTP/1.1 FJFZ-PS-GW05-WAP.fj.chinamobile.com (Nokia WAP Gateway 4.0/CD3/4.1.29)" & vbCrLf _
  & "CONTENT_LENGTH:" & Len(str_buf) & vbCrLf _
  & "CONTENT_TYPE:application/x-www-form-urlencoded" & vbCrLf _
  & "Accept: application/vnd.wap.wmlscriptc, text/vnd.wap.wml, application/vnd.wap.xhtml+xml, application/xhtml+xml, text/html, multipart/mixed, */*, text/x-vcard, text/x-vcalendar, image/gif, image/vnd.wap.wbmp" & vbCrLf _
  & "ACCEPT_CHARSET:ISO-8859-1, US-ASCII, UTF-8; q=0.8, ISO-10646-UCS-2; q=0.6" & vbCrLf _
  & "ACCEPT_ENCODING:gzip, deflate" & vbCrLf _
  & "ACCEPT_LANGUAGE:zh-CN, zh" & vbCrLf _
  & "User-Agent: Nokia " & vbCrLf _
    
  Form1.Inet1.Execute str_Url, "get", , strHead 如果服务器中有中转页
 如<% response.redirect "wap/index.asp" %>
 
 好怎么知道中转后的页面地址？
  

Answer 1

引用Microsoft HTML Object Library
Option Explicit
 Dim Xobj As HTMLDocument
Private Sub Form_Load()
  Me.WebBrowser1.navigate "www.csdn.net"
  
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   Set Xobj = Me.WebBrowser1.document
   Text1.Text = Xobj.body.innerText
   Debug.Print URL
End Sub

Answer 2

请问csdn library 中有没有 webBrower　的详细参考？

Answer 3

WebBrowser1.navigate "www.csdn.net"
要求对象?

Answer 4

WebBrowser1 这个是一个控件，你需要添加
Microsoft Internet Controls

Answer 5

名称差太多了，我昨天找了半天也没有找到,呵呵
thanks!

Answer 6

现在问题来了，
我是用来访问wap网页的，
(1)怎么重构http请求头
(2)能不能不显求，只返回二进制数据流(因为有的页面是utf8有的是gb2312),在解码前要确认编码再解码