vb实现远程控制

做完了这些准备工作，就可以开始着手编写代码了。
在Form窗口上点击鼠标右键，选择查看代码，并在代码窗口中输入如下代码：
Private Sub Form_Load()
Winsock1.RemoteHost = "对方计算机名"
'如果想通过对方IP连接的话，请把上面一行改为Winsock1.RemoteHostIP="对方IP"。
Winsock1.RemotePort = 1001
'可以任意填写，最好在1000以上
End Sub

Private Sub cmdconnect_Click()
Winsock1.Connect         '连接主机
Cmdcommand.Enabled=True   '将cmdcommand按钮设为有效
cmdconnect.Enabled = False
End Sub

Private Sub cmdCommand_Click()
Dim CommandMain As String
CommandMain = InputBox("请输入命令：", "命令窗口")
Winsock1.SendData CommandMain '向服务器端发送数据
End Sub
    看到这里应该祝贺你，你已经完成了客户端的编写。不要这麽吃惊，真的就这麽简单。
当然前面已经说过，这种程序是由两部分组成的，所以光学会做客户端还不够。你还必须要
编写一个服务器端来接受并执行客户端所发出的命令，否则的话你所发出的命令就会"一去兮
，不复返也"。
    编写服务器端的程序前，必须明确的是：你到底要服务器端计算机做什麽？我们假定要
服务器端计算机在接受到reboot命令后重启计算机，接受到shutdown命令后关闭计算机，接
受到logoff命令后注销计算机、接收到close命令后退出本程序以及接受到其他命令后默认为
Message消息。为此我们必须用到Exitwindowsex这个api函数，这个函数的具体用法会在下面
说明。
    好了，明确了目的后，我们要做的就是开始着手编写代码了。请先将前面编好的客户端
程序编译后保存，然后建立新工程，加入一个Winsock1控件，并将控件的Protocol属性设为
SckTcpProtocol。同客户端一样进入代码窗口加入如下代码：
'*************************************************************************
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal
dwReserved As Long) As Long
'*************************************************************************
'以上部分为api函数的声明部分，请不要做任何修改。

Private Sub Form_Load()
Winsock1.LocalPort = 1001 '注意这里的设置一定要和客户端中Winsock1.RemotePort所使
用的端口一致，否则将无法使用。
Winsock1.Listen '将1001端口状态设为监听状态
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'处理错误如果有错误发生则跳过错误
On Error Resume Next
If Winsock1.State <> sckClosed Then '如果State状态为sckClosed，则关闭Winsock
连接。
Winsock1.Close
End If
Winsock1.Aclearcase/" target="_blank" >ccept requestID            '接受连接
'处理错误如果有错误发生则报告出错提示
If Err Then
MsgBox Error
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'以下部分为定义的简单协议
Dim strdata As String
Winsock1.getdata strdata    '获取客户端发出的命令
Select Case strdata
Case "reboot" '当strdata的值为reboot时重新启动计算机，以下几条代码的作用以此类推
。
ExitWindowsEx EWX_REBOOT, 0
Case "shutdown"
ExitWindowsEx EWX_SHUTDOWN, 0
Case "logoff"
ExitWindowsEx EWX_LOGOFF, 0
Case  "close"
end
Case Else
MsgBox strdata, vbInformation, "消息"
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close '关闭程序时断开连接
End Sub

原文转自：http://www.ltesting.net