Public Class Form1
    Declare Function GetForegroundWindow Lib "user32" () As IntPtr
    Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal _
      Msg As Int32, _
                 ByVal wParam As Int32, ByVal lParam As _
                 System.Text.StringBuilder) As Int32
    Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32)
    Const WM_GETTEXT As Int32 = &HD
    Private WithEvents T1 As New Timer With {.Interval = 1000, .Enabled = True}
    Private WithEvents T2 As New Timer With {.Interval = 200}
    Private WithEvents Btn As New Button With {.Text = "MsgBox", .Dock = _
      DockStyle.Bottom, .Parent = Me}
 
    Private Sub Btn_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Btn.MouseDown
        Me.Text = ""
        MessageBox.Show("Die Nummer (001315) ist gemeldet", "GS-Info", _
          MessageBoxButtons.YesNo, MessageBoxIcon.Stop)
    End Sub
 
    Private Sub T1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T1.Tick
        Dim hnd As IntPtr = GetForegroundWindow
        If hnd <> Me.Handle Then
            Dim sb As New System.Text.StringBuilder(512)
            SendMessage(hnd, WM_GETTEXT, sb.Capacity, sb)
            If sb.ToString = "GS-Info" Then
                keybd_event(17, 0, 0, 0) : keybd_event(67, 0, 0, 0) 'Strg und C 
                ' drücken
                keybd_event(17, 0, 2, 0) : keybd_event(67, 0, 2, 0) 'und 
                ' loslassen
                Threading.Thread.Sleep(500)                         'kurz 
                ' anzeigen
                keybd_event(13, 0, 0, 0) : keybd_event(13, 0, 2, 0) 'dann 
                ' schließen
                T2.Start()
            End If
        End If
    End Sub
 
    Private Sub T2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T2.Tick
        T2.Stop()
        Me.Text = My.Computer.Clipboard.GetText.Split("("c, ")"c)(1)
    End Sub
End Class