我回复的一个贴子,可以看看,winsock控件.
http://www.programfan.com/club/post-245420.html

在A机运行一个服务器端程序，向B机发送系统时间。
Private Sub Form_Load()
Winsock1.LocalPort = 6001
Winsock1.Listen
End Sub

Private Sub Timer1_Timer()
On Error GoTo errorhandler
If Label1.Caption = "true" Then
Winsock1.SendData Str(Time)
End If
Exit Sub
errorhandler:
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Label1.Caption = "true"
End Sub

在B机运行一个客户端程序，用于接收A机的时间，与本机时间进行对比，如不一致则认为死机。

Private Sub Form_Load()
   Winsock1.RemotePort = 6001
   Winsock1.RemoteHost = "192.168.1.10"     'A机的地址
   Winsock1.Connect
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Winsock1.Close
End Sub
Private Sub winsock1_Close()
Winsock1.Close
End
End Sub
Private Sub winsock1_Connect()
Label1.Caption = "连接A机成功"
End Sub

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsock1.GetData tmpstr
Text1.Text = tmpstr

'此处tmpstr接收A机发来的系统时间，然后判断与B机的时间差，如果大于某个设定值，则认为A死机，报警。
End Sub
*******************************************************************
帖出来,看不懂耶,Winsock1是个什么控件,在哪里可以找到

winsock就是封装了winsockAPI的控件，只支持TCP和UDP协议

既然有了TCP，应该再加上个IP协议，才叫完整!~

在本机就可以试了，IP可以设为网卡局域网地址，或者干脆就设为127.0.0.1

好哦 合乎