Diverse Bug-Fixes; Umstellung auf FQDN statt IP Adressen;

Dokumentation/frmHostBearbeiten.vb

@@ -306,11 +306,17 @@
     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.Escape Then
             Me.Close()
         End If
     End Sub
 
+    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyUp
+        cmdAuthSMB.Text = "Auth. SMB"
+    End Sub
+
     Private Sub MitHTTPFüllenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitHTTPFüllenToolStripMenuItem.Click
         TxtLink.Text = "http://" & TxtIP.Text & "/"
     End Sub
@@ -329,5 +335,20 @@
         Clipboard.SetText(host.IPAdresse)
     End Sub
 
+    Private Sub CmdAuthSMB_Click(sender As Object, e As EventArgs) Handles cmdAuthSMB.Click
+        If cmdAuthSMB.Text = "Auth. SMB" Then
+            ' cFolder.netdelete("\\" & host.IPAdresse)
+            cFolder.netuse(host.Benutzer, host.Passwort, "\\" & host.IPAdresse)
+            cFolder.explorerstarten(host.IPAdresse, True)
+        Else
+            cFolder.netdelete("\\" & host.IPAdresse)
+        End If
+
+    End Sub
+
+    Private Sub CmdSMBReset_Click(sender As Object, e As EventArgs)
+        cFolder.netdelete("\\" & host.IPAdresse)
+    End Sub
+
 
 End Class