;贴下源码 需要稍微改下 否则无法运行哦!
Dim $flag,$rj,$zs
$rj=IniRead("配置.ini","锐捷配置","锐捷目录","C:\Program Files\锐捷网络\Ruijie Supplicant\RuijieSupplicant.exe")
$zs=IniRead("配置.ini","锐捷配置","助手目录","锐捷共享助手v1.1.exe")
If ProcessExists("锐捷共享助手v1.1.exe") Then
$flag=MsgBox(3,"管洪洋专用其他人使用是笨蛋","我已经检测到了你的共享助手正在运行,应该没什么问题,但是我给你几个选项,点击是则本程序直接关闭,点击否的话则关闭助手重新进行无线拨号,点击取消的话无线功能会重新开启")
Select ;异常处理
Case $flag=6
Exit
Case $flag=7
ProcessClose("锐捷共享助手v1.1.exe")
Run($zs)
WinActivate("锐捷共享 助手 心跳器完美版V1.1")
ControlClick("锐捷共享 助手 心跳器完美版V1.1","","心跳")
Run($rj)
ControlClick("吉林交通职业技术学院 V4.96.20130329","","认证")
Sleep(3000)
RunWait(
@COMSPEC & " /c netsh wlan start hostednetwork")
Case $flag=2
RunWait(@COMSPEC & " /c netsh wlan start hostednetwork")
EndSelect
Else
If ProcessExists("锐捷共享助手v1.1.exe") Then
ProcessClose("8021.exe")
Else
Run($zs)
WinActivate("锐捷共享 助手 心跳器完美版V1.1")
ControlClick("锐捷共享 助手 心跳器完美版V1.1","","心跳")
Run($rj)
ControlClick("吉林交通职业技术学院 V4.96.20130329","","认证")
Sleep(3000)
RunWait(@COMSPEC & " /c netsh wlan start hostednetwork")