怎么用VB编辑一个强制关机程序

这个我不会。

给电脑定时关机，我使用的是定时关机3000.

定时关机3000有11种执行条件和可以执行电脑定时关机在内的14种任务。

11 种执行条件是：等待多少时间、开机多长时间、全天电脑累计开机多长时间、上传网速连续多长时间低于多少、下载网速连续多长时间低于多少、电脑空闲多长时间、指定的具体时间、每天的几点几分、每周的周几的几点几分、每月那天的几点几分、每年的哪天的几点几分。

14种执行的任务是电脑关机、电脑重启、电脑注销当前用户、系统锁定、电脑睡眠、提醒、关闭显示器、电脑待机、运行软件、打开文件、打开网址、关闭软件、系统垃圾清理和断开网络。并且可以设置任务开机自动启动和同时执行多项任务。

te Sub Command1_Click()

Shell "shutdown -s -t 30"

'30秒后关机

End Sub

另外一种就是调用API函数,给你一篇文章,或许对你有用:

应用程序中实现关机功能

（作者：范明之 2000年07月17日 10:52）

VB 6.0开发应用程序时，用户要求在程序内部加入直接关机功能， 使 *** 作全部集中于应用程序的内部进行。为此，笔者编制程序，进行Windows API函数调用，成功地实现了Windows 9x“关闭系统”仿真功能，满足了用户要求，现将设计过程列举如下:

一、设计关机系统界面

新建工程文件及窗体Form1，Form1中加入选项控件Option1、 Option2 、 Option3，将它们Caption 属性依次设为“关闭计算机(S)”、“重新启动计算机(R)”、“关闭所有程序并以其他用户身份登录”；再加入命令按钮Command1和Command2、Command3且Caption属性分别设为“是”、“否”、“帮助”。即设计一个Windows 98“关闭系统”的仿真界面。

二、通用事件代码中对API 函数ExitWindowsEx( )进行声明

VB 6.0应用程序设计时,调用丰富Windows API 函数能完成VB本身没有提供或无法实现的功能，这些函数都属于“ *** 作系统”级别，能使应用程序增添不少色彩。其中ExitWindowsEx( )函数具备关闭Windows系统的功能，调用前必须进行声明：

Declare Function ExitWindowsEx Lib 〃user32〃( ByVal uFlags As Long,ByVal dwReserved As Long) As Long

参数说明：此函数有两个参数vFlags、dwReserved，其中vFlags参数决定用户需要做的关机 *** 作，dwReserved参数是作为保留而没有使用。

vFlags 参数可以取以下几种常量(或相应值):

EWX_ShutDown 1 关闭计算机

EWX_ReBoot 2 重新启动计算机

EWX_LogOff 0 关闭所有程序并以其他用户身份登录

三、关机功能所有程序代码清单如下:

′通用代码中对ExitWinwodsEx( )函数声明

Private Declare Function ExitWindowsEx Lib 〃user32〃 (ByVal uFlags As Long,ByVal dwReserved As Long) As Long

Const ShutDown = 1

Const ReBoot = 2

Const LogOff = 0

Private Sub Command1_Click()

Dim Sh As Long

If Option1.Value = True Then

′关闭计算机选项

Sh = ExitWindowsEx(ShutDown, dwReserved)

End If

If Option2.Value = True Then

′重新启动计算机选项

Sh = ExitWindowsEx(ReBoot, dwReserved)

End If

If Option3.Value = True Then

′关闭所有程序并以其他用户

身份登录选项

Sh = ExitWindowsEx(LogOff, dwReserved)

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

F5运行程序，即进行关机 *** 作!该功能加入用户开发的应用程序，相当实用。

---