81 lines
2.4 KiB
VB.net
81 lines
2.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, Optional ByVal Argument As String = "")
|
|
Dim ping As New Process
|
|
ping.StartInfo.FileName = "cmd.exe"
|
|
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
|
|
|
|
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
|