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

Update VeragProgAllgemein; Feature: RDP direkt starten;

Browse Source
This commit is contained in:
ms
2022-11-22 10:53:34 +01:00
parent 67f2a10607
commit f717deac50
31 changed files with 900 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
Dokumentation/Main.vb
View File

@@ -304,7 +304,7 @@ Public Class Main
End Function
Public Function dbload()
con.ConnectionString = Class1.DBConString
If con.State <> 1 Then con.ConnectionString = Class1.DBConString
conadmin.ConnectionString = Class1.DBConString
cmd.Connection = con
cmdadmin.Connection = conadmin
@@ -419,15 +419,16 @@ Public Class Main
DHCPAbfragen = Class1.ReadNullAs0(reader, "DHCPAbfragen")
Loop
reader.Close()
If DHCPAbfragen = True Then
If ChkDHCPClients.Checked = True Then
Dim NWAdresse As String
Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
Else
End If
End If
'Funktioniert wieder mal nicht....
'If DHCPAbfragen = True Then
' If ChkDHCPClients.Checked = True Then
' Dim NWAdresse As String
' Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
' Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
' GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
' Else
' End If
'End If
' DHCPRefresh = False
End If
@@ -551,7 +552,8 @@ Public Class Main
Else
DgVMain.Rows(0).Selected = True
End If
Catch
Catch ex As Exception
'MsgBox("With DGV2: " & ex.Message)
End Try
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
@@ -645,7 +647,7 @@ Public Class Main
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
DHCP.DHCP1("192.168.0.98")
MsgBox("Hallo Andreas")
End Sub
Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
DeleteGastWLANUser("ABABAB")
@@ -1038,7 +1040,11 @@ exit"
End Sub
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
Dim host As New cHost
host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
cExtProgramme.startputty(host.IPAdresse, host.SSHPort)
'cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -1676,7 +1682,17 @@ exit"
Dim Host2Connect As New cHost
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.FQDN.Length > 1 Then
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort)
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort, False)
Else
MsgBox("Hostname wurde nicht gefunden.")
End If
End Sub
Private Sub RDPFensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RDPFensterToolStripMenuItem.Click
Dim Host2Connect As New cHost
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.FQDN.Length > 1 Then
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort, True)
Else
MsgBox("Hostname wurde nicht gefunden.")
End If
@@ -1702,6 +1718,24 @@ exit"
End If
End Sub
Private Sub TelefonManuellZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TelefonManuellZuweisenToolStripMenuItem.Click
Dim frm As New frmLeer
frm.Text = "Telefone anmelden"
Dim usrcntrl As New uscntr_ConnectTel
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
frm.Show()
AddHandler frm.FormClosing, Function()
End Function
End Sub
Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked