Public Class cExtProgramme

    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, Optional ByVal ReturnOrder As Boolean = False)
        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
            If ReturnOrder = True Then Return "msg.exe " & argumente : Exit Function
            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

    Public Shared Function RDPConnect(host As String, Optional ByVal Username As String = "", Optional ByVal Password As String = "")
        Dim mstsc As New Process
        Dim AnmeldeDatenVorhanden As Boolean = False

        If Username.Length > 0 And Password.Length > 0 Then
            Dim Anmeldung As New Process : AnmeldeDatenVorhanden = True
            With Anmeldung
                .StartInfo.FileName = Environment.ExpandEnvironmentVariables("%SystemRoot%\system32\cmdkey.exe")
                .StartInfo.Arguments = "/add:TERMSRV/" & host & " /user:" & Username & " /pass:" & Password
                .Start()
            End With
        End If

        mstsc.StartInfo.FileName = "mstsc.exe"
        mstsc.StartInfo.UseShellExecute = False
        mstsc.StartInfo.Arguments = " /v: " & host

        mstsc.Start()

        If AnmeldeDatenVorhanden = True Then
            Threading.Thread.Sleep(3000)

            Dim Abmeldung As New Process
            With Abmeldung
                .StartInfo.FileName = Environment.ExpandEnvironmentVariables("%SystemRoot%\system32\cmdkey.exe")
                .StartInfo.Arguments = "/delete:TERMSRV/" & host
            End With


        End If



    End Function

End Class