Hello
I think i got it.
Imports System
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Text
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_timer.Interval = 1000
_timer.Start()
' Add the CheckTcpListner method as the handler for _Timer Tick events
AddHandler _timer.Tick, AddressOf CheckTcpListener
End Sub
Private Sub CheckTcpListener(ByVal sender As Object, ByVal e As System.EventArgs)
Me.TopMost = False
Dim chars As Integer = 256
Dim buff As New StringBuilder(chars)
' Obtain the handle of the active window.
Dim handle As IntPtr = GetForegroundWindow()
' Update the controls.
If GetWindowText(handle, buff, chars) > 0 Then
'Console.WriteLine(buff.ToString())
'Console.WriteLine(handle.ToString())
Me.TopMost = False
Else
Me.Activate()
Me.Visible = true
End If
End Sub
<DllImport("user32.dll")> _
Private Shared Function GetForegroundWindow() As IntPtr
End Function
<DllImport("user32.dll")> _
Private Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal text As StringBuilder, ByVal count As Integer) As Integer
End Function
1
