Question

vb 如何用inet1.openURL提交post表单

例如:
Private Sub Command1_Click()
Dim strURL As String, strFormData As String
strURL = "http://www.baidu.com" & Text1.Text
strFormData = "c=123456"
Inet1.Execute strURL, "Post", strFormData
MsgBox "完成"
End Sub
这段代码提交后还没返回网页的内容就马上执行了MsgBox "完成"这个提示框,我想等它提交后到返回网页的数据再执行MsgBox "完成"语句,请问是不是要用inet1.openURL?换成inet1.openURL的话这段代码应该怎样写?我换成这样就提示错误了:
Private Sub Command1_Click()
Dim strURL As String, strFormData As String
strURL = "http://www.baidu.com" & Text1.Text
strFormData = "c=123456"
inet1.openURL strURL, "Post", strFormData
MsgBox "完成"
End Sub

Answer 1

用VB2008输入此代码即可!