VB 如何获得任务栏右下角“本地连接”图标的句柄？
我用以下代码，找不到任务栏右下角“本地连接”图标的句柄：
pk = FindWindow(vbNullString, "本地连接")
If pk <> 0 Then MsgBox ("已找到")
用spy++也不知哪个才是“本地连接”的句柄，请大侠们帮忙看看，谢谢。
我是这么用的，供参考。
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Dim lngProcID As Long
Dim lngHwnd As Long
Dim lngReturn As Long
lngProcID = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)
AppActivate lngProcID
If lngProcID <> 0 Then
lngHwnd = OpenProcess(SYNCHRONIZE, 0, lngProcID)
end if
我的电脑运行：lngProcID = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)，没有任何反应。
非常感谢sysdzw，可用。
我的代码少点东西，试试2楼的
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
各位大虾：
我有一个VB调用水晶报表的系统，报表是作为一个Design嵌在VB里的，今天发现打印第一张报表正常，同样的数据，在点打印再调用一次就会报 Memory Full的错误，但是 ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
自己采用的是Set objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")，其中computername是局域网一台电脑的IP或计算机名，但使用这个wmi语句对远程计算机进行操作时 ......
