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

Anydesk weiter integriert; Rechtsklick-Menü in Hauptansicht ausgebaut

Browse Source
This commit is contained in:
ms
2024-11-04 12:22:28 +01:00
parent 48bf324eff
commit b625d17481
5 changed files with 188 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Dokumentation/Main.vb
View File

@@ -1036,7 +1036,7 @@ exit"
cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
End Sub
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click
Dim host As New cHost
host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
@@ -1766,6 +1766,27 @@ exit"
ThinClients.Show()
End Sub
Private Sub LinkÖffnenMitEdgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkÖffnenMitEdgeToolStripMenuItem.Click
werbinich()
cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value, "edge")
End Sub
Private Sub AnydeskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnydeskToolStripMenuItem.Click
werbinich()
Dim host As New cHost
host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
cExtProgramme.RunAnyDeskWithPassword(host.AnydeskID, host.AnydeskPassword)
End Sub
Private Sub PuttyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PuttyToolStripMenuItem.Click
werbinich()
Dim host As New cHost
host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
cExtProgramme.startputty(host.IPAdresse, host.SSHPort)
End Sub
Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked