Свернуть стороннюю программу в трей

Public Declare Function EnumWindows Lib "user32" (ByVal Adress As CallBack, ByVal y As Integer) As Integer
    Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
    Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Int32
    Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Int32) As Int32
    Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal nCmdShow As IntPtr) As Boolean

Imports System.Runtime.InteropServices
Public Class Form3
 
          
 
   
    Public Delegate Function CallBack(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean
 
    
   
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetParent(ByVal hWnd As IntPtr) As IntPtr
    End Function
    <DllImportAttribute("user32.dll", EntryPoint:="GetClassLongW")> _
    Public Shared Function GetClassLong(<InAttribute()> ByVal hWnd As System.IntPtr, ByVal nIndex As Integer) As IntPtr
    End Function
    <DllImportAttribute("user32.dll", EntryPoint:="GetClassLongPtrW")> _
    Public Shared Function GetClassLongPtr(<InAttribute()> ByVal hWnd As System.IntPtr, ByVal nIndex As Integer) As IntPtr
    End Function
    Private Shared Function GetClassLongBoth(ByVal hwnd As IntPtr, ByVal nIndex As Integer) As IntPtr
        If IntPtr.Size = 4 Then
            'Must be a 32 bit OS or 32 bit process running on 64 bit OS
            Return GetClassLong(hwnd, nIndex)
        Else
            'Must be a 64 bit process
            Return GetClassLongPtr(hwnd, nIndex)
        End If
    End Function
 
    Public Declare Function EnumWindows Lib "user32.dll" (ByVal Adress As CallBack, ByVal y As Integer) As Integer
    Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
    Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Int32
    Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Int32) As Int32
    Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal nCmdShow As IntPtr) As Boolean
    Private ActiveWindows As New System.Collections.ObjectModel.Collection(Of IntPtr)
 
 
    Public Const WM_GETICON As UInteger = &H7F
    Public NotifyCounter As Integer = 0
    Dim arrNotifyicon As NotifyIcon()
 
 
    Public Function GetActiveWindows() As ObjectModel.Collection(Of IntPtr)
        ActiveWindows.Clear()
        EnumWindows(AddressOf Enumerator, 0)
        Return ActiveWindows
    End Function
 
    Private Function Enumerator(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
        If IsWindowVisible(hwnd) Then
            ActiveWindows.Add(hwnd)
        End If
        Return True
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.DataSource = GetWindowList()
        DataGridView1.Columns("hwnd").Visible = False
        Dim dgvcol As New DataGridViewCheckBoxColumn
        Dim dgvimgcol As New DataGridViewImageColumn
        Dim NotifyIndex As New DataGridViewTextBoxColumn
 
        dgvimgcol.Name = "Icon"
        dgvimgcol.HeaderText = "Icon"
        dgvcol.Name = "IsVisible"
        dgvcol.HeaderText = "IsVisible"
        NotifyIndex.Name = "NotifyIndex"
        NotifyIndex.HeaderText = "NotifyIndex"
        NotifyIndex.Visible = False
        DataGridView1.Columns.Add(dgvcol)
        DataGridView1.Columns.Add(dgvimgcol)
        DataGridView1.Columns.Add(NotifyIndex)
        DataGridView1.Columns("WindowName").ReadOnly = True
        For Each dgr As DataGridViewRow In DataGridView1.Rows
            dgr.Cells("IsVisible").Value = True
            Dim icn As Icon = Nothing
            icn = GetWindowIcon(dgr.Cells("hwnd").Value)
            If Not icn Is Nothing Then
                dgr.Cells("Icon").Value = icn.ToBitmap
            End If
 
        Next
    End Sub
 
    Function GetWindowList() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add("hwnd")
        dt.Columns.Add("WindowName")
        GetActiveWindows()
        For Each hwnd As IntPtr In ActiveWindows
            Debug.Print(hwnd)
            Dim WindName As String = ""
            WindName = Space(GetWindowTextLength(hwnd) + 1)
            GetWindowText(hwnd, WindName, GetWindowTextLength(hwnd) + 1)
            WindName = WindName.Substring(0, WindName.Length - 1)
            dt.Rows.Add(hwnd, WindName)
        Next
        Return dt
    End Function
 
 
    Sub AddNotify(ByVal icn As Icon, ByVal text As String, ByVal hwnd As Integer, ByVal dgvrowindex As Integer)
        NotifyCounter += 1
        ReDim Preserve arrNotifyicon(NotifyCounter)
        Dim ni As NotifyIcon = New System.Windows.Forms.NotifyIcon
        ni.Icon = icn
        ni.Text = text.Substring(0, 63)
        ni.Tag = hwnd
        Dim cm As New ContextMenuStrip
        cm.Items.Add("Возобновить " & text)
        cm.Tag = NotifyCounter & "|" & dgvrowindex & "|" & hwnd
        AddHandler cm.ItemClicked, AddressOf cmItemClicked
        ni.ContextMenuStrip = cm
        ni.Visible = True
        arrNotifyicon(NotifyCounter) = ni
        Me.arrNotifyicon(NotifyCounter).Visible = True
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim hwnd As Integer = 0
        Integer.TryParse(DataGridView1.CurrentRow.Cells("hwnd").Value, hwnd)
 
        If DataGridView1.CurrentRow.Cells("IsVisible").Value = True Then
            If IsWindowVisible(hwnd) Then
                Dim icn As Icon = Icon.FromHandle(DataGridView1.CurrentRow.Cells("Icon").Value.GetHicon)
                AddNotify(icn, DataGridView1.CurrentRow.Cells("WindowName").Value, hwnd, DataGridView1.CurrentRow.Index)
                ShowWindow(hwnd, 0)
                DataGridView1.CurrentRow.Cells("IsVisible").Value = False
                DataGridView1.CurrentRow.Cells("NotifyIndex").Value = NotifyCounter
            End If
        Else
            If Not IsWindowVisible(hwnd) Then
                Dim NIindex As Integer = 0
                Integer.TryParse(DataGridView1.CurrentRow.Cells("NotifyIndex").Value, NIindex)
                ShowWindow(hwnd, 1)
                DataGridView1.CurrentRow.Cells("IsVisible").Value = True
                arrNotifyicon(NIindex).Visible = False
                arrNotifyicon(NIindex).Dispose()
                NotifyCounter -= 1
            End If
        End If
 
    End Sub
 
 
    Public Function GetWindowIcon(ByVal WindowHandle As Integer) As Icon
        Dim parenthwnd As IntPtr = GetParent(WindowHandle)
        Dim childhwnd As IntPtr
 
        If Not parenthwnd = IntPtr.Zero Then
            childhwnd = parenthwnd
        Else
            childhwnd = WindowHandle
        End If
        Dim IconHandle As IntPtr = SendMessage(childhwnd, WM_GETICON, 2, 0)
        If IconHandle = IntPtr.Zero Then
            IconHandle = SendMessage(childhwnd, WM_GETICON, 0, 0)
        End If
 
        If IconHandle = IntPtr.Zero Then
            IconHandle = SendMessage(childhwnd, WM_GETICON, 1, 0)
        End If
        If IconHandle = IntPtr.Zero Then
            IconHandle = GetClassLongBoth(childhwnd, -14)
        End If
        If IconHandle = IntPtr.Zero Then
            IconHandle = GetClassLongBoth(childhwnd, -34)
        End If
        If Not IconHandle = IntPtr.Zero Then
            Return Icon.FromHandle(IconHandle)
        End If
        Return Nothing
    End Function
 
    Sub cmItemClicked(ByVal sender As Object, ByVal e As EventArgs)
        Dim tagspl As String() = sender.tag.ToString.Split("|")
        Dim NIindex As Integer = 0
        Dim hwnd As Integer = 0
        Dim dgvrowindex As Integer = 0
        Integer.TryParse(tagspl(0), NIindex)
        Integer.TryParse(tagspl(1), dgvrowindex)
        Integer.TryParse(tagspl(2), hwnd)
        ShowWindow(hwnd, 1)
        DataGridView1.Rows(dgvrowindex).Cells("IsVisible").Value = True
        arrNotifyicon(NIindex).Visible = False
        arrNotifyicon(NIindex).Dispose()
        NotifyCounter -= 1
    End Sub
End Class