Question

如何用VB 实现远程关机呢

我是在2000系统的局域网内，请问如何用VB 实现远程关机呢

Answer 1

举个例子，比如你局域网内有台名为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]
没有参数 显示此消息(与 ? 相同)
-i 显示 GUI 界面，必须是第一个选项
-l 注销(不能与选项 -m 一起使用)
-s 关闭此计算机
-r 关闭并重启动此计算机
-a 放弃系统关机
-m \\computername 远程计算机关机/重启动/放弃
-t xx 设置关闭的超时为 xx 秒
-c "comment" 关闭注释(最大 127 个字符)
-f 强制运行的应用程序关闭而没有警告
-d [u][p]:xx:yy 关闭原因代码
u 是用户代码
p 是一个计划的关闭代码
xx 是一个主要原因代码(小于 256 的正整数)
yy 是一个次要原因代码(小于 65536 的正整数)

Answer 2

可以参考以下代码：然后你在组织一下
我只想到用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