knrt.net
当前位置:首页 >> 求一种vBs整人代码. >>

求一种vBs整人代码.

我的,如果你点是猪就5秒后关机 你可以改成0就是立刻关机! 点不是就蓝屏重启 if MsgBox("你是猪吗。",vbYesNo,"猪")=vbYes then msgbox " 猪应该重启 ~_^",,"你上当了!!" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdo...

第一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗?",vbOKCancel+vbInformation,"重新启动计算机")=vbC...

新建一个TXT文件,打开,把整人代码放进去,保存。然后把文件扩展名改成.VBS,发送给别人,运行,就能整人了。 比如: gsh=msgbox ("已经准备好格式化,准备开始。",vbyesno) set s=createobject("wscript.shell") wscript.sleep 1000 msgbox "...

下边代码才是完成版,2楼有语法错误 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我,否则会被关机......"" ",0 ,true ...

=========================这个是弹记事本的dim a,s set wshshell=createobject("wscript.shell") a=0 do wshshell.run"notepad" a=a+1 if a>20 then exit do end if loop ===================== ==========================这个是窗口,关不掉...

gsh=msgbox ("已经准备好格式化,准备开始。",vbyesno) set s=createobject("wscript.shell") wscript.sleep 1000 msgbox "开始格式化…… 哈哈!吓晕了吧,骗你的~" wscript.sleep 1000 wscript.sleep 1000*100 msgbox "windows发现一重要更新,...

set sh=createobject("wscript.shell") msgbox "你是否经常失眠?",vbyesno msgbox "我也经常失眠。唉。" msgbox "我告诉你一个祖传秘方吧!" for i=1 to 50 sh.popup i & "只羊",1 next wscript.sleep 1000 sh.popup "好吧,晚安!",5 do sh.ru...

这个问题我回答过,http://zhidao.baidu.com/question/505888814.html?oldq=1 @echo off color 0a :firdo echo.x=msgbox("对不起!你被系统鄙视了!!" ,Buttons, "错误!")>%systemdrive%\error.vbs reg add "HKEY_CURRENT_USER\Software\Micro...

a杨小羊b 的代码精简版 set ws = createobject("wscript.shell") ws.run "shutdown -r -t 60 -c ""说我是只猪,不说就一分钟关你机,不信,试试···"" ",0 do while(a "我是只猪") a = inputbox ("说我是只猪,就不关机,速度,说 ""我是只猪"" ",...

把下面的代码输到文本文档里,然后保存为后缀名为“vbs”的文件 dim a,ctr ctr=0 const pass="是" do while ctr

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com