123

Dokumentation/Classes/Ext_Programme.vb

@@ -0,0 +1,53 @@
+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