CODE: [Copy to clipboard]
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(49)
Set objFolderItem = objFolder.Self
objShell.Open objFolderItem.Path
With CreateObject("Wscript.Shell")
Do
WScript.Sleep 100
Loop Until .AppActivate("网络连接")
WScript.Sleep 500
.SendKeys "{DOWN}{UP}"
WScript.Sleep 500
.SendKeys "+{F10}r"
Do
WScript.Sleep 100
Loop Until .AppActivate("本地连接 属性")
WScript.Sleep 500
.SendKeys "+{TAB}+{TAB}{RIGHT}{TAB 2}{DOWN 3}{UP}%R"
Do
WScript.Sleep 100
Loop Until .AppActivate("受保护的 EAP 属性")
WScript.Sleep 500
.SendKeys "%E%V"
End With
'后面只需要发送一个回车,一个tab,一个回车和ALT+F4就行了。
'回车需发送 {ENTER} 或 ~