if msgbox("是否显示程序文件","68","后台管理")=vbyes then

msgbox"显示程序文件，并打开后台！","64","显示进入"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\gao\ht.hta"""
ws.run"""D:\Production record\jb\xs.bat"""
else
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








    复制代码