如何用VB 实现远程关机呢

可以参考以下代码：然后你在组织一下
我只想到用winsock编一个客户服务器程序,这样两个机子就可以通信了,也就可以控制了.

Option Explicit
Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long

Private Sub Command1_Click()
Dim ltimeout As Integer, retval As Long
Dim str As String
ltimeout = 0
retval = InitiateSystemShutdown(Trim(Text1.Text), "", ltimeout, True, True)
If retval <> 0 Then
MsgBox "Shutting down..."
Else
MsgBox "Sorry..."
End If

举个例子，比如你局域网内有台名为songzi的电脑，想在一分钟后关闭：
shutdown –s –m \\songzi -t 60

在DOS窗口中输入SHUTDOWN /?得到：
用法: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "comment"] [-d up:xx:yy]
没有参数