AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MSNamenÄndern

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-12-14 13:54:22 +01:00
parent e2234cd110
commit 420d9fedf7
75 changed files with 4818 additions and 4908 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
DD_Clipboard_Searcher/.gitattributes → .gitattributes vendored
View File

0
DD_Clipboard_Searcher/.gitignore → .gitignore vendored
View File

BIN
DD_Clipboard_Searcher.v12.suo
View File

Binary file not shown.

6
DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj.user
View File

@ -1,6 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectView>ShowAllFiles</ProjectView>
</PropertyGroup>
</Project>

BIN
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.exe
View File

Binary file not shown.

23
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.exe.config
View File

@ -1,23 +0,0 @@
<?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_Searcher.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_Searcher.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;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" />
</startup>
<userSettings>
<DD_Clipboard_Searcher.My.MySettings>
<setting name="WDSearch_maximized" serializeAs="String">
<value>False</value>
</setting>
</DD_Clipboard_Searcher.My.MySettings>
</userSettings>
</configuration>

BIN
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.pdb
View File

Binary file not shown.

BIN
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.vshost.exe
View File

Binary file not shown.

23
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.vshost.exe.config
View File

@ -1,23 +0,0 @@
<?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_Searcher.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_Searcher.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;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" />
</startup>
<userSettings>
<DD_Clipboard_Searcher.My.MySettings>
<setting name="WDSearch_maximized" serializeAs="String">
<value>False</value>
</setting>
</DD_Clipboard_Searcher.My.MySettings>
</userSettings>
</configuration>

11
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.vshost.exe.manifest
View File

@ -1,11 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

256
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.xml
View File

@ -1,256 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DD_Clipboard_Searcher
</name>
</assembly>
<members>
<member name="T:DD_Clipboard_Searcher.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.Annotation_New">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.control_start_blue">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.folder_Open_16xLG">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.GoToDefinition_5575">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.KeyDown_8461">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.KeyOutput_8167">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.ReduceSize">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="E:DD_Clipboard_Searcher.clsHotkey.HotKeyPressed">
<summary>
Diesem Event wird immer die zugewiesene HotKeyID übergeben wenn eine HotKey Kombination gedrückt wurde.
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.clsHotkey.AddHotKey(System.Windows.Forms.Keys,DD_Clipboard_Searcher.clsHotkey.MODKEY,System.String)">
<summary>
Diese Funktion fügt einen Hotkey hinzu und registriert ihn auch sofort
</summary>
<param name="KeyCode">Den KeyCode für die Taste</param>
<param name="Modifiers">Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden</param>
<param name="HotKeyID">Die ID die der Hotkey bekommen soll um diesen zu identifizieren</param>
</member>
<member name="M:DD_Clipboard_Searcher.clsHotkey.RemoveHotKey(System.String)">
<summary>
Diese Funktion entfernt einen Hotkey und deregistriert ihn auch sofort
</summary>
<param name="HotKeyID">Gibt die HotkeyID an welche entfernt werden soll</param>
</member>
<member name="M:DD_Clipboard_Searcher.clsWindowApi.GetTopLevelWindows">
<summary>
Get all top-level window information
</summary>
<returns>List of window information objects</returns>
</member>
<member name="M:DD_Clipboard_Searcher.clsWindowApi.GetChildWindows(System.Int32)">
<summary>
Get all child windows for the specific windows handle (hwnd).
</summary>
<returns>List of child windows for parent window</returns>
</member>
<member name="M:DD_Clipboard_Searcher.clsWindowApi.EnumWindowProc(System.Int32,System.Int32)">
<summary>
Callback function that does the work of enumerating top-level windows.
</summary>
<param name="hwnd">Discovered Window handle</param>
<returns>1=keep going, 0=stop</returns>
</member>
<member name="M:DD_Clipboard_Searcher.clsWindowApi.EnumChildWindowProc(System.Int32,System.Int32)">
<summary>
Callback function that does the work of enumerating child windows.
</summary>
<param name="hwnd">Discovered Window handle</param>
<returns>1=keep going, 0=stop</returns>
</member>
<member name="M:DD_Clipboard_Searcher.clsWindowApi.GetWindowIdentification(System.Int32)">
<summary>
Build the ApiWindow object to hold information about the Window object.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset">
<summary>
Represents a strongly typed in-memory cache of data.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILESDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_USER_PROFILEDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.VWUSER_PROFILEDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILE_PROCESSDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBWH_UserDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILESRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_USER_PROFILERow">
<summary>
Represents strongly named DataRow class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.VWUSER_PROFILERow">
<summary>
Represents strongly named DataRow class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILE_PROCESSRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBWH_UserRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILESRowChangeEvent">
<summary>
Row event argument class
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_USER_PROFILERowChangeEvent">
<summary>
Row event argument class
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.VWUSER_PROFILERowChangeEvent">
<summary>
Row event argument class
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBCBS_PROFILE_PROCESSRowChangeEvent">
<summary>
Row event argument class
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDataset.TBWH_UserRowChangeEvent">
<summary>
Row event argument class
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_USER_PROFILETableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager">
<summary>
TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateUpdatedRows(DD_Clipboard_Searcher.MyDataset,System.Collections.Generic.List{System.Data.DataRow},System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Update rows in top-down order.
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateInsertedRows(DD_Clipboard_Searcher.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Insert rows in top-down order.
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateDeletedRows(DD_Clipboard_Searcher.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Delete rows in bottom-up order.
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.GetRealUpdatedRows(System.Data.DataRow[],System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
</summary>
</member>
<member name="M:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateAll(DD_Clipboard_Searcher.MyDataset)">
<summary>
Update all changes to the dataset.
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption">
<summary>
Update Order Option
</summary>
</member>
<member name="T:DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.SelfReferenceComparer">
<summary>
Used to sort self-referenced table's rows
</summary>
</member>
</members>
</doc>

BIN
DD_Clipboard_Searcher/bin/Debug/DD_LIB_Standards.dll
View File

Binary file not shown.

BIN
DD_Clipboard_Searcher/bin/Debug/DD_LIB_Standards.pdb
View File

Binary file not shown.

322
DD_Clipboard_Searcher/bin/Debug/DD_LIB_Standards.xml
View File

@ -1,322 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DD_LIB_Standards
</name>
</assembly>
<members>
<member name="T:DD_LIB_Standards.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:DD_LIB_Standards.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:DD_LIB_Standards.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:DD_LIB_Standards.clsDatabase.Init(System.String,System.Boolean)">
<summary>
Establishes a databaseconnection and returns false or true
</summary>
<param name="conString">SQL-Server ConnectionString</param>
<param name="isProxy">true if this is a proxy-Conenction</param>
<returns>Returns true when connection was established, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsDatabase.Return_Datatable(System.String,System.Boolean)">
<summary>
Returns a .Net Datatable for an sql-statement
</summary>
<param name="selectStatement">select statement for datatable (select XYZ from TableORView)</param>
<param name="use_proxy">true if this statement shall be executed on the proxy-server</param>
<returns>Returns a .Net Datatable</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsDatabase.Execute_non_Query(System.String,System.Boolean)">
<summary>
Executes the passed sql-statement
</summary>
<param name="executeStatement">the sql statement</param>
<param name="use_proxy">true if this statement shall be executed on the proxy-server</param>
<returns>Returns true if properly executed, else false</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsDatabase.Execute_Scalar(System.String,System.Boolean)">
<summary>
Executes the passed sql-statement as scalar-Command
</summary>
<param name="scalarCommand">the scalarCommand</param>
<param name="use_proxy">true if this statement shall be executed on the proxy-server</param>
<returns>Returns the scalar-result as .net-object</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicense.#ctor(System.String,System.DateTime,System.String,System.String)">
<summary>
Konstruktor der Lizenz
</summary>
<param name="modulename">Name des Moduls</param>
<param name="expires">Gültigkeitsdatum der Lizenz</param>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicense.Modulename">
<summary>
Liefert oder setzt den Namen des Moduls für diese Lizenz
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicense.Expires">
<summary>
Liefert oder setzt das Gültigkeitsdatum der Lizenz für das Modul
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicense.IsExpired">
<summary>
Liefert ob die Lizenz schon abgelaufen ist
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicense.Type">
<summary>
Liefert den Typend er Lizenz
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicense.Anz_Profile">
<summary>
Liefert die Anzahl der Profile
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.#ctor(System.String,System.String)">
<summary>
Konstruktor für den Lizenz-Manager
</summary>
<param name="password">Passwort zum Entschlüsseln des Lizenzkeys</param>
<param name="key">verschlüsselter Lizenzkey</param>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.#ctor(System.String)">
<summary>
Konstruktor für den Lizenz-Manager ohne License load
</summary>
<param name="password">Passwort zum Entschlüsseln des Lizenzkeys</param>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.LoadLicenses">
<summary>
Lädt alle Lizenzen aus dem Lizenz-Array
</summary>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.EncodeLicenseKey(System.String,System.String)">
<summary>
Codiert eine Zeichenkette
</summary>
<param name="str">zu verschlüsselnde Zeichenkette</param>
<param name="password">das zur Verschlüsselung verwendete Passwort</param>
<returns>liefert eine verschlüsselte Zeichenkette</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.DecodeLicenseKey(System.String)">
<summary>
Decodiert den verschlüsselten Lizenzkey
</summary>
<param name="licenseCodeStr">verschlüsselter Lizenzkey</param>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenseManager.SplitLicenseString(System.String)">
<summary>
Zerlegt den entschlüsselten Lizenzkey
</summary>
<param name="licenseStr">entschlüsselter Lizenzkey</param>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenseManager.Password">
<summary>
Liefert das Passwort zum Entschlüsseln des Lizenzschlüssels
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenseManager.Licenses">
<summary>
Liefert eine Sammlung von Lizenzobjekten
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenseManager.Key">
<summary>
Liefert oder setzt den Lizenzschlüssel
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenses.#ctor(System.String[0:,0:])">
<summary>
Konstruktor für die Lizenzen-Sammlung
</summary>
<param name="licenseStringArray">In Array übertragene Lizenzinformationen</param>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenses.Add(System.String,System.DateTime,System.String,System.String)">
<summary>
Fügt der Lizenz-Sammlung eine Lizenz hinzu
</summary>
<param name="modulename">Name des Moduls, für das eine Lizenz angelegt werden soll</param>
<param name="expires">Datum der Gültigkeit der Lizenz</param>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsLicenses.GetLicense(System.String)">
<summary>
Liefert eine Lizenz an Hand des Modulnamens
</summary>
<param name="modulename">Name des zu suchenden Moduls</param>
<returns>liefert ein Lizenzobjekt</returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenses.Licenses">
<summary>
liefert eine Sammlung von Lizenzobjekten
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenses.License(System.String)">
<summary>
liefert eine Lizenz an Hand des Modulnamens
</summary>
<param name="modulename">Name des zu suchenden Moduls</param>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="P:DD_LIB_Standards.clsLicenses.Company">
<summary>
Liefert oder setzt den Firmennamen des Lizenzeigentümers
</summary>
<value></value>
<returns></returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_GET.GetIndicesByObjecttype(System.String)">
<summary>
Liefert alle Indexe eines Objekttypen.
</summary>
<param name="name">Name des Objekttyps</param>
<returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_GET.GetObjecttypesAsObjects">
<summary>
returns all objecttypes as windream-Objects
</summary>
<returns>all widnream-Objecttypes as objects</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_GET.WDFile_exists(System.String,System.Boolean,System.String,System.Boolean)">
<summary>
Checks wether a file is existing in windream
</summary>
<param name="WD_File">full filepath to the file</param>
<returns>Returns true when file exists, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_GET.GetTypeOfIndexAsIntByName(System.String)">
<summary>
Returns a windream-type as Integer.
</summary>
<param name="indexname">Name of indexfield</param>
<returns>Returns integer, which describes the type</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_GET.Get_File_Rights(System.String,System.String)">
<summary>
Returns a windream-type as Integer.
</summary>
<param name="filepath">filepath of windream-file</param>
<param name="username">Username to check</param>
<returns>Returns info about filerights</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_SET.Create_Version(System.String,System.String)">
<summary>
Creates a new version of the file
</summary>
<param name="WD_File">full WD_File to the file</param>
<param name="Comment">Comment</param>
<returns>Returns true when version was created exists, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_SET.Delete_WDFile(System.String)">
<summary>
Deletes a file in windream
</summary>
<param name="WD_File">full WD_File to the file</param>
<returns>Returns true when file was deleted, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_SET.IndexFile(System.String,System.String,System.String,System.String)">
<summary>
Passes indexvalues to a windream-file
</summary>
<param name="WD_File">full WD_File to the file</param>
<param name="_Indexname">Indexname of Index</param>
<param name="_Value">Value for indexing</param>
<param name="_objecttype">_objecttype</param>
<returns>Returns true when indexing was successfull, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWD_SET.REMOVE_VEKTOR_LINK(System.String,System.String,System.String)">
<summary>
Removes the vektorlink from windream
</summary>
<param name="WD_File">full WD_File to the file</param>
<param name="vktIndexName">Indexname of Vektor-Index</param>
<param name="deleteValue">Value which is to be deleted</param>
<returns>Returns true when indexing was successfull, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWindream.CreateSession_AsUser(System.Object,System.Object,System.Object,System.Object)">
<summary>
Creates a personified session
</summary>
<param name="Domain">Domainname as string</param>
<param name="ServerName">ServerName as string</param>
<param name="UserName">UserName as string</param>
<param name="Password">Password as string</param>
<returns>Returns true when file exists, false if not</returns>
<remarks></remarks>
</member>
<member name="M:DD_LIB_Standards.clsWindream.Create_Session">
<summary>
Creates a windream session with the actual user
</summary>
</member>
</members>
</doc>

BIN
DD_Clipboard_Searcher/bin/Debug/Interop.WINDREAMLib.dll
View File

Binary file not shown.

9
SetupWix/Config.wxi
View File

@ -1,9 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Include>
<?define ProgramName="DD_Clipboard_Searcher"?>
<?define ProductName="DD Clipboard Searcher"?>
<?define Manufacturer="Digital Data"?>
<?define Description="DD Clipboard Searcher"?>
<?define Comments="DD Clipboard Searcher"?>
<?define UpgradeCode="BB3A9D50-7CCE-42DA-84F2-D67129F57B59"?>
</Include>

0
SetupWix/.gitattributes → app/DD_Clipboard_Searcher/.gitattributes vendored
View File

0
SetupWix/.gitignore → app/DD_Clipboard_Searcher/.gitignore vendored
View File

8
DD_Clipboard_Searcher/App.config → app/DD_Clipboard_Searcher/App.config
View File

@ -2,11 +2,11 @@
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="DD_Clipboard_Searcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" /> <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> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="DD_Clipboard_Searcher.My.MySettings.DD_ECMConnectionString" <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" /> providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
@ -14,10 +14,10 @@
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
</startup> </startup>
<userSettings> <userSettings>
<DD_Clipboard_Searcher.My.MySettings> <DD_Clipboard_Watcher.My.MySettings>
<setting name="WDSearch_maximized" serializeAs="String"> <setting name="WDSearch_maximized" serializeAs="String">
<value>False</value> <value>False</value>
</setting> </setting>
</DD_Clipboard_Searcher.My.MySettings> </DD_Clipboard_Watcher.My.MySettings>
</userSettings> </userSettings>
</configuration> </configuration>

2
DD_Clipboard_Searcher/Class1.vb → app/DD_Clipboard_Searcher/Class1.vb
View File

@ -26,7 +26,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
clsWINDOWSApi.Get_ForegroundWindow_Info() clsWINDOWSApi.Get_ForegroundWindow_Info()
'Dim CapTxt As String = clsWINDOWSApi.GetCaption() 'Dim CapTxt As String = clsWINDOWSApi.GetCaption()
If IsNothing(PROC_Name) Then Exit Sub If IsNothing(PROC_Name) Then Exit Sub
If PROC_Name.StartsWith("DD_Clipboard_Searcher") 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) If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >>{0} - Clipboard ChangedEvent for process '{1}' fired!", Now.ToString, PROC_Name), False)
' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub ' If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub
RaiseEvent Changed(Me, EventArgs.Empty) RaiseEvent Changed(Me, EventArgs.Empty)

15
DD_Clipboard_Searcher/ClassInit.vb → app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -71,6 +71,7 @@ Public Class ClassInit
USER_GUID = USER_DT.Rows(0).Item("GUID") USER_GUID = USER_DT.Rows(0).Item("GUID")
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE") USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
DT_CLIENT_USER = clsDatabase.Return_Datatable("SELECT T.*, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, True) DT_CLIENT_USER = clsDatabase.Return_Datatable("SELECT T.*, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID, True)
Dim Access_right As Boolean = False Dim Access_right As Boolean = False
sql = String.Format("SELECT COUNT(T.GUID) FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND UPPER(T1.NAME) = UPPER('Clipboard-Searcher') AND T.USER_ID = {0}", USER_GUID) sql = String.Format("SELECT COUNT(T.GUID) FROM TBDD_USER_MODULES T, TBDD_MODULES T1 WHERE T.MODULE_ID = T1.GUID AND UPPER(T1.NAME) = UPPER('Clipboard-Searcher') AND T.USER_ID = {0}", USER_GUID)
Dim USER2MODULE = clsDatabase.Execute_Scalar(sql) Dim USER2MODULE = clsDatabase.Execute_Scalar(sql)
@ -93,11 +94,19 @@ Public Class ClassInit
MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:") MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:")
Return False Return False
Else Else
If DT_CLIENT_USER.Rows.Count = 0 Then
Dim msg = String.Format("Keine Client-Modul Verknüpfung für Ihren User definiert." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("Noc client-module link for Your user." & vbNewLine & "Please contact the admin.")
End If
MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:")
Return False
End If
'Am System anmelden 'Am System anmelden
clsLicense.Refresh_Licence(0) clsLicense.Refresh_Licence(DT_CLIENT_USER.Rows(0).Item("CLIENT_ID"))
'Am System anmelden 'Am System anmelden
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID) ' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID)
clsDatabase.Execute_non_Query(sql) 'clsDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Clipboard-Searcher'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Clipboard-Searcher'"
If clsDatabase.Execute_non_Query(sql, True) = True Then If clsDatabase.Execute_non_Query(sql, True) = True Then

0
DD_Clipboard_Searcher/ClassLayout.vb → app/DD_Clipboard_Searcher/ClassLayout.vb
View File

12
DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj → app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -6,9 +6,9 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid> <ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>DD_Clipboard_Searcher.My.MyApplication</StartupObject> <StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
<RootNamespace>DD_Clipboard_Searcher</RootNamespace> <RootNamespace>DD_Clipboard_Watcher</RootNamespace>
<AssemblyName>DD_Clipboard_Searcher</AssemblyName> <AssemblyName>DD_Clipboard_Watcher</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
@ -21,7 +21,7 @@
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DD_Clipboard_Searcher.xml</DocumentationFile> <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@ -31,7 +31,7 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DD_Clipboard_Searcher.xml</DocumentationFile> <DocumentationFile>DD_Clipboard_Watcher.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
@ -242,6 +242,8 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="KeyOutput_8167.ico" /> <Content Include="KeyOutput_8167.ico" />
<None Include="Resources\Symbols_Stop_16xLG.png" />
<None Include="Resources\startwithoutdebugging_6556.png" />
<None Include="Resources\ReduceSize.png" /> <None Include="Resources\ReduceSize.png" />
<None Include="Resources\KeyOutput_8167.png" /> <None Include="Resources\KeyOutput_8167.png" />
</ItemGroup> </ItemGroup>

0
DD_Clipboard_Searcher/KeyOutput_8167.ico → app/DD_Clipboard_Searcher/KeyOutput_8167.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

76
DD_Clipboard_Searcher/My Project/Application.Designer.vb → app/DD_Clipboard_Searcher/My Project/Application.Designer.vb generated
View File

@ -1,38 +1,38 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Namespace My Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes, 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' or if you encounter build errors in this file, go to the Project Designer ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (go to Project Properties or double-click the My Project node in ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Solution Explorer), and make changes on the Application tab. ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
' '
Partial Friend Class MyApplication Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New() Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false Me.IsSingleInstance = false
Me.EnableVisualStyles = true Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DD_Clipboard_Searcher.frmMain Me.MainForm = Global.DD_Clipboard_Watcher.frmMain
End Sub End Sub
End Class End Class
End Namespace End Namespace

18
DD_Clipboard_Searcher/My Project/Application.myapp → app/DD_Clipboard_Searcher/My Project/Application.myapp
View File

@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-16"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm> <MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance> <SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit> <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData> </MyApplicationData>

4
DD_Clipboard_Searcher/My Project/AssemblyInfo.vb → app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird 'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("0fff4783-c1b4-4d08-8ce2-7e1a4dbbaf8b")> <Assembly: Guid("0fff4783-c1b4-4d08-8ce2-7e1a4dbbaf8b")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
' '
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.0.3")> <Assembly: AssemblyVersion("1.3.0.4")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

24
DD_Clipboard_Searcher/My Project/Resources.Designer.vb → app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -39,7 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get Get
If Object.ReferenceEquals(resourceMan, Nothing) Then If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Searcher.Resources", GetType(Resources).Assembly) Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Clipboard_Watcher.Resources", GetType(Resources).Assembly)
resourceMan = temp resourceMan = temp
End If End If
Return resourceMan Return resourceMan
@ -130,6 +130,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property startwithoutdebugging_6556() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("startwithoutdebugging_6556", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -139,5 +149,15 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap) Return CType(obj,System.Drawing.Bitmap)
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Symbols_Stop_16xLG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Symbols_Stop_16xLG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module End Module
End Namespace End Namespace

20
DD_Clipboard_Searcher/My Project/Resources.resx → app/DD_Clipboard_Searcher/My Project/Resources.resx
View File

@ -118,28 +118,34 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

12
DD_Clipboard_Searcher/My Project/Settings.Designer.vb → app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -15,21 +15,21 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If
@ -87,9 +87,9 @@ Namespace My
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DD_Clipboard_Searcher.My.MySettings Friend ReadOnly Property Settings() As Global.DD_Clipboard_Watcher.My.MySettings
Get Get
Return Global.DD_Clipboard_Searcher.My.MySettings.Default Return Global.DD_Clipboard_Watcher.My.MySettings.Default
End Get End Get
End Property End Property
End Module End Module

0
DD_Clipboard_Searcher/My Project/Settings.settings → app/DD_Clipboard_Searcher/My Project/Settings.settings
View File

0
DD_Clipboard_Searcher/My Project/licenses.licx → app/DD_Clipboard_Searcher/My Project/licenses.licx
View File

3588
DD_Clipboard_Searcher/MyDataset.Designer.vb → app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

0
DD_Clipboard_Searcher/MyDataset.xsc → app/DD_Clipboard_Searcher/MyDataset.xsc
View File

14
DD_Clipboard_Searcher/MyDataset.xsd → app/DD_Clipboard_Searcher/MyDataset.xsd
View File

@ -4,7 +4,7 @@
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource"> <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections> <Connections>
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DD_Clipboard_Searcher.My.MySettings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" /> <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DD_ECMConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DD_ECMConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DD_Clipboard_Watcher.My.MySettings.GlobalReference.Default.DD_ECMConnectionString" Provider="System.Data.SqlClient" />
</Connections> </Connections>
<Tables> <Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCBS_PROFILESTableAdapter" GeneratorDataComponentClassName="TBCBS_PROFILESTableAdapter" Name="TBCBS_PROFILES" UserDataComponentName="TBCBS_PROFILESTableAdapter"> <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBCBS_PROFILESTableAdapter" GeneratorDataComponentClassName="TBCBS_PROFILESTableAdapter" Name="TBCBS_PROFILES" UserDataComponentName="TBCBS_PROFILESTableAdapter">
@ -132,7 +132,7 @@ SELECT GUID, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCBS_USER_PROFILE
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWUSER_PROFILETableAdapter" GeneratorDataComponentClassName="VWUSER_PROFILETableAdapter" Name="VWUSER_PROFILE" UserDataComponentName="VWUSER_PROFILETableAdapter"> <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWUSER_PROFILETableAdapter" GeneratorDataComponentClassName="VWUSER_PROFILETableAdapter" Name="VWUSER_PROFILE" UserDataComponentName="VWUSER_PROFILETableAdapter">
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBDD_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME <CommandText>SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME
@ -219,7 +219,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
<xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset"> <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
<xs:complexType> <xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBCBS_PROFILES" msprop:Generator_TableClassName="TBCBS_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCBS_PROFILES" msprop:Generator_RowChangedName="TBCBS_PROFILESRowChanged" msprop:Generator_TablePropName="TBCBS_PROFILES" msprop:Generator_RowDeletingName="TBCBS_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCBS_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCBS_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_PROFILESRowDeleted" msprop:Generator_RowClassName="TBCBS_PROFILESRow" msprop:Generator_UserTableName="TBCBS_PROFILES" msprop:Generator_RowEvArgName="TBCBS_PROFILESRowChangeEvent"> <xs:element name="TBCBS_PROFILES" msprop:Generator_TableClassName="TBCBS_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCBS_PROFILES" msprop:Generator_TablePropName="TBCBS_PROFILES" msprop:Generator_RowDeletingName="TBCBS_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCBS_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCBS_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_PROFILESRowDeleted" msprop:Generator_UserTableName="TBCBS_PROFILES" msprop:Generator_RowChangedName="TBCBS_PROFILESRowChanged" msprop:Generator_RowEvArgName="TBCBS_PROFILESRowChangeEvent" msprop:Generator_RowClassName="TBCBS_PROFILESRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -270,7 +270,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBCBS_USER_PROFILE" msprop:Generator_TableClassName="TBCBS_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCBS_USER_PROFILE" msprop:Generator_RowChangedName="TBCBS_USER_PROFILERowChanged" msprop:Generator_TablePropName="TBCBS_USER_PROFILE" msprop:Generator_RowDeletingName="TBCBS_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCBS_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCBS_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_USER_PROFILERowDeleted" msprop:Generator_RowClassName="TBCBS_USER_PROFILERow" msprop:Generator_UserTableName="TBCBS_USER_PROFILE" msprop:Generator_RowEvArgName="TBCBS_USER_PROFILERowChangeEvent"> <xs:element name="TBCBS_USER_PROFILE" msprop:Generator_TableClassName="TBCBS_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCBS_USER_PROFILE" msprop:Generator_TablePropName="TBCBS_USER_PROFILE" msprop:Generator_RowDeletingName="TBCBS_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCBS_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCBS_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_USER_PROFILERowDeleted" msprop:Generator_UserTableName="TBCBS_USER_PROFILE" msprop:Generator_RowChangedName="TBCBS_USER_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCBS_USER_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCBS_USER_PROFILERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -287,7 +287,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWUSER_PROFILERow"> <xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_RowClassName="VWUSER_PROFILERow" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -316,7 +316,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_RowClassName="TBWH_UserRow" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent"> <xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent" msprop:Generator_RowClassName="TBWH_UserRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" /> <xs:element name="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@ -328,7 +328,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBCBS_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCBS_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCBS_PROFILE_PROCESS" msprop:Generator_TablePropName="TBCBS_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCBS_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCBS_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCBS_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_PROFILE_PROCESSRowDeleted" msprop:Generator_UserTableName="TBCBS_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCBS_PROFILE_PROCESSRowChanged" msprop:Generator_RowEvArgName="TBCBS_PROFILE_PROCESSRowChangeEvent" msprop:Generator_RowClassName="TBCBS_PROFILE_PROCESSRow"> <xs:element name="TBCBS_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCBS_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCBS_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCBS_PROFILE_PROCESSRowChanged" msprop:Generator_TablePropName="TBCBS_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCBS_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCBS_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCBS_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCBS_PROFILE_PROCESSRowDeleted" msprop:Generator_RowClassName="TBCBS_PROFILE_PROCESSRow" msprop:Generator_UserTableName="TBCBS_PROFILE_PROCESS" msprop:Generator_RowEvArgName="TBCBS_PROFILE_PROCESSRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />

0
DD_Clipboard_Searcher/MyDataset.xss → app/DD_Clipboard_Searcher/MyDataset.xss
View File

0
DD_Clipboard_Searcher/Resources/Annotation_New.png → app/DD_Clipboard_Searcher/Resources/Annotation_New.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.4 KiB

After

Width:  |  Height:  |  Size: 2.4 KiB

0
DD_Clipboard_Searcher/Resources/GoToDefinition_5575.png → app/DD_Clipboard_Searcher/Resources/GoToDefinition_5575.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 214 B

After

Width:  |  Height:  |  Size: 214 B

0
DD_Clipboard_Searcher/Resources/KeyDown_8461.png → app/DD_Clipboard_Searcher/Resources/KeyDown_8461.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 241 B

After

Width:  |  Height:  |  Size: 241 B

0
DD_Clipboard_Searcher/Resources/KeyOutput_8167.ico → app/DD_Clipboard_Searcher/Resources/KeyOutput_8167.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

0
DD_Clipboard_Searcher/Resources/KeyOutput_8167.png → app/DD_Clipboard_Searcher/Resources/KeyOutput_8167.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 227 B

After

Width:  |  Height:  |  Size: 227 B

0
DD_Clipboard_Searcher/Resources/ReduceSize.png → app/DD_Clipboard_Searcher/Resources/ReduceSize.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.5 KiB

After

Width:  |  Height:  |  Size: 1.5 KiB

0
DD_Clipboard_Searcher/Resources/StatusAnnotations_Stop_16xLG.png → app/DD_Clipboard_Searcher/Resources/StatusAnnotations_Stop_16xLG.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 336 B

After

Width:  |  Height:  |  Size: 336 B

BIN
app/DD_Clipboard_Searcher/Resources/Symbols_Stop_16xLG.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 146 B

0
DD_Clipboard_Searcher/Resources/control_start_blue.png → app/DD_Clipboard_Searcher/Resources/control_start_blue.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 720 B

After

Width:  |  Height:  |  Size: 720 B

0
DD_Clipboard_Searcher/Resources/folder_Open_16xLG.png → app/DD_Clipboard_Searcher/Resources/folder_Open_16xLG.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 277 B

After

Width:  |  Height:  |  Size: 277 B

BIN
app/DD_Clipboard_Searcher/Resources/startwithoutdebugging_6556.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 269 B

0
DD_Clipboard_Searcher/clsHotkey.vb → app/DD_Clipboard_Searcher/clsHotkey.vb
View File

96
DD_Clipboard_Searcher/clsLicense.vb → app/DD_Clipboard_Searcher/clsLicense.vb
View File

@ -1,48 +1,48 @@
Imports DD_LIB_Standards Imports DD_LIB_Standards
Public Class clsLicense Public Class clsLicense
Private Shared lic_string As String Private Shared lic_string As String
Private Shared Sub Get_License(CLIENT_ID As Integer) Private Shared Sub Get_License(CLIENT_ID As Integer)
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
lic_string = clsDatabase.Execute_Scalar(sql) lic_string = clsDatabase.Execute_Scalar(sql)
End Sub End Sub
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer) Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
Try Try
Dim _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "") Dim _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
Get_License(CLIENT_ID) Get_License(CLIENT_ID)
If lic_string = "" Then If lic_string = "" Then
LICENSE_COUNT = 0 LICENSE_COUNT = 0
LICENSE_DATE = "1900-01-01" LICENSE_DATE = "1900-01-01"
ERROR_INIT = "NO LICENSE" ERROR_INIT = "NO LICENSE"
Exit Sub Exit Sub
End If End If
Dim licString = _lizenzManager.DecodeLicenseKey(lic_string) Dim licString = _lizenzManager.DecodeLicenseKey(lic_string)
Dim split() = licString.ToString.Split("#") Dim split() = licString.ToString.Split("#")
If lic_string <> "" Then If lic_string <> "" Then
LICENSE_COUNT = split(0) LICENSE_COUNT = split(0)
LICENSE_DATE = CDate(split(1)) LICENSE_DATE = CDate(split(1))
End If End If
If CDate(split(1)) < CDate(Now.ToShortDateString) Then If CDate(split(1)) < CDate(Now.ToShortDateString) Then
MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation) MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
LICENSE_EXPIRED = True LICENSE_EXPIRED = True
LICENSE_COUNT = 0 LICENSE_COUNT = 0
ERROR_INIT = "NO LICENSE" ERROR_INIT = "NO LICENSE"
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
End Try End Try
End Sub End Sub
Public Shared Function license_is_Valid() Public Shared Function license_is_Valid()
If LICENSE_EXPIRED Then If LICENSE_EXPIRED Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation) MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
Return False Return False
Else : Return True Else : Return True
End If End If
End Function End Function
End Class End Class

