Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal _ hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long' Return a text description of a given window' (consists of hWnd and classname, optionally followed by caption)Function WindowDescription(ByVal hWnd As Long) As String Dim buffer As String * 256 Dim length As Long Dim text As String Dim classname As String length = GetWindowText(hWnd, buffer, Len(buffer)) text = Left$(buffer, length) length = GetClassName(hWnd, buffer, Len(buffer)) classname = Left$(buffer, length) WindowDescription = "[" & Right$("0000000" & Hex$(hWnd), _ 8) & "] " & classname If Len(text) Then WindowDescription = WindowDescription & " - """ & text & """" End IfEnd Function


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many