vb 查看框架网页源代码 - 编程论坛

#2

liuyong02832013-07-31 16:52

  Private Sub AccessNet()
  Dim xml
  Dim postdata As String
  Set xml = CreateObject("Microsoft.XMLHTTP")
  Dim str1     As String
xml.open "POST", "http://www.heao., False
postdata = "ksh=13411101151089&bmxh=110111150009"
   xml.setRequestHeader "Content-Length", Len(postdata)
  xml.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
  xml.send postdata
      If xml.Status = 200 Then
        str1 = StrConv(xml.responseBody, vbUnicode)      '返回的内容
        Text2.Text = str1
  End If
  End Sub
用这种方式，红色部分提示：格式错误

#3

liuyong02832013-07-31 20:37

Function XMLHttpPOST(ByVal url As String, ByVal PostData As String) As String
    Set XML = CreateObject("Microsoft.XMLHTTP")
    With XML
        .Open "POST", url, False
        .setRequestHeader "Accept", "*/*"
        .setRequestHeader "Accept-Language", "zh-cn"
        .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Referer", ""
        .setRequestHeader "Content-Length", Len(PostData)
        .setRequestHeader "Connection", "Keep-Alive"
        .setRequestHeader "Cache-Control", "no-cache"
        .setRequestHeader "Referer", "http://www.haedu.

        .Send (PostData)
        Do Until .ReadyState = 4
            DoEvents
        Loop
        XMLHttpPOST = .responseText
    End With
    Set XML = Nothing
End Function

text1.text=XMLHttpPOST("http://www.heao., "ksh=13411101151089&bmxh=110111150009&sfzh=&Submit.x=54&Submit.y=10&Submit=%E6%8F%90%E4%BA%A4") '调用

#4

liuyong02832013-07-31 20:38

用这个程序，但拒绝访问