Gambas India Forum

Windows desktop screenshot

Do you like this program?
yes
no
Quote

I have taken this from the Gambas Mailing List 20/05/20 by vuott: -

 Public Sub Form_Open()

Dim i As Integer
Dim dw As DesktopWindow

' Gets the ID of all the "windows" open on the desktop:
For Each i In Desktop.FindWindow(Null, Null, Null)

With dw = New DesktopWindow(i)
' Shows the visible name and ID of the Window:
Print .VisibleName, Hex(i)
End With

Next

End

Note I used the 'gb' button to get the formatted code above not the '</>' button.