自动建立宽带连接 AU3源码

自动建立宽带连接 AU3源码  

2010-03-14 16:14:16|  分类： 默认分类 |字号 订阅

#Region --- CodeWizard generated code Start ---

;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=None

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer

$iMsgBoxAnswer = MsgBox(4,"温馨提示"," 这是一款自动创建宽带拨号连接的实用小工具,推荐用宽带上网的朋友安装。 ")

Select

Case $iMsgBoxAnswer = 6 ;Yes

run("RUNDLL32 netshell.dll,StartNCW")

TrayTip(""," 正在自动建立宽带连接 鼠键已禁用 ",5)

BlockInput(1)

winwaitactive("新建连接向导","新建连接向导")

winactivate("新建连接向导","新建连接向导")

send("!N")

winwaitactive("新建连接向导","连接到 Internet(&C)")

winactivate("新建连接向导","连接到 Internet(&C)")

send("!N")

winwaitactive("新建连接向导","从 Internet 服务提供商(ISP)列表选择(&L)")

winactivate("新建连接向导","从 Internet 服务提供商(ISP)列表选择(&L)")

send("!M")

send("!N")

winwaitactive("新建连接向导","新建连接向导")

winactivate("新建连接向导","新建连接向导")

send("!U")

send("!N")

winwaitactive("新建连接向导","在下面框中输入您的 ISP 的名称")

winactivate("新建连接向导","在下面框中输入您的 ISP 的名称")

send(Eval("adsl"))

send("!N")

send("!N")

winwaitactive("新建连接向导","正在完成新建连接向导")

winactivate("新建连接向导","正在完成新建连接向导")

send("!S")

send("{ENTER}")

Exit

BlockInput(0)

Case $iMsgBoxAnswer = 7 ;No

EndSelect

#EndRegion --- CodeWizard generated code End ---