a=msgbox("经系统监测，目前还未到今日晚班设定的查询时间。"&chr(10)&""&chr(10)&"是：表示查询昨天的记录"&chr(10)&"否：表示以当前时间段结束的记录"&chr(10)&"取消：退出"&chr(10)&"","67","时间提示")
select case a
case 7
msgbox"将以目前时间段"&chr(10)&"为结束点继续打开！","64","时间提示"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\paoliao\11\20-22\js.bat"""
case 2
msgbox "你取消了继续查询！","64","时间提示"
case else
msgbox "注意："&chr(10)&"将查询昨天的记录！","64","时间提示"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\paoliao\11\20-22\11线20～22zt.vbs"""
end select







    复制代码