转 自动建立宽带连接

自动建立宽带连接

1. 
   
2. #Region --- CodeWizard generated code Start ---
   
3. ;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=None
   
4. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
   
5. $iMsgBoxAnswer = MsgBox(4,"温馨提示"," 这是一款自动创建宽带拨号连接的实用小工具,推荐用宽带上网的朋友安装。 ")
   
6. Select
   
7. Case $iMsgBoxAnswer = 6 ;Yes
   
8. run("RUNDLL32 netshell.dll,StartNCW")
   
9. TrayTip(""," 正在自动建立宽带连接 鼠键已禁用 ",5)
   
10. BlockInput(1)
    
11. winwaitactive("新建连接向导","新建连接向导")
    
12. winactivate("新建连接向导","新建连接向导")
    
13. send("!N")
    
14. winwaitactive("新建连接向导","连接到 Internet(&C)")
    
15. winactivate("新建连接向导","连接到 Internet(&C)")
    
16. send("!N")
    
17. winwaitactive("新建连接向导","从 Internet 服务提供商(ISP)列表选择(&L)")
    
18. winactivate("新建连接向导","从 Internet 服务提供商(ISP)列表选择(&L)")
    
19. send("!M")
    
20. send("!N")
    
21. winwaitactive("新建连接向导","新建连接向导")
    
22. winactivate("新建连接向导","新建连接向导")
    
23. send("!U")
    
24. send("!N")
    
25. winwaitactive("新建连接向导","在下面框中输入您的 ISP 的名称")
    
26. winactivate("新建连接向导","在下面框中输入您的 ISP 的名称")
    
27. send(Eval("adsl"))
    
28. send("!N")
    
29. send("!N")
    
30. winwaitactive("新建连接向导","正在完成新建连接向导")
    
31. winactivate("新建连接向导","正在完成新建连接向导")
    
32. send("!S")
    
33. send("{ENTER}")
    
34. Exit
    
35. BlockInput(0)
    
36. 
    
37. Case $iMsgBoxAnswer = 7 ;No
    
38. 
    
39. EndSelect
    

复制代码

谢谢楼主了。

谢谢楼主分享。