yhkn.net
当前位置:首页 >> 高级vBs整人代码 >>

高级vBs整人代码

首先创建 文本文档,将以下代码复制.on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是只猪,不说就一分钟关你机,不信,试试""

1.do msgbox"系统错误" loop2.整人,比人家说他自己是猪,不然关机 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就

代码: 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

第一个 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,"重新

dim a a=msgbox("",0)while a=1msgbox "",0wend"" 中间是添加文字的.比如dim a a=msgbox("循环窗体",0)while a=1msgbox "循环窗体",0wend复制到记事本里,保存.把后缀名改为 ".vbs" 这个就是点开关不掉.想关掉在任务管理器里的进程栏里 找到wscript.exe这个进程结束掉就行了

on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说 我是大笨笨!哈哈,不

dim a,b,c const pass="123456" a=inputbox("输入密码:123456,这是考验") if a=pass then b=msgbox ("不错,很乖嘛,那么你能接受后面的考验吗?注:不接受也得接受",vbyesno,"面对现实吧!") msgbox "倒数50秒,哈

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

###################vbs整人代码1################### <br><br>msgbox "要求:"&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬 大有血雨腥

“不说我是猪就关机”dim a,ctrctr=0const pass="是"do while ctr<1000a=inputbox("你是猪吗?") if a=pass then msgbox "good"exit do else ctr=ctr+1 '如果密码出错就增加一次错误认证计数msgbox "错,你是猪!" end if loop “烦人

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