lzth.net
当前位置:首页 >> 如何让vBs弹出提示 >>

如何让vBs弹出提示

两种方法: 1 : msgbox a=msgbox("67890",4096+64,"12345") 2: popup(比msgbox多了自动关闭功能) createobject("wscript.shell").popup"67890",3,"12345",4096+64 '3秒后自动关闭 ps: 其中4096+64为参数 可选如下:vbOKOnly 0 只显示“确定”按钮...

很简单,将你定义的对话框赋值给一个变量来追踪,这个变量的值即为你点击不同按键带来的不同数值。 e.g. value = msgbox("are u sure....",vbOkCancel,"title") value=1,你点了ok;value=2,你点的是取消。

在slmgr.vbs前面加上cscript ,即: cscript //nologo slmgr.vbs /ipk XXXXXX这样就不会弹出确认窗口了,而是在cmd窗口中直接显示结果。

set ws=createobject("wscript.shell") ws.run "mshta vbscript:msgbox(now)(window.close)" ws.run "mshta vbscript:msgbox(now)(window.close)"

msgbox "Hello!The computer will ring!" ,"48","inf" 把这段保存为.vbs运行就可以了。 --------------------------分析------------------------------------------- msgbox "内容","类别","标题" 第一个msbox为显示信息的代码 第二个为信息框...

dim wshset wsh = createobject("wscript.shell")if msgbox( "打开计算器?",1,"询问")=1 then wsh.run "calc.exe"end if

如果楼主是要让弹窗或其他的东西关不掉的话 可以在代码前加 do注意单独一行,然后在末尾加loop,注意单独一行, 如: do msgbox“哈哈” loop 这样就关不掉了 如果用任务管理器似乎还是可以关掉的

一般来说vbs是达不到这样效果的,不过可以用这种比较复杂的方法: set fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")set f=fso.createtextfile("d:\1.vbs",2)f.writeline("msgbox ""对话框内容"",64,""...

m = MsgBox("继续吗?", vbOKCancel) If m = vbCancel Then MsgBox "你取消了", vbCritical

set wsc=CreateObject("wscript.shell")for i = 1 to 10wsc.run "mshta vbscript:CreateObject(""wscript.shell"").popup(""你好"",1,""提示"",64)(window.close)"nextset wsc=nothing

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