VB 在远程管网数据传输中的应用[组图](4)

MsgBox "监控程序未开或端口出错：请先开启监控程序，再连接"

End Sub

Private Sub Winsock8_ConnectionRequest _

(ByVal requestID As Long)

'检查控件的 State 属性是否为关闭的。

'如果不是，在接受新的连接之前先关闭此连接。

If Winsock8.State <> sckClosed Then _

Winsock8.Close

'接受具有 requestID 参数的连接。

Winsock8.Accept requestID

End Sub

Private Sub Winsock8_DataArrival(ByVal bytesTotal As Long)

Dim Tdata() As Byte

Dim Idata(0 To 4) As String

Dim TIdata(0 To 4) As Long

Dim i As Integer

On Error GoTo ec

Winsock8.GetData Tdata()

Idata(0) = Hex(Tdata(0))

TIdata(0) = Int("&H" & Idata(0))

If TIdata(0) = 126 Then

For i = 1 To 4

Idata(i) = Hex(Tdata(i))

TIdata(i) = Int("&H" & Idata(i))

Next i

ctcy(0).Caption = TIdata(3) * 256 + TIdata(4)

End If

If ctcy(1).Caption < 1000000 Then