5
DD_Clipboard_Searcher/clsSearch.vb → app/DD_Clipboard_Searcher/clsSearch.vb
View File

@ -60,7 +60,8 @@ Public Class clsSearch
fileContents = fileContents.Replace("@Clipboard", CURR_MATCH_RESULT) fileContents = fileContents.Replace("@Clipboard", CURR_MATCH_RESULT)
fileContents = fileContents.Replace("@CLIPBOARD", CURR_MATCH_RESULT) fileContents = fileContents.Replace("@CLIPBOARD", CURR_MATCH_RESULT)
fileContents = fileContents.Replace("@Zwischenablage", CURR_MATCH_RESULT) fileContents = fileContents.Replace("@Zwischenablage", CURR_MATCH_RESULT)
fileContents = fileContents.Replace("123456789", CURR_MATCH_RESULT)
fileContents = fileContents.Replace("4711", CURR_MATCH_RESULT)
Try Try
'Die windream File zusammensetzen 'Die windream File zusammensetzen
windream_temp_search = temppath & tempName & extension windream_temp_search = temppath & tempName & extension
@ -135,6 +136,8 @@ Public Class clsSearch
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Unexpected error while Setting foreground: " & ex.Message) clsLogger.Add("Unexpected error while Setting foreground: " & ex.Message)
End Try End Try
CURR_MATCH_WM_SEARCH = Nothing
CURR_MATCH_RESULT = Nothing
Return "" Return ""
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Unexpected error in Create Search: " & ex.Message) clsLogger.Add("Unexpected error in Create Search: " & ex.Message)

144
DD_Clipboard_Searcher/clsWINDOWSApi.vb → app/DD_Clipboard_Searcher/clsWINDOWSApi.vb
View File

@ -1,72 +1,72 @@
Imports DD_LIB_Standards Imports DD_LIB_Standards
Public Class clsWINDOWSApi Public Class clsWINDOWSApi
Private Declare Function GetForegroundWindow Lib "user32.dll" Alias "GetForegroundWindow" () As IntPtr Private Declare Function GetForegroundWindow Lib "user32.dll" Alias "GetForegroundWindow" () As IntPtr
Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Int32) As Integer Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Int32) As Integer
Private Shared Function GetClassName(ByVal hWnd As System.IntPtr, _ Private Shared Function GetClassName(ByVal hWnd As System.IntPtr, _
ByVal lpClassName As System.Text.StringBuilder, _ ByVal lpClassName As System.Text.StringBuilder, _
ByVal nMaxCount As Integer) As Integer ByVal nMaxCount As Integer) As Integer
' Leave function empty ' Leave function empty
End Function End Function
Public Shared Function GetCaption() As String Public Shared Function GetCaption() As String
Dim Caption As New System.Text.StringBuilder(256) Dim Caption As New System.Text.StringBuilder(256)
Dim hWnd As IntPtr = GetForegroundWindow() Dim hWnd As IntPtr = GetForegroundWindow()
Dim pid As Integer = 0 Dim pid As Integer = 0
GetWindowThreadProcessId(hWnd, pid) GetWindowThreadProcessId(hWnd, pid)
If pid = 0 Then Exit Function If pid = 0 Then Exit Function
Return Caption.ToString() Return Caption.ToString()
End Function End Function
Public Shared Function IsRelevantWindow(windowname As String) Public Shared Function IsRelevantWindow(windowname As String)
Try Try
Dim enumerator1 As New clsWindowApi Dim enumerator1 As New clsWindowApi
'Jedes Formularwindow durchlaufen 'Jedes Formularwindow durchlaufen
For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows() For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows()
If LogErrorsOnly = False Then clsLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False) If LogErrorsOnly = False Then clsLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
Console.WriteLine(top.MainWindowTitle) Console.WriteLine(top.MainWindowTitle)
Return False Return False
End If End If
Next top Next top
Catch ex As Exception Catch ex As Exception
MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
clsLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False) clsLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
Return False Return False
End Try End Try
End Function End Function
Private Shared m_LastHwnd As Long Private Shared m_LastHwnd As Long
Public Shared Sub Get_ForegroundWindow_Info() Public Shared Sub Get_ForegroundWindow_Info()
'—– Get the Handle to the Current Forground Window —– '—– Get the Handle to the Current Forground Window —–
Dim hWnd As IntPtr = GetForegroundWindow() Dim hWnd As IntPtr = GetForegroundWindow()
If hWnd = IntPtr.Zero Then Exit Sub If hWnd = IntPtr.Zero Then Exit Sub
'—– Find the Length of the Window’s Title —– '—– Find the Length of the Window’s Title —–
Dim TitleLength As Int32 Dim TitleLength As Int32
TitleLength = GetWindowTextLength(hWnd) TitleLength = GetWindowTextLength(hWnd)
'—– Find the Window’s Title —– '—– Find the Window’s Title —–
Dim WindowTitle As String = StrDup(TitleLength + 1, "*") Dim WindowTitle As String = StrDup(TitleLength + 1, "*")
GetWindowText(hWnd, WindowTitle, TitleLength + 1) GetWindowText(hWnd, WindowTitle, TitleLength + 1)
'—– Find the PID of the Application that Owns the Window —– '—– Find the PID of the Application that Owns the Window —–
Dim pid As Integer = 0 Dim pid As Integer = 0
GetWindowThreadProcessId(hWnd, pid) GetWindowThreadProcessId(hWnd, pid)
If pid = 0 Then Exit Sub If pid = 0 Then Exit Sub
'—– Get the actual PROCESS from the process ID —– '—– Get the actual PROCESS from the process ID —–
Dim proc As Process = Process.GetProcessById(pid) Dim proc As Process = Process.GetProcessById(pid)
If proc Is Nothing Then Exit Sub If proc Is Nothing Then Exit Sub
Dim msg = pid.ToString & vbNewLine Dim msg = pid.ToString & vbNewLine
PROC_PID = pid.ToString PROC_PID = pid.ToString
PROC_Name = proc.ProcessName PROC_Name = proc.ProcessName
msg &= vbNewLine & "Procname: " & proc.ProcessName msg &= vbNewLine & "Procname: " & proc.ProcessName
msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle
msg &= vbNewLine & "WindowTitle: " & WindowTitle msg &= vbNewLine & "WindowTitle: " & WindowTitle
PROC_WindowTitle = WindowTitle PROC_WindowTitle = WindowTitle
msg &= vbNewLine & TitleLength.ToString msg &= vbNewLine & TitleLength.ToString
' MsgBox(msg) ' MsgBox(msg)
End Sub End Sub
End Class End Class

358
DD_Clipboard_Searcher/clsWindowApivb.vb → app/DD_Clipboard_Searcher/clsWindowApivb.vb
View File

@ -1,179 +1,179 @@
Imports System.Data Imports System.Data
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports System.Text Imports System.Text
Imports System.Collections.Generic Imports System.Collections.Generic
Public Class clsWindowApi Public Class clsWindowApi
Public Class ApiWindow Public Class ApiWindow
Public MainWindowTitle As String = "" Public MainWindowTitle As String = ""
Public ClassName As String = "" Public ClassName As String = ""
Public hWnd As Int32 Public hWnd As Int32
End Class End Class
Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer
' Top-level windows. ' Top-level windows.
Private Declare Function EnumWindows Lib "user32" _ Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
' Child windows. ' Child windows.
Private Declare Function EnumChildWindows Lib "user32" _ Private Declare Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer (ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
' Get the window class. ' Get the window class.
Private Declare Function GetClassName _ Private Declare Function GetClassName _
Lib "user32" Alias "GetClassNameA" _ Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Integer, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer (ByVal hwnd As Integer, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer
' Test if the window is visible--only get visible ones. ' Test if the window is visible--only get visible ones.
Private Declare Function IsWindowVisible Lib "user32" _ Private Declare Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Integer) As Integer (ByVal hwnd As Integer) As Integer
' Test if the window's parent--only get the one's without parents. ' Test if the window's parent--only get the one's without parents.
Private Declare Function GetParent Lib "user32" _ Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Integer) As Integer (ByVal hwnd As Integer) As Integer
' Get window text length signature. ' Get window text length signature.
Private Declare Function SendMessage _ Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _ Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32 (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
' Get window text signature. ' Get window text signature.
Private Declare Function SendMessage _ Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _ Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As StringBuilder) As Int32 (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As StringBuilder) As Int32
Private _listChildren As New List(Of ApiWindow) Private _listChildren As New List(Of ApiWindow)
Private _listTopLevel As New List(Of ApiWindow) Private _listTopLevel As New List(Of ApiWindow)
Private _topLevelClass As String = "" Private _topLevelClass As String = ""
Private _childClass As String = "" Private _childClass As String = ""
''' <summary> ''' <summary>
''' Get all top-level window information ''' Get all top-level window information
''' </summary> ''' </summary>
''' <returns>List of window information objects</returns> ''' <returns>List of window information objects</returns>
Public Overloads Function GetTopLevelWindows() As List(Of ApiWindow) Public Overloads Function GetTopLevelWindows() As List(Of ApiWindow)
EnumWindows(AddressOf EnumWindowProc, &H0) EnumWindows(AddressOf EnumWindowProc, &H0)
Return _listTopLevel Return _listTopLevel
End Function End Function
Public Overloads Function GetTopLevelWindows(ByVal className As String) As List(Of ApiWindow) Public Overloads Function GetTopLevelWindows(ByVal className As String) As List(Of ApiWindow)
_topLevelClass = className _topLevelClass = className
Return Me.GetTopLevelWindows() Return Me.GetTopLevelWindows()
End Function End Function
''' <summary> ''' <summary>
''' Get all child windows for the specific windows handle (hwnd). ''' Get all child windows for the specific windows handle (hwnd).
''' </summary> ''' </summary>
''' <returns>List of child windows for parent window</returns> ''' <returns>List of child windows for parent window</returns>
Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As List(Of ApiWindow) Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As List(Of ApiWindow)
' Clear the window list. ' Clear the window list.
_listChildren = New List(Of ApiWindow) _listChildren = New List(Of ApiWindow)
' Start the enumeration process. ' Start the enumeration process.
EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0) EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0)
' Return the children list when the process is completed. ' Return the children list when the process is completed.
Return _listChildren Return _listChildren
End Function End Function
Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As List(Of ApiWindow) Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As List(Of ApiWindow)
' Set the search ' Set the search
_childClass = childClass _childClass = childClass
Return Me.GetChildWindows(hwnd) Return Me.GetChildWindows(hwnd)
End Function End Function
''' <summary> ''' <summary>
''' Callback function that does the work of enumerating top-level windows. ''' Callback function that does the work of enumerating top-level windows.
''' </summary> ''' </summary>
''' <param name="hwnd">Discovered Window handle</param> ''' <param name="hwnd">Discovered Window handle</param>
''' <returns>1=keep going, 0=stop</returns> ''' <returns>1=keep going, 0=stop</returns>
Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32 Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
' Eliminate windows that are not top-level. ' Eliminate windows that are not top-level.
If GetParent(hwnd) = 0 AndAlso CBool(IsWindowVisible(hwnd)) Then If GetParent(hwnd) = 0 AndAlso CBool(IsWindowVisible(hwnd)) Then
' Get the window title / class name. ' Get the window title / class name.
Dim window As ApiWindow = GetWindowIdentification(hwnd) Dim window As ApiWindow = GetWindowIdentification(hwnd)
' Match the class name if searching for a specific window class. ' Match the class name if searching for a specific window class.
If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then
_listTopLevel.Add(window) _listTopLevel.Add(window)
End If End If
End If End If
' To continue enumeration, return True (1), and to stop enumeration ' To continue enumeration, return True (1), and to stop enumeration
' return False (0). ' return False (0).
' When 1 is returned, enumeration continues until there are no ' When 1 is returned, enumeration continues until there are no
' more windows left. ' more windows left.
Return 1 Return 1
End Function End Function
''' <summary> ''' <summary>
''' Callback function that does the work of enumerating child windows. ''' Callback function that does the work of enumerating child windows.
''' </summary> ''' </summary>
''' <param name="hwnd">Discovered Window handle</param> ''' <param name="hwnd">Discovered Window handle</param>
''' <returns>1=keep going, 0=stop</returns> ''' <returns>1=keep going, 0=stop</returns>
Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32 Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
Dim window As ApiWindow = GetWindowIdentification(hwnd) Dim window As ApiWindow = GetWindowIdentification(hwnd)
' Attempt to match the child class, if one was specified, otherwise ' Attempt to match the child class, if one was specified, otherwise
' enumerate all the child windows. ' enumerate all the child windows.
If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then
_listChildren.Add(window) _listChildren.Add(window)
End If End If
Return 1 Return 1
End Function End Function
''' <summary> ''' <summary>
''' Build the ApiWindow object to hold information about the Window object. ''' Build the ApiWindow object to hold information about the Window object.
''' </summary> ''' </summary>
Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow
Const WM_GETTEXT As Int32 = &HD Const WM_GETTEXT As Int32 = &HD
Const WM_GETTEXTLENGTH As Int32 = &HE Const WM_GETTEXTLENGTH As Int32 = &HE
Dim window As New ApiWindow() Dim window As New ApiWindow()
Dim title As New StringBuilder() Dim title As New StringBuilder()
' Get the size of the string required to hold the window title. ' Get the size of the string required to hold the window title.
Dim size As Int32 = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0) Dim size As Int32 = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0)
' If the return is 0, there is no title. ' If the return is 0, there is no title.
If size > 0 Then If size > 0 Then
title = New StringBuilder(size + 1) title = New StringBuilder(size + 1)
SendMessage(hwnd, WM_GETTEXT, title.Capacity, title) SendMessage(hwnd, WM_GETTEXT, title.Capacity, title)
End If End If
' Get the class name for the window. ' Get the class name for the window.
Dim classBuilder As New StringBuilder(64) Dim classBuilder As New StringBuilder(64)
GetClassName(hwnd, classBuilder, 64) GetClassName(hwnd, classBuilder, 64)
' Set the properties for the ApiWindow object. ' Set the properties for the ApiWindow object.
window.ClassName = classBuilder.ToString() window.ClassName = classBuilder.ToString()
window.MainWindowTitle = title.ToString() window.MainWindowTitle = title.ToString()
window.hWnd = hwnd window.hWnd = hwnd
Return window Return window
End Function End Function
End Class End Class

167
DD_Clipboard_Searcher/frmAdministration.Designer.vb → app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

