home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Password_F210426312008.psc / f0xsource / crackPassword.bas next >
BASIC Source File  |  2008-02-26  |  2KB  |  51 lines
  1. Attribute VB_Name = "crackPassword"
  2.  
  3. ' User defined type
  4. Public Type POINT
  5.     X As Long
  6.     Y As Long
  7. End Type
  8.  
  9. ' Public Variables
  10. Public Targeting As Boolean
  11. Public CursorPosition As POINT
  12. Public RetVal As Long
  13.  
  14. ' Global Constants
  15. Global Const MainTitle = "crackPassword"
  16. Global Const WM_GETTEXT = &HD
  17. Global Const WM_GETTEXTLENGTH = &HE
  18. Global Const HWND_TOPMOST = -1
  19. Global Const HWND_NOTOPMOST = -2
  20. Global Const SWP_NOACTIVATE = &H10
  21. Global Const SWP_SHOWWINDOW = &H40
  22.  
  23. ' Declare Windows' API functions
  24. Public Declare Function GetCursorPos Lib "User32" (ByRef lpPoint As POINT) As Long
  25. Public Declare Function WindowFromPoint Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long
  26. Public Declare Function GetParent Lib "User32" (ByVal hwnd As Long) As Long
  27. Public Declare Function GetClassName Lib "User32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  28. Public Declare Function IsWindow Lib "User32" (ByVal hwnd As Long) As Long
  29. Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  30. Public 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
  31. Public Declare Sub SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
  32. Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  33.  
  34.  
  35. Public Function GetTopLevelParent(ByVal hwndNum As Long) As Long
  36.     'returns highest-level parent window of hWnd
  37.     'if hWnd is the parent it just returns the input hWnd
  38.     Dim ParentHwnd As Long
  39.     Dim tmpHwnd As Long
  40.     
  41.     tmpHwnd = hwndNum
  42.  If 0 <> IsWindow(tmpHwnd) Then ' make sure the input hWnd refers to a window
  43.             ParentHwnd = GetParent(tmpHwnd)
  44.             tmpHwnd = ParentHwnd
  45.    
  46.  End If
  47.     
  48.     GetTopLevelParent = hwndNum 'suposed to be parent hwnd
  49. End Function
  50.  
  51.