Visual Basic 60 Projects With Source Code Exclusive -
Do While hwnd <> 0 'Get Window Text sBuffer = Space(255) RetVal = GetWindowText(hwnd, sBuffer, 255) sBuffer = Left(sBuffer, RetVal) 'Get Class Name sClass = Space(255) RetVal = GetClassName(hwnd, sClass, 255) sClass = Left(sClass, RetVal) 'Visibility Check IsVis = (IsWindowVisible(hwnd) <> 0) 'Add to Listbox List1.AddItem "HWND: " & hwnd & " | Visible: " & IsVis & " | Text: " & sBuffer List2.AddItem "Class: " & sClass & " | PID: [Requires Further API]" hwnd = GetWindow(hwnd, GW_HWNDNEXT) Loop End Sub
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 GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Private Const GW_CHILD = 5 Private Const GW_HWNDNEXT = 2 visual basic 60 projects with source code exclusive
This doesn't store the password hash; it uses the password as a key. If you lose the master password, the data is gone forever—real security. Project #4: Port Scanner (TCP Connect) Difficulty: Beginner Exclusive Concept: Multi-threaded feeling using DoEvents and Winsock control arrays. Do While hwnd <> 0 'Get Window Text
LoadFileToHex = Output End Function
