获取不到进程句柄 pHandle,请大侠帮帮忙,看哪里出问题了

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Sub getprocessname(title, hwnd)
    Dim lngDeskTopHandle As Long
    Dim lngHand As Long
    Dim strName As String * 255
    Dim tiele As String
    lngDeskTopHandle = GetDesktopWindow()
    lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)
    Do While lngHand <> 0
        GetWindowText lngHand, strName, Len(strName)
        lngHand = GetWindow(lngHand, GW_HWNDNEXT)
        If Left$(strName, 1) <> vbNullChar Then
            If InStr(strName, title) Then
                hwnd = FindWindow(vbNullString, CStr(strName))
                '此处hwnd即所需句柄，您可以在此处中断并获取该句柄，或将句柄数据写入数组以获取所有包含title的窗口句柄
            End If
        End If
    Loop
End Sub

Private Sub Command1_Click()
    getprocessname "QQ", hwnd
    Label1 = hwnd
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function writeprocessmemory Lib "kernel32" (ByVal hprocess As Long, ByVal ipbaseaddress As Any, ByVal ipbuffer As Any, ByVal nsize As Long, ipnumberofbyteswritten As Long) As Long
Private Declare Function readprocessmomory Lib "kernel32" (ByVal hprocess As Long, ByVal ipbaseaddress As Any, ByVal ipbuffer As Any, ByVal nsize As Long, ipnumberifbyteswritten As Long) As Long
Private Declare Function closehandle Lib "kernel32" (ByVal hobject As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF                                             '这是个常量，必须要指定数值
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal Hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'以下函数通过hwnd反查窗口标题:
Public Function HwndToTitle(Hwnd As Long) As String
    Dim strText As String * 256
    Call GetWindowText(Hwnd, strText, 256)
    HwndToTitle = Left$(strText, InStr(1, strText, Chr(0)) - 1)
End Function

Private Sub Command1_Click()
    Dim Hwnd As Long
    Dim Hwnd2 As Long
    '        hwnd = FindWindow(vbNullString, "QQ")         '得到窗口句柄
    '    hwnd = FindWindow("TXGuiFoundation", "QQ International")                    '查找QQ窗口句柄
    Hwnd = FindWindow("TXGuiFoundation", vbNullString)                          '通过类名查找QQ窗口句柄
    Title = HwndToTitle(Hwnd)                                                   '通过hwnd反查标题
    Hwnd2 = 0
    Do While InStr(Title, "QQ") = 0 And InStr(Title, "qq") = 0                  '模糊查询标题是否含有QQ关键字
        Hwnd2 = FindWindowEx(0, Hwnd2, "TXGuiFoundation", vbNullString)
        Title = HwndToTitle(Hwnd2)                                              '通过hwnd反查标题
        If Hwnd2 = 0 Then Exit Do                                               '如果再也找不到"TXGuiFoundation"退出循环
    Loop
    If Hwnd2 <> 0 Then Hwnd = Hwnd2
    Label3.Caption = Hwnd
    If Hwnd = 0 Then
        Label1.Caption = "QQ程序未运行"                                         '验证是否得到有效窗口句柄
    Else
        Label1.Caption = "QQ程序已运行"
    End If
    Dim pid As Long
    Dim pHandle As Long
    GetWindowThreadProcessId Hwnd, pid                                          '得到进程标识符
    Label2.Caption = pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)                       '通过进程标识符获得进程句柄
    If pHandle = 0 Then
        MsgBox "couldn 't get a process handle!"
    Else
        Label4.Caption = pHandle
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub