Dim url
   Dim url
   'URL = "http://xxx/incinfo/inc.asp"
   postData = "t=x"
   Inet1.Execute CStr(url), "POST", postData, "Content-Type: application/x-www-form-urlencoded" ‘不能强迫类型   While Inet1.StillExecuting
      DoEvents
   Wend
   Debug.Print StrZ
   
Private Sub Inet1_StateChanged(ByVal State As Integer)
   Select Case State
      Case 12                       
         StrInfo = Inet1.GetChunk(1024) 
         While StrInfo <> ""            
            StrZ = StrZ + StrInfo       
            StrInfo = Inet1.GetChunk(1024)
         Wend
      Case 11
         MsgBox "未返回搜索结果"
   End Select
   
End Sub