标题: [问题求助] VBS脚本中怎样修改Msgbox按钮上的文字标签? [打印本页]
作者: cdg2009 时间: 2012-7-25 20:16 标题: VBS脚本中怎样修改Msgbox按钮上的文字标签?
在Msgbox中怎样把按钮上的文字标签啊,我想把“是”改成“打开”,“否”改成“关闭”该怎么做啊,很着急啊,请高手指点一下啊。
作者: 乱码 时间: 2012-7-25 20:25
貌似没办法解决,坐等高人指点、
作者: broly 时间: 2012-7-25 22:12
内容用hta或者vbs运行mshta
作者: pcl_test 时间: 2016-7-13 17:37
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set ws = CreateObject("WScript.Shell")
-
- text = "<font color='#D200D2'><strong>这是一个调用hta自定义对话框的简单例子</strong></font>" _
- &vbCrLf&"下面将演示捕获按钮点击动作"&vbCrLf& "请点击下面其中一个按钮"
-
- c = DIYmsgbox(replace(text, VbCrLf, "<br/>"))
- If c = "" Then
- msgbox "你没有点击按钮!"
- Else
- msgbox "你点击了 """& c &""""
- End If
-
- '自定义对话框
- Function DIYmsgbox(text)
- Set htafile = fso.OpenTextFile("$temp.hta", 2, true)
- htafile.Write "<title>提示</title><script>window.resizeTo(450,220);" & _
- "var fso=new ActiveXObject('Scripting.FileSystemObject');var StdOut = fso.GetStandardStream(1);" & _
- "function fun(c){StdOut.Write(c);close();}</script>" & _
- "<div id='text' style='text-align:center;'>"& text &"</div><br/>" & _
- "<div style='position:fixed; bottom:0;text-align:center;'>" & _
- "<input type='button' style='color:#FF0000;' value='vbs' onclick='fun(this.value)'> " & _
- "<input type='button' style='color:#00BB00;' value='hta' onclick='fun(this.value)'></div>"
- htafile.Close
- Set exc = ws.Exec("mshta.exe "& fso.GetFile(WSH.ScriptFullName).ParentFolder.Path &"\$temp.hta")
- DIYmsgbox = exc.StdOut.ReadLine()
- fso.DeleteFile "$temp.hta"
- End Function
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |