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

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Dokumentation/frmHostBearbeiten.vb
View File

@@ -190,8 +190,8 @@
ShowFirewallPanel(chkFirewall.Checked)
End Sub
Public Function EnableDisableFirewallBoolean(ByVal hostip As String, ByVal EnDisable As Boolean)
SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "ipadresse = '" & hostip & "'")
SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "linkedwith = '" & hostip & "'")
cSQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "ipadresse = '" & hostip & "'")
cSQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "linkedwith = '" & hostip & "'")
End Function
Public Function ShowFirewallPanel(ByVal EnDisable As Boolean)
@@ -306,7 +306,10 @@
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.ControlKey Then cmdAuthSMB.Text = "NetDelete"
If e.KeyCode = Keys.ControlKey Then
cmdAuthSMB.Text = "NetDelete"
FFPortToolStripMenuItem.Visible = True
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
@@ -315,6 +318,7 @@
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyUp
cmdAuthSMB.Text = "Auth. SMB"
FFPortToolStripMenuItem.Visible = False
End Sub
Private Sub MitHTTPFüllenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitHTTPFüllenToolStripMenuItem.Click
@@ -331,7 +335,7 @@
cFolder.explorerstarten(host.IPAdresse, True)
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.DoubleClick
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.DoubleClick, TxtIP.DoubleClick
Clipboard.SetText(host.IPAdresse)
End Sub
@@ -350,5 +354,9 @@
cFolder.netdelete("\\" & host.IPAdresse)
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click
Clipboard.SetText(TxtLink.Text)
End Sub
End Class