求VB高手帮小弟解决个问题!!!!

来源:百度知道 编辑:UC知道 时间:2024/06/28 09:23:39
我一朋友给我发个小软件,是限定时间自动关机的小程序! 羡煞我也!
代码我知道了.
但是句子还是理解不透.学习还要好久,迫不及待 想求助大家帮我把以下代码仔细解释清楚! 越详细越好 谢谢大家!!

On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是个大大大傻瓜,不说我是个大大大傻瓜就一分钟关你机,不信,试试···"" ", 0, True
Dim a
Dim i
Dim j
i = 0
Do While (a <> "我是个大大大傻瓜")
a = InputBox("说我是个大大大傻瓜,就不关机,快撒,说 ""我是个大大大傻瓜""", "说不说", "不说", 8000, 7000)
If a = "死了都不说" Then
i = i + 1
j = 1
Else
j = 0
End If
If i < 3 And i <> 0 And j = 1 Then
MsgBox Chr(13) + Chr(13) + Chr(13) + " 还有" & 3 - i & "次,加油啊~ "
Else
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
End If
If i = 3 Then
Exit Do
End If
Loop
If

嗯...我解释下试试- -``

On Error Resume Next
这句意思是后面的代码即使发生错误也仍然按顺序执行下一行..
----------------------------------------------------

Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
Shell对象.....脚本语言的对象...没什么好说的- -``

-------------------------------------------------------

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是个大大大傻瓜,不说我是个大大大傻瓜就一分钟关你机,不信,试试···"" ", 0, True

WSHshellA是上面那个对象...run意思是执行外部程序....引号里的就是要执行的命令行...
cmd.exe是传说中的windows"命令提示符".../C参数作用是"执行字符串指定的命令然后终断"..就是执行完后面的命令后自动关掉命令提示符窗口....
shutdown.exe..似最早出现在windowsXP系统中...可以在windows\system32目录中找到它...命令提示符中敲入shutdown /?可以看这个程序的运行参数....-r是重启,-t是定时,-c是关机注释...

-------------------------------------------------------

Dim a
Dim i
Dim j
i = 0
一票变量- -``

-------------------------------------------------------