控制远程计算机的原理及实现注销、关机和重启.doc

控制远程计算机的原理及实现注销、关机和重启.doc 控制远程计算机的原理及实现注销、关机 和重启 控制远程计算机的原理及实现注销、关机和重启 1 引言 远程控制基本原理是主控端与客户端利用套接字 (Socket=IP地址+端口号)建立连接后，主控端通过套接字发送远 程消息指令，客户端调用对应方法执行操作。 2 客户端侦听模 块 无论主控端还是客户端，都需要引用命名空间: System.net，System.IO，System.Net.Sockets，System.Threading。 客户端程序相当于木马。点击隐藏按钮，可显示在托盘中，实际应 用中可设置完全隐藏。界面如图1所示。2.1 侦听方法 Sub ListenToServer() Try Dim LISTENING As Boolean Dim localhostAddress As IPAddress=IPAddress.Parse (ipAddress.ToString) Dim port As Integer = 8341?端口号 ? 创建侦听对象，参数:IP地址，端口号 Dim tcpList As New TcpListener(localhostAddress， port) Try 本文由收集整理 tcpList.Start()?开始侦听 LISTENING=True Do While LISTENING Do While tcpList.Pending = False and LISTENING = True Thread.Sleep(10) „让出CPU10毫秒 Loop If Not LISTENING Then Exit Do ?ns通过套接字发送和接收数据 Dim tcpCli As TcpClient=tcpList.AcceptTcpClient() Dim ns As NetworkStream=tcpCli.GetStream Dim sr As New StreamReader(ns) ?从主控端获得指令，执行相应动作 Dim recEivedData As String=sr.ReadLine() ?收到关机指令，创建新 线程，执行对应操作 If receivedData=“###SHUTDOWN###” Then trShutdown=New Thread(AddressOf shutdown) trShutdown.Start() End If?重启 If receivedData=“###REBOOT###” Then trReboot=New Thread(AddressOf reboot)trReboot.Start() End If?注销 If receivedData=“###LOGOFF###” Then trLogOff=New Thread(AddressOf logoff)trLogOff.Start() End If Dim returnedData As String=“###OK###” „& “ From Server” Dim sw As New StreamWriter(ns) sw.WriteLine(returnedData) ?Flush()缓冲区数据强行输出 sw.Flush() sr.Close() sw.Close() ns.Close() tcpCli.Close() Loop „停止侦听 tcpList.Stop() Catch ex As Exception?捕获异常及错误 LISTENING = False End Try End Sub 2.2 关机方法 Sub shutdown() Dim t As Single Dim objWMIService， objComputer As Object objWMIService= GetObject(”Winmgmts: {impersonationLevel=impersonate，(Debug，Shutdown)}”) For Each objComputer In objWMIService.InstancesOf(”Win32_OperatingSystem”) t=objComputer.Win32Shutdown(8 + 4， 0) Next End Sub 重启代码只有一行不 同:t=objComputer.Win32Shutdown(2+4，0)。注销代码行: t=objComputer.Win32Shutdown(0，0)。 3 主控端模块 主控端界面如图2所示。程序自动获取本机IP地址，并提供指令选 项。输入客户端的IP地址，即可实现远程操作。定义线程 Dim trSendMessage As Thread 3.1 向客户端发送指令 Sub SendMessage() Dim host As String = txtClientIP.Text Dim port As Integer = 8341 Try Dim tcpCli As New TcpClient(host， port) Dim ns As NetworkStream = tcpCli.GetStream ?发送数据到客户端 Dim sw As New StreamWriter(ns) If rbShutdown.Checked = True Then sw.WriteLine(”###SHUTDOWN###”) End If If rbReboot.Checked = True Then sw.WriteLine(”###REBOOT###”) End If If rbLogOff.Checked = True Then sw.WriteLine(”###LOGOFF###”) End If sw.Flush() „收到客户端反馈 Dim sr As New StreamReader(ns) Dim result As String = sr.ReadLine() If result = “###OK###” Then MsgBox(”操作完毕～”， MsgBoxStyle.Information， “收到指令”) End If sr.Close() sw.Close() ns.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub 3.2 确定按 钮的代码 If rbNothing.Checked = False Then trSendMessage = New Thread(AddressOf SendMessage) trSendMessage.Start() End If 4 结束语 根据木马远程控制原理，实现 了控制远程计算机的操作。其他功能，如抓屏、发送邮件、传输文 件等，都可以根据此原理实现。如果增加自动获取网上邻居的IP地 址，延时执行、放弃操作等，功能将进一步完善。