如何用VBA获取ncpa.cpl窗口中的全部列表信息？

向東

在PowerShell 下用 Get-NetAdapter 命令
和在cmd 下用 netsh interface show interface 命令
都无法显示 在断开连接情况下的 Miniport  (PPTP)对应的 连接名称
只能在ncpa.cpl窗口查看
请问如何用VBA获取ncpa.cpl窗口中的全部列表信息？

向東

ChatGPT给的代码，无法运行：

1. Option Explicit
   
2. '要使用VBA获取ncpa.cpl窗口中的全部列表信息，需要使用Windows API函数和VBA代码来模拟用户操作。
   
3. 
   
4. '以下是一个示例VBA代码，它可以打开ncpa.cpl窗口，并获取其中所列出的网络适配器列表。请注意，该代码可能需要进行一些修改才能适应您的系统设置和网络配置。
   
5. 
   
6. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
7. Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
8. Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
9. 
   
10. Private Const WM_COMMAND As Long = &H111
    
11. Private Const BN_CLICKED As Long = 0&
    
12. 
    
13. Sub GetNetworkAdapters()
    
14.     Dim hWndNCPA As Long
    
15.     Dim hWndLstAdapters As Long
    
16.     Dim i As Integer
    
17.     Dim sText As String
    
18.    
    
19.     ' Find the main window of ncpa.cpl
    
20.     hWndNCPA = FindWindow("Shell_TrayWnd", vbNullString)
    
21.     hWndNCPA = FindWindowEx(hWndNCPA, 0&, "TrayNotifyWnd", vbNullString)
    
22.     hWndNCPA = FindWindowEx(hWndNCPA, 0&, "SysPager", vbNullString)
    
23.     hWndNCPA = FindWindowEx(hWndNCPA, 0&, "SysTabControl32", vbNullString)
    
24.     hWndNCPA = FindWindowEx(hWndNCPA, 0&, "SysListView32", "FolderView")
    
25.    
    
26.     ' Find the list of network adapters
    
27.     hWndLstAdapters = FindWindowEx(hWndNCPA, 0&, "SysListView32", vbNullString)
    
28.    
    
29.     ' Click on the first adapter to select it
    
30.     SendMessage hWndLstAdapters, WM_COMMAND, BN_CLICKED, 0&
    
31.    
    
32.     ' Loop through all adapters and get their names
    
33.     sText = ""
    
34.     i = 0
    
35.     Do While True
    
36.         sText = ""
    
37.         i = i + 1
    
38.         hWndLstAdapters = FindWindowEx(hWndNCPA, hWndLstAdapters, "SysListView32", vbNullString)
    
39.         If hWndLstAdapters = 0 Then Exit Do
    
40.         SendMessage hWndLstAdapters, WM_COMMAND, BN_CLICKED, i - 1
    
41.         GetTextFromControl hWndLstAdapters, sText
    
42.         Debug.Print sText
    
43.     Loop
    
44.    
    
45. End Sub
    
46. 
    
47. Private Sub GetTextFromControl(ByVal hWnd As Long, ByRef sText As String)
    
48.     Dim buf As String
    
49.     Dim ln As Long
    
50.    
    
51.     ln = SendMessage(hWnd, WM_GETTEXTLENGTH, 0&, ByVal 0&)
    
52.     buf = String(ln + 1, Chr$(0))
    
53.     SendMessage hWnd, WM_GETTEXT, ln + 1, ByVal buf
    
54.     sText = Left(buf, ln)
    
55.    
    
56. End Sub
    
57. 
    
58. '这段代码首先使用FindWindow函数来查找ncpa.cpl窗口的主窗口句柄，然后使用FindWindowEx函数来查找该窗口中的网络适配器列表。接下来，代码使用SendMessage函数模拟点击列表中的每个适配器，以获取列表中所有适配器的名称。此时，代码调用GetTextFromControl子程序来获取列表中选定适配器的名称。
    
59. '请注意，这只是一个示例代码，只能模拟用户在ncpa.cpl窗口中进行的手动操作。实际上，如果您要获取网络适配器的详细信息，您可能需要使用其他Windows API函数和WMI类来获取更多信息。

复制代码