Teamviewer, Brumm Brumm

Dokumentation/Classes/Ext_Programme.vb

@@ -63,4 +63,18 @@
         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