vbs文件怎么修改msgbox右上角的X的事件，使点击之后不执行关闭窗口，而执行自定义代码？
1个回答
展开全部
自己自定义弄一个
复制粘贴到记事本，另存为xx.vbs，编码选ANSI
复制粘贴到记事本，另存为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:<HTA:Application Border='none' Scroll='no' />" &_
"<head><meta http-equiv='content-type' content='text/html;charset=gb2312'>" &_
"<title>提示</title><script>window.resizeTo(300, 150);" &_
"function test(){var f=confirm('关闭该窗口？');if(f){window.close();}}" &_
"</script></head><body style='margin:0px;'><div>" &_
"<table style='width:100%;margin:0 auto;padding:0px;border-spacing:0px;border-style:none;border-collapse:collapse;'>" &_
"<tr><td style='background:#AAAAFF;width:90%;'>标题</td>" &_
"<td style='background:red;text-align:center;' onclick='test()'><font color='white'>X<font>" &_
"</td></tr></table><div><div >" & message & "<div></body>""").StdOut.ReadAll
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
