【简化】mihomo-stop.vbs 双击运行停止 mihomo

[aubur20240314]

Dim WShell
Set WShell = CreateObject("WScript.Shell")
WShell.Run "powershell -Command ""Get-Process -Name mihomo | Stop-Process""", 0
Set WShell = Nothing

[ewigl]

这个脚本在你的电脑上可以正常运行吗？

在我的电脑上，tun模式默认是管理员权限运行的，这个脚本没有管理员权限会被拒绝访问无法停止mihomo。

另外就是可执行程序名我用的是默认的mihomo-windows-amd64，不是mihomo。

[aubur20240314]

@ewigl 我暂时没用 tun 模式，可以试试这个

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "powershell.exe", "-Command ""Get-Process -Name mihomo-windows-amd64 | Stop-Process""", "", "runas", 1
Set objShell = Nothing

[ewigl]

@ewigl 我暂时没用 tun 模式，可以试试这个

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "powershell.exe", "-Command ""Get-Process -Name mihomo-windows-amd64 | Stop-Process""", "", "runas", 1
Set objShell = Nothing

这个可以，感谢建议，你可以提交PR。