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, Optional ByVal Argument As String = "")
        Dim ping As New Process
        'ping.StartInfo.FileName = "cmd.exe"
        'ping.StartInfo.Arguments = " /k ping " & ip & Argument
        ping.StartInfo.FileName = "powershell.exe"
        ping.StartInfo.Arguments = " /noexit /c ping " & ip & Argument
        ping.Start()
    End Function

    Public Shared Function msgsend(argumente As String)
        Try
            Dim msg As New Process
            System.IO.File.WriteAllBytes("msg.exe", My.Resources.msg)
            msg.StartInfo.FileName = "msg.exe"
            'msg.StartInfo.WorkingDirectory = "C:\Windows\System32\"
            msg.StartInfo.Arguments = argumente
            msg.Start()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

    Public Shared Function StartTeamviewer(ID As String, Optional Passwort As String = "BmWr501956")
        If Passwort.Length < 1 Then
            Passwort = "BmWr501956"
        End If
        Dim teamviewer As New Process
        With teamviewer.StartInfo
            .FileName = "Teamviewer.exe"
            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
            .Arguments = "-i " & ID & " -P " & Passwort
        End With

        teamviewer.Start()
    End Function

End Class