result = msgbox("是否显示程序文件","33","后台管理")
if result = vbok then
msgbox "显示程序文件，并打开后台！","64","显示进入"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\gao\ht.hta"""
ws.run"""D:\Production record\jb\xs.bat"""
Elseif result = vbcancel then
msgbox "隐藏程序文件，并打开后台！","64","隐藏进入"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\gao\ht.hta"""
ws.run"""D:\Production record\jb\yc.bat"""
end if








    复制代码