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接下来该知道怎么做了吧?

解决方案 »

  1.   

    可是我同时执行4个Inet控件呢!
    如何判断它们都执行完毕?
    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