feat: 新增获取状态写入库，供广交集团的接口使用

wzp

2025-05-06 18c7a44d2e9db3f4a5322389c3ee94468cce4de1

1
2
3
4
5
6
7
8
9
10
StartURL = "https://sys.966120.com.cn/goocar/GPSmilestat.asp"  
set IE = CreateObject("InternetExplorer.Application")  
IE.Visible = True 
IE.Navigate StartURL 
Set IE = Nothing 
 
 
Set ws = CreateObject("Wscript.Shell") 
ws.run "taskkill /f /im iexplore.exe",vbhide 
Set ws = nothing