edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ThinClient TeamViewer

Browse Source
This commit is contained in:
ms
2019-12-05 08:39:46 +01:00
parent 8e7fc09e45
commit 5f24e2a9e1
8 changed files with 109 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Dokumentation/Classes/Ext_Programme.vb
View File

@@ -45,8 +45,10 @@
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 = "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