TSSittzungen

Dokumentation/Classes/Ext_Programme.vb

@@ -43,11 +43,24 @@
         End Try
     End Function
 
-    Public Shared Function pingip(ip As String)
+    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
+        ping.StartInfo.Arguments = " /k 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
+
 End Class