@ -37,7 +37,7 @@ Partial Class frmAdministration
Me.btnaddSearch = New System.Windows.Forms.Button() Me.btnaddSearch = New System.Windows.Forms.Button()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TBCBS_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBCBS_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Searcher.MyDataset() Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
@ -83,22 +83,22 @@ Partial Class frmAdministration
Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBCBS_PROFILESTableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter() Me.TBCBS_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel() Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel()
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
Me.VWUSER_PROFILETableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter() Me.VWUSER_PROFILETableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.btnStartStopProcess = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.chkRunwindowCheck = New System.Windows.Forms.CheckBox()
Me.txtProcessName = New System.Windows.Forms.TextBox() Me.txtProcessName = New System.Windows.Forms.TextBox()
Me.txtPID = New System.Windows.Forms.TextBox() Me.txtPID = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.TimerTest = New System.Windows.Forms.Timer(Me.components) Me.TimerTest = New System.Windows.Forms.Timer(Me.components)
Me.TBCBS_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBCBS_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBCBS_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter() Me.TBCBS_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl() Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
@ -106,8 +106,14 @@ Partial Class frmAdministration
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnLinkProcessPRofile = New System.Windows.Forms.Button()
Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button() Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button()
Me.btnLinkProcessPRofile = New System.Windows.Forms.Button()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.lblLicenseDate = New System.Windows.Forms.Label()
Me.lbllicenseCount = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label()
@ -138,6 +144,7 @@ Partial Class frmAdministration
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -635,7 +642,7 @@ Partial Class frmAdministration
Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(9, 263) Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(9, 263)
Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel" Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel"
Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(173, 23) Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(351, 23)
Me.btndeleteUserConstructorRel.TabIndex = 60 Me.btndeleteUserConstructorRel.TabIndex = 60
Me.btndeleteUserConstructorRel.Text = "Lösche Userzuordnung" Me.btndeleteUserConstructorRel.Text = "Lösche Userzuordnung"
Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -684,6 +691,13 @@ Partial Class frmAdministration
' '
Me.GridViewProfileUser.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridViewProfileUser.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewProfileUser.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewProfileUser.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewProfileUser.Appearance.HeaderPanel.BackColor = System.Drawing.Color.Gray
Me.GridViewProfileUser.Appearance.HeaderPanel.ForeColor = System.Drawing.Color.Black
Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseBackColor = True
Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseBorderColor = True
Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseForeColor = True
Me.GridViewProfileUser.Appearance.Row.ForeColor = System.Drawing.Color.Black
Me.GridViewProfileUser.Appearance.Row.Options.UseForeColor = True
Me.GridViewProfileUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) Me.GridViewProfileUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME})
Me.GridViewProfileUser.GridControl = Me.GridControl2 Me.GridViewProfileUser.GridControl = Me.GridControl2
Me.GridViewProfileUser.Name = "GridViewProfileUser" Me.GridViewProfileUser.Name = "GridViewProfileUser"
@ -742,7 +756,7 @@ Partial Class frmAdministration
Me.TableAdapterManager.TBCBS_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCBS_PROFILE_PROCESSTableAdapter = Nothing
Me.TableAdapterManager.TBCBS_PROFILESTableAdapter = Me.TBCBS_PROFILESTableAdapter Me.TableAdapterManager.TBCBS_PROFILESTableAdapter = Me.TBCBS_PROFILESTableAdapter
Me.TableAdapterManager.TBCBS_USER_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBCBS_USER_PROFILETableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'StatusStrip1 'StatusStrip1
' '
@ -770,22 +784,34 @@ Partial Class frmAdministration
' '
'GroupBox3 'GroupBox3
' '
Me.GroupBox3.Controls.Add(Me.btnStartStopProcess)
Me.GroupBox3.Controls.Add(Me.PictureBox1) Me.GroupBox3.Controls.Add(Me.PictureBox1)
Me.GroupBox3.Controls.Add(Me.chkRunwindowCheck)
Me.GroupBox3.Controls.Add(Me.txtProcessName) Me.GroupBox3.Controls.Add(Me.txtProcessName)
Me.GroupBox3.Controls.Add(Me.txtPID) Me.GroupBox3.Controls.Add(Me.txtPID)
Me.GroupBox3.Controls.Add(Me.Label4) Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.Label3) Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Location = New System.Drawing.Point(12, 310) Me.GroupBox3.Location = New System.Drawing.Point(12, 310)
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(606, 81) Me.GroupBox3.Size = New System.Drawing.Size(570, 81)
Me.GroupBox3.TabIndex = 2 Me.GroupBox3.TabIndex = 2
Me.GroupBox3.TabStop = False Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Auswahl Fenster/Prozess:" Me.GroupBox3.Text = "Auswahl Fenster/Prozess:"
' '
'btnStartStopProcess
'
Me.btnStartStopProcess.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556
Me.btnStartStopProcess.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnStartStopProcess.Location = New System.Drawing.Point(6, 35)
Me.btnStartStopProcess.Name = "btnStartStopProcess"
Me.btnStartStopProcess.Size = New System.Drawing.Size(190, 23)
Me.btnStartStopProcess.TabIndex = 8
Me.btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl"
Me.btnStartStopProcess.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnStartStopProcess.UseVisualStyleBackColor = True
'
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.Annotation_New Me.PictureBox1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.Annotation_New
Me.PictureBox1.Location = New System.Drawing.Point(510, 28) Me.PictureBox1.Location = New System.Drawing.Point(510, 28)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 40) Me.PictureBox1.Size = New System.Drawing.Size(48, 40)
@ -793,16 +819,6 @@ Partial Class frmAdministration
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False Me.PictureBox1.Visible = False
' '
'chkRunwindowCheck
'
Me.chkRunwindowCheck.AutoSize = True
Me.chkRunwindowCheck.Location = New System.Drawing.Point(6, 39)
Me.chkRunwindowCheck.Name = "chkRunwindowCheck"
Me.chkRunwindowCheck.Size = New System.Drawing.Size(173, 17)
Me.chkRunwindowCheck.TabIndex = 6
Me.chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl"
Me.chkRunwindowCheck.UseVisualStyleBackColor = True
'
'txtProcessName 'txtProcessName
' '
Me.txtProcessName.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtProcessName.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -815,7 +831,7 @@ Partial Class frmAdministration
'txtPID 'txtPID
' '
Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPID.Location = New System.Drawing.Point(192, 37) Me.txtPID.Location = New System.Drawing.Point(206, 37)
Me.txtPID.Name = "txtPID" Me.txtPID.Name = "txtPID"
Me.txtPID.ReadOnly = True Me.txtPID.ReadOnly = True
Me.txtPID.Size = New System.Drawing.Size(59, 21) Me.txtPID.Size = New System.Drawing.Size(59, 21)
@ -833,7 +849,7 @@ Partial Class frmAdministration
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(192, 21) Me.Label3.Location = New System.Drawing.Point(206, 21)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 13) Me.Label3.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 0 Me.Label3.TabIndex = 0
@ -922,24 +938,11 @@ Partial Class frmAdministration
Me.GroupBox4.Controls.Add(Me.GridControl3) Me.GroupBox4.Controls.Add(Me.GridControl3)
Me.GroupBox4.Location = New System.Drawing.Point(12, 397) Me.GroupBox4.Location = New System.Drawing.Point(12, 397)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(606, 308) Me.GroupBox4.Size = New System.Drawing.Size(570, 308)
Me.GroupBox4.TabIndex = 21 Me.GroupBox4.TabIndex = 21
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Aktuell zugeordnete Prozesse:" Me.GroupBox4.Text = "Aktuell zugeordnete Prozesse:"
' '
'btnLinkProcessPRofile
'
Me.btnLinkProcessPRofile.Image = CType(resources.GetObject("btnLinkProcessPRofile.Image"), System.Drawing.Image)
Me.btnLinkProcessPRofile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLinkProcessPRofile.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(353, 20)
Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile"
Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28)
Me.btnLinkProcessPRofile.TabIndex = 60
Me.btnLinkProcessPRofile.Text = "Prozess und Profil verknüpfen"
Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True
'
'btndeleteProcessProfileLink 'btndeleteProcessProfileLink
' '
Me.btndeleteProcessProfileLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btndeleteProcessProfileLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@ -954,11 +957,79 @@ Partial Class frmAdministration
Me.btndeleteProcessProfileLink.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btndeleteProcessProfileLink.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btndeleteProcessProfileLink.UseVisualStyleBackColor = True Me.btndeleteProcessProfileLink.UseVisualStyleBackColor = True
' '
'btnLinkProcessPRofile
'
Me.btnLinkProcessPRofile.Image = CType(resources.GetObject("btnLinkProcessPRofile.Image"), System.Drawing.Image)
Me.btnLinkProcessPRofile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLinkProcessPRofile.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(353, 20)
Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile"
Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28)
Me.btnLinkProcessPRofile.TabIndex = 60
Me.btnLinkProcessPRofile.Text = "Prozess und Profil verknüpfen"
Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.lblLicenseDate)
Me.GroupBox5.Controls.Add(Me.lbllicenseCount)
Me.GroupBox5.Controls.Add(Me.Label6)
Me.GroupBox5.Controls.Add(Me.Label5)
Me.GroupBox5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox5.Location = New System.Drawing.Point(914, 310)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(271, 71)
Me.GroupBox5.TabIndex = 22
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Lizenzübersicht"
'
'lblLicenseDate
'
Me.lblLicenseDate.AutoSize = True
Me.lblLicenseDate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLicenseDate.Location = New System.Drawing.Point(135, 45)
Me.lblLicenseDate.Name = "lblLicenseDate"
Me.lblLicenseDate.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lblLicenseDate.Size = New System.Drawing.Size(13, 13)
Me.lblLicenseDate.TabIndex = 7
Me.lblLicenseDate.Text = "0"
'
'lbllicenseCount
'
Me.lbllicenseCount.AutoSize = True
Me.lbllicenseCount.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbllicenseCount.Location = New System.Drawing.Point(135, 20)
Me.lbllicenseCount.Name = "lbllicenseCount"
Me.lbllicenseCount.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.lbllicenseCount.Size = New System.Drawing.Size(13, 13)
Me.lbllicenseCount.TabIndex = 6
Me.lbllicenseCount.Text = "0"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 45)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Gültigkeit:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(7, 20)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(122, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Anzahl der Lizenzen:"
'
'frmAdministration 'frmAdministration
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1240, 730) Me.ClientSize = New System.Drawing.Size(1240, 730)
Me.Controls.Add(Me.GroupBox5)
Me.Controls.Add(Me.GroupBox4) Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox2)
@ -995,16 +1066,18 @@ Partial Class frmAdministration
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents MyDataset As DD_Clipboard_Searcher.MyDataset Friend WithEvents MyDataset As DD_Clipboard_Watcher.MyDataset
Friend WithEvents TBCBS_PROFILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBCBS_PROFILESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter
Friend WithEvents TableAdapterManager As DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents TBCBS_PROFILESBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents TBCBS_PROFILESBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
@ -1038,7 +1111,7 @@ Partial Class frmAdministration
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWUSER_PROFILEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter Friend WithEvents VWUSER_PROFILETableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.VWUSER_PROFILETableAdapter
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn
@ -1059,12 +1132,11 @@ Partial Class frmAdministration
Friend WithEvents txtPID As System.Windows.Forms.TextBox Friend WithEvents txtPID As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents chkRunwindowCheck As System.Windows.Forms.CheckBox
Friend WithEvents TimerTest As System.Windows.Forms.Timer Friend WithEvents TimerTest As System.Windows.Forms.Timer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents TBWH_UserBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBWH_UserBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBCBS_PROFILE_PROCESSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBCBS_PROFILE_PROCESSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBCBS_PROFILE_PROCESSTableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter Friend WithEvents TBCBS_PROFILE_PROCESSTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILE_PROCESSTableAdapter
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProcessProfile As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridViewProcessProfile As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn
@ -1074,4 +1146,11 @@ Partial Class frmAdministration
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents btnLinkProcessPRofile As System.Windows.Forms.Button Friend WithEvents btnLinkProcessPRofile As System.Windows.Forms.Button
Friend WithEvents btndeleteProcessProfileLink As System.Windows.Forms.Button Friend WithEvents btndeleteProcessProfileLink As System.Windows.Forms.Button
Friend WithEvents btnStartStopProcess As Button
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents lblLicenseDate As Label
Friend WithEvents lbllicenseCount As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
End Class End Class

3
DD_Clipboard_Searcher/frmAdministration.resx → app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@ -321,6 +321,9 @@
D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA

41
DD_Clipboard_Searcher/frmAdministration.vb → app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -32,6 +32,13 @@ Public Class frmAdministration
End Sub End Sub
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Load_Profiles() Load_Profiles()
lbllicenseCount.Text = LICENSE_COUNT
If LICENSE_DATE.ToString.Contains("2099") Then
lblLicenseDate.Text = "Unlimited"
Else
lblLicenseDate.Text = LICENSE_DATE
End If
End Sub End Sub
Sub Status_Changed(text As String, col As System.Drawing.Color) Sub Status_Changed(text As String, col As System.Drawing.Color)
statuslabel.Text = text statuslabel.Text = text
@ -147,25 +154,13 @@ Public Class frmAdministration
End Try End Try
End Sub End Sub
Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs) Handles chkRunwindowCheck.CheckedChanged Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs)
If chkRunwindowCheck.Checked Then
Me.Cursor = Cursors.WaitCursor
txtPID.Text = ""
txtProcessName.Text = ""
TimerTest.Start()
chkRunwindowCheck.Text = "Stoppe Auswertung"
Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
Else
Me.Cursor = Cursors.Default
TimerTest.Stop()
chkRunwindowCheck.Text = "Starte Aktive-Fenster Auswahl"
Status_Changed("", Color.Transparent)
End If
End Sub End Sub
Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick
clsWINDOWSApi.Get_ForegroundWindow_Info() clsWINDOWSApi.Get_ForegroundWindow_Info()
If PID <> PROC_PID And PROC_Name <> "DD_Clipboard_Searcher" Then If PID <> PROC_PID And PROC_Name <> "DD_Clipboard_Watcher" Then
PictureBox1.Visible = True PictureBox1.Visible = True
PID = PROC_PID PID = PROC_PID
txtPID.Text = PROC_PID txtPID.Text = PROC_PID
@ -223,4 +218,20 @@ Public Class frmAdministration
MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub btnStartStopProcess_Click(sender As Object, e As EventArgs) Handles btnStartStopProcess.Click
If btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl" Then
Me.Cursor = Cursors.WaitCursor
txtPID.Text = ""
txtProcessName.Text = ""
TimerTest.Start()
btnStartStopProcess.Text = "Stoppe Auswertung Fenster"
Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
Else
Me.Cursor = Cursors.Default
TimerTest.Stop()
btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl"
Status_Changed("", Color.Transparent)
End If
End Sub
End Class End Class

711
DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb → app/DD_Clipboard_Searcher/frmConfig_Basic.Designer.vb generated
View File

@ -1,319 +1,392 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmConfig_Basic Partial Class frmConfig_Basic
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
components.Dispose() components.Dispose()
End If End If
Finally Finally
MyBase.Dispose(disposing) MyBase.Dispose(disposing)
End Try End Try
End Sub End Sub
'Wird vom Windows Form-Designer benötigt. 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox() Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox() Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.txtActualConnection = New System.Windows.Forms.TextBox() Me.txtActualConnection = New System.Windows.Forms.TextBox()
Me.txtServer = New System.Windows.Forms.TextBox() Me.txtServer = New System.Windows.Forms.TextBox()
Me.txtUser = New System.Windows.Forms.TextBox() Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox() Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button() Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.chkWDMaximized = New System.Windows.Forms.CheckBox() Me.chkWDMaximized = New System.Windows.Forms.CheckBox()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.TabControl1.SuspendLayout() Me.cmbfunctionHit = New System.Windows.Forms.ComboBox()
Me.TabPage1.SuspendLayout() Me.Label6 = New System.Windows.Forms.Label()
Me.TabPage2.SuspendLayout() Me.Label7 = New System.Windows.Forms.Label()
Me.SuspendLayout() Me.txtHotkeySearchKey = New System.Windows.Forms.TextBox()
' Me.btnChangeHotkey = New System.Windows.Forms.Button()
'TabControl1 Me.lblChanges = New System.Windows.Forms.Label()
' Me.TabControl1.SuspendLayout()
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabPage1.SuspendLayout()
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabPage2.SuspendLayout()
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuspendLayout()
Me.TabControl1.Location = New System.Drawing.Point(0, 0) '
Me.TabControl1.Name = "TabControl1" 'TabControl1
Me.TabControl1.SelectedIndex = 0 '
Me.TabControl1.Size = New System.Drawing.Size(676, 186) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.TabIndex = 1 Me.TabControl1.Controls.Add(Me.TabPage2)
' Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
'TabPage1 Me.TabControl1.Location = New System.Drawing.Point(0, 0)
' Me.TabControl1.Name = "TabControl1"
Me.TabPage1.Controls.Add(Me.chkbxUserAut) Me.TabControl1.SelectedIndex = 0
Me.TabPage1.Controls.Add(Me.Label5) Me.TabControl1.Size = New System.Drawing.Size(676, 186)
Me.TabPage1.Controls.Add(Me.cmbDatenbank) Me.TabControl1.TabIndex = 1
Me.TabPage1.Controls.Add(Me.Label4) '
Me.TabPage1.Controls.Add(Me.Label1) 'TabPage1
Me.TabPage1.Controls.Add(Me.Label2) '
Me.TabPage1.Controls.Add(Me.Label3) Me.TabPage1.Controls.Add(Me.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.txtActualConnection) Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.txtServer) Me.TabPage1.Controls.Add(Me.cmbDatenbank)
Me.TabPage1.Controls.Add(Me.txtUser) Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.txtPasswort) Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.BtnConnect) Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Controls.Add(Me.Label3)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Controls.Add(Me.txtActualConnection)
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Controls.Add(Me.txtServer)
Me.TabPage1.Size = New System.Drawing.Size(668, 160) Me.TabPage1.Controls.Add(Me.txtUser)
Me.TabPage1.TabIndex = 0 Me.TabPage1.Controls.Add(Me.txtPasswort)
Me.TabPage1.Text = "Datenbank-Verbindung" Me.TabPage1.Controls.Add(Me.BtnConnect)
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.Location = New System.Drawing.Point(4, 22)
' Me.TabPage1.Name = "TabPage1"
'chkbxUserAut Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
' Me.TabPage1.Size = New System.Drawing.Size(668, 160)
Me.chkbxUserAut.AutoSize = True Me.TabPage1.TabIndex = 0
Me.chkbxUserAut.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.TabPage1.Text = "Datenbank-Verbindung"
Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36) Me.TabPage1.UseVisualStyleBackColor = True
Me.chkbxUserAut.Name = "chkbxUserAut" '
Me.chkbxUserAut.Size = New System.Drawing.Size(155, 17) 'chkbxUserAut
Me.chkbxUserAut.TabIndex = 47 '
Me.chkbxUserAut.Text = "Windows-Authentifizierung" Me.chkbxUserAut.AutoSize = True
Me.chkbxUserAut.UseVisualStyleBackColor = True Me.chkbxUserAut.ImeMode = System.Windows.Forms.ImeMode.NoControl
' Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36)
'Label5 Me.chkbxUserAut.Name = "chkbxUserAut"
' Me.chkbxUserAut.Size = New System.Drawing.Size(155, 17)
Me.Label5.AutoSize = True Me.chkbxUserAut.TabIndex = 47
Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.chkbxUserAut.Text = "Windows-Authentifizierung"
Me.Label5.Location = New System.Drawing.Point(5, 115) Me.chkbxUserAut.UseVisualStyleBackColor = True
Me.Label5.Name = "Label5" '
Me.Label5.Size = New System.Drawing.Size(138, 13) 'Label5
Me.Label5.TabIndex = 46 '
Me.Label5.Text = "Aktueller ConnectionString:" Me.Label5.AutoSize = True
' Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
'cmbDatenbank Me.Label5.Location = New System.Drawing.Point(5, 115)
' Me.Label5.Name = "Label5"
Me.cmbDatenbank.FormattingEnabled = True Me.Label5.Size = New System.Drawing.Size(138, 13)
Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82) Me.Label5.TabIndex = 46
Me.cmbDatenbank.Name = "cmbDatenbank" Me.Label5.Text = "Aktueller ConnectionString:"
Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21) '
Me.cmbDatenbank.TabIndex = 39 'cmbDatenbank
' '
'Label4 Me.cmbDatenbank.FormattingEnabled = True
' Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82)
Me.Label4.AutoSize = True Me.cmbDatenbank.Name = "cmbDatenbank"
Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21)
Me.Label4.Location = New System.Drawing.Point(5, 62) Me.cmbDatenbank.TabIndex = 39
Me.Label4.Name = "Label4" '
Me.Label4.Size = New System.Drawing.Size(63, 13) 'Label4
Me.Label4.TabIndex = 44 '
Me.Label4.Text = "Datenbank:" Me.Label4.AutoSize = True
' Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
'Label1 Me.Label4.Location = New System.Drawing.Point(5, 62)
' Me.Label4.Name = "Label4"
Me.Label1.AutoSize = True Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label4.TabIndex = 44
Me.Label1.Location = New System.Drawing.Point(5, 14) Me.Label4.Text = "Datenbank:"
Me.Label1.Name = "Label1" '
Me.Label1.Size = New System.Drawing.Size(74, 13) 'Label1
Me.Label1.TabIndex = 41 '
Me.Label1.Text = "Server-Name:" Me.Label1.AutoSize = True
' Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
'Label2 Me.Label1.Location = New System.Drawing.Point(5, 14)
' Me.Label1.Name = "Label1"
Me.Label2.AutoSize = True Me.Label1.Size = New System.Drawing.Size(74, 13)
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label1.TabIndex = 41
Me.Label2.Location = New System.Drawing.Point(299, 14) Me.Label1.Text = "Server-Name:"
Me.Label2.Name = "Label2" '
Me.Label2.Size = New System.Drawing.Size(80, 13) 'Label2
Me.Label2.TabIndex = 42 '
Me.Label2.Text = "Benutzername:" Me.Label2.AutoSize = True
' Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
'Label3 Me.Label2.Location = New System.Drawing.Point(299, 14)
' Me.Label2.Name = "Label2"
Me.Label3.AutoSize = True Me.Label2.Size = New System.Drawing.Size(80, 13)
Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label2.TabIndex = 42
Me.Label3.Location = New System.Drawing.Point(423, 14) Me.Label2.Text = "Benutzername:"
Me.Label3.Name = "Label3" '
Me.Label3.Size = New System.Drawing.Size(55, 13) 'Label3
Me.Label3.TabIndex = 43 '
Me.Label3.Text = "Passwort:" Me.Label3.AutoSize = True
' Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
'txtActualConnection Me.Label3.Location = New System.Drawing.Point(423, 14)
' Me.Label3.Name = "Label3"
Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.Label3.Size = New System.Drawing.Size(55, 13)
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.TabIndex = 43
Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke Me.Label3.Text = "Passwort:"
Me.txtActualConnection.Location = New System.Drawing.Point(8, 131) '
Me.txtActualConnection.Name = "txtActualConnection" 'txtActualConnection
Me.txtActualConnection.ReadOnly = True '
Me.txtActualConnection.Size = New System.Drawing.Size(528, 21) Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Me.txtActualConnection.TabIndex = 45 Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
' Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
'txtServer Me.txtActualConnection.Location = New System.Drawing.Point(8, 131)
' Me.txtActualConnection.Name = "txtActualConnection"
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText Me.txtActualConnection.ReadOnly = True
Me.txtServer.Location = New System.Drawing.Point(8, 34) Me.txtActualConnection.Size = New System.Drawing.Size(528, 21)
Me.txtServer.Name = "txtServer" Me.txtActualConnection.TabIndex = 45
Me.txtServer.Size = New System.Drawing.Size(288, 21) '
Me.txtServer.TabIndex = 36 'txtServer
' '
'txtUser Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
' Me.txtServer.Location = New System.Drawing.Point(8, 34)
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText Me.txtServer.Name = "txtServer"
Me.txtUser.Location = New System.Drawing.Point(302, 34) Me.txtServer.Size = New System.Drawing.Size(288, 21)
Me.txtUser.Name = "txtUser" Me.txtServer.TabIndex = 36
Me.txtUser.Size = New System.Drawing.Size(118, 21) '
Me.txtUser.TabIndex = 37 'txtUser
' '
'txtPasswort Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
' Me.txtUser.Location = New System.Drawing.Point(302, 34)
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText Me.txtUser.Name = "txtUser"
Me.txtPasswort.Location = New System.Drawing.Point(426, 34) Me.txtUser.Size = New System.Drawing.Size(118, 21)
Me.txtPasswort.Name = "txtPasswort" Me.txtUser.TabIndex = 37
Me.txtPasswort.Size = New System.Drawing.Size(64, 21) '
Me.txtPasswort.TabIndex = 38 'txtPasswort
Me.txtPasswort.UseSystemPasswordChar = True '
' Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
'BtnConnect Me.txtPasswort.Location = New System.Drawing.Point(426, 34)
' Me.txtPasswort.Name = "txtPasswort"
Me.BtnConnect.Image = CType(resources.GetObject("BtnConnect.Image"), System.Drawing.Image) Me.txtPasswort.Size = New System.Drawing.Size(64, 21)
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.txtPasswort.TabIndex = 38
Me.BtnConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.txtPasswort.UseSystemPasswordChar = True
Me.BtnConnect.Location = New System.Drawing.Point(302, 82) '
Me.BtnConnect.Name = "BtnConnect" 'BtnConnect
Me.BtnConnect.Size = New System.Drawing.Size(253, 25) '
Me.BtnConnect.TabIndex = 40 Me.BtnConnect.Image = CType(resources.GetObject("BtnConnect.Image"), System.Drawing.Image)
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen" Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.BtnConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.BtnConnect.UseVisualStyleBackColor = True Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
' Me.BtnConnect.Name = "BtnConnect"
'TabPage2 Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
' Me.BtnConnect.TabIndex = 40
Me.TabPage2.Controls.Add(Me.chkWDMaximized) Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly) Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.TabPage2.Controls.Add(Me.Button1) Me.BtnConnect.UseVisualStyleBackColor = True
Me.TabPage2.Controls.Add(Me.btnApplicationFolder) '
Me.TabPage2.Controls.Add(Me.LinkLabel1) 'TabPage2
Me.TabPage2.Location = New System.Drawing.Point(4, 22) '
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Controls.Add(Me.lblChanges)
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Controls.Add(Me.btnChangeHotkey)
Me.TabPage2.Size = New System.Drawing.Size(668, 160) Me.TabPage2.Controls.Add(Me.txtHotkeySearchKey)
Me.TabPage2.TabIndex = 1 Me.TabPage2.Controls.Add(Me.Label7)
Me.TabPage2.Text = "Weitere Einstellungen" Me.TabPage2.Controls.Add(Me.Label6)
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.Controls.Add(Me.cmbfunctionHit)
' Me.TabPage2.Controls.Add(Me.chkWDMaximized)
'chkWDMaximized Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
' Me.TabPage2.Controls.Add(Me.Button1)
Me.chkWDMaximized.AutoSize = True Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.chkWDMaximized.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.TabPage2.Controls.Add(Me.LinkLabel1)
Me.chkWDMaximized.Location = New System.Drawing.Point(8, 40) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.chkWDMaximized.Name = "chkWDMaximized" Me.TabPage2.Name = "TabPage2"
Me.chkWDMaximized.Size = New System.Drawing.Size(162, 17) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.chkWDMaximized.TabIndex = 8 Me.TabPage2.Size = New System.Drawing.Size(668, 160)
Me.chkWDMaximized.Text = "windream-search maximiert?" Me.TabPage2.TabIndex = 1
Me.chkWDMaximized.UseVisualStyleBackColor = True Me.TabPage2.Text = "Weitere Einstellungen"
' Me.TabPage2.UseVisualStyleBackColor = True
'chkLogErrorsOnly '
' 'chkWDMaximized
Me.chkLogErrorsOnly.AutoSize = True '
Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.chkWDMaximized.AutoSize = True
Me.chkLogErrorsOnly.Location = New System.Drawing.Point(8, 17) Me.chkWDMaximized.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly" Me.chkWDMaximized.Location = New System.Drawing.Point(8, 40)
Me.chkLogErrorsOnly.Size = New System.Drawing.Size(100, 17) Me.chkWDMaximized.Name = "chkWDMaximized"
Me.chkLogErrorsOnly.TabIndex = 7 Me.chkWDMaximized.Size = New System.Drawing.Size(162, 17)
Me.chkLogErrorsOnly.Text = "Log Errors Only" Me.chkWDMaximized.TabIndex = 8
Me.chkLogErrorsOnly.UseVisualStyleBackColor = True Me.chkWDMaximized.Text = "windream-search maximiert?"
' Me.chkWDMaximized.UseVisualStyleBackColor = True
'Button1 '
' 'chkLogErrorsOnly
Me.Button1.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.folder_Open_16xLG '
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.chkLogErrorsOnly.AutoSize = True
Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.chkLogErrorsOnly.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Button1.Location = New System.Drawing.Point(462, 71) Me.chkLogErrorsOnly.Location = New System.Drawing.Point(8, 17)
Me.Button1.Name = "Button1" Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
Me.Button1.Size = New System.Drawing.Size(198, 23) Me.chkLogErrorsOnly.Size = New System.Drawing.Size(100, 17)
Me.Button1.TabIndex = 6 Me.chkLogErrorsOnly.TabIndex = 7
Me.Button1.Text = "Open Log-Folder" Me.chkLogErrorsOnly.Text = "Log Errors Only"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
Me.Button1.UseVisualStyleBackColor = True '
' 'Button1
'btnApplicationFolder '
' Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.btnApplicationFolder.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.folder_Open_16xLG Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnApplicationFolder.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Button1.Location = New System.Drawing.Point(462, 71)
Me.btnApplicationFolder.Location = New System.Drawing.Point(462, 45) Me.Button1.Name = "Button1"
Me.btnApplicationFolder.Name = "btnApplicationFolder" Me.Button1.Size = New System.Drawing.Size(198, 23)
Me.btnApplicationFolder.Size = New System.Drawing.Size(198, 23) Me.Button1.TabIndex = 6
Me.btnApplicationFolder.TabIndex = 2 Me.Button1.Text = "Open Log-Folder"
Me.btnApplicationFolder.Text = "Open AppFolder User" Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button1.UseVisualStyleBackColor = True
Me.btnApplicationFolder.UseVisualStyleBackColor = True '
' 'btnApplicationFolder
'LinkLabel1 '
' Me.btnApplicationFolder.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.LinkLabel1.AutoSize = True Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.LinkLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!) Me.btnApplicationFolder.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.LinkLabel1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnApplicationFolder.Location = New System.Drawing.Point(462, 45)
Me.LinkLabel1.Location = New System.Drawing.Point(459, 16) Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.LinkLabel1.Name = "LinkLabel1" Me.btnApplicationFolder.Size = New System.Drawing.Size(198, 23)
Me.LinkLabel1.Size = New System.Drawing.Size(201, 17) Me.btnApplicationFolder.TabIndex = 2
Me.LinkLabel1.TabIndex = 1 Me.btnApplicationFolder.Text = "Open AppFolder User"
Me.LinkLabel1.TabStop = True Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data" Me.btnApplicationFolder.UseVisualStyleBackColor = True
' '
'frmConfig_Basic 'LinkLabel1
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.LinkLabel1.AutoSize = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.LinkLabel1.Font = New System.Drawing.Font("Segoe UI", 9.75!)
Me.ClientSize = New System.Drawing.Size(676, 186) Me.LinkLabel1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Controls.Add(Me.TabControl1) Me.LinkLabel1.Location = New System.Drawing.Point(459, 16)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LinkLabel1.Name = "LinkLabel1"
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.LinkLabel1.Size = New System.Drawing.Size(200, 17)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.LinkLabel1.TabIndex = 1
Me.MaximizeBox = False Me.LinkLabel1.TabStop = True
Me.MinimizeBox = False Me.LinkLabel1.Text = "Link zu Support-Tool Digital Data"
Me.Name = "frmConfig_Basic" '
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 'cmbfunctionHit
Me.Text = "Grundeinstellungen" '
Me.TabControl1.ResumeLayout(False) Me.cmbfunctionHit.FormattingEnabled = True
Me.TabPage1.ResumeLayout(False) Me.cmbfunctionHit.Items.AddRange(New Object() {"strg", "SHIFT"})
Me.TabPage1.PerformLayout() Me.cmbfunctionHit.Location = New System.Drawing.Point(11, 91)
Me.TabPage2.ResumeLayout(False) Me.cmbfunctionHit.Name = "cmbfunctionHit"
Me.TabPage2.PerformLayout() Me.cmbfunctionHit.Size = New System.Drawing.Size(79, 21)
Me.ResumeLayout(False) Me.cmbfunctionHit.TabIndex = 9
'
End Sub 'Label6
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl '
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Me.Label6.AutoSize = True
Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox Me.Label6.Location = New System.Drawing.Point(8, 75)
Friend WithEvents Label5 As System.Windows.Forms.Label Me.Label6.Name = "Label6"
Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox Me.Label6.Size = New System.Drawing.Size(82, 13)
Friend WithEvents Label4 As System.Windows.Forms.Label Me.Label6.TabIndex = 10
Friend WithEvents Label1 As System.Windows.Forms.Label Me.Label6.Text = "Funktionstaste:"
Friend WithEvents Label2 As System.Windows.Forms.Label '
Friend WithEvents Label3 As System.Windows.Forms.Label 'Label7
Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox '
Friend WithEvents txtServer As System.Windows.Forms.TextBox Me.Label7.AutoSize = True
Friend WithEvents txtUser As System.Windows.Forms.TextBox Me.Label7.Location = New System.Drawing.Point(102, 75)
Friend WithEvents txtPasswort As System.Windows.Forms.TextBox Me.Label7.Name = "Label7"
Friend WithEvents BtnConnect As System.Windows.Forms.Button Me.Label7.Size = New System.Drawing.Size(68, 13)
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Me.Label7.TabIndex = 11
Friend WithEvents chkWDMaximized As System.Windows.Forms.CheckBox Me.Label7.Text = "Zifferntaste:"
Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox '
Friend WithEvents Button1 As System.Windows.Forms.Button 'txtHotkeySearchKey
Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button '
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel Me.txtHotkeySearchKey.Location = New System.Drawing.Point(105, 91)
End Class Me.txtHotkeySearchKey.Name = "txtHotkeySearchKey"
Me.txtHotkeySearchKey.Size = New System.Drawing.Size(65, 21)
Me.txtHotkeySearchKey.TabIndex = 12
Me.txtHotkeySearchKey.Text = "f"
'
'btnChangeHotkey
'
Me.btnChangeHotkey.Location = New System.Drawing.Point(185, 89)
Me.btnChangeHotkey.Name = "btnChangeHotkey"
Me.btnChangeHotkey.Size = New System.Drawing.Size(121, 23)
Me.btnChangeHotkey.TabIndex = 13
Me.btnChangeHotkey.Text = "Ändere Hotkey"
Me.btnChangeHotkey.UseVisualStyleBackColor = True
'
'lblChanges
'
Me.lblChanges.AutoSize = True
Me.lblChanges.BackColor = System.Drawing.Color.Yellow
Me.lblChanges.Location = New System.Drawing.Point(8, 115)
Me.lblChanges.Name = "lblChanges"
Me.lblChanges.Size = New System.Drawing.Size(38, 13)
Me.lblChanges.TabIndex = 14
Me.lblChanges.Text = "Label8"
Me.lblChanges.Visible = False
'
'frmConfig_Basic
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(676, 186)
Me.Controls.Add(Me.TabControl1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmConfig_Basic"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Grundeinstellungen"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox
Friend WithEvents txtServer As System.Windows.Forms.TextBox
Friend WithEvents txtUser As System.Windows.Forms.TextBox
Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
Friend WithEvents BtnConnect As System.Windows.Forms.Button
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents chkWDMaximized As System.Windows.Forms.CheckBox
Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Label6 As Label
Friend WithEvents cmbfunctionHit As ComboBox
Friend WithEvents txtHotkeySearchKey As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents btnChangeHotkey As Button
Friend WithEvents lblChanges As Label
End Class

338
DD_Clipboard_Searcher/frmConfig_Basic.resx → app/DD_Clipboard_Searcher/frmConfig_Basic.resx
View File

@ -1,170 +1,170 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<root> <root>
<!-- <!--
Microsoft ResX Schema Microsoft ResX Schema
Version 2.0 Version 2.0
The primary goals of this format is to allow a simple XML format The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes various data types are done through the TypeConverter classes
associated with the data types. associated with the data types.
Example: Example:
... ado.net/XML headers & schema ... ... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader> <resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader> <resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader> <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data> <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data> <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value> <value>[base64 mime encoded serialized .NET Framework object]</value>
</data> </data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment> <comment>This is a comment</comment>
</data> </data>
There are any number of "resheader" rows that contain simple There are any number of "resheader" rows that contain simple
name/value pairs. name/value pairs.
Each data row contains a name, and value. The row also contains a Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture. text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the Classes that don't support this are serialized and stored with the
mimetype set. mimetype set.
The mimetype is used for serialized objects, and tells the The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly: extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below. read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64 mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64 mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64 mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter : using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
--> -->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" /> <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true"> <xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType> <xsd:complexType>
<xsd:choice maxOccurs="unbounded"> <xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata"> <xsd:element name="metadata">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" /> <xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" /> <xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" /> <xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" /> <xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" /> <xsd:attribute ref="xml:space" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="assembly"> <xsd:element name="assembly">
<xsd:complexType> <xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" /> <xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" /> <xsd:attribute name="name" type="xsd:string" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="data"> <xsd:element name="data">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" /> <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" /> <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" /> <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" /> <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" /> <xsd:attribute ref="xml:space" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
<xsd:element name="resheader"> <xsd:element name="resheader">
<xsd:complexType> <xsd:complexType>
<xsd:sequence> <xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence> </xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" /> <xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
</xsd:choice> </xsd:choice>
</xsd:complexType> </xsd:complexType>
</xsd:element> </xsd:element>
</xsd:schema> </xsd:schema>
<resheader name="resmimetype"> <resheader name="resmimetype">
<value>text/microsoft-resx</value> <value>text/microsoft-resx</value>
</resheader> </resheader>
<resheader name="version"> <resheader name="version">
<value>2.0</value> <value>2.0</value>
</resheader> </resheader>
<resheader name="reader"> <resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BtnConnect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BtnConnect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJVSURBVDhPpZLNi5JRFMYHWsyqPyBa1SqCilm1bBNR dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJVSURBVDhPpZLNi5JRFMYHWsyqPyBa1SqCilm1bBNR
EbSIoU2BxVRQm2gVFESLGCvLJjIQyhmRScRvx89XRdHZzMLPVBxmFHXwgyujos44qePTvbdm0N6gRS8c EbSIoU2BxVRQm2gVFESLGCvLJjIQyhmRScRvx89XRdHZzMLPVBxmFHXwgyujos44qePTvbdm0N6gRS8c
znvgPr9z73POFID/ionC5/NNe73eWUEQTG63O+NyuQZOp/OH3W6PrKys6KxW6yWz2XxkXDMuPk3FiXg8 znvgPr9z73POFID/ionC5/NNe73eWUEQTG63O+NyuQZOp/OH3W6PrKys6KxW6yWz2XxkXDMuPk3FiXg8
jlqthk6ng/39fQyHQ2xvb6NQKCAUCsFoNIYNBsNxEYB2DRSLRYxGI1r+/RsMBojFYtDpdGpaTgI8Hg/Z jlqthk6ng/39fQyHQ2xvb6NQKCAUCsFoNIYNBsNxEYB2DRSLRYxGI1r+/RsMBojFYtDpdGpaTgI8Hg/Z
29v7J4AQAq1WS2g5CaDvJb1eD9VqFc1mE7u7u1zQ7/fRarWQz+cRDodRqVSwvLwsBjgcDsJE9XqdH85k 29v7J4AQAq1WS2g5CaDvJb1eD9VqFc1mE7u7u1zQ7/fRarWQz+cRDodRqVSwvLwsBjgcDsJE9XqdH85k
Mkin00gkElxIPUIwGES5XIZGoxEDqNNkZ2cHjUaDdymVSjwzXyKRCDeQxdbWFpaWlsQAm81Gut0ufyMT Mkin00gkElxIPUIwGES5XIZGoxEDqNNkZ2cHjUaDdymVSjwzXyKRCDeQxdbWFpaWlsQAm81Gut0ufyMT
5XI5fpjdZm1tDX6/H4FAgINVKpUYYLFYCBsd84CJ19fX+eg2NjawuroKxbc3ePL5Nu6/v45bry6Orjw9 5XI5fpjdZm1tDX6/H4FAgINVKpUYYLFYCBsd84CJ19fX+eg2NjawuroKxbc3ePL5Nu6/v45bry6Orjw9
+3wCYDKZSLvd5h2y2Sx//+bmJv//pJXipf4O7CkF4hUBcu9D3JSfwflHx2SHALoc5MDtVCqFZDLJuzMz +3wCYDKZSLvd5h2y2Sx//+bmJv//pJXipf4O7CkF4hUBcu9D3JSfwflHx2SHALoc5MDtVCqFZDLJuzMz
Ja8vw/r9A6yZj/QoIPPdg9z3gAF6hwC6HISJ2TOYcBxw7dkMnKkvXHzw2ZIKBvglZkGX4yqdbzcajfLV Ja8vw/r9A6yZj/QoIPPdg9z3gAF6hwC6HISJ2TOYcBxw7dkMnKkvXHzw2ZIKBvglZkGX4yqdbzcajfLV
ZYayqbB84fFJvBXuYl6QcPG8RyK+AQs63xNqtfrr4uJii2bo9Xq2dZh7MYsbslN4J8zxziyzesKDP0Op ZYayqbB84fFJvBXuYl6QcPG8RyK+AQs63xNqtfrr4uJii2bo9Xq2dZh7MYsbslN4J8zxziyzesKDP0Op
VB5VKBQzCwsL52Qy2TQ9LKXRZtf+naUApn4Cytwc5qi3odMAAAAASUVORK5CYII= VB5VKBQzCwsL52Qy2TQ9LKXRZtf+naUApn4Cytwc5qi3odMAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAA/wAAAAAAAA948AAAAAAA+Hd/AAAAAAD4d3fwAA AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAA/wAAAAAAAA948AAAAAAA+Hd/AAAAAAD4d3fwAA
AAAA93d3///wAAAPd3d3d48AAAD3d3d3ePAAAA93d3d38AAAD3d3d3fwAAAPd3f/d/AAAA93d/D38AAA AAAA93d3///wAAAPd3d3d48AAAD3d3d3ePAAAA93d3d38AAAD3d3d3fwAAAPd3f/d/AAAA93d/D38AAA
D4d3fw/wAAAA+Hd38AAAAAAP///wAAAAAAAAAAAA//8AAOf/AADD/wAAgf8AAID/AADABwAA4AMAAPAB D4d3fw/wAAAA+Hd38AAAAAAP///wAAAAAAAAAAAA//8AAOf/AADD/wAAgf8AAID/AADABwAA4AMAAPAB
AAD4AQAA+AEAAPgBAAD4EQAA+AkAAPwHAAD+BwAA//8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA AAD4AQAA+AEAAPgBAAD4EQAA+AkAAPwHAAD+BwAA//8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAZGRkAIaGhgCcnJwAp6enAL6+vgDr6+sA9vb2APr6 AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAZGRkAIaGhgCcnJwAp6enAL6+vgDr6+sA9vb2APr6
+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA +gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAsLAAAAAAAAAAAAAAAAAAoGBwoAAAAA AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAsLAAAAAAAAAAAAAAAAAAoGBwoAAAAA
AAAAAAAAAAsHAQEFCgAAAAAAAAAAAAALBwEBAQUKAAAAAAAAAAAAAAoEAQEBBQoKCgoLAAAAAAAACQQB AAAAAAAAAAsHAQEFCgAAAAAAAAAAAAALBwEBAQUKAAAAAAAAAAAAAAoEAQEBBQoKCgoLAAAAAAAACQQB
AQECAQEDCAoAAAAAAAAJBAEBAQEBAQEICwAAAAAAAAkBAQEBAQEBAwoAAAAAAAAKAQEBAQUFAQEKAAAA AQECAQEDCAoAAAAAAAAJBAEBAQEBAQEICwAAAAAAAAkBAQEBAQEBAwoAAAAAAAAKAQEBAQUFAQEKAAAA
AAAACgEBAQUKCgUBCgAAAAAAAAoDAQEFCgAKBgoAAAAAAAALCAEBAQUKAAoLAAAAAAAAAAoIAwEBBgoA AAAACgEBAQUKCgUBCgAAAAAAAAoDAQEFCgAKBgoAAAAAAAALCAEBAQUKAAoLAAAAAAAAAAoIAwEBBgoA
AAAAAAAAAAAACwoKCgoLAAAAAAAAAAAAAAAAAAAAAAAAAP//AADn/wAAw/8AAIH/AACA/wAAwAcAAOAD AAAAAAAAAAAACwoKCgoLAAAAAAAAAAAAAAAAAAAAAAAAAP//AADn/wAAw/8AAIH/AACA/wAAwAcAAOAD
AADwAQAA+AEAAPgBAAD4AQAA+BEAAPgJAAD8BwAA/gcAAP//AAA= AADwAQAA+AEAAPgBAAD4AQAA+BEAAPgJAAD8BwAA/gcAAP//AAA=
</value> </value>
</data> </data>
</root> </root>

39
DD_Clipboard_Searcher/frmConfig_Basic.vb → app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@ -2,6 +2,7 @@
Imports System.Globalization Imports System.Globalization
Imports DD_LIB_Standards Imports DD_LIB_Standards
Public Class frmConfig_Basic Public Class frmConfig_Basic
Dim WithEvents Hotkey As New clsHotkey(Me)
Dim formloaded As Boolean = False Dim formloaded As Boolean = False
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
Try Try
@ -101,6 +102,7 @@ Public Class frmConfig_Basic
End Sub End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblChanges.Visible = False
If Not MyConnectionString = String.Empty Then If Not MyConnectionString = String.Empty Then
CONNECTION_CHANGED = False CONNECTION_CHANGED = False
Try Try
@ -166,6 +168,12 @@ Public Class frmConfig_Basic
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 1 Case 1
Try
cmbfunctionHit.SelectedIndex = cmbfunctionHit.FindStringExact(HotkeyFunctionKey)
txtHotkeySearchKey.Text = HotkeySearchKey
Catch ex As Exception
End Try
@ -196,4 +204,35 @@ Public Class frmConfig_Basic
Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged
End Sub End Sub
Private Sub btnChangeHotkey_Click(sender As Object, e As EventArgs) Handles btnChangeHotkey.Click
Try
If cmbfunctionHit.SelectedIndex <> -1 Then
Hotkey.RemoveHotKey(354523017)
SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
Dim keyCode As Keys
Dim kc As New KeysConverter
Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper)
keyCode = CType(obj, Keys)
If cmbfunctionHit.Text = "strg" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, 354523017)
ElseIf cmbfunctionHit.Text = "SHIFT" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, 354523017)
End If
lblChanges.Text = "Hotkey changed - " & Now.ToString & " - Restart required"
lblChanges.Visible = True
Dim msg = "Die Änderung des Hotkeys war erfolgreich." & vbNewLine & "Da es sich um einen global Hotkey handelt muss die Anwendung aber neugestartet werden!"
If USER_LANGUAGE <> "de-DE" Then
msg = "The change of your desired hotkey was successfull." & vbNewLine & "For using it the application must be restarted now!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Cursor = Cursors.WaitCursor
Application.Restart()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in ChangeHotkey:")
End Try
End Sub
End Class End Class

398
DD_Clipboard_Searcher/frmLicense.Designer.vb → app/DD_Clipboard_Searcher/frmLicense.Designer.vb generated
View File

@ -1,199 +1,199 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLicense Partial Class frmLicense
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
components.Dispose() components.Dispose()
End If End If
Finally Finally
MyBase.Dispose(disposing) MyBase.Dispose(disposing)
End Try End Try
End Sub End Sub
'Wird vom Windows Form-Designer benötigt. 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLicense)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLicense))
Me.txtPW = New System.Windows.Forms.TextBox() Me.txtPW = New System.Windows.Forms.TextBox()
Me.lblPW = New System.Windows.Forms.Label() Me.lblPW = New System.Windows.Forms.Label()
Me.grbBoxlicense = New System.Windows.Forms.GroupBox() Me.grbBoxlicense = New System.Windows.Forms.GroupBox()
Me.lblClient = New System.Windows.Forms.Label() Me.lblClient = New System.Windows.Forms.Label()
Me.cmbClients = New System.Windows.Forms.ComboBox() Me.cmbClients = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker() Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker()
Me.btnnewLicenses = New System.Windows.Forms.Button() Me.btnnewLicenses = New System.Windows.Forms.Button()
Me.txtNewlicences = New System.Windows.Forms.TextBox() Me.txtNewlicences = New System.Windows.Forms.TextBox()
Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblnewlicenses = New System.Windows.Forms.Label()
Me.btnPW_check = New System.Windows.Forms.Button() Me.btnPW_check = New System.Windows.Forms.Button()
Me.grbBoxlicense.SuspendLayout() Me.grbBoxlicense.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'txtPW 'txtPW
' '
Me.txtPW.Location = New System.Drawing.Point(109, 6) Me.txtPW.Location = New System.Drawing.Point(109, 6)
Me.txtPW.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.txtPW.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtPW.Name = "txtPW" Me.txtPW.Name = "txtPW"
Me.txtPW.Size = New System.Drawing.Size(207, 21) Me.txtPW.Size = New System.Drawing.Size(207, 21)
Me.txtPW.TabIndex = 32 Me.txtPW.TabIndex = 32
Me.txtPW.UseSystemPasswordChar = True Me.txtPW.UseSystemPasswordChar = True
' '
'lblPW 'lblPW
' '
Me.lblPW.AutoSize = True Me.lblPW.AutoSize = True
Me.lblPW.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.lblPW.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblPW.Location = New System.Drawing.Point(12, 9) Me.lblPW.Location = New System.Drawing.Point(12, 9)
Me.lblPW.Name = "lblPW" Me.lblPW.Name = "lblPW"
Me.lblPW.Size = New System.Drawing.Size(91, 13) Me.lblPW.Size = New System.Drawing.Size(91, 13)
Me.lblPW.TabIndex = 31 Me.lblPW.TabIndex = 31
Me.lblPW.Text = "Master Passwort:" Me.lblPW.Text = "Master Passwort:"
' '
'grbBoxlicense 'grbBoxlicense
' '
Me.grbBoxlicense.Controls.Add(Me.lblClient) Me.grbBoxlicense.Controls.Add(Me.lblClient)
Me.grbBoxlicense.Controls.Add(Me.cmbClients) Me.grbBoxlicense.Controls.Add(Me.cmbClients)
Me.grbBoxlicense.Controls.Add(Me.Label5) Me.grbBoxlicense.Controls.Add(Me.Label5)
Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_GI) Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_GI)
Me.grbBoxlicense.Controls.Add(Me.btnnewLicenses) Me.grbBoxlicense.Controls.Add(Me.btnnewLicenses)
Me.grbBoxlicense.Controls.Add(Me.txtNewlicences) Me.grbBoxlicense.Controls.Add(Me.txtNewlicences)
Me.grbBoxlicense.Controls.Add(Me.lblnewlicenses) Me.grbBoxlicense.Controls.Add(Me.lblnewlicenses)
Me.grbBoxlicense.Location = New System.Drawing.Point(15, 41) Me.grbBoxlicense.Location = New System.Drawing.Point(15, 41)
Me.grbBoxlicense.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.grbBoxlicense.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.grbBoxlicense.Name = "grbBoxlicense" Me.grbBoxlicense.Name = "grbBoxlicense"
Me.grbBoxlicense.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.grbBoxlicense.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.grbBoxlicense.Size = New System.Drawing.Size(469, 140) Me.grbBoxlicense.Size = New System.Drawing.Size(469, 140)
Me.grbBoxlicense.TabIndex = 30 Me.grbBoxlicense.TabIndex = 30
Me.grbBoxlicense.TabStop = False Me.grbBoxlicense.TabStop = False
Me.grbBoxlicense.Text = "Lizenzanzahl ändern:" Me.grbBoxlicense.Text = "Lizenzanzahl ändern:"
Me.grbBoxlicense.Visible = False Me.grbBoxlicense.Visible = False
' '
'lblClient 'lblClient
' '
Me.lblClient.AutoSize = True Me.lblClient.AutoSize = True
Me.lblClient.Font = New System.Drawing.Font("Verdana", 9.75!) Me.lblClient.Font = New System.Drawing.Font("Verdana", 9.75!)
Me.lblClient.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.lblClient.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblClient.Location = New System.Drawing.Point(7, 20) Me.lblClient.Location = New System.Drawing.Point(7, 20)
Me.lblClient.Name = "lblClient" Me.lblClient.Name = "lblClient"
Me.lblClient.Size = New System.Drawing.Size(140, 16) Me.lblClient.Size = New System.Drawing.Size(140, 16)
Me.lblClient.TabIndex = 19 Me.lblClient.TabIndex = 19
Me.lblClient.Text = "Mandantenauswahl:" Me.lblClient.Text = "Mandantenauswahl:"
' '
'cmbClients 'cmbClients
' '
Me.cmbClients.Font = New System.Drawing.Font("Tahoma", 9.75!) Me.cmbClients.Font = New System.Drawing.Font("Tahoma", 9.75!)
Me.cmbClients.FormattingEnabled = True Me.cmbClients.FormattingEnabled = True
Me.cmbClients.Location = New System.Drawing.Point(10, 39) Me.cmbClients.Location = New System.Drawing.Point(10, 39)
Me.cmbClients.Name = "cmbClients" Me.cmbClients.Name = "cmbClients"
Me.cmbClients.Size = New System.Drawing.Size(262, 24) Me.cmbClients.Size = New System.Drawing.Size(262, 24)
Me.cmbClients.TabIndex = 18 Me.cmbClients.TabIndex = 18
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label5.Location = New System.Drawing.Point(7, 106) Me.Label5.Location = New System.Drawing.Point(7, 106)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(55, 13) Me.Label5.Size = New System.Drawing.Size(55, 13)
Me.Label5.TabIndex = 16 Me.Label5.TabIndex = 16
Me.Label5.Text = "Gültigkeit:" Me.Label5.Text = "Gültigkeit:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'dtpGueltig_GI 'dtpGueltig_GI
' '
Me.dtpGueltig_GI.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpGueltig_GI.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpGueltig_GI.Location = New System.Drawing.Point(168, 100) Me.dtpGueltig_GI.Location = New System.Drawing.Point(168, 100)
Me.dtpGueltig_GI.Name = "dtpGueltig_GI" Me.dtpGueltig_GI.Name = "dtpGueltig_GI"
Me.dtpGueltig_GI.Size = New System.Drawing.Size(104, 21) Me.dtpGueltig_GI.Size = New System.Drawing.Size(104, 21)
Me.dtpGueltig_GI.TabIndex = 15 Me.dtpGueltig_GI.TabIndex = 15
Me.dtpGueltig_GI.Value = New Date(2099, 12, 31, 0, 0, 0, 0) Me.dtpGueltig_GI.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
' '
'btnnewLicenses 'btnnewLicenses
' '
Me.btnnewLicenses.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnnewLicenses.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnnewLicenses.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.KeyDown_8461 Me.btnnewLicenses.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnnewLicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnnewLicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnnewLicenses.Location = New System.Drawing.Point(307, 91) Me.btnnewLicenses.Location = New System.Drawing.Point(307, 91)
Me.btnnewLicenses.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnnewLicenses.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnnewLicenses.Name = "btnnewLicenses" Me.btnnewLicenses.Name = "btnnewLicenses"
Me.btnnewLicenses.Size = New System.Drawing.Size(145, 30) Me.btnnewLicenses.Size = New System.Drawing.Size(145, 30)
Me.btnnewLicenses.TabIndex = 5 Me.btnnewLicenses.TabIndex = 5
Me.btnnewLicenses.Text = "Erneuere Lizenz" Me.btnnewLicenses.Text = "Erneuere Lizenz"
Me.btnnewLicenses.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnnewLicenses.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnnewLicenses.UseVisualStyleBackColor = True Me.btnnewLicenses.UseVisualStyleBackColor = True
' '
'txtNewlicences 'txtNewlicences
' '
Me.txtNewlicences.Location = New System.Drawing.Point(241, 74) Me.txtNewlicences.Location = New System.Drawing.Point(241, 74)
Me.txtNewlicences.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.txtNewlicences.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtNewlicences.Name = "txtNewlicences" Me.txtNewlicences.Name = "txtNewlicences"
Me.txtNewlicences.Size = New System.Drawing.Size(31, 21) Me.txtNewlicences.Size = New System.Drawing.Size(31, 21)
Me.txtNewlicences.TabIndex = 4 Me.txtNewlicences.TabIndex = 4
Me.txtNewlicences.Text = "1" Me.txtNewlicences.Text = "1"
' '
'lblnewlicenses 'lblnewlicenses
' '
Me.lblnewlicenses.AutoSize = True Me.lblnewlicenses.AutoSize = True
Me.lblnewlicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.lblnewlicenses.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblnewlicenses.Location = New System.Drawing.Point(7, 77) Me.lblnewlicenses.Location = New System.Drawing.Point(7, 77)
Me.lblnewlicenses.Name = "lblnewlicenses" Me.lblnewlicenses.Name = "lblnewlicenses"
Me.lblnewlicenses.Size = New System.Drawing.Size(113, 13) Me.lblnewlicenses.Size = New System.Drawing.Size(113, 13)
Me.lblnewlicenses.TabIndex = 3 Me.lblnewlicenses.TabIndex = 3
Me.lblnewlicenses.Text = "Anzahl User-Lizenzen:" Me.lblnewlicenses.Text = "Anzahl User-Lizenzen:"
' '
'btnPW_check 'btnPW_check
' '
Me.btnPW_check.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.KeyDown_8461 Me.btnPW_check.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.KeyDown_8461
Me.btnPW_check.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPW_check.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPW_check.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnPW_check.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnPW_check.Location = New System.Drawing.Point(322, 1) Me.btnPW_check.Location = New System.Drawing.Point(322, 1)
Me.btnPW_check.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnPW_check.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnPW_check.Name = "btnPW_check" Me.btnPW_check.Name = "btnPW_check"
Me.btnPW_check.Size = New System.Drawing.Size(162, 32) Me.btnPW_check.Size = New System.Drawing.Size(162, 32)
Me.btnPW_check.TabIndex = 33 Me.btnPW_check.TabIndex = 33
Me.btnPW_check.Text = "Open License Manager" Me.btnPW_check.Text = "Open License Manager"
Me.btnPW_check.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnPW_check.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPW_check.UseVisualStyleBackColor = True Me.btnPW_check.UseVisualStyleBackColor = True
' '
'frmLicense 'frmLicense
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(490, 188) Me.ClientSize = New System.Drawing.Size(490, 188)
Me.Controls.Add(Me.btnPW_check) Me.Controls.Add(Me.btnPW_check)
Me.Controls.Add(Me.txtPW) Me.Controls.Add(Me.txtPW)
Me.Controls.Add(Me.lblPW) Me.Controls.Add(Me.lblPW)
Me.Controls.Add(Me.grbBoxlicense) Me.Controls.Add(Me.grbBoxlicense)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmLicense" Me.Name = "frmLicense"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "License Manager" Me.Text = "License Manager"
Me.grbBoxlicense.ResumeLayout(False) Me.grbBoxlicense.ResumeLayout(False)
Me.grbBoxlicense.PerformLayout() Me.grbBoxlicense.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents btnPW_check As System.Windows.Forms.Button Friend WithEvents btnPW_check As System.Windows.Forms.Button
Friend WithEvents txtPW As System.Windows.Forms.TextBox Friend WithEvents txtPW As System.Windows.Forms.TextBox
Friend WithEvents lblPW As System.Windows.Forms.Label Friend WithEvents lblPW As System.Windows.Forms.Label
Friend WithEvents grbBoxlicense As System.Windows.Forms.GroupBox Friend WithEvents grbBoxlicense As System.Windows.Forms.GroupBox
Friend WithEvents lblClient As System.Windows.Forms.Label Friend WithEvents lblClient As System.Windows.Forms.Label
Friend WithEvents cmbClients As System.Windows.Forms.ComboBox Friend WithEvents cmbClients As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents dtpGueltig_GI As System.Windows.Forms.DateTimePicker Friend WithEvents dtpGueltig_GI As System.Windows.Forms.DateTimePicker
Friend WithEvents btnnewLicenses As System.Windows.Forms.Button Friend WithEvents btnnewLicenses As System.Windows.Forms.Button
Friend WithEvents txtNewlicences As System.Windows.Forms.TextBox Friend WithEvents txtNewlicences As System.Windows.Forms.TextBox
Friend WithEvents lblnewlicenses As System.Windows.Forms.Label Friend WithEvents lblnewlicenses As System.Windows.Forms.Label
End Class End Class

