宽带连接生成器（XP用）

好久以前的东西了，创建过程界面可视，并不是静默版

1. 
   
2. #include <ButtonConstants.au3>
   
3. #include <EditConstants.au3>
   
4. #include <GUIConstantsEx.au3>
   
5. #include <StaticConstants.au3>
   
6. #include <WindowsConstants.au3>
   
7. Opt("WinWaitDelay", 100)
   
8. Opt("WinTitleMatchMode", 4)
   
9. Opt("WinDetectHiddenText", 1)
   
10. Opt("MouseCoordMode", 0)
    
11. Opt("WinSearchChildren", 1)
    
12. Opt("WinTextMatchMode", 2)
    
13. #Region ### START Koda GUI section ###
    
14. $Form1 = GUICreate("宽带连接生成器", 242, 132, 192, 124)
    
15. $Label1 = GUICtrlCreateLabel("用户名：", 24, 36, 52, 17)
    
16. $Label2 = GUICtrlCreateLabel("密  码：", 24, 63, 54, 17)
    
17. $Input1 = GUICtrlCreateInput("", 70, 31, 145, 21)
    
18. $Input2 = GUICtrlCreateInput("", 70, 58, 145, 21)
    
19. $Group1 = GUICtrlCreateGroup("宽带连接", 8, 8, 225, 113)
    
20. GUICtrlSetColor(-1, 0x0000FF)
    
21. GUICtrlCreateGroup("", -99, -99, 1, 1)
    
22. $Button1 = GUICtrlCreateButton("创  建", 24, 88, 75, 25)
    
23. $Button2 = GUICtrlCreateButton("取  消", 136, 88, 75, 25)
    
24. GUISetState(@SW_SHOW)
    
25. #EndRegion ### END Koda GUI section ###
    
26. While 1
    
27. $nMsg = GUIGetMsg()
    
28. Switch $nMsg
    
29.   Case $GUI_EVENT_CLOSE
    
30.    Exit
    
31.         Case $Button1
    
32. $rasphone = @AppDataCommonDir & "\Microsoft\Network\Connections\Pbk\rasphone.pbk"
    
33. If StringInStr(FileRead($rasphone), "[ADSL]") Then
    
34.         MsgBox(64, "提示", "宽带连接已存在,无需再建立!  ", 10)
    
35.         Exit
    
36. EndIf   
    
37. $rasphone = @AppDataCommonDir & "\Microsoft\Network\Connections\Pbk\rasphone.pbk"
    
38. If StringInStr(FileRead($rasphone), "[宽带连接]") Then
    
39.         MsgBox(64, "提示", "宽带连接已存在,无需再建立!  ", 10)
    
40.         Exit
    
41. EndIf   
    
42. Dim  $adslname = ( GUICtrlRead($Input1) & @CRLF)
    
43. Dim  $adslmm =  ( GUICtrlRead($Input2) & @CRLF)   
    
44. Run("rundll32.exe netshell.dll,StartNCW")
    
45. TrayTip("提示"," 正在自动建立宽带连接 创建期间请别动鼠键以免出错 ",5)
    
46. Sleep(1000)
    
47. ;BlockInput(1)
    
48. WinWait("新建连接向导", "欢迎使用新建连接向导")
    
49. WinActivate("新建连接向导", "欢迎使用新建连接向导")
    
50. ControlClick("[LAST]", "", 12324)
    
51. WinWait("新建连接向导", "连接到我的工作场所")
    
52. ControlClick("[LAST]", "", 12324)
    
53. WinWait("新建连接向导", "手动设置我的连接")
    
54. ControlClick("[LAST]", "", 22129)
    
55. ControlClick("[LAST]", "", 12324)
    
56. WinWait("新建连接向导", "用拨号调制解调器连接")
    
57. ControlClick("[LAST]", "", 22121)
    
58. ControlClick("[LAST]", "", 12324)
    
59. WinWait("新建连接向导", "ISP 名称")
    
60. ControlClick("[LAST]", "", 12324)
    
61. WinWait("新建连接向导", "用户名(&U):")
    
62. If $adslname <> "" And $adslmm <> "" Then
    
63. WinActivate("新建连接向导", "用户名(&U):")
    
64. ControlCommand("新建连接向导", "用户名(&U):", "Edit1", "EditPaste", $adslname)
    
65. WinActivate("新建连接向导", "用户名(&U):")
    
66. ControlCommand("新建连接向导", "用户名(&U):", "Edit2", "EditPaste", $adslmm)
    
67. WinActivate("新建连接向导", "用户名(&U):")
    
68. ControlCommand("新建连接向导", "用户名(&U):", "Edit3", "EditPaste", $adslmm)
    
69. EndIf
    
70. ControlClick("[LAST]", "", 12324)
    
71. WinWait("新建连接向导", "正在完成新建连接向导")
    
72. ControlClick("[LAST]", "", 21005)
    
73. ControlClick("[LAST]", "", 12325)
    
74. Exit
    
75.   Case $Button2
    
76.   Exit
    
77. EndSwitch
    
78. WEnd
    

复制代码

支持支持

支持分享，，

路过看看   

好东西大家分享

谢谢谢谢下

好东西大家用

支持一下收藏了

支持阿木的原创推荐了

支持 一切原创的源码 。