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