经跟踪,得到切换代码,转成VBS如下:
[code]
Set WshShell=WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.")
Set Shell=CreateObject("Shell.Application")
command=" -k -X GET ""
https://192.168.110.237:10443/ajax/globals/set_config?type=7&data=%3CSource%20zone%3D%221%22%20index%3D%225%22%3E%3C%2FSource%3E&_=1739085380367"""
Set tmp1 = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each objOperatingSystem In tmp1
windir=objOperatingSystem.WindowsDirectory
Next
mycmd=""
if objFSO.FileExists(windir & "\SysWOW64\curl.exe") then mycmd=windir & "\SysWOW64\curl.exe"
if mycmd="" then if objFSO.FileExists(windir & "\System32\curl.exe") then mycmd=windir & "\System32\curl.exe"
if mycmd="" then
msgbox "没有找到curl.exe程序,请检查。"
Wscript.Quit
end if
WshShell.Run mycmd & command, 0, False
[/code]
以上是我的1700功放上切换到第二个接口输入的代码,切换回去类似,把关键的一句改为以下即可:
command=" -k -X GET ""
https://192.168.110.237:10443/ajax/globals/set_config?type=7&data=%3CSource%20zone%3D%221%22%20index%3D%221%22%3E%3C%2FSource%3E&_=1739085330498"""