54 lines
1.4 KiB
VB.net
54 lines
1.4 KiB
VB.net
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
|