Public Class Ext_Programme

    Public Shared Function startlink(URL As String)

        Try
            If URL.Contains("http") Or URL.Contains("https") Then
                Process.Start(URL)
            ElseIf URL = "" Then
                Exit Function
            Else
                Dim mstsc As New Process
                mstsc.StartInfo.FileName = "mstsc.exe"
                mstsc.StartInfo.Arguments = " /v: " & URL
                mstsc.Start()

            End If

            ' Process.Start("mstsc.exe", "/v: dc01")
        Catch ex As Exception
            'MsgBox(ex.Message)

        End Try

    End Function


    Public Shared Function startputty(IP As String)
        Dim Benutzer, Passwort As String
        Class1.GetUserPasswort(IP, Benutzer, Passwort)
        Try
            Dim putty As New Process
            putty.StartInfo.FileName = "putty.exe"
            If Benutzer = "" And Passwort = "" Then
                putty.StartInfo.Arguments = IP
            Else
                putty.StartInfo.Arguments = IP & " -l " & Benutzer & " -pw " & Passwort
            End If
            putty.Start()

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Function

    Public Shared Function pingip(ip As String)
        Dim ping As New Process
        ping.StartInfo.FileName = "cmd.exe"
        ping.StartInfo.Arguments = " /k ping " & ip
        ping.Start()
    End Function

End Class