Question

VB问题,Inet1错误:仍在执行上一请求

下面VB程序当二次提交(速度较快时)出现"仍在执行上一请求"错误,整个程序会被迫关闭.

如何检测从而避免这一错误出现呢?

Private Sub Command1_Click()
If Text1.Text = vCode Then
With Inet1
.URL = "http://www.bai.com/login.asp?id=8"
.UserName = Text2
.Password = Text3
.Execute , "post"'提示这里错误
End With
End If

Answer 1

Dim iBusy As Boolean

Private Sub Inet1_StateChanged(ByVal State As Integer)
iBusy = State = icReceivingResponse
End Sub

Private Sub Command1_Click()
'接收应答时不响应用户操作
If iBusy Then Exit Sub
'其他代码

End Sub

=============

学习楼上的，更简单

Private Sub Command1_Click()
If Inet1.StillExecuting Then Exit Sub
'其他代码

End Sub

Answer 2

Private Sub Inet(Name)
Inet:
If Me(Name).StillExecuting = True Then DoEvents: GoTo Inet
End Sub

Private Sub Command1_Click()
Inet1.Execute "http://www.baidu.com"
Inet ("Inet1")
MsgBox Inet1.OpenURL
End Sub