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

《控制远程计算机的原理及实现注销、关机和重启》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、控制远程计算机的原理及实现注销、关机和重启控制远程计算机的原理及实现注销、关机和重启　　1引言　　远程控制基本原理是主控端与客户端利用套接字（Socket=IP地址+端口号）建立连接后，主控端通过套接字发送远程消息指令，客户端调用对应方法执行操作。　　2客户端侦听模块　　无论主控端还是客户端，都需要引用命名空间：System.，System.IO，System.Net.Sockets，System.Threading。　　客户端程序相当于木马。点击隐藏按钮，可显示在托盘中，实际应用中可设置完全隐藏。界面如图1所示。2.1侦听方法　　SubL

2、istenToServer（）　　Try　　DimLISTENINGAsBoolean　　DimlocalhostAddressAsIPAddress=IPAddress.Parse（ipAddress.ToString）　　DimportAsInteger=8341'端口号　　'创建侦听对象，参数：IP地址，端口号　　DimtcpListAsNetcpCliAsTcpClient=tcpList.AcceptTcpClient（）　　DimnsAsNet=tcpCli.GetStream　　DimsrAsNeReader（ns）　　'从主

3、控端获得指令，执行相应动作　　DimrecEivedDataAsString=sr.ReadLine（）　　'收到关机指令，创建新线程，执行对应操作　　IfreceivedData="###SHUTDOIService，objputerAsObject　　objIService=GetObject（"gmts：{impersonationLevel=impersonate，（Debug，Shutdo"）　　t=objputer.Win32Shutdown（8+4，0）　　Next　　EndSub　　重启代码只有一行不同：t=objputer

4、.Win32Shutdown（2+4，0）。注销代码行：t=objputer.Win32Shutdown（0，0）。　　3主控端模块　　主控端界面如图2所示。程序自动获取本机IP地址，并提供指令选项。输入客户端的IP地址，即可实现远程操作。　　定义线程　　DimtrSendMessageAsThread　　3.1向客户端发送指令　　SubSendMessage（）　　DimhostAsString=txtClientIP.Text　　DimportAsInteger=8341　　Try　　DimtcpCliAsNensAsNet=tcpCl

5、i.GetStream　　'发送数据到客户端　　DimssgBox（"操作完毕！"，MsgBoxStyle.Information，"收到指令"）　　EndIf　　sr.Close（）　　ssgBox（ex.Message）　　EndTry　　EndSub　　3.2确定按钮的代码　　IfrbNothing.Checked=FalseThen　　trSendMessage=Neessage）　　trSendMessage.Start（）　　EndIf　　4结束语　　根据木马远程控制原理，实现了控制远程计算机的操作。其他功能，如抓屏、发送邮件、

6、传输文件等，都可以根据此原理实现。如果增加自动获取网上邻居的IP地址，延时执行、放弃操作等，功能将进一步完善。