Option Explicit
 
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
        dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32.dll" ( _
     ByVal hwnd As Long, _
     ByRef lpdwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" ( _
     ByVal hProcess As Long, _
     ByVal uExitCode As Long) As Long
 
 
 
 
Private Sub Form_Load()
Me.Hide
End Sub
 
Private Sub Timer1_Timer()
Dim hwnd As Long: hwnd = FindWindow(vbNullString, "Server nicht gefunden -" & _
  "Microsoft Internet Explorer")
Dim sFileName As String * 2048
Dim sFileLen As Long
Dim sProcessID As Long, result
 
If hwnd = 0 Then
    hwnd = FindWindow(vbNullString, _
      "http://www.ad-w-a-r-e.com/cgi-bin/PopupV3?ID={9F2A3C60-0F41-E98B-8313-3" & _
      "5BA4D0BE97}&type=normal - Microsoft Internet Explorer")
    If hwnd = 0 Then
        hwnd = FindWindow(vbNullString, "http://www.msn.com/ - Microsoft" & _
          "Internet Explorer")
    End If
End If
    If hwnd <> 0 Then
 
        result = GetWindowThreadProcessId(hwnd, sProcessID)
        result = OpenProcess(&H1, 0, sProcessID)
 
        result = TerminateProcess(result, 1&)
 
    End If
End Sub

____________________________________
Internet-Relay-Messenger IRM.
http://forum.spiel-wiese.net Neuste Version ist die Beta 2.3