Board logo

标题: [问题求助] 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

  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. Set ws = CreateObject("WScript.Shell")
  3. text = "<font color='#D200D2'><strong>这是一个调用hta自定义对话框的简单例子</strong></font>" _
  4.     &vbCrLf&"下面将演示捕获按钮点击动作"&vbCrLf& "请点击下面其中一个按钮"
  5. c = DIYmsgbox(replace(text, VbCrLf, "<br/>"))
  6. If c = "" Then
  7.     msgbox "你没有点击按钮!"
  8. Else
  9.     msgbox "你点击了 """& c &""""
  10. End If
  11. '自定义对话框
  12. Function DIYmsgbox(text)
  13.     Set htafile = fso.OpenTextFile("$temp.hta", 2, true)
  14.     htafile.Write "<title>提示</title><script>window.resizeTo(450,220);" & _
  15.         "var fso=new ActiveXObject('Scripting.FileSystemObject');var StdOut = fso.GetStandardStream(1);" & _
  16.         "function fun(c){StdOut.Write(c);close();}</script>" & _
  17.         "<div id='text' style='text-align:center;'>"& text &"</div><br/>" & _
  18.         "<div style='position:fixed; bottom:0;text-align:center;'>" & _
  19.         "<input type='button' style='color:#FF0000;' value='vbs' onclick='fun(this.value)'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
  20.         "<input type='button' style='color:#00BB00;' value='hta' onclick='fun(this.value)'></div>"
  21.     htafile.Close
  22.     Set exc = ws.Exec("mshta.exe "& fso.GetFile(WSH.ScriptFullName).ParentFolder.Path &"\$temp.hta")
  23.     DIYmsgbox = exc.StdOut.ReadLine()
  24.     fso.DeleteFile "$temp.hta"
  25. End Function
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2