2048
DD_Clipboard_Searcher/frmLicense.resx → app/DD_Clipboard_Searcher/frmLicense.resx
View File

File diff suppressed because it is too large Load Diff

222
DD_Clipboard_Searcher/frmLicense.vb → app/DD_Clipboard_Searcher/frmLicense.vb
View File

@ -1,112 +1,112 @@
Imports DD_LIB_Standards Imports DD_LIB_Standards
Public Class frmLicense Public Class frmLicense
Dim CLIENT_ID As Integer Dim CLIENT_ID As Integer
Public _lizenzManager As clsLicenseManager Public _lizenzManager As clsLicenseManager
Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
OpenLicenseManager() OpenLicenseManager()
End Sub End Sub
Sub OpenLicenseManager() Sub OpenLicenseManager()
If Me.txtPW.Text <> "" Then If Me.txtPW.Text <> "" Then
If Me.txtPW.Text = "35452dd!" Then If Me.txtPW.Text = "35452dd!" Then
Me.grbBoxlicense.Visible = True Me.grbBoxlicense.Visible = True
Refresh_Licence(False) Refresh_Licence(False)
Me.lblPW.Visible = False Me.lblPW.Visible = False
Me.txtPW.Visible = False Me.txtPW.Visible = False
Me.btnPW_check.Visible = False Me.btnPW_check.Visible = False
If DT_CLIENT_USER.Rows.Count > 1 Then If DT_CLIENT_USER.Rows.Count > 1 Then
lblClient.Visible = True lblClient.Visible = True
cmbClients.Visible = True cmbClients.Visible = True
Try Try
cmbClients.DataSource = DT_CLIENT_USER cmbClients.DataSource = DT_CLIENT_USER
cmbClients.DisplayMember = DT_CLIENT_USER.Columns("CLIENT_NAME").ColumnName cmbClients.DisplayMember = DT_CLIENT_USER.Columns("CLIENT_NAME").ColumnName
cmbClients.ValueMember = DT_CLIENT_USER.Columns("CLIENT_ID").ColumnName cmbClients.ValueMember = DT_CLIENT_USER.Columns("CLIENT_ID").ColumnName
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
lblClient.Visible = False lblClient.Visible = False
cmbClients.Visible = False cmbClients.Visible = False
CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID") CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
End If End If
Else Else
Me.grbBoxlicense.Visible = False Me.grbBoxlicense.Visible = False
MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:") MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
Me.txtPW.Text = "" Me.txtPW.Text = ""
Me.txtPW.Focus() Me.txtPW.Focus()
End If End If
End If End If
End Sub End Sub
Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
Try Try
_lizenzManager = New clsLicenseManager("#DigitalData35452!#", "") _lizenzManager = New clsLicenseManager("#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" Then If Me.txtNewlicences.Text <> "" Then
'Encode the license 'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#") Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_DDCBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_DDCBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If clsDatabase.Execute_non_Query(sql) = True Then If clsDatabase.Execute_non_Query(sql) = True Then
Refresh_Licence(True) Refresh_Licence(True)
End If End If
'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:") 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei New Licenses:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei New Licenses:")
End Try End Try
End Sub End Sub
Sub Refresh_Licence(Neu As Boolean) Sub Refresh_Licence(Neu As Boolean)
Try Try
clsLicense.Refresh_Licence(CLIENT_ID) clsLicense.Refresh_Licence(CLIENT_ID)
txtNewlicences.Text = LICENSE_COUNT txtNewlicences.Text = LICENSE_COUNT
dtpGueltig_GI.Value = LICENSE_DATE dtpGueltig_GI.Value = LICENSE_DATE
If Neu = True Then If Neu = True Then
If CInt(LICENSE_COUNT) > 0 Then If CInt(LICENSE_COUNT) > 0 Then
Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "The license was renewed!" & vbNewLine & Now msg = "The license was renewed!" & vbNewLine & Now
End If End If
MsgBox(msg, MsgBoxStyle.Information, "License renewed:") MsgBox(msg, MsgBoxStyle.Information, "License renewed:")
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
End Try End Try
End Sub End Sub
Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
grbBoxlicense.Visible = False grbBoxlicense.Visible = False
Me.lblPW.Visible = True Me.lblPW.Visible = True
Me.txtPW.Visible = True Me.txtPW.Visible = True
Me.btnPW_check.Visible = True Me.btnPW_check.Visible = True
Me.txtPW.Text = "" Me.txtPW.Text = ""
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
End Try End Try
End Sub End Sub
Private Sub frmLicense_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp Private Sub frmLicense_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode = Keys.Return Then If e.KeyCode = Keys.Return Then
If Me.txtPW.Focus = True Then If Me.txtPW.Focus = True Then
OpenLicenseManager() OpenLicenseManager()
End If End If
End If End If
End Sub End Sub
Private Sub cmbClients_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbClients.SelectedIndexChanged Private Sub cmbClients_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbClients.SelectedIndexChanged
If cmbClients.SelectedIndex <> -1 Then If cmbClients.SelectedIndex <> -1 Then
Try Try
CLIENT_ID = cmbClients.SelectedValue CLIENT_ID = cmbClients.SelectedValue
Refresh_Licence(False) Refresh_Licence(False)
Catch ex As Exception Catch ex As Exception
CLIENT_ID = 99 CLIENT_ID = 99
End Try End Try
End If End If
End Sub End Sub
End Class End Class

60
DD_Clipboard_Searcher/frmMain.Designer.vb → app/DD_Clipboard_Searcher/frmMain.Designer.vb generated
View File

@ -35,9 +35,13 @@ Partial Class frmMain
Me.btnAdminConfig = New System.Windows.Forms.Button() Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.btnUserConfig = New System.Windows.Forms.Button() Me.btnUserConfig = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.lbHKFunction = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmstrpNotifyIcon.SuspendLayout() Me.cmstrpNotifyIcon.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.ContextMenuStripForm.SuspendLayout() Me.ContextMenuStripForm.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'NotifyIconMain 'NotifyIconMain
@ -58,7 +62,7 @@ Partial Class frmMain
' '
'tsmiChangeState 'tsmiChangeState
' '
Me.tsmiChangeState.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG Me.tsmiChangeState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
Me.tsmiChangeState.Name = "tsmiChangeState" Me.tsmiChangeState.Name = "tsmiChangeState"
Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22) Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22)
Me.tsmiChangeState.Tag = "stop" Me.tsmiChangeState.Tag = "stop"
@ -67,9 +71,10 @@ Partial Class frmMain
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 88) Me.StatusStrip1.Location = New System.Drawing.Point(0, 111)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(338, 22) Me.StatusStrip1.Size = New System.Drawing.Size(328, 22)
Me.StatusStrip1.SizingGrip = False
Me.StatusStrip1.TabIndex = 3 Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
@ -91,7 +96,7 @@ Partial Class frmMain
' '
'MinimierenToolStripMenuItem 'MinimierenToolStripMenuItem
' '
Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.ReduceSize Me.MinimierenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ReduceSize
Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem" Me.MinimierenToolStripMenuItem.Name = "MinimierenToolStripMenuItem"
Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22) Me.MinimierenToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
Me.MinimierenToolStripMenuItem.Text = "Minimieren" Me.MinimierenToolStripMenuItem.Text = "Minimieren"
@ -127,17 +132,50 @@ Partial Class frmMain
Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(12, 44) Me.Label1.Location = New System.Drawing.Point(12, 44)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(253, 26) Me.Label1.Size = New System.Drawing.Size(281, 26)
Me.Label1.TabIndex = 7 Me.Label1.TabIndex = 7
Me.Label1.Text = "Inaktivieren des Watchers über Rechtsklick Systray" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "oder Tastaturkombination Strg" & Me.Label1.Text = "Inaktivieren des Watchers über Rechtsklick Systray oder " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tastaturkombination Str" &
" + T" "g + T"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(6, 17)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(145, 13)
Me.Label3.TabIndex = 9
Me.Label3.Text = "Zwischenablage gefolgt von:"
'
'lbHKFunction
'
Me.lbHKFunction.AutoSize = True
Me.lbHKFunction.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbHKFunction.Location = New System.Drawing.Point(154, 17)
Me.lbHKFunction.Name = "lbHKFunction"
Me.lbHKFunction.Size = New System.Drawing.Size(30, 13)
Me.lbHKFunction.TabIndex = 10
Me.lbHKFunction.Text = "strg"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.lbHKFunction)
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 73)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(308, 32)
Me.GroupBox1.TabIndex = 11
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Aktueller GlobalHook:"
' '
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(338, 110) Me.ClientSize = New System.Drawing.Size(328, 133)
Me.ContextMenuStrip = Me.ContextMenuStripForm Me.ContextMenuStrip = Me.ContextMenuStripForm
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnAdminConfig) Me.Controls.Add(Me.btnAdminConfig)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
@ -154,6 +192,8 @@ Partial Class frmMain
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.ContextMenuStripForm.ResumeLayout(False) Me.ContextMenuStripForm.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -169,5 +209,7 @@ Partial Class frmMain
Friend WithEvents ContextMenuStripForm As System.Windows.Forms.ContextMenuStrip Friend WithEvents ContextMenuStripForm As System.Windows.Forms.ContextMenuStrip
Friend WithEvents MinimierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MinimierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As Label
Friend WithEvents lbHKFunction As Label
Friend WithEvents GroupBox1 As GroupBox
End Class End Class

0
DD_Clipboard_Searcher/frmMain.resx → app/DD_Clipboard_Searcher/frmMain.resx
View File

43
DD_Clipboard_Searcher/frmMain.vb → app/DD_Clipboard_Searcher/frmMain.vb
View File

@ -10,11 +10,16 @@ Public Class frmMain
_Watcher.Dispose() _Watcher.Dispose()
End Sub End Sub
Private Sub _Watcher_Changed(ByVal sender As Object, _ Private Sub _Watcher_Changed(ByVal sender As Object,
ByVal e As EventArgs) Handles _Watcher.Changed ByVal e As EventArgs) Handles _Watcher.Changed
If DT_USER_PROFILES Is Nothing Then
Exit Sub
End If
If DT_USER_PROFILES.Rows.Count = 0 Then If DT_USER_PROFILES.Rows.Count = 0 Then
Exit Sub Exit Sub
End If End If
CURR_MATCH_RESULT = Nothing
CURR_MATCH_WM_SEARCH = Nothing
If MONITORING_ACTIVE = False Then If MONITORING_ACTIVE = False Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info) NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub Exit Sub
@ -44,7 +49,8 @@ Public Class frmMain
' If match.Groups(0).Value <> CURR_MATCH_RESULT Then ' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
CURR_MATCH_RESULT = match.Groups(0).Value CURR_MATCH_RESULT = match.Groups(0).Value
If Not IsNothing(CURR_MATCH_RESULT) Then If Not IsNothing(CURR_MATCH_RESULT) Then
clsSearch.RUN_WD_SEARCH(row.Item("WD_SEARCH")) CURR_MATCH_WM_SEARCH = row.Item("WD_SEARCH")
found = True found = True
End If End If
'Else 'Else
@ -92,9 +98,9 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
Try Try
Dim sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '{0}' WHERE (LOWER(USERNAME) = LOWER('{1}'))", "", USER_USERNAME) 'Dim sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '{0}' WHERE (LOWER(USERNAME) = LOWER('{1}'))", "", USER_USERNAME)
clsDatabase.Execute_non_Query(sql, True) 'clsDatabase.Execute_non_Query(sql, True)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Clipboard-Searcher'" Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE) = UPPER('Clipboard-Searcher')"
clsDatabase.Execute_non_Query(sql, True) clsDatabase.Execute_non_Query(sql, True)
ClassWindowLocation.SaveFormLocationSize(Me, "") ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save() My.Settings.Save()
@ -107,6 +113,12 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
End Try End Try
Try
Hotkey.RemoveHotKey(354523017)
Catch ex As Exception
End Try
'TempDateien löschen 'TempDateien löschen
Try Try
For Each _file In TEMP_FILES For Each _file In TEMP_FILES
@ -126,11 +138,29 @@ Public Class frmMain
Me.NotifyIconMain.Visible = True Me.NotifyIconMain.Visible = True
clsHotkey.Refresh_Profile_Links() clsHotkey.Refresh_Profile_Links()
Hotkey.AddHotKey(Keys.T, clsHotkey.MODKEY.MOD_CONTROL, 354522017) Hotkey.AddHotKey(Keys.T, clsHotkey.MODKEY.MOD_CONTROL, 354522017)
Dim keyCode As Keys
Dim kc As New KeysConverter
Dim obj As Object = kc.ConvertFromString(HotkeySearchKey.ToUpper)
keyCode = CType(obj, Keys)
If HotkeyFunctionKey = "strg" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, 354523017)
ElseIf HotkeyFunctionKey = "SHIFT" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, 354523017)
End If
End If End If
tslblUser.Text = USER_USERNAME tslblUser.Text = USER_USERNAME
lbHKFunction.Text = HotkeyFunctionKey & " + " & HotkeySearchKey.ToUpper
End Sub End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
Change_Monitoring_State() If HotKeyID = 354523017 Then
If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
End If
ElseIf HotKeyID = 354522017 Then
Change_Monitoring_State()
End If
End Sub End Sub
Sub Change_Monitoring_State() Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then If MONITORING_ACTIVE = True Then
@ -227,4 +257,5 @@ Public Class frmMain
Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click
Me.Hide() Me.Hide()
End Sub End Sub
End Class End Class

19
DD_Clipboard_Searcher/frmSplash.Designer.vb → app/DD_Clipboard_Searcher/frmSplash.Designer.vb generated
View File

@ -26,7 +26,6 @@ Partial Class frmSplash
Me.Copyright = New System.Windows.Forms.Label() Me.Copyright = New System.Windows.Forms.Label()
Me.Version = New System.Windows.Forms.Label() Me.Version = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.ApplicationTitle = New System.Windows.Forms.Label()
Me.lblStatus = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label()
Me.pbStatus = New System.Windows.Forms.ProgressBar() Me.pbStatus = New System.Windows.Forms.ProgressBar()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@ -41,7 +40,7 @@ Partial Class frmSplash
Me.Copyright.BackColor = System.Drawing.Color.Transparent Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Copyright.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Copyright.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Copyright.Location = New System.Drawing.Point(261, 77) Me.Copyright.Location = New System.Drawing.Point(261, 33)
Me.Copyright.Name = "Copyright" Me.Copyright.Name = "Copyright"
Me.Copyright.Size = New System.Drawing.Size(185, 21) Me.Copyright.Size = New System.Drawing.Size(185, 21)
Me.Copyright.TabIndex = 2 Me.Copyright.TabIndex = 2
@ -54,7 +53,7 @@ Partial Class frmSplash
Me.Version.BackColor = System.Drawing.Color.Transparent Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Version.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Version.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Version.Location = New System.Drawing.Point(261, 56) Me.Version.Location = New System.Drawing.Point(261, 12)
Me.Version.Name = "Version" Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(185, 21) Me.Version.Size = New System.Drawing.Size(185, 21)
Me.Version.TabIndex = 1 Me.Version.TabIndex = 1
@ -72,18 +71,6 @@ Partial Class frmSplash
Me.Label1.TabIndex = 12 Me.Label1.TabIndex = 12
Me.Label1.Text = "This software is in parts based on:" Me.Label1.Text = "This software is in parts based on:"
' '
'ApplicationTitle
'
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ApplicationTitle.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ApplicationTitle.Location = New System.Drawing.Point(260, 12)
Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Size = New System.Drawing.Size(469, 33)
Me.ApplicationTitle.TabIndex = 6
Me.ApplicationTitle.Text = "Anwendungstitel"
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'lblStatus 'lblStatus
' '
Me.lblStatus.AutoSize = True Me.lblStatus.AutoSize = True
@ -137,7 +124,6 @@ Partial Class frmSplash
Me.Controls.Add(Me.Copyright) Me.Controls.Add(Me.Copyright)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Version) Me.Controls.Add(Me.Version)
Me.Controls.Add(Me.ApplicationTitle)
Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.pbStatus) Me.Controls.Add(Me.pbStatus)
@ -156,7 +142,6 @@ Partial Class frmSplash
Friend WithEvents Copyright As System.Windows.Forms.Label Friend WithEvents Copyright As System.Windows.Forms.Label
Friend WithEvents Version As System.Windows.Forms.Label Friend WithEvents Version As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents lblStatus As System.Windows.Forms.Label Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar

0
DD_Clipboard_Searcher/frmSplash.resx → app/DD_Clipboard_Searcher/frmSplash.resx
View File

15
DD_Clipboard_Searcher/frmSplash.vb → app/DD_Clipboard_Searcher/frmSplash.vb
View File

@ -25,12 +25,12 @@ Public NotInheritable Class frmSplash
' Projekteigenschaften (im Menü "Projekt") anpassen. ' Projekteigenschaften (im Menü "Projekt") anpassen.
'Anwendungstitel 'Anwendungstitel
If My.Application.Info.Title <> "" Then 'If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title ' ApplicationTitle.Text = My.Application.Info.Title
Else 'Else
'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden ' 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) ' ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If 'End If
'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als 'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als
' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung. ' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung.
@ -84,8 +84,7 @@ Public NotInheritable Class frmSplash
End If End If
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(800)
'bw.ReportProgress(CalcProgress(5), "Initializing Addons") 'bw.ReportProgress(CalcProgress(5), "Initializing Addons")
'Init.InitAddons() 'Init.InitAddons()

3
DD_Clipboard_Searcher/modCurrent.vb → app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -1,6 +1,8 @@
Module modCurrent Module modCurrent
Public MyConnectionString As String = "" Public MyConnectionString As String = ""
Public HotkeyFunctionKey As String = "strg"
Public HotkeySearchKey As String = "f"
Public LogErrorsOnly As Boolean = True Public LogErrorsOnly As Boolean = True
Public USER_LANGUAGE As String = "de-DE" Public USER_LANGUAGE As String = "de-DE"
@ -32,6 +34,7 @@
Public CLIPBOARD_TEXT As String Public CLIPBOARD_TEXT As String
Public CURR_MATCH_RESULT Public CURR_MATCH_RESULT
Public CURR_MATCH_WM_SEARCH
Public MONITORING_ACTIVE As Boolean = True Public MONITORING_ACTIVE As Boolean = True

257
DD_Clipboard_Searcher/modMySettings.vb → app/DD_Clipboard_Searcher/modMySettings.vb
View File

@ -1,115 +1,142 @@
Imports System.IO Imports System.IO
Imports DD_LIB_Standards Imports DD_LIB_Standards
Module modMySettings Module modMySettings
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public Function LoadMyConfig() Public Function LoadMyConfig()
Dim rowresult As String = "" Dim rowresult As String = ""
Try Try
Dim DT As DataTable Dim DT As DataTable
'if file doesn't exist, create the file with its default xml table 'if file doesn't exist, create the file with its default xml table
If Not File.Exists(ConfigPath) Then If Not File.Exists(ConfigPath) Then
DT = CreateConfigTable() DT = CreateConfigTable()
DT.WriteXml(ConfigPath) DT.WriteXml(ConfigPath)
End If End If
DT = GetTablefromXML() DT = GetTablefromXML()
For Each Row As DataRow In DT.Rows For Each Row As DataRow In DT.Rows
rowresult &= Row.Item("ConfigName") rowresult &= Row.Item("ConfigName")
Select Row.Item("ConfigName") Select Case Row.Item("ConfigName")
Case "MyConnectionString" Case "MyConnectionString"
Dim connstring As String Dim connstring As String
'Den ConnectonString mit verschlüsseltem PW laden 'Den ConnectonString mit verschlüsseltem PW laden
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = Row.Item("Value") csb.ConnectionString = Row.Item("Value")
If csb.ConnectionString.Contains("Password=") Then If csb.ConnectionString.Contains("Password=") Then
'SA-Auth 'SA-Auth
'Jetzt das Passwort entschlüsseln 'Jetzt das Passwort entschlüsseln
Dim PWplainText As String Dim PWplainText As String
Dim wrapper As New clsEncryption("!35452didalog=") Dim wrapper As New clsEncryption("!35452didalog=")
' DecryptData throws if the wrong password is used. ' DecryptData throws if the wrong password is used.
Try Try
PWplainText = wrapper.DecryptData(csb.Password) PWplainText = wrapper.DecryptData(csb.Password)
Catch ex As Exception Catch ex As Exception
clsLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False) clsLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
PWplainText = csb.Password PWplainText = csb.Password
End Try End Try
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText) connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
Else Else
'Win-Auth 'Win-Auth
connstring = Row.Item("Value").ToString connstring = Row.Item("Value").ToString
End If End If
MyConnectionString = connstring MyConnectionString = connstring
Case "LogErrorsOnly" Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value")) LogErrorsOnly = CBool(Row.Item("Value"))
End Select Case "HotkeyFunctionKey"
Next HotkeyFunctionKey = Row.Item("Value")
Return True Case "HotkeySearchKey"
Catch ex As Exception HotkeySearchKey = Row.Item("Value")
MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Select
Return False Next
End Try If rowresult.Contains("HotkeyFunctionKey") = False Then
End Function Dim newRow As DataRow = DT.NewRow()
Private Function GetTablefromXML() newRow("ConfigName") = "HotkeyFunctionKey"
Try newRow("Value") = "strg"
Dim DS As New DataSet DT.Rows.Add(newRow)
DS.ReadXml(ConfigPath) DT.WriteXml(ConfigPath)
Return DS.Tables(0)
Catch ex As Exception End If
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical) If rowresult.Contains("HotkeySearchKey") = False Then
Return Nothing Dim newRow As DataRow = DT.NewRow()
End Try newRow("ConfigName") = "HotkeySearchKey"
newRow("Value") = "f"
End Function DT.Rows.Add(newRow)
Private Function CreateConfigTable() As DataTable DT.WriteXml(ConfigPath)
Try End If
' Create sample Customers table, in order Return True
' to demonstrate the behavior of the DataTableReader. Catch ex As Exception
Dim table As New DataTable MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
table.TableName = "MyConfig" Return False
End Try
' Create two columns, ID and Name. End Function
Dim idColumn As DataColumn = table.Columns.Add("ID", _ Private Function GetTablefromXML()
GetType(System.Int32)) Try
Dim DS As New DataSet
idColumn.AutoIncrement = True DS.ReadXml(ConfigPath)
idColumn.AutoIncrementSeed = 0 Return DS.Tables(0)
idColumn.AutoIncrementStep = 1 Catch ex As Exception
table.Columns.Add("ConfigName", GetType(System.String)) MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
table.Columns.Add("Value", GetType(System.String)) Return Nothing
'Set the ID column as the primary key column. End Try
table.PrimaryKey = New DataColumn() {idColumn}
Dim newRow As DataRow = table.NewRow() End Function
newRow("ConfigName") = "MyConnectionString" Private Function CreateConfigTable() As DataTable
newRow("Value") = "" Try
table.Rows.Add(newRow) ' Create sample Customers table, in order
Dim newRow1 As DataRow = table.NewRow() ' to demonstrate the behavior of the DataTableReader.
newRow1("ConfigName") = "LogErrorsOnly" Dim table As New DataTable
newRow1("Value") = "True" table.TableName = "MyConfig"
table.Rows.Add(newRow1)
table.AcceptChanges() ' Create two columns, ID and Name.
Return table Dim idColumn As DataColumn = table.Columns.Add("ID", _
Catch ex As Exception GetType(System.Int32))
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing idColumn.AutoIncrement = True
End Try idColumn.AutoIncrementSeed = 0
End Function idColumn.AutoIncrementStep = 1
Public Function SaveConfigValue(name As String, value As String) table.Columns.Add("ConfigName", GetType(System.String))
Try table.Columns.Add("Value", GetType(System.String))
Dim DT As DataTable 'Set the ID column as the primary key column.
DT = GetTablefromXML() table.PrimaryKey = New DataColumn() {idColumn}
Dim newRow As DataRow = table.NewRow()
For Each Row As DataRow In DT.Rows newRow("ConfigName") = "MyConnectionString"
If Row.Item("ConfigName") = name Then newRow("Value") = ""
Row.Item("Value") = value table.Rows.Add(newRow)
End If Dim newRow1 As DataRow = table.NewRow()
Next newRow1("ConfigName") = "LogErrorsOnly"
DT.AcceptChanges() newRow1("Value") = "True"
DT.WriteXml(ConfigPath) table.Rows.Add(newRow1)
Catch ex As Exception Dim newRow2 As DataRow = table.NewRow()
MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical) newRow2("ConfigName") = "HotkeyFunctionKey"
Return False newRow2("Value") = "strg"
End Try table.Rows.Add(newRow2)
Return True Dim newRow3 As DataRow = table.NewRow()
newRow3("ConfigName") = "HotkeySearchKey"
End Function newRow3("Value") = "f"
End Module table.Rows.Add(newRow3)
table.AcceptChanges()
Return table
Catch ex As Exception
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Function SaveConfigValue(name As String, value As String)
Try
Dim DT As DataTable
DT = GetTablefromXML()
For Each Row As DataRow In DT.Rows
If Row.Item("ConfigName") = name Then
Row.Item("Value") = value
End If
Next
DT.AcceptChanges()
DT.WriteXml(ConfigPath)
Catch ex As Exception
MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
Return True
End Function
End Module

88
DD_Clipboard_Searcher.sln → app/DD_Clipboard_Watcher.sln
View File

@ -1,44 +1,44 @@
 
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013 # Visual Studio 15
VisualStudioVersion = 12.0.21005.1 VisualStudioVersion = 15.0.26228.9
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_Clipboard_Searcher", "DD_Clipboard_Searcher\DD_Clipboard_Searcher.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_Clipboard_Watcher", "DD_Clipboard_Searcher\DD_Clipboard_Watcher.vbproj", "{09BC9934-1A38-4752-8873-639B42779CDB}"
EndProject EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{15FC07B7-9FF7-4F14-9BAB-05674E20D839}" Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{15FC07B7-9FF7-4F14-9BAB-05674E20D839}"
EndProject EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
Debug|Mixed Platforms = Debug|Mixed Platforms Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x86 = Debug|x86 Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU Release|Any CPU = Release|Any CPU
Release|Mixed Platforms = Release|Mixed Platforms Release|Mixed Platforms = Release|Mixed Platforms
Release|x86 = Release|x86 Release|x86 = Release|x86
EndGlobalSection EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution GlobalSection(ProjectConfigurationPlatforms) = postSolution
{09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Any CPU.Build.0 = Debug|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Any CPU.Build.0 = Debug|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Debug|x86.ActiveCfg = Debug|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Debug|x86.ActiveCfg = Debug|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Any CPU.ActiveCfg = Release|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Release|Any CPU.ActiveCfg = Release|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Any CPU.Build.0 = Release|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Release|Any CPU.Build.0 = Release|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.Build.0 = Release|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{09BC9934-1A38-4752-8873-639B42779CDB}.Release|x86.ActiveCfg = Release|Any CPU {09BC9934-1A38-4752-8873-639B42779CDB}.Release|x86.ActiveCfg = Release|Any CPU
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Any CPU.ActiveCfg = Debug|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Any CPU.ActiveCfg = Debug|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.Build.0 = Debug|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|Mixed Platforms.Build.0 = Debug|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.ActiveCfg = Debug|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.ActiveCfg = Debug|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.Build.0 = Debug|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Debug|x86.Build.0 = Debug|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Any CPU.ActiveCfg = Release|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Any CPU.ActiveCfg = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.ActiveCfg = Release|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.ActiveCfg = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.Build.0 = Release|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|Mixed Platforms.Build.0 = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.ActiveCfg = Release|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.ActiveCfg = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.Build.0 = Release|x86 {15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.Build.0 = Release|x86
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE
EndGlobalSection EndGlobalSection
EndGlobal EndGlobal

63
app/SetupWix/.gitattributes vendored Normal file
View File

@ -0,0 +1,63 @@
###############################################################################
# Set default behavior to automatically normalize line endings.
###############################################################################
* text=auto
###############################################################################
# Set default behavior for command prompt diff.
#
# This is need for earlier builds of msysgit that does not have it on by
# default for csharp files.
# Note: This is only used by command line
###############################################################################
#*.cs diff=csharp
###############################################################################
# Set the merge driver for project and solution files
#
# Merging from the command prompt will add diff markers to the files if there
# are conflicts (Merging from VS is not affected by the settings below, in VS
# the diff markers are never inserted). Diff markers may cause the following
# file extensions to fail to load in VS. An alternative would be to treat
# these files as binary and thus will always conflict and require user
# intervention with every merge. To do so, just uncomment the entries below
###############################################################################
#*.sln merge=binary
#*.csproj merge=binary
#*.vbproj merge=binary
#*.vcxproj merge=binary
#*.vcproj merge=binary
#*.dbproj merge=binary
#*.fsproj merge=binary
#*.lsproj merge=binary
#*.wixproj merge=binary
#*.modelproj merge=binary
#*.sqlproj merge=binary
#*.wwaproj merge=binary
###############################################################################
# behavior for image files
#
# image files are treated as binary by default.
###############################################################################
#*.jpg binary
#*.png binary
#*.gif binary
###############################################################################
# diff behavior for common document formats
#
# Convert binary document formats to text before diffing them. This feature
# is only available from the command line. Turn it on by uncommenting the
# entries below.
###############################################################################
#*.doc diff=astextplain
#*.DOC diff=astextplain
#*.docx diff=astextplain
#*.DOCX diff=astextplain
#*.dot diff=astextplain
#*.DOT diff=astextplain
#*.pdf diff=astextplain
#*.PDF diff=astextplain
#*.rtf diff=astextplain
#*.RTF diff=astextplain

156
app/SetupWix/.gitignore vendored Normal file
View File

@ -0,0 +1,156 @@
## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons.
# User-specific files
*.suo
*.user
*.sln.docstates
# Build results
[Dd]ebug/
[Rr]elease/
x64/
build/
[Bb]in/
[Oo]bj/
# Enable "build/" folder in the NuGet Packages folder since NuGet packages use it for MSBuild targets
!packages/*/build/
# MSTest test Results
[Tt]est[Rr]esult*/
[Bb]uild[Ll]og.*
*_i.c
*_p.c
*.ilk
*.meta
*.obj
*.pch
*.pdb
*.pgc
*.pgd
*.rsp
*.sbr
*.tlb
*.tli
*.tlh
*.tmp
*.tmp_proj
*.log
*.vspscc
*.vssscc
.builds
*.pidb
*.log
*.scc
# Visual C++ cache files
ipch/
*.aps
*.ncb
*.opensdf
*.sdf
*.cachefile
# Visual Studio profiler
*.psess
*.vsp
*.vspx
# Guidance Automation Toolkit
*.gpState
# ReSharper is a .NET coding add-in
_ReSharper*/
*.[Rr]e[Ss]harper
# TeamCity is a build add-in
_TeamCity*
# DotCover is a Code Coverage Tool
*.dotCover
# NCrunch
*.ncrunch*
.*crunch*.local.xml
# Installshield output folder
[Ee]xpress/
# DocProject is a documentation generator add-in
DocProject/buildhelp/
DocProject/Help/*.HxT
DocProject/Help/*.HxC
DocProject/Help/*.hhc
DocProject/Help/*.hhk
DocProject/Help/*.hhp
DocProject/Help/Html2
DocProject/Help/html
# Click-Once directory
publish/
# Publish Web Output
*.Publish.xml
# NuGet Packages Directory
## TODO: If you have NuGet Package Restore enabled, uncomment the next line
#packages/
# Windows Azure Build Output
csx
*.build.csdef
# Windows Store app package directory
AppPackages/
# Others
sql/
*.Cache
ClientBin/
[Ss]tyle[Cc]op.*
~$*
*~
*.dbmdl
*.[Pp]ublish.xml
*.pfx
*.publishsettings
# RIA/Silverlight projects
Generated_Code/
# Backup & report files from converting an old project file to a newer
# Visual Studio version. Backup files are not needed, because we have git ;-)
_UpgradeReport_Files/
Backup*/
UpgradeLog*.XML
UpgradeLog*.htm
# SQL Server files
App_Data/*.mdf
App_Data/*.ldf
#LightSwitch generated files
GeneratedArtifacts/
_Pvt_Extensions/
ModelManifest.xml
# =========================
# Windows detritus
# =========================
# Windows image file caches
Thumbs.db
ehthumbs.db
# Folder config file
Desktop.ini
# Recycle Bin used on file shares
$RECYCLE.BIN/
# Mac desktop service store files
.DS_Store

9
app/SetupWix/Config.wxi Normal file
View File

@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<Include>
<?define ProgramName="DD_Clipboard_Watcher"?>
<?define ProductName="DD Clipboard Watcher"?>
<?define Manufacturer="Digital Data"?>
<?define Description="DD Clipboard Watcher"?>
<?define Comments="DD Clipboard Watcher"?>
<?define UpgradeCode="BB3A9D50-7CCE-42DA-84F2-D67129F57B59"?>
</Include>

0
SetupWix/Product.wxs → app/SetupWix/Product.wxs
View File

0
SetupWix/SetupWix.wixproj → app/SetupWix/SetupWix.wixproj
View File