105 lines
3.9 KiB
VB.net
105 lines
3.9 KiB
VB.net
Public Class uscntr_TSSitzungen
|
|
|
|
Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Load2DGV()
|
|
End Sub
|
|
|
|
Function Load2DGV(Optional ByVal WhereString As String = "")
|
|
Dim ds As New DataSet
|
|
cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
|
|
|
|
With dgvTSSitzungen
|
|
.RowHeadersVisible = False
|
|
.DataSource = ds.Tables(0)
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
|
|
.Columns("BenutzerAnmeldeName").Visible = False
|
|
'.Columns("BenutzerAnmeldeName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("LastLogon").Visible = False
|
|
.Columns("LastLogon").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
'.Columns("LastReport").Width = 85
|
|
'.Columns("TeamviewerID").Width = 80
|
|
'.Columns("TSServer").Width = 60
|
|
End With
|
|
lblAnzahl.Text = dgvTSSitzungen.Rows.Count
|
|
LoadTSServer()
|
|
End Function
|
|
|
|
Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentDoubleClick
|
|
|
|
Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
|
|
StartTeamviewer(sitzung)
|
|
|
|
End Sub
|
|
|
|
Public Function StartTeamviewer(ID As String)
|
|
Dim teamviewer As New Process
|
|
With teamviewer.StartInfo
|
|
.FileName = "Teamviewer.exe"
|
|
.WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
|
|
.Arguments = "-i " & ID & " -P BmWr501956"
|
|
End With
|
|
|
|
teamviewer.Start()
|
|
|
|
End Function
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Load2DGV()
|
|
End Sub
|
|
|
|
Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CmdUpdate.Click, UpdateToolStripMenuItem.Click
|
|
Load2DGV()
|
|
End Sub
|
|
|
|
Private Sub chkAutoUpdate_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoUpdate.CheckedChanged
|
|
If chkAutoUpdate.Checked Then
|
|
Timer1.Enabled = True
|
|
Else
|
|
Timer1.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Function LoadTSServer()
|
|
Dim ds As New DataSet
|
|
cSQL.SQL2DS("SELECT DISTINCT TSServer FROM TbL_TSSitzungen", ds)
|
|
|
|
For Each r As DataRow In ds.Tables(0).Rows
|
|
Class1.TerminalServerList.Add(r.Item(0).ToString)
|
|
Next
|
|
|
|
|
|
End Function
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdNachricht.Click
|
|
Dim send As New frmLeer
|
|
send.Text = "Nachricht senden"
|
|
Dim usrcntrl As New uscntr_SendMSG
|
|
usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
|
|
send.Show()
|
|
End Sub
|
|
|
|
Private Sub NachrichtSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachrichtSendenToolStripMenuItem.Click
|
|
Dim send As New frmLeer
|
|
send.Text = "Nachricht senden"
|
|
Dim usrcntrl As New uscntr_SendMSG
|
|
usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
|
|
usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
|
|
usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString
|
|
usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
|
|
send.Show()
|
|
End Sub
|
|
|
|
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
|
|
Load2DGV(TextBox1.Text)
|
|
End Sub
|
|
|
|
Function ReturnOfTheWhere()
|
|
Dim ding As String = "%{0}%"
|
|
Return String.Format(ding, TextBox1.Text)
|
|
End Function
|
|
|
|
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
|
TextBox1.Text = ""
|
|
End Sub
|
|
End Class
|