vb实现远程控制

发表于:2007-05-25来源:作者:点击数: 标签:远程控制完了这些准备工作实现
做完了这些准备工作,就可以开始着手编写代码了。 在Form窗口上点击鼠标右键,选择查看代码,并在代码窗口中输入如下代码: Private Sub Form_Load() Winsock1.RemoteHost = 对方计算机名 '如果想通过对方IP连接的话,请把上面一行改为Winsock1.RemoteHostIP
做完了这些准备工作,就可以开始着手编写代码了。
在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