update to devexpress 15.2.16, add logger, add config
This commit is contained in:
Jonathan Jenne
parent
18b8cd5c23
commit
40460d7af9
@ -1,17 +1,15 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||
<section name="DD_Clipboard_Watcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<section name="DD_Clipboard_Watcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<connectionStrings>
|
||||
<add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString"
|
||||
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
|
||||
providerName="System.Data.SqlClient" />
|
||||
<add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
|
||||
</connectionStrings>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
|
||||
</startup>
|
||||
<userSettings>
|
||||
<DD_Clipboard_Watcher.My.MySettings>
|
||||
@ -20,4 +18,4 @@
|
||||
</setting>
|
||||
</DD_Clipboard_Watcher.My.MySettings>
|
||||
</userSettings>
|
||||
</configuration>
|
||||
</configuration>
|
||||
|
||||
@ -27,7 +27,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
|
||||
'Dim CapTxt As String = clsWINDOWSApi.GetCaption()
|
||||
If IsNothing(PROC_Name) Then Exit Sub
|
||||
If PROC_Name.StartsWith("DD_Clipboard_Watcher") Then Exit Sub
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >>{0} - Clipboard ChangedEvent for process '{1}' fired!", Now.ToString, PROC_Name), False)
|
||||
'Logger.Debug(String.Format(" >>{0} - Clipboard ChangedEvent for process '{1}' fired!", Now.ToString, PROC_Name), False)
|
||||
' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub
|
||||
RaiseEvent Changed(Me, EventArgs.Empty)
|
||||
End Select
|
||||
|
||||
9
app/DD_Clipboard_Searcher/ClassConfig.vb
Normal file
9
app/DD_Clipboard_Searcher/ClassConfig.vb
Normal file
@ -0,0 +1,9 @@
|
||||
Imports DigitalData.Modules.Config.ConfigAttributes
|
||||
|
||||
Public Class ClassConfig
|
||||
<ConnectionString>
|
||||
Public Property ConnectionString As String = ""
|
||||
Public Property LogErrorsOnly As Boolean = True
|
||||
Public Property HotkeyFunctionKey As String = "strg"
|
||||
Public Property HotkeySearchKey As String = "f"
|
||||
End Class
|
||||
@ -1,24 +1,13 @@
|
||||
Imports System.ComponentModel
|
||||
Imports DD_LIB_Standards
|
||||
Imports System.IO
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.Config
|
||||
|
||||
Public Class ClassInit
|
||||
Public _lizenzManager As clsLicenseManager
|
||||
Public Sub InitLogger()
|
||||
Try
|
||||
' legt den Speicherort fest
|
||||
Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\Clipboard Watcher\Log"))
|
||||
If IO.Directory.Exists(f.ToString) = False Then
|
||||
IO.Directory.CreateDirectory(f.ToString)
|
||||
End If
|
||||
|
||||
Dim logfilename As String = f.ToString & "\" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
|
||||
LOGGER_FILEPATH = logfilename
|
||||
clsLogger.LOGFILE_PATH = LOGGER_FILEPATH
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error while initializing Logger: " & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
LogConfig = New LogConfig(LogConfig.PathType.AppData)
|
||||
Logger = LogConfig.GetLogger()
|
||||
End Sub
|
||||
Public Function InitDatabase()
|
||||
Dim dbResult As Boolean
|
||||
@ -41,14 +30,47 @@ Public Class ClassInit
|
||||
End If
|
||||
End Function
|
||||
Public Function InitBasics()
|
||||
Dim configResult As Boolean
|
||||
configResult = LoadMyConfig()
|
||||
If configResult = False Then
|
||||
Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
|
||||
ConfigManager = New ConfigManager(Of ClassConfig)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath)
|
||||
|
||||
With ConfigManager.Config
|
||||
MyConnectionString = DecryptConnectionString(.ConnectionString)
|
||||
LogErrorsOnly = .LogErrorsOnly
|
||||
HotkeyFunctionKey = .HotkeyFunctionKey
|
||||
HotkeySearchKey = .HotkeySearchKey
|
||||
|
||||
LogConfig.Debug = Not .LogErrorsOnly
|
||||
End With
|
||||
'Dim configResult As Boolean
|
||||
'configResult = LoadMyConfig()
|
||||
'If configResult = False Then
|
||||
' Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
|
||||
'Else
|
||||
' Return False
|
||||
'End If
|
||||
End Function
|
||||
|
||||
Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
|
||||
Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
|
||||
.ConnectionString = EncryptedConnectionString
|
||||
}
|
||||
|
||||
If oBuilder.ConnectionString.Contains("Password=") Then
|
||||
Dim oPlaintextPassword As String
|
||||
Dim oDecryptor As New clsEncryption("!35452didalog=")
|
||||
|
||||
Try
|
||||
oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Logger.Debug("Password {0} could not be decrypted. Assuming plaintext password.")
|
||||
oPlaintextPassword = oBuilder.Password
|
||||
End Try
|
||||
Return EncryptedConnectionString.Replace(oBuilder.Password, oPlaintextPassword)
|
||||
Else
|
||||
Return False
|
||||
Return EncryptedConnectionString
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function InitUserLogin(Optional _User As String = "")
|
||||
Try
|
||||
If _User = "" Then
|
||||
@ -63,13 +85,13 @@ Public Class ClassInit
|
||||
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
|
||||
CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
|
||||
Else
|
||||
clsLogger.Add("User '" & USER_USERNAME & "' not related to a client", True)
|
||||
Logger.Info("User '" & USER_USERNAME & "' not related to a client", True)
|
||||
ERROR_INIT = "NO CLIENT"
|
||||
'ERROR_STATE = "NO CLIENT"
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected error in checking CLIENT: " & ex.Message)
|
||||
Logger.Info("Unexpected error in checking CLIENT: " & ex.Message)
|
||||
CLIENT_SELECTED = 1
|
||||
End Try
|
||||
|
||||
@ -77,14 +99,14 @@ Public Class ClassInit
|
||||
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = clsDatabase.Return_Datatable(sql)
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
|
||||
clsLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
'ERROR_STATE = "NO USER"
|
||||
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
|
||||
clsLogger.Add(">> Login Username: " & USER_USERNAME, False)
|
||||
clsLogger.Add(">> Login time: " & Now.ToString, False)
|
||||
Logger.Info(">> Login Username: " & USER_USERNAME, False)
|
||||
Logger.Info(">> Login time: " & Now.ToString, False)
|
||||
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
|
||||
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
|
||||
USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
|
||||
@ -100,7 +122,7 @@ Public Class ClassInit
|
||||
|
||||
|
||||
Else
|
||||
clsLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
|
||||
Logger.Info(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
|
||||
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
'Me.Close()
|
||||
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
|
||||
@ -110,7 +132,7 @@ Public Class ClassInit
|
||||
|
||||
If USER_IN_MODULE = False Then
|
||||
If USER_IS_ADMIN = False Then
|
||||
clsLogger.Add(" - User: " & USER_USERNAME & " not related to module!", False)
|
||||
Logger.Info(" - User: " & USER_USERNAME & " not related to module!", False)
|
||||
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!")
|
||||
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
@ -146,7 +168,7 @@ Public Class ClassInit
|
||||
|
||||
WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
|
||||
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
|
||||
Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
|
||||
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
|
||||
|
||||
@ -155,12 +177,12 @@ Public Class ClassInit
|
||||
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
|
||||
End If
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
clsLogger.Add(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
|
||||
Logger.Info(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
|
||||
If USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
|
||||
clsDatabase.Execute_non_Query(sql, True)
|
||||
clsLogger.Add(" - logged out the user", False)
|
||||
Logger.Info(" - logged out the user", False)
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
@ -168,7 +190,7 @@ Public Class ClassInit
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
Logger.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@ -47,7 +47,7 @@ Public Class ClassWindowLocation
|
||||
|
||||
Next
|
||||
Catch notFoundEx As System.IO.FileNotFoundException
|
||||
clsLogger.Add("Window Position & Size added for Form " & form.Name)
|
||||
Logger.Info("Window Position & Size added for Form " & form.Name)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@ -82,7 +82,7 @@ Public Class ClassWindowLocation
|
||||
|
||||
layout.Save(settings)
|
||||
Catch notFoundEx As System.IO.FileNotFoundException
|
||||
clsLogger.Add("Window Position & Size added for Form " & form.Name)
|
||||
Logger.Info("Window Position & Size added for Form " & form.Name)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
@ -11,8 +11,9 @@
|
||||
<AssemblyName>DD_Clipboard_Watcher</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
@ -53,44 +54,59 @@
|
||||
<Reference Include="DD_LIB_Standards">
|
||||
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Data.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Printing.v15.2.Core.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Utils.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraGrid.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll</HintPath>
|
||||
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Config">
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Logging">
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.CSharp" />
|
||||
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.ComponentModel.DataAnnotations" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Data.Linq" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.IO.Compression" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.ServiceModel" />
|
||||
<Reference Include="System.Transactions" />
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
@ -113,6 +129,7 @@
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Class1.vb" />
|
||||
<Compile Include="ClassConfig.vb" />
|
||||
<Compile Include="ClassInit.vb" />
|
||||
<Compile Include="ClassLayout.vb" />
|
||||
<Compile Include="clsHotkey.vb" />
|
||||
@ -235,6 +252,7 @@
|
||||
<None Include="MyDataset.xss">
|
||||
<DependentUpon>MyDataset.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="packages.config" />
|
||||
<None Include="Resources\folder_Open_16xLG.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
|
||||
290
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj.bak
Normal file
290
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj.bak
Normal file
@ -0,0 +1,290 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
|
||||
<RootNamespace>DD_Clipboard_Watcher</RootNamespace>
|
||||
<AssemblyName>DD_Clipboard_Watcher</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>DD_Icons_ICO_CBWATCHER_48px.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="DD_LIB_Standards">
|
||||
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Data.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Printing.v15.2.Core.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Sparkline.v15.2.Core.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Utils.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraGrid.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Config">
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Logging">
|
||||
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.CSharp" />
|
||||
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.ComponentModel.DataAnnotations" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Data.Linq" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.IO.Compression" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.ServiceModel" />
|
||||
<Reference Include="System.Transactions" />
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Class1.vb" />
|
||||
<Compile Include="ClassConfig.vb" />
|
||||
<Compile Include="ClassInit.vb" />
|
||||
<Compile Include="ClassLayout.vb" />
|
||||
<Compile Include="clsHotkey.vb" />
|
||||
<Compile Include="clsLicense.vb" />
|
||||
<Compile Include="clsSearch.vb" />
|
||||
<Compile Include="clsWindowApivb.vb" />
|
||||
<Compile Include="clsWINDOWSApi.vb" />
|
||||
<Compile Include="frmAdministration.Designer.vb">
|
||||
<DependentUpon>frmAdministration.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmAdministration.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmClientLogin.designer.vb">
|
||||
<DependentUpon>frmClientLogin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmClientLogin.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense.Designer.vb">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain.Designer.vb">
|
||||
<DependentUpon>frmMain.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmConfig_Basic.Designer.vb">
|
||||
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmConfig_Basic.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmSplash.Designer.vb">
|
||||
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmSplash.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="modCurrent.vb" />
|
||||
<Compile Include="modMySettings.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="MyDataset.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>MyDataset.xsd</DependentUpon>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frmAdministration.resx">
|
||||
<DependentUpon>frmAdministration.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmClientLogin.en.resx">
|
||||
<DependentUpon>frmClientLogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmClientLogin.resx">
|
||||
<DependentUpon>frmClientLogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmLicense.resx">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMain.resx">
|
||||
<DependentUpon>frmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmConfig_Basic.resx">
|
||||
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmSplash.resx">
|
||||
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="MyDataset.xsc">
|
||||
<DependentUpon>MyDataset.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="MyDataset.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
<Generator>MSDataSetGenerator</Generator>
|
||||
<LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="MyDataset.xss">
|
||||
<DependentUpon>MyDataset.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="packages.config" />
|
||||
<None Include="Resources\folder_Open_16xLG.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\KeyDown_8461.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\StatusAnnotations_Stop_16xLG.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\control_start_blue.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\GoToDefinition_5575.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Annotation_New.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
|
||||
<Content Include="KeyOutput_8167.ico" />
|
||||
<None Include="Resources\refresh_16xLG.png" />
|
||||
<None Include="Resources\Symbols_Stop_16xLG.png" />
|
||||
<None Include="Resources\startwithoutdebugging_6556.png" />
|
||||
<None Include="Resources\ReduceSize.png" />
|
||||
<None Include="Resources\KeyOutput_8167.png" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@ -15,7 +15,7 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.5.0.0"), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
@ -1 +0,0 @@
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
1
app/DD_Clipboard_Searcher/My Project/licenses.licx.bak
Normal file
1
app/DD_Clipboard_Searcher/My Project/licenses.licx.bak
Normal file
@ -0,0 +1 @@
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
@ -27,7 +27,7 @@ Public Class clsSearch
|
||||
Dim extension = Path.GetExtension(BaseSearch)
|
||||
Dim windream_temp_search As String = ""
|
||||
If IO.File.Exists(BaseSearch) = False Then
|
||||
clsLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
|
||||
Logger.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
|
||||
MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical)
|
||||
Return Nothing
|
||||
End If
|
||||
@ -47,15 +47,15 @@ Public Class clsSearch
|
||||
|
||||
If WD_UNICODE = True Then
|
||||
EncodingFormat = Encoding.GetEncoding(1252) '1252
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
|
||||
Logger.Debug(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
|
||||
Else
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False)
|
||||
Logger.Debug(" ...UTF8 (Encoding.GetEncoding(65001))", False)
|
||||
EncodingFormat = Encoding.GetEncoding(65001)
|
||||
End If
|
||||
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...ReadAlltext: " & BaseSearch, False)
|
||||
Logger.Debug(" ...ReadAlltext: " & BaseSearch, False)
|
||||
fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...fileContents geladen", False)
|
||||
Logger.Debug(" ...fileContents geladen", False)
|
||||
fileContents = fileContents.Replace("Í", "Ö")
|
||||
fileContents = fileContents.Replace("@Clipboard", CURR_MATCH_RESULT)
|
||||
fileContents = fileContents.Replace("@CLIPBOARD", CURR_MATCH_RESULT)
|
||||
@ -68,7 +68,7 @@ Public Class clsSearch
|
||||
Try
|
||||
'Die File schreiben
|
||||
My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
|
||||
Logger.Debug(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
|
||||
' XML-Datei öffnen und laden
|
||||
Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
|
||||
Dim Reader As New System.Xml.XmlTextReader(Stream)
|
||||
@ -79,9 +79,9 @@ Public Class clsSearch
|
||||
xml.Load(Reader)
|
||||
Reader.Close()
|
||||
xml.Save(windream_temp_search)
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ...Xml Generiert: " & windream_temp_search, False)
|
||||
Logger.Debug(" ...Xml Generiert: " & windream_temp_search, False)
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("TempFile could not be created: " & ex.Message, True)
|
||||
Logger.Info("TempFile could not be created: " & ex.Message, True)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler in Write XmlSearch:")
|
||||
End Try
|
||||
|
||||
@ -103,14 +103,14 @@ Public Class clsSearch
|
||||
Dim rctMain As RECT
|
||||
GetWindowRect(p.MainWindowHandle, rctMain)
|
||||
If LogErrorsOnly = False Then
|
||||
clsLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False)
|
||||
clsLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False)
|
||||
clsLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False)
|
||||
clsLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
|
||||
Logger.Debug(" ...Top-Position: " & rctMain.Top.ToString, False)
|
||||
Logger.Debug(" ...Left-Position: " & rctMain.Left.ToString, False)
|
||||
Logger.Debug(" ...Right-Position: " & rctMain.Right.ToString, False)
|
||||
Logger.Debug(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen der windream-Suche:")
|
||||
clsLogger.Add("Unexpected error while executing search: " & ex.Message, True)
|
||||
Logger.Info("Unexpected error while executing search: " & ex.Message, True)
|
||||
Return "Unexpected error while executing search"
|
||||
End Try
|
||||
Dim psList() As Process
|
||||
@ -134,19 +134,19 @@ Public Class clsSearch
|
||||
Next p
|
||||
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected error while Setting foreground: " & ex.Message)
|
||||
Logger.Info("Unexpected error while Setting foreground: " & ex.Message)
|
||||
End Try
|
||||
CURR_MATCH_WM_SEARCH = Nothing
|
||||
CURR_MATCH_RESULT = Nothing
|
||||
Return ""
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected error in Create Search: " & ex.Message)
|
||||
Logger.Info("Unexpected error in Create Search: " & ex.Message)
|
||||
MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return "Unexpected error in Create Search"
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message)
|
||||
Logger.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message)
|
||||
MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
|
||||
End Try
|
||||
|
||||
@ -25,7 +25,7 @@ Public Class clsWINDOWSApi
|
||||
Dim enumerator1 As New clsWindowApi
|
||||
'Jedes Formularwindow durchlaufen
|
||||
For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows()
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
|
||||
Logger.Debug(" ... top-window Name: " & top.MainWindowTitle, False)
|
||||
If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
|
||||
Console.WriteLine(top.MainWindowTitle)
|
||||
Return False
|
||||
@ -33,7 +33,7 @@ Public Class clsWINDOWSApi
|
||||
Next top
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
clsLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
|
||||
Logger.Info(">> Error in IsRelevantWindow:" & ex.Message, False)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@ -38,7 +38,11 @@ Public Class frmConfig_Basic
|
||||
Dim pw As String = cipherText
|
||||
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
|
||||
End If
|
||||
SaveConfigValue("MyConnectionString", con)
|
||||
|
||||
'SaveConfigValue("MyConnectionString", con)
|
||||
ConfigManager.Config.ConnectionString = con
|
||||
ConfigManager.Save()
|
||||
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = MyConnectionString
|
||||
Dim constr = connection.ConnectionString
|
||||
@ -136,15 +140,11 @@ Public Class frmConfig_Basic
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||||
' Specify that the link was visited.
|
||||
Me.LinkLabel1.LinkVisited = True
|
||||
LinkLabel1.LinkVisited = True
|
||||
' Navigate to a URL.
|
||||
System.Diagnostics.Process.Start("http://www.didalog.de/Support")
|
||||
Process.Start("http://www.didalog.de/Support")
|
||||
End Sub
|
||||
|
||||
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
|
||||
@ -152,12 +152,16 @@ Public Class frmConfig_Basic
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Process.Start(System.IO.Path.GetDirectoryName(LOGGER_FILEPATH))
|
||||
Process.Start(LogConfig.LogDirectory)
|
||||
End Sub
|
||||
|
||||
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
|
||||
LogErrorsOnly = chkLogErrorsOnly.Checked
|
||||
SaveConfigValue("LogErrorsOnly", LogErrorsOnly)
|
||||
LogConfig.Debug = Not LogErrorsOnly
|
||||
|
||||
'SaveConfigValue("LogErrorsOnly", LogErrorsOnly)
|
||||
ConfigManager.Config.LogErrorsOnly = LogErrorsOnly
|
||||
ConfigManager.Save()
|
||||
End Sub
|
||||
|
||||
|
||||
@ -174,9 +178,6 @@ Public Class frmConfig_Basic
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@ -209,8 +210,13 @@ Public Class frmConfig_Basic
|
||||
Try
|
||||
If cmbfunctionHit.SelectedIndex <> -1 Then
|
||||
Hotkey.RemoveHotKey(354523017)
|
||||
SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
|
||||
SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
|
||||
|
||||
'SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
|
||||
'SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
|
||||
ConfigManager.Config.HotkeyFunctionKey = cmbfunctionHit.Text
|
||||
ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text
|
||||
ConfigManager.Save()
|
||||
|
||||
Dim keyCode As Keys
|
||||
Dim kc As New KeysConverter
|
||||
Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper)
|
||||
|
||||
@ -37,7 +37,7 @@ Public Class frmMain
|
||||
'End With
|
||||
Dim found As Boolean = False
|
||||
CLIPBOARD_TEXT = Clipboard.GetText
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >>{0} - Clipboard-Watcher fired for process '{1}'", Now.ToString, PROC_Name), False)
|
||||
Logger.Debug(String.Format(" >>{0} - Clipboard-Watcher fired for process '{1}'", Now.ToString, PROC_Name), False)
|
||||
|
||||
For Each row As DataRow In DT_USER_PROFILES.Rows
|
||||
If found = True Then Exit For
|
||||
@ -56,16 +56,16 @@ Public Class frmMain
|
||||
End If
|
||||
'Else
|
||||
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", String.Format("Clipboard Watcher fired but Clipboardcontent is equal: '{0}'", CURR_MATCH_RESULT), ToolTipIcon.Info)
|
||||
' If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> {0} - Equal Clipboard-result '{1}'", Now.ToString, CURR_MATCH_RESULT), False)
|
||||
' Logger.Debug(String.Format(" >> {0} - Equal Clipboard-result '{1}'", Now.ToString, CURR_MATCH_RESULT), False)
|
||||
' Exit For
|
||||
'End If
|
||||
Else
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> {0} - No regex-match for cliboardtext '{1}'", Now.ToString, match.Groups(0).Value), False)
|
||||
Logger.Debug(String.Format(" >> {0} - No regex-match for cliboardtext '{1}'", Now.ToString, match.Groups(0).Value), False)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If found = False Then
|
||||
If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, PROC_Name), False)
|
||||
Logger.Debug(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, PROC_Name), False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@ -94,7 +94,7 @@ Public Class frmMain
|
||||
End Sub
|
||||
|
||||
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
clsLogger.Add(">> Logout time: " & Now.ToString, False)
|
||||
Logger.Info(">> Logout time: " & Now.ToString, False)
|
||||
If ERROR_INIT = "INVALID USER" Or ERROR_INIT = "NO CLIENT" Then
|
||||
Exit Sub
|
||||
End If
|
||||
@ -129,7 +129,7 @@ Public Class frmMain
|
||||
|
||||
End Try
|
||||
If clsLogger.LOGG_MSG <> String.Empty Then
|
||||
clsLogger.Add(clsLogger.LOGG_MSG, False)
|
||||
Logger.Info(clsLogger.LOGG_MSG, False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@ -1,4 +1,11 @@
|
||||
Module modCurrent
|
||||
Imports DigitalData.Modules.Config
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Module modCurrent
|
||||
Public LogConfig As LogConfig
|
||||
Public Logger As Logger
|
||||
|
||||
Public ConfigManager As ConfigManager(Of ClassConfig)
|
||||
|
||||
Public MyConnectionString As String = ""
|
||||
Public HotkeyFunctionKey As String = "strg"
|
||||
@ -47,7 +54,6 @@
|
||||
Public PROC_PID As String
|
||||
Public PROC_Name As String
|
||||
Public PROC_WindowTitle As String
|
||||
Public LOGGER_FILEPATH As String
|
||||
|
||||
Public CLIENT_SELECTED As Integer = 0
|
||||
End Module
|
||||
|
||||
@ -30,7 +30,7 @@ Module modMySettings
|
||||
Try
|
||||
PWplainText = wrapper.DecryptData(csb.Password)
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
|
||||
Logger.Info("- the Password '" & csb.Password & "' could not be decrypted", False)
|
||||
PWplainText = csb.Password
|
||||
End Try
|
||||
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
|
||||
|
||||
4
app/DD_Clipboard_Searcher/packages.config
Normal file
4
app/DD_Clipboard_Searcher/packages.config
Normal file
@ -0,0 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<packages>
|
||||
<package id="NLog" version="4.5.11" targetFramework="net451" />
|
||||
</packages>
|
||||
Loading…
x
Reference in New Issue
Block a user