定时测试连接wifi

最近换了路由器发现网速巨慢,请教了僵尸老哥半天,发现原来是连的wifi不是5g,这种情况发生的还蛮多的,所以决定写个脚本来防止这种情况的发生,定期检测自己电脑的wifi名称是否带有5g否则警告

如果连接的不是5g网络就报错提示

test5gtime:=1000*60*60
; test5gtime:=1000
#Persistent
SetTimer,test5g,%test5gtime%
test5g:
rule_wifi_silence()
if !(RegExMatch(cmdResult, "6G"))
    MsgBox,4096,wifi警告,连的不是5gwifi`,自己检查
Return

    rule_wifi_silence(){
        global cmdResult
		cmdResult:=cmdClipReturn("netsh wlan show interface | findstr ""`\<SSID""")
		return cmdResult
	}
    cmdClipReturn(command){
	cmdInfo:=""
	try{
		Clip_Saved:=ClipboardAll
		Clipboard=
		Run,% ComSpec " /C " command " | CLIP", , Hide
		ClipWait,2
		cmdInfo:=Clipboard
		Clipboard:=Clip_Saved
	}catch{}
	return cmdInfo
}

源码放在这里给大家参考