Question

vb怎么远程关机

注意是外网的和外网的连接关机，客户端的怎么设置，注意要加载winsock控件，代码要写出来！！

Answer 1

客户端：
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

Answer 2

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

Answer 3

你不跪下求我就不告诉你

Answer 4

求人办事还语气蛮横？！

Answer 5

是吗？