Chat etc.
This commit is contained in:
@@ -32,6 +32,8 @@ Public Class Main
|
||||
|
||||
Public printds As DataSet = Nothing
|
||||
|
||||
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
|
||||
|
||||
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
@@ -190,7 +192,10 @@ Public Class Main
|
||||
|
||||
'MsgBox(LstStandort.Items.Count)
|
||||
If Class1.LoggedOnUser.Domäne = "verag.ost.dmn" Then
|
||||
LstStandort.SelectedItem = "Verag_SUB"
|
||||
Try
|
||||
LstStandort.SelectedItem = "Verag_SUB"
|
||||
Catch
|
||||
End Try
|
||||
' MsgBox("Hier")
|
||||
Else
|
||||
LstStandort.SelectedIndex = 0
|
||||
@@ -532,18 +537,19 @@ Public Class Main
|
||||
MsgBox("With DGV: " & ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
|
||||
Try
|
||||
DgVMain.ClearSelection()
|
||||
DgVMain.Rows(SelectedDGVIndex).Selected = True
|
||||
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
|
||||
Catch
|
||||
End Try
|
||||
Else
|
||||
DgVMain.Rows(0).Selected = True
|
||||
End If
|
||||
|
||||
Try
|
||||
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
|
||||
Try
|
||||
DgVMain.ClearSelection()
|
||||
DgVMain.Rows(SelectedDGVIndex).Selected = True
|
||||
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
|
||||
Catch
|
||||
End Try
|
||||
Else
|
||||
DgVMain.Rows(0).Selected = True
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
|
||||
Dim indexDHCP As Integer = DgVMain.Columns("DHCP").Index
|
||||
@@ -669,9 +675,7 @@ Public Class Main
|
||||
|
||||
End Sub
|
||||
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
|
||||
Dim test As New cDomUser
|
||||
test.getDomUserByID("7a5ea2da4ec34c74b3145bf090b39631")
|
||||
MsgBox(test.du_Nachname)
|
||||
Class1.CopyDirectory("\\\\datenarchiv.verag.ost.dmn\Datenarchiv\DOKUMENTE\CHAT_EMOJIS\", sAppPath & "\Test\")
|
||||
End Sub
|
||||
|
||||
Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
|
||||
@@ -773,10 +777,7 @@ Public Class Main
|
||||
NetzwerkAdmin.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
LstStandortLoad()
|
||||
NetzwerkInfoAnzeige()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick
|
||||
If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
|
||||
@@ -800,7 +801,7 @@ Public Class Main
|
||||
TypeFilter()
|
||||
End Sub
|
||||
|
||||
Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick, DgVMain.RowHeaderMouseDoubleClick
|
||||
Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick ', DgVMain.RowHeaderMouseDoubleClick
|
||||
If Tabelle = "TbL_Netzwerkclients" Then
|
||||
Dim frm As New frmHostBearbeiten
|
||||
Try
|
||||
@@ -896,16 +897,16 @@ Public Class Main
|
||||
|
||||
Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs)
|
||||
werbinich()
|
||||
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
|
||||
cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
|
||||
End Sub
|
||||
|
||||
Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click
|
||||
werbinich()
|
||||
Ext_Programme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
|
||||
cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
|
||||
End Sub
|
||||
|
||||
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
|
||||
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
|
||||
cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
|
||||
End Sub
|
||||
|
||||
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
|
||||
@@ -917,15 +918,14 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
Private Sub CmdPing_Click(sender As Object, e As EventArgs) Handles CmdPing.Click, PingToolStripMenuItem.Click
|
||||
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value)
|
||||
cExtProgramme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value)
|
||||
End Sub
|
||||
|
||||
Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click
|
||||
If DgVMain.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
|
||||
explorerstarten("Client")
|
||||
Else
|
||||
LblUhrzeit.Text = "Keine Auswahl getätigt"
|
||||
End If
|
||||
If DgVMain.GetCellCount(DataGridViewElementStates.Selected) = 0 Then Exit Sub
|
||||
explorerstarten("Client")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CmdNWDateien_Click(sender As Object, e As EventArgs) Handles CmdNWDateien.Click, NetzwerkdateienToolStripMenuItem.Click
|
||||
@@ -944,57 +944,7 @@ Public Class Main
|
||||
If Tabelle = "TbL_Netzwerkclients" Then
|
||||
werbinich()
|
||||
If sender = "Client" Then
|
||||
Try
|
||||
'dbload()
|
||||
'con.Open()
|
||||
'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
|
||||
'sda.Fill(ds)
|
||||
'con.Close()
|
||||
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
|
||||
|
||||
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
islinked = "0"
|
||||
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
islinked = ds.Tables(0).Rows(0).Item("Linked")
|
||||
End If
|
||||
|
||||
If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
LinkedWith = ""
|
||||
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
|
||||
End If
|
||||
'Dim linked As Integer = ds.Tables(0).Rows(0).Item("Linked")
|
||||
'Dim IPA As String = ds.Tables(0).Rows(0).Item("LinkedWith")
|
||||
If islinked = "1" Then
|
||||
Dim dslinked As New DataSet()
|
||||
|
||||
'dbload()
|
||||
'con.Open()
|
||||
|
||||
'Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
|
||||
'da.Fill(dslinked)
|
||||
|
||||
'con.Close()
|
||||
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
|
||||
Select Case art
|
||||
Case "Dateien"
|
||||
Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
|
||||
Case "SMB"
|
||||
Path = "\\" & dslinked.Tables(0).Rows(0).Item("IPAdresse")
|
||||
End Select
|
||||
|
||||
Else
|
||||
Select Case art
|
||||
Case "Dateien"
|
||||
Path = Class1.FilePath & "\" & SenderStandort & "_" & SenderNetzwerk & "\" & SenderHost
|
||||
Case "SMB"
|
||||
Path = "\\" & SenderIP
|
||||
End Select
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("ExplorerStarten() Tbl_Netzwerkclients: " & ex.Message)
|
||||
End Try
|
||||
cFolder.explorerstarten(SenderIP) : Exit Function
|
||||
ElseIf sender = "Netzwerk" Then
|
||||
|
||||
Path = Class1.FilePath & "\" & SenderStandort & "_Allgemein"
|
||||
@@ -1004,40 +954,41 @@ Public Class Main
|
||||
ElseIf Tabelle = "TbL_Allgemein" Then
|
||||
|
||||
Try
|
||||
dbload()
|
||||
con.Open()
|
||||
Dim sda As New SqlDataAdapter("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", con)
|
||||
sda.Fill(ds)
|
||||
con.Close()
|
||||
'dbload()
|
||||
'con.Open()
|
||||
'Dim sda As New SqlDataAdapter("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", con)
|
||||
'sda.Fill(ds)
|
||||
'con.Close()
|
||||
cSQL.SQL2DS("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", ds)
|
||||
Dim Info As String = ds.Tables(0).Rows(0).Item("Info")
|
||||
|
||||
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
islinked = "0"
|
||||
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
islinked = ds.Tables(0).Rows(0).Item("Linked")
|
||||
End If
|
||||
If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
LinkedWith = ""
|
||||
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
|
||||
End If
|
||||
'If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
' islinked = "0"
|
||||
'ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
' islinked = ds.Tables(0).Rows(0).Item("Linked")
|
||||
'End If
|
||||
'If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
' LinkedWith = ""
|
||||
'ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
|
||||
' LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
|
||||
'End If
|
||||
|
||||
If islinked = "1" Then
|
||||
Dim dslinked As New DataSet()
|
||||
'If islinked = "1" Then
|
||||
' Dim dslinked As New DataSet()
|
||||
|
||||
dbload()
|
||||
con.Open()
|
||||
' dbload()
|
||||
' con.Open()
|
||||
|
||||
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
|
||||
da.Fill(dslinked)
|
||||
' Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
|
||||
' da.Fill(dslinked)
|
||||
|
||||
con.Close()
|
||||
' con.Close()
|
||||
|
||||
Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
|
||||
Else
|
||||
'MsgBox("not linked")
|
||||
Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost
|
||||
End If
|
||||
' Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
|
||||
'Else
|
||||
' 'MsgBox("not linked")
|
||||
Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
MsgBox("ExplorerStarten() Tbl_Allgemein: " & ex.Message)
|
||||
End Try
|
||||
@@ -1102,7 +1053,7 @@ Public Class Main
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub ErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErstellenToolStripMenuItem.Click
|
||||
Private Sub ErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
neuerEintrag()
|
||||
End Sub
|
||||
|
||||
@@ -1192,6 +1143,7 @@ Public Class Main
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Kann Versionen nicht vergleichen: " & ex.Message)
|
||||
TimerUpdate.Enabled = False
|
||||
End Try
|
||||
|
||||
|
||||
@@ -1211,7 +1163,7 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
Private Sub TimerUpdate_Tick(sender As Object, e As EventArgs) Handles TimerUpdate.Tick
|
||||
If Class1.DebugMode = False Then CheckUpdate("Timer")
|
||||
If Class1.DebugMode = False Then CheckUpdate("Timer")
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1280,7 +1232,7 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
Private Sub PingtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PingtToolStripMenuItem.Click, CmdPintT.Click
|
||||
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t")
|
||||
cExtProgramme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t")
|
||||
End Sub
|
||||
|
||||
Private Sub AllesSichernCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesSichernCSVToolStripMenuItem.Click
|
||||
@@ -1313,7 +1265,7 @@ Public Class Main
|
||||
Dim Host2Connect As New cHost
|
||||
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
|
||||
If Host2Connect.TeamviewerID.Length > 1 Then
|
||||
Ext_Programme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
|
||||
cExtProgramme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
|
||||
Else
|
||||
MsgBox("TeamviewerID nicht eingepflegt!")
|
||||
End If
|
||||
@@ -1333,8 +1285,96 @@ Public Class Main
|
||||
End Function
|
||||
End Sub
|
||||
|
||||
Private Sub DgVMain_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentClick
|
||||
Dim Timer_REFRESH_firstTime = True
|
||||
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_Refresh.Tick
|
||||
If Timer_REFRESH_firstTime Then
|
||||
Timer_REFRESH_firstTime = False
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
|
||||
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
|
||||
' MsgBox(newMsg)
|
||||
Label20.Text = newMsg
|
||||
Label20.Visible = (newMsg > 0)
|
||||
If newMsg Then
|
||||
' Me.Icon = My.Resources.avisoNewMsg
|
||||
|
||||
Dim isshown = False
|
||||
For Each openForm In Application.OpenForms()
|
||||
If TypeOf (openForm) Is frmNotify Then
|
||||
isshown = True
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim isInFront = False
|
||||
For Each openForm In Application.OpenForms()
|
||||
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
||||
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
|
||||
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
|
||||
isInFront = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
|
||||
Else
|
||||
' Me.Icon = My.Resources.Aviso
|
||||
End If
|
||||
If Label20.Visible Then Label20.BringToFront()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
|
||||
|
||||
For Each openForm In Application.OpenForms()
|
||||
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
||||
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
|
||||
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
|
||||
f.Location = Cursor.Position
|
||||
f.Show(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
|
||||
' Exit Sub 'NICHT AKTIV
|
||||
Dim formTmp = Me.ActiveForm
|
||||
Dim frmNotify As New frmNotify(art, title, text, id)
|
||||
frmNotify.TimerInterval = 1200000 ' 20min
|
||||
|
||||
|
||||
Dim tmpY As Integer = Me.Height
|
||||
If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
|
||||
|
||||
For Each ft As Form In Application.OpenForms
|
||||
' MsgBox(ft.GetType.ToString)
|
||||
If ft.GetType.ToString = "frmNotify" Then
|
||||
If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
|
||||
End If
|
||||
Next
|
||||
frmNotify.Y = tmpY - frmNotify.Height - 10
|
||||
frmNotify.Show()
|
||||
|
||||
' If formTmp IsNot Nothing Then formTmp.Focus()
|
||||
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()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
LstStandortLoad()
|
||||
'dgvload_filter
|
||||
End Sub
|
||||
|
||||
Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
|
||||
@@ -1463,6 +1503,7 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
'1208
|
||||
|
||||
Reference in New Issue
Block a user