Public Sub GetRemoteText(chWnd As Long, Strpwd As String)
Dim PID As Long
g = GetWindowThreadProcessId(chWnd, PID)
hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf WndProc, App.hInstance, g)
If hHook <> 0 Then
WM_HOOKSPY = RegisterWindowMessage("WM_HOOKSPY_Txt")
SendMessage GG, WM_HOOKSPY, 0, 0
Strpwd = StrPassRt
GetRemoteText = Len(Strpwd)
End If
End Sub