From 6c572e110ef435b3af95bca1c92567a4a1b22a69 Mon Sep 17 00:00:00 2001 From: ms Date: Tue, 28 Apr 2026 13:19:10 +0200 Subject: [PATCH] =?UTF-8?q?2=20Computereintr=C3=A4ge=20pro=20User?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Dokumentation/Classes/cDomUser.vb | 3 ++ Dokumentation/Main.vb | 7 +-- .../My Project/Resources.Designer.vb | 2 +- Dokumentation/My Project/Resources.resx | 2 +- Dokumentation/SMB.vb | 4 +- Dokumentation/uscntr_DomUser.Designer.vb | 46 +++++++++++++++++-- Dokumentation/uscntr_DomUser.vb | 8 ++++ 7 files changed, 59 insertions(+), 13 deletions(-) diff --git a/Dokumentation/Classes/cDomUser.vb b/Dokumentation/Classes/cDomUser.vb index 3ae8a21..3288e42 100644 --- a/Dokumentation/Classes/cDomUser.vb +++ b/Dokumentation/Classes/cDomUser.vb @@ -19,6 +19,8 @@ Public Class cDomUser Property mit_username As String = "" Property mit_pwd As String = "" Property du_computer As String = "" + Property du_computer2 As String = "" + '----------------------------------------- Dim SelectItems As String = "" Public Exist As Boolean = False @@ -49,6 +51,7 @@ Public Class cDomUser list.Add(New SQLVariable("mit_username", mit_username)) list.Add(New SQLVariable("mit_pwd", mit_pwd)) list.Add(New SQLVariable("du_computer", du_computer)) + list.Add(New SQLVariable("du_computer2", du_computer2)) Return list End Function diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index dbb1b01..73253ce 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -1796,10 +1796,7 @@ exit" End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Me.Cursor = Cursors.WaitCursor - - SMB.Show() - Me.Cursor = Cursors.Default + cExtProgramme.startlink("https://syncluster02.verag.ost.dmn:5001/") End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click @@ -1849,7 +1846,7 @@ exit" End Sub Private Sub ProxMoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProxMoxToolStripMenuItem.Click - cExtProgramme.startlink("https://192.168.0.242:8006/") + cExtProgramme.startlink("https://192.168.0.20:8006/") End Sub Private Sub PortainerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PortainerToolStripMenuItem.Click diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index 375404d..44e771e 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -319,7 +319,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.15 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.19 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index f0e322d..35945e4 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -137,7 +137,7 @@ ..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 0.0.2.15 + 0.0.2.19 ..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/Dokumentation/SMB.vb b/Dokumentation/SMB.vb index f0f5cd7..eb4c9b7 100644 --- a/Dokumentation/SMB.vb +++ b/Dokumentation/SMB.vb @@ -2,7 +2,7 @@ Public Class SMB - Property fileserver As String = "pandorasbox.verag.ost.dmn" + Property fileserver As String = "stor10.verag.ost.dmn" Dim ds As New DataSet Private Sub SMB_Load(sender As Object, e As EventArgs) Handles Me.Load Class1.EnableDoubleBuffered(dgv) @@ -31,7 +31,7 @@ Public Class SMB .AutoResizeColumn(2) .AutoResizeColumn(3) End With - counter.Text = dgv.Rows.Count + counter.Text = fileserver & " " & dgv.Rows.Count End Function diff --git a/Dokumentation/uscntr_DomUser.Designer.vb b/Dokumentation/uscntr_DomUser.Designer.vb index 528e3d7..631b6d7 100644 --- a/Dokumentation/uscntr_DomUser.Designer.vb +++ b/Dokumentation/uscntr_DomUser.Designer.vb @@ -58,6 +58,9 @@ Partial Class uscntr_DomUser Me.chkRDP2TS = New System.Windows.Forms.CheckBox() Me.btnAMT = New System.Windows.Forms.Button() Me.rdpadmin = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtComputer2 = New System.Windows.Forms.TextBox() + Me.btnConnectRDPComputer2 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'cmdSave @@ -322,7 +325,7 @@ Partial Class uscntr_DomUser ' Me.chkAutoLogoff.AutoSize = True Me.chkAutoLogoff.CheckAlign = System.Drawing.ContentAlignment.MiddleRight - Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 290) + Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 376) Me.chkAutoLogoff.Name = "chkAutoLogoff" Me.chkAutoLogoff.Size = New System.Drawing.Size(78, 17) Me.chkAutoLogoff.TabIndex = 164 @@ -334,7 +337,7 @@ Partial Class uscntr_DomUser ' Me.DateTimePicker1.Enabled = False Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time - Me.DateTimePicker1.Location = New System.Drawing.Point(103, 287) + Me.DateTimePicker1.Location = New System.Drawing.Point(103, 373) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(82, 20) Me.DateTimePicker1.TabIndex = 165 @@ -346,7 +349,7 @@ Partial Class uscntr_DomUser Me.cmd3Uhr.FlatAppearance.BorderColor = System.Drawing.Color.DimGray Me.cmd3Uhr.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cmd3Uhr.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cmd3Uhr.Location = New System.Drawing.Point(191, 287) + Me.cmd3Uhr.Location = New System.Drawing.Point(191, 373) Me.cmd3Uhr.Name = "cmd3Uhr" Me.cmd3Uhr.Size = New System.Drawing.Size(66, 20) Me.cmd3Uhr.TabIndex = 166 @@ -430,12 +433,44 @@ Partial Class uscntr_DomUser Me.rdpadmin.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.rdpadmin.UseVisualStyleBackColor = True ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(5, 288) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(58, 13) + Me.Label5.TabIndex = 177 + Me.Label5.Text = "Computer2" + ' + 'txtComputer2 + ' + Me.txtComputer2.Location = New System.Drawing.Point(8, 304) + Me.txtComputer2.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3) + Me.txtComputer2.Name = "txtComputer2" + Me.txtComputer2.Size = New System.Drawing.Size(300, 20) + Me.txtComputer2.TabIndex = 176 + ' + 'btnConnectRDPComputer2 + ' + Me.btnConnectRDPComputer2.BackColor = System.Drawing.SystemColors.ControlLightLight + Me.btnConnectRDPComputer2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray + Me.btnConnectRDPComputer2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnConnectRDPComputer2.Location = New System.Drawing.Point(118, 330) + Me.btnConnectRDPComputer2.Name = "btnConnectRDPComputer2" + Me.btnConnectRDPComputer2.Size = New System.Drawing.Size(104, 23) + Me.btnConnectRDPComputer2.TabIndex = 175 + Me.btnConnectRDPComputer2.Text = "RDP Fenster" + Me.btnConnectRDPComputer2.UseVisualStyleBackColor = False + ' 'uscntr_DomUser ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtComputer2) + Me.Controls.Add(Me.btnConnectRDPComputer2) Me.Controls.Add(Me.rdpadmin) Me.Controls.Add(Me.btnAMT) Me.Controls.Add(Me.chkRDP2TS) @@ -473,7 +508,7 @@ Partial Class uscntr_DomUser Me.Controls.Add(Me.ChkKennwortAnzeigen) Me.Controls.Add(Me.cmdSave) Me.Name = "uscntr_DomUser" - Me.Size = New System.Drawing.Size(678, 369) + Me.Size = New System.Drawing.Size(678, 413) Me.ResumeLayout(False) Me.PerformLayout() @@ -515,4 +550,7 @@ Partial Class uscntr_DomUser Friend WithEvents chkRDP2TS As CheckBox Friend WithEvents btnAMT As Button Friend WithEvents rdpadmin As CheckBox + Friend WithEvents Label5 As Label + Friend WithEvents txtComputer2 As TextBox + Friend WithEvents btnConnectRDPComputer2 As Button End Class diff --git a/Dokumentation/uscntr_DomUser.vb b/Dokumentation/uscntr_DomUser.vb index 6112c99..9ce5b2d 100644 --- a/Dokumentation/uscntr_DomUser.vb +++ b/Dokumentation/uscntr_DomUser.vb @@ -19,6 +19,8 @@ chkEMailAktiv.Checked = DomUser.du_Email_Activated txtInfo.Text = DomUser.du_Info txtComputer.Text = DomUser.du_computer + txtComputer2.Text = DomUser.du_computer2 + txtDomKennwort.Text = DomUser.du_Kennwort txtEMailAdresse.Enabled = DomUser.du_Email_Activated @@ -42,6 +44,7 @@ DomUser.du_EMail = txtEMailAdresse.Text DomUser.du_Info = txtInfo.Text DomUser.du_computer = txtComputer.Text + DomUser.du_computer2 = txtComputer2.Text DomUser.du_autologoff = chkAutoLogoff.Checked DomUser.du_autologofftime = DateTimePicker1.Value End Function @@ -147,4 +150,9 @@ Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles rdpadmin.CheckedChanged End Sub + + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnConnectRDPComputer2.Click + cExtProgramme.RDPConnect(txtComputer2.Text, txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True, rdpadmin.Checked) + End Sub End Class