想做一个小软件：自动查询考生录取情况。网站：http://www.haedu.，输入准考证号：13411101151089, 报名序号：110111150009,可以查询考生的录取信息。用：frames = WebBrowser1.Document.frames, input：frames(i).Document.All(j).Value ，可以自动填写考生号。再返回的信息中，怎样查看考生录取的院校。谢谢，哪位高手指导一下。

  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
用这种方式，红色部分提示：格式错误

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") '调用

用这个程序，但拒绝访问