191问答库 > vbs文件怎么修改msgbox右上角的X的事件，使点击之后不执行关闭窗口，而执行自定义代码？

vbs文件怎么修改msgbox右上角的X的事件，使点击之后不执行关闭窗口，而执行自定义代码？

2024-11-13 11:15:09

推荐回答（1个）

回答1：

自己自定义弄一个
复制粘贴到记事本，另存为xx.vbs，编码选ANSI

'修改msgbox对话框/弹框右上角的关闭按钮的触发事件
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set env=ws.Environment("Process")
message="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
ws.Exec(env.Item("Windir") & "\System32\mshta.exe ""about:" &_
    "" &_
    "提示" &_
    "" &_
    "标题" &_
    "X" &_
    "" & message & """").StdOut.ReadAll