VB编程实现的自动关机程序代码示例

一个用VB编程的关机程序代码！

刚写的，你试一下吧，窗体中要有一个名为timer1的计时器，它的interval属性要设置为60000

Dim n As Integer

Private Sub Form_Load()

Dim a As Integer

n = 0

a = MsgBox（＂说我爱你，不说五分钟之后关机＂， vbOKCancel, ＂＂）

If a = 2 Then

Timer1.Enabled = True

Else

End

End If

End Sub

Private Sub Timer1_Timer()

n = n + 1

If n = 5 Then

Shell ＂shutdown -s -t 0＂

End If

End Sub

能问一下你的程序是在什么环境下写的吗？VB6.0?ASP？还是什么？

VB做一个简单整人的关机程序哪位高手帮一下写具体点也不要

Dim ChkAns As String

ChkAns = InputBox（＂请问我是不是帅哥？ 谨慎回答噢. 否则...＂， ＂提示＂）

If ChkAns = ＂是＂ Then

MsgBox ＂^_^ 算你聪明！＂， vbOKOnly + vbInformation， ＂提示＂

Else

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ &； ＂哼， 谁叫你不说我是帅哥的！＂ & ＂＂＂＂, vbHide

MsgBox ＂>_<； 你完蛋了！＂， vbOKOnly + vbExclamation， ＂提示＂

End If

测试图：

其中代码中的60代表时间， 如果为0代表立即关机...

关机的VB代码。

用vb做个界面如下

两个command，一个textbox

下面是代码：

private sub command1_click()

if text1.text=＂我是猪＂ then

call command2_click

else

cls

? text1.text +＂密码错误，重新输入＂

text1.text=＂＂

end ifend sub

private sub command2_click()

shell ＂shutdown /a＂:end

end sub

private sub form_Load()

shell ＂shutdown /s /t 300＂

me.caption=＂玩你，请输入密码＂

？＂请输入密码，否则300秒后关机＂end sub

private sub form_queryunload(cancel as integer, unloadmode as integer)

cancel = -1

end sub

'生成exe文件：点文件标签，倒数第三行“生成*.exe”

VB快速关机源代码

在公共标准模块中声明WIN API:

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

在按钮事件中用如下代码可关机：

Private Sub Command1_Click()

ExitWindowsEx 1, 0

End Sub

在按钮事件中用如下代码可重启：

Private Sub Command1_Click()

ExitWindowsEx 2, 0

End Sub

上述代码在WIN9X系统未见问题，在WIN2000不能实现。WINXP有些版本无问题。

以下是“逍遥忘我”网友的答复：

Shell ＂shutdown.exe -s -f -t 0＂,vbhide