Beiträge von SnGtKs

Private Function GetOSVersion() As String
        Dim [OSVersion] As System.OperatingSystem = System.Environment.OSVersion
        Dim Result As String = "Unbekanntes System"


        Select Case [OSVersion].Platform
            Case System.PlatformID.Win32NT
                'WinNT, Win2000, WinXP, Win2003, Windows Vista, Windows 2008
                Select Case [OSVersion].Version.Major
                    Case 3 : Result = "Windows NT 3.51"
                    Case 4 : Result = "Windows NT 4.0"
                    Case 5
                        If [OSVersion].Version.Minor = 0 Then
                            Result = "Windows 2000"
                            If [OSVersion].Version.Minor = 1 Then
                                Result = "Windows XP"
                                If [OSVersion].Version.Minor = 2 Then
                                    Result = "Windows Server 2003"
                                End If
                            End If
                        End If
                    Case 6
                        If [OSVersion].Version.Minor = 0 Then
                            Result = "Windows Vista"
                            If [OSVersion].Version.Minor = 1 Then
                                Result = "Windows Server 2008"
                            'Im moment wird Windows 7 auch als Windows 2008 erkannt.
                            End If
                        End If
                End Select
            Case System.PlatformID.Win32Windows
                'Win95, Win98, Windows ME
                Select Case [OSVersion].Version.Minor
                    Case 0 : Result = "Windows 95"
                    Case 10 : Result = "Windows 98"
                    Case 90 : Result = "Windows ME"
                End Select
        End Select
        Return Result
    End Function

Public Class Form1
    Public startPort As Integer
    Public endPort As Integer
    Public IPAddress As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
        IPAddress = TextBox1.Text
        startPort = TextBox2.Text
        endPort = TextBox3.Text
        For startPort = startPort To endPort
            Me.BackgroundWorker1.RunWorkerAsync()
            While Me.BackgroundWorker1.IsBusy = True
                Application.DoEvents()
            End While
        Next


    End Sub


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Try
            Dim lvi As New ListViewItem(startPort)
            Dim tryToConnect As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient(IPAddress, startPort)
            lvi.SubItems.Add("is offen")
            lvi.ForeColor = Color.Red
            lvi.EnsureVisible()
            BackgroundWorker1.ReportProgress(0, lvi)


        Catch ex As Exception


            Dim lvi As New ListViewItem(startPort)
            lvi.SubItems.Add("ist zu")
            lvi.SubItems.Add(ex.Message)
            lvi.ForeColor = Color.Green
            BackgroundWorker1.ReportProgress(0, lvi)


        End Try


    End Sub


    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Dim lvi As New ListViewItem
        lvi = e.UserState
        Me.ListView1.Items.Add(lvi)
        lvi.EnsureVisible()
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BackgroundWorker2.WorkerReportsProgress = True
        BackgroundWorker2.WorkerSupportsCancellation = True
        IPAddress = TextBox1.Text
        startPort = TextBox2.Text
        endPort = TextBox3.Text
        For startPort = startPort To endPort
            Me.BackgroundWorker2.RunWorkerAsync()
            While Me.BackgroundWorker2.IsBusy = True
                Application.DoEvents()
            End While
        Next
    End Sub


    Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
        Try
            Dim lvi As New ListViewItem(startPort)
            Dim tryToConnect As System.Net.Sockets.UdpClient = New System.Net.Sockets.UdpClient(IPAddress, startPort)
            lvi.SubItems.Add("ist offen")
            lvi.ForeColor = Color.Red
            BackgroundWorker2.ReportProgress(0, lvi)


        Catch ex As Exception


            Dim lvi As New ListViewItem(startPort)
            lvi.SubItems.Add("is zu")
            lvi.SubItems.Add(ex.Message)
            lvi.ForeColor = Color.Green
            BackgroundWorker2.ReportProgress(0, lvi)
        End Try


    End Sub


    Private Sub BackgroundWorker2_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker2.ProgressChanged
        Dim lvi As New ListViewItem
        lvi = e.UserState
        Me.ListView1.Items.Add(lvi)
        lvi.EnsureVisible()
    End Sub
End Class