Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 0
Label5.Caption = "状态:无状态可报告。"
Case 1
Label5.Caption = "状态:正在查询所服务器的 IP 地址。"
Case 2
Label5.Caption = "状态:已成功地找到服务器的 IP 地址。"
Case 3
Label5.Caption = "状态:正在与主机连接。"
Case 4
Label5.Caption = "状态:已与主机连接成功。"
Case 5
Label5.Caption = "状态:正在向主机发送请求。"
Case 6
Label5.Caption = "状态:发送请求已成功。"
Case 7
Label5.Caption = "状态:正在接收主机的响应。"
Case 8
Label5.Caption = "状态:已成功地接收到主机的响应。"
Case 9
Label5.Caption = "状态:正在解除与主机的连接。"
Case 10
Label5.Caption = "状态:已成功地与主机解除了连接。"
Case 11
Label5.Caption = "状态:通讯时出现了错误。"
Case 12
Label5.Caption = "状态:该请求已经完成,并且所有数据均已接收到。 "
End Select
End Sub接下来该知道怎么做了吧?
Select Case State
Case 0
Label5.Caption = "状态:无状态可报告。"
Case 1
Label5.Caption = "状态:正在查询所服务器的 IP 地址。"
Case 2
Label5.Caption = "状态:已成功地找到服务器的 IP 地址。"
Case 3
Label5.Caption = "状态:正在与主机连接。"
Case 4
Label5.Caption = "状态:已与主机连接成功。"
Case 5
Label5.Caption = "状态:正在向主机发送请求。"
Case 6
Label5.Caption = "状态:发送请求已成功。"
Case 7
Label5.Caption = "状态:正在接收主机的响应。"
Case 8
Label5.Caption = "状态:已成功地接收到主机的响应。"
Case 9
Label5.Caption = "状态:正在解除与主机的连接。"
Case 10
Label5.Caption = "状态:已成功地与主机解除了连接。"
Case 11
Label5.Caption = "状态:通讯时出现了错误。"
Case 12
Label5.Caption = "状态:该请求已经完成,并且所有数据均已接收到。 "
End Select
End Sub接下来该知道怎么做了吧?
如何判断它们都执行完毕?
Inet3.Execute Text4.Text, "GET"
Inet2.Execute Text0.Text, "GET"
Inet4.Execute Text6.Text, "GET"
Inet1.Execute Text2.Text, "GET"Private Sub Inet1_StateChanged(ByVal State As Integer)
...
End SubPrivate Sub Inet2_StateChanged(ByVal State As Integer)
...
End SubPrivate Sub Inet3_StateChanged(ByVal State As Integer)
...
End SubPrivate Sub Inet4_StateChanged(ByVal State As Integer)
...
End Sub