UC知道VB高手帮帮忙 急急急
来源：百度知道 编辑：UC知道 时间：2024/09/22 19:44:33
帮我解释一下每句话的意思 谢了
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
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快点，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "呵呵，哈猪！"
顺便补充一个 将它放在启动项里的命令给我 谢谢~~
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
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快点，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "呵呵，哈猪！"
顺便补充一个 将它放在启动项里的命令给我 谢谢~~
首先, 说一下 Run 的那一大串:
cmd 即命令提示符模式(早前叫MS-DOS方式). 参数 /c 表示"执行完后退出", 其余 shutdown 往后的表示要在命令提示符下运行的程序和对应参数.
shutdown 同样是自带程序. 参数 -r 表示"重启", 参数 -t 60 表示"60秒后执行", 参数 -c xxxx 表示"注释此行为为xxxx", 参数 -a 表示"取消关机操作".
'出错则跳过错误
On Error Resume Next
'创建脚本执行对象
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
'运行脚本"60秒后重启"
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪 不说我是猪就一分钟关你机，不信，试试···"" ", 0, True
'不断跳出输入框询问, 并用消息框显示输入内容. 只有输入内容是"我是猪"的时候才跳出循环.
Dim a
Do While (a <> "我是猪")
a = InputBox("说我是猪,就不关机，快点，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛"