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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货