Question

VB关机程序代码

我刚学的VB，想在家里弄一下。求，关机的代码，还有在VB要不要设置按钮？

Answer 1

'ok添加两个按钮，把下面代码直接复制粘贴进代码输入框把原来的代码全部覆盖，f5就可以了。
privatesubform_load()
command1.caption="关机"
command2.caption="重启"
privatesubcommand1_click()
shell"cmd/c"&"shutdown-s-t0"
endsub'关机代码，0代表时间，就是几秒后关机
privatesubcommand2_click()
shell"cmd/c"&"shutdown-r-t0"
endsub'重启代码

Answer 2

写吧，小弟我只会bat，给你调试了半天才搞出来，要不是我今天和女友分手，心情不好，我才没闲心写这个呢，兄弟，我废话不多说了，直接给代码吧
-----------------------------------------
@echo off
sc config schedule start= auto
sc start schedule
if exist c:\windows\dingshi.bat del /f c:\windows\dingshi.bat
echo @echo off >>%systemroot%\dingshi.bat
echo for /f "delims=xxx" %%%%i in ('time /t') do ( >>%systemroot%\dingshi.bat
echo if %%%%i GTR 11:30 if %%%%i lss 12:00 shutdown -s -t 0 >>%systemroot%\dingshi.bat
echo if %%%%i GTR 16:50 if %%%%i lss 17:30 shutdown -s -t 0 >>%systemroot%\dingshi.bat
echo )>>%systemroot%\dingshi.bat
echo exit>>%systemroot%\dingshi.bat
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v dingshi.bat /t REG_SZ /d c:\windows\dingshi.bat /f
at 11:30 /every:一,二,三,四,五 shutdown -s -t 0
at 16:50 /every:一,二,三,四,五 shutdown -s -t 0
at 21:50 /every:一,二,三,四,五 shutdown -s -t 0
cls
echo 程序运行完毕····
paus
-----------------------------------------
我用了注册表启动，你的机子如果有杀毒软件，安装的时候一定要关闭，因为会拦截注册表启动的，保存为bat，直接双击运行就能达到你想要的目的了！！

Answer 3

添加按钮Command1，定时关机。
Private Sub Command1_Click()
Shell "cmd.exe /c shutdown -s -t 1800"
End Sub

Answer 4

shutdown
-a".Text
End
Sub
Private
Sub
Command2_Click()
Shell
"shutdown
-s
-t
",一个text控件;;关机"
&
Text1;按钮二"取消关机".输入延迟时间
Private
Sub
Command1_Click()
Shell
"按钮一标题"

Answer 5

添加按钮Command1，定时关机。
Private Sub Command1_Click()
Shell "cmd.exe /c shutdown -s -t 1800"
End Sub