求VB一些源码?0

来源：百度知道 编辑：UC知道 时间：2024/06/09 07:07:44
就是想 按一个按钮就弹出一个填写框~连续两次填错就启动系统注销(重启,关机都行).60秒的
怎么搞.? 以前会`久没弄, 都忘记了.
我昨天搞到了```就是系统自带的`好象30秒``

dim r,i
do
r = inputbox("回答问题","输入框")
if r = "正确内容" then end
i=i+1
loop until i=2
Shell "shutdown -l" '注销用户
'Shell "shutdown -S -t 0" '关闭系统
'Shell "shutdown -R -t 0" '重启

60秒的怎么搞，什么意思

关机和重新启动Windows
在"开始-运行"对话框或DOS窗口中输入 rundll.exe user.exe,exitwindowsexec命令，Windows 就会重新启动；输入 rundll.exe user.exe,exitwindows，机器关闭。
所以您在Visual Basic 中使用下面两个命令来实现重起和关机：
Shell "rundll.exe user.exe,exitwindowsexec", vbHide '重新启动
Shell "rundll.exe user.exe,exitwindows", vbHide '关闭

http://www.mynetba.cn/Article/developer/vb/vbjq/200806/27-1086.html