Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasic
 
Public Class Form1
    Dim IpAdress As String
    Dim pcname, IPadressPcName, IPadressPcName1, IPadressPcName2, test As String
    Dim IPS As Boolean
    Dim i, max As Integer
    Dim IPs2 As Collection
    Dim IP As IPAddress
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        i = 0
        maximal()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        maximal()
    End Sub
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        If max <= 0 Then
            maximal()
        End If
 
        IpAdress = "192.168.1." & i
 
        i = i + 1
        If i > max Then
            i = 0
        End If
 
 
        ToolStripStatusLabel3.Text = "Aktuelle IP-Adresse:   " & IpAdress
        ToolStripStatusLabel4.Text = My.Computer.Info.OSFullName()
        IPS = My.Computer.Network.Ping(IpAdress)
        If IPS = True Then
            pcname = System.Net.Dns.GetHostEntry(System.Net.IPAddress.Parse( _
              IpAdress).ToString()).HostName
 
            IPadressPcName = IpAdress & "   " & pcname & "   " & _
              ToolStripStatusLabel1.Text & "   "
            IPadressPcName2 = ToolStripStatusLabel2.Text
            If ListBox1.Items.Contains(IPadressPcName) = False Then
                ListBox1.Items.Add(IPadressPcName)
                ListBox1.Items.Add(IPadressPcName2)
                ListBox1.Items.Add("  ")
                Begruesung()
            End If
        End If
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Begruesung()
 
 
    End Sub
    Private Sub maximal()
        max = TextBox1.Text
        If max <= 0 Then
            Timer1.Stop()
            MsgBox("Bitte geben Sie eine MAX-IP ein !")
        Else
            Timer1.Start()
 
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        ToolStripStatusLabel1.Text = " Datum:  " & Date.Now.ToLongDateString
        ToolStripStatusLabel2.Text = "Uhrzeit:  " & Date.Now.ToLongTimeString
    End Sub
    Private Sub Begruesung()
        Dim na, na1 As String
        Dim proc As New System.Diagnostics.Process()
 
        na = "C:\Winnt\system32\cmd.exe"
        na1 = " /c net send " & IpAdress & " IP-TEST !!"
 
        proc.StartInfo.FileName = na
        proc.StartInfo.Arguments = na1
        proc.Start()
        proc.WaitForExit(1000)
        proc.CloseMainWindow()
 
    End Sub
End Class