IT Nothotline, allgemeine Verbesserungen

Dokumentation/Main.vb

@@ -3,6 +3,7 @@ Imports System.IO
 Imports System.Threading
 Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
+Imports System.Web.UI.WebControls
 
 Public Class Main
     Public con As New SqlConnection
@@ -653,18 +654,8 @@ Public Class Main
         DeleteGastWLANUser("ABABAB")
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim i As Integer = 0
-        Dim c As String
-        ' For meh As Integer = 0 To 1
-        Dim a, b As String
-            a = UsernamePasswordGenerator("u")
-            b = UsernamePasswordGenerator("p")
-            c &= a & " - " & b & vbCrLf
-            AddGastWLANUser(a, b)
-        'Next
-
-        WriteToFile(Application.StartupPath & "\WLAN.txt", c)
-        'MsgBox(a & vbCrLf & b)
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", "199")
     End Sub
 
     Public Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
@@ -1510,9 +1501,18 @@ exit"
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
-        'MsgBox(DS.da_id)
-        DS.OPEN_SINGLE()
+        Dim frm As New frmLeer
+        frm.Text = "Notruf"
+        Dim usrcntrl As New uscntr_Notruf
+
+
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
     End Sub
 
     Public Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
@@ -1714,7 +1714,7 @@ exit"
                 RestartServices(Host2Connect.FQDN, "Druckerwarteschlange")
             End If
         Else
-                MsgBox("Hostname wurde nicht gefunden.")
+            MsgBox("Hostname wurde nicht gefunden.")
         End If
     End Sub