VB做个远程连接

来源：百度知道 编辑：UC知道 时间：2024/06/28 13:11:12
想我做个VB远程控制，一个控制程序，帮助另一个机器按键盘上的两个键

可以通过IP操作，或者通过用户名操作，只是简单的就可以了！

用wisock控件做，必须知道一方的IP，如被控制方IP。
被控制方程序：

Private Sub Form_Load()
Winsock1.LocalPort = 2555
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock2(i).Accept requestID

End Sub

Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strtmp As String
Winsock2(Index).GetData strtmp
'判断strtmp，是指定内容，就执行相关代码。略
End Sub
控制方程序：（假设对方IP是222.222.222.222）
Private Sub Command1_Click()
Dim strtmp As String
strtmp = Text1
While Winsock1.State <> 7
DoEvents
Wend
Winsock1.SendData strtmp
End Sub

Private Sub Form_Load()

Winsock1.Connect "222.222.222.222", 2555

End Sub