vb怎么远程关机

来源：百度知道 编辑：UC知道 时间：2024/07/07 20:36:18
注意是外网的和外网的连接关机，客户端的怎么设置，注意要加载winsock控件，代码要写出来！！

客户端：
Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect "127.0.0.1", 1001

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim cmdstr As String

Winsock1.GetData cmdstr

If cmdstr = "关机" Then
Shell "cmd /c shutdown -s -t 0"
End If

End Sub

控制端
Private Sub Form_Load()
winsock1.LocalPort = 1001
winsock1.Listen

MsgBox "已经开始监听,等待主机上线!", vbInformation

End Sub
Private Sub Command1_Click()
winsock1.senddata "关机"
End Sub

你只要想对方发送 dos命令 shutdown -s -f -t 0

求人办事还语气蛮横？！

你不跪下求我就不告诉你

是吗？