Question

各位大虾，我想用VB编写一个远程控制软件，想用来控制远程客户端重新启动和关机

，请问我该在客户端和服务端里各写入什么代码呢？

Answer 1

简单的CS，使用winsock控件，WS 为服务端 winsock ，WC 为客户端 winsock

服务端（远程）
Private Sub Form_Load()
Ws.LocalPort = 1001'监听端口
Ws.Listen
End Sub

Private Sub Ws_Close()
Ws.Listen
End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
If Ws.State <> sckClosed Then Ws.Close
Ws.Accept requestID
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
Ws.GetData tmp, vbString
Select Case tmp
Case "Command=1"
MsgBox "关机程序"
Case "Command=2"
MsgBox "重启程序"
End Select
End Sub

客户端(本地)
Private Sub Form_Load()
Wc.RemoteHost = "127.0.0.1"'远程IP地址
Wc.RemotePort = 1001'远程端口
Wc.Connect
End Sub

Private Sub Command1_Click()
Wc.SendData "Command=1"'发送关机命令
End Sub

Private Sub Command2_Click()
Wc.SendData "Command=2"'发送重启命令
End Sub