请教：利用脚本添加无线配置问题

haha_xion

在中文的上面估计有点问题
the Wireless Network Connection
WinWait ( 'Network Connections')
if NOT WinActive ( 'Network Connections') then
    WinActivate ( 'Network Connections')
endif
WinWaitActive ( 'Network Connections')
Send('wireless')
send ('{Appskey}')
send ( 'r' )

这段如果换成中文名称后，就无法找到无线网络连接。因为在英文版下是可以通过键盘来定位到wireless连接上，由于中文版默认安装好后都为“无线网络连接”，请问除了改为英文名称还有什么办法可以通过键盘定位到无线网络连接上！

haha_xion

在中文的上面估计有点问题
the Wireless Network Connection
WinWait ( 'Network Connections')
if NOT WinActive ( 'Network Connections') then
    WinActivate ( 'Network Connections')
endif
WinWaitActive ( 'Network Connections')
Send('wireless')
send ('{Appskey}')
send ( 'r' )

这段如果换成中文名称后，就无法找到无线网络连接。因为在英文版下是可以通过键盘来定位到wireless连接上，由于中文版默认安装好后都为“无线网络连接”，请问除了改为英文名称还有什么办法可以通过键盘定位到无线网络连接上！

remme

是的，我改过一些，测试通过。有时间把字符串全改了在我笔记本上再试试看。不好意思现在公司只用台式机。

remme

以下是我对上述英文版的脚本的改写。在我的笔记本上运行通过。

其主要改动在于中间用了发送中文字符“无线”。参考链接：UDF - SendC，作用：发送中文以及其它字符！ 。

其他小的改动看内容和注释即可，不解释了。

另外：我也不是很明白为什么ssid变量一定要加括号，否则运行就不成功。

1. ;Assign variables
   
2. $ssid = ("SSID")
   
3. $auth = ("WPA-PSK");共有四种模式
   
4. $encrypt = ("TKIP");对应WPA-PSK的有两种
   
5. $NetKey = ("password")
   
6. 
   
7. ; Setting the advanced setting in Network Properties
   
8. Run(@ComSpec & " /c " & 'ncpa.cpl', "C:\WINDOWS\system32\dllcache", @SW_HIDE)
   
9. 
   
10. ;Open the Network Connections dialog and activate the properties page of the Wireless Network Connection
    
11. WinWait("网络连接")
    
12. If Not WinActive("网络连接") Then
    
13.         WinActivate("网络连接")
    
14. EndIf
    
15. WinWaitActive("网络连接")
    
16. 
    
17. Sendc("无线")
    
18. 
    
19. Send('{Appskey}')
    
20. Send('r')
    
21. 
    
22. ;Insure the Wireless Network Connection Properties page has focus and move to the appropriate tab
    
23. $hwnd = WinGetHandle("无线网络连接 属性")
    
24. WinWait($hwnd, "常规")
    
25. If Not WinActive($hwnd, "常规") Then
    
26.         WinActivate($hwnd, "常规")
    
27. EndIf
    
28. WinWaitActive($hwnd, "常规")
    
29. Sleep(500)
    
30. ControlCommand($hwnd, "常规", 12320, 'TabRight', '')
    
31. Sleep(500)
    
32. 
    
33. ;Insure the Wireless Networks tab has focus
    
34. WinWait($hwnd, "无线网络")
    
35. If Not WinActive($hwnd, "无线网络") Then
    
36.         WinActivate($hwnd, "无线网络")
    
37. EndIf
    
38. WinWaitActive($hwnd, "无线网络")
    
39. Sleep(500)
    
40. 
    
41. ;Check to insure that Windows Wireless Zero Configuration is being used, then click on the Add button
    
42. If Not ControlCommand($hwnd, "无线网络", 7024, 'IsChecked', '') Then
    
43.         ControlCommand($hwnd, "无线网络", 7024, 'Check', '')
    
44. EndIf
    
45. ControlFocus($hwnd, "无线网络", 7033)
    
46. Sleep(500)
    
47. ControlClick($hwnd, "", 'Button7')
    
48. 
    
49. ;Input the Wireless network properties information and save it
    
50. $handle = WinGetHandle("无线网络属性")
    
51. ControlSetText($handle, "关联", "Edit1", $ssid)
    
52. ControlCommand($handle, "网络验证", "ComboBox1", "SelectString", $auth)
    
53. ControlCommand($handle, "数据加密", "ComboBox2", "SelectString", $encrypt)
    
54. ControlSetText($handle, "网络密钥", "Edit2", $NetKey)
    
55. ControlSetText($handle, "确认网络密钥", "Edit3", $NetKey)
    
56. ControlClick($handle, "", "Button4")
    
57. 
    
58. ;Close the Wireless Network Connection Properties window
    
59. ;没有起作用，因此我把它注释掉
    
60. ;~ If WinExists("无线网络属性") Then
    
61. ;~         WinActivate("无线网络属性")
    
62. ;~         ControlFocus("无线网络属性", "无线网络", 1)
    
63. ;~         ControlClick("无线网络属性", "无线网络", 1)
    
64. ;~ EndIf
    
65. 
    
66. ControlClick($hwnd, "", 'Button11')
    
67. 
    
68. ;Close the Network Connections windows
    
69. WinActivate("网络连接")
    
70. Send('!{F4}')
    
71. 
    
72. ;发送中文字符串的程序
    
73. Func SendC($Str, $Flag = 0)
    
74.         If $Flag Then
    
75.                 Local $Clip = ClipGet()
    
76.                 ClipPut($Str)
    
77.                 Send('+{ins}')
    
78.                 ClipPut($Clip)
    
79.         Else
    
80.                 Local $Nul = Chr(0)
    
81.                 For $i = 1 To StringLen($Str)
    
82.                         Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & $Nul) & '}')
    
83.                 Next
    
84.         EndIf
    
85. EndFunc   ;==>SendC
    

复制代码

remme

对了，若干次里会有1，2次不成功，不妨在47，58行再插入一行sleep(500)试试看。但是不成功也没关系，多运行几次罢了。







所以有种比较猥琐的解决方案：就是把代码复制两次，再编译成exe。。。。。。

haha_xion

非常感谢你的解答！

zdpcc

谢谢提供，正好要用。

jinta2001

看看我的代码，这样就不会出现偶尔设置不了的情况：
1。如果无线网络被禁用，则启用
2。打开设置窗口

;无线网络
Dim $objShell,$objFolder,$objFolderItem,$objVerb
$objShell=ObjCreate('Shell.Application')
$objFolder=$objShell.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
For $index = 0 To $objFolder.Items.Count-1 Step 1
        $objFolderItem = $objFolder.Items.Item($index)
        If $objFolderItem.Name='无线网络连接' Then
                For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                        If $objFolderItem.Verbs.Item($index2).Name='启用(&A)' Then
                                $objFolderItem.Verbs.Item($index2).DoIt
                                WinWaitClose('无线网络连接','启用')
                                Sleep(3000)
                        EndIf
                Next

                For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                        If $objFolderItem.Verbs.Item($index2).Name='查看可用的无线连接(&V)' Then
                                $objFolderItem.Verbs.Item($index2).DoIt
                        EndIf
                Next
        EndIf
Next