سوال - نسخه قابل چاپ

کد:
'CODE BY WWW.PARSICODERS.COM BY AMIN MANSOURI

'FIND HANDLE AND MINIMIZE WINDOW

Private Const SW_MINIMIZE As Long = 6



Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _

  ByVal nCmdShow As Long) As Long



Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _

                    (ByVal hwnd As Long, _

                     ByVal wMsg As Long, _

                     ByVal wParam As Long, _

                     ByVal lParam 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 GetForegroundWindow Lib "user32" () As Long

Private Sub Timer1_Timer()

Call FindHandleMin("Untitled - Notepad")



End Sub



Private Sub FindHandleMin(Amin As String)

Dim foreground_hwnd As Long

Dim txt As String

Dim length As Long

    foreground_hwnd = GetForegroundWindow()

    txt = Space$(1024)

    length = GetWindowText(foreground_hwnd, txt, Len(txt))

    txt = Left$(txt, length)

If txt = (Amin) Then

ret = ShowWindow((foreground_hwnd), SW_MINIMIZE)

End If

End Sub