在Windows10下用天龙1700H，资源爆多。因平时放音乐用功放自带解码（HDMI1口），KTV功能时必须切换到模拟输入2号口，用完又得要切换回去。因为电脑风扇噪音，平时和功放都在另一间屋里，使用了红外延长线控制，但总感觉都用电脑了，还得拿出遥控器按很不现代化，希望能使用自动化脚本来切换功放输入端。
电脑这边比较方便，声卡切换可以用pnputil命令行实现，但输入端切换不知道怎么实现脚本自动化操作。按道理说既然可以用手机上的安卓端操作功放的一些功能，也就应该可以通过脚本来实现吧，我对网络抓包不太熟，无法通过网络抓包监控这些操作，不知道有没有人能指点怎么自动化操作？总不至于这个功能要弄个WIFI单片机写程序控制步进电机去旋转切换旋钮吧？

初步测试了一下，可以用网页打开功放的WEB页面，比如在我家是：https://192.168.110.110:10443。然后按下8个TAB键，就会转到下方的“MAIN ZONE”，再用方向“下”键切换到“Media Player”。KTV完毕时，重新打开这个页面，8个TAB后，用“上”键恢复到“CBL/SAT”即可。
现在只需要写个脚本隐藏这个网页界面操作即可，只是这么操作仍然比较麻烦。以后还是要找个时候把这个操作的网络包抓出来看看，直接写到脚本里向功放发送才简单。

高手，看看我发的帖子，帮忙看看怎么回事

经跟踪，得到切换代码，转成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"""