MSNamenÄndern

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

Binary file not shown.

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>

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>

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>

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>

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>

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>

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>

View File

@ -2,11 +2,11 @@
<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" />
<section name="DD_Clipboard_Watcher.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_Clipboard_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"
providerName="System.Data.SqlClient" />
</connectionStrings>
@ -14,10 +14,10 @@
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
</startup>
<userSettings>
<DD_Clipboard_Searcher.My.MySettings>
<DD_Clipboard_Watcher.My.MySettings>
<setting name="WDSearch_maximized" serializeAs="String">
<value>False</value>
</setting>
</DD_Clipboard_Searcher.My.MySettings>
</DD_Clipboard_Watcher.My.MySettings>
</userSettings>
</configuration>

View File

@ -26,7 +26,7 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
clsWINDOWSApi.Get_ForegroundWindow_Info()
'Dim CapTxt As String = clsWINDOWSApi.GetCaption()
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 CapTxt.ToUpper.StartsWith("DD") Then Exit Sub
RaiseEvent Changed(Me, EventArgs.Empty)

View File

@ -71,6 +71,7 @@ Public Class ClassInit
USER_GUID = USER_DT.Rows(0).Item("GUID")
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)
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)
Dim USER2MODULE = clsDatabase.Execute_Scalar(sql)
@ -93,11 +94,19 @@ Public Class ClassInit
MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:")
Return False
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
clsLicense.Refresh_Licence(0)
clsLicense.Refresh_Licence(DT_CLIENT_USER.Rows(0).Item("CLIENT_ID"))
'Am System anmelden
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)
' 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)
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

View File

@ -6,9 +6,9 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{09BC9934-1A38-4752-8873-639B42779CDB}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>DD_Clipboard_Searcher.My.MyApplication</StartupObject>
<RootNamespace>DD_Clipboard_Searcher</RootNamespace>
<AssemblyName>DD_Clipboard_Searcher</AssemblyName>
<StartupObject>DD_Clipboard_Watcher.My.MyApplication</StartupObject>
<RootNamespace>DD_Clipboard_Watcher</RootNamespace>
<AssemblyName>DD_Clipboard_Watcher</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
@ -21,7 +21,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@ -31,7 +31,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<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>
</PropertyGroup>
<PropertyGroup>
@ -242,6 +242,8 @@
</ItemGroup>
<ItemGroup>
<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\KeyOutput_8167.png" />
</ItemGroup>

View File

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

View File

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

View File

@ -1,10 +1,10 @@
<?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">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
<?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">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)>
'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:
'
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.0.3")>
<Assembly: AssemblyVersion("1.3.0.4")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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
' der Code erneut generiert wird.
@ -39,7 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
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
End If
Return resourceMan
@ -130,6 +130,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -139,5 +149,15 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Bitmap)
End Get
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 Namespace

View File

@ -118,28 +118,34 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</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">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</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 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="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 name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
<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>
</root>

View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 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
' der Code erneut generiert wird.
@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<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)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
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
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<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
My.Settings.Save()
End If
@ -87,9 +87,9 @@ Namespace My
Friend Module MySettingsProperty
<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
Return Global.DD_Clipboard_Searcher.My.MySettings.Default
Return Global.DD_Clipboard_Watcher.My.MySettings.Default
End Get
End Property
End Module

View File

@ -4,7 +4,7 @@
<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">
<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>
<Tables>
<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 BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWUSER_PROFILETableAdapter" GeneratorDataComponentClassName="VWUSER_PROFILETableAdapter" Name="VWUSER_PROFILE" UserDataComponentName="VWUSER_PROFILETableAdapter">
<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>
<DbCommand CommandType="Text" ModifiedByUser="true">
<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:complexType>
<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: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" />
@ -270,7 +270,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence>
</xs:complexType>
</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: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" />
@ -287,7 +287,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence>
</xs:complexType>
</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: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" />
@ -316,7 +316,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence>
</xs:complexType>
</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: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" />
@ -328,7 +328,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:sequence>
</xs:complexType>
</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: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" />

View File

Before

Width:  |  Height:  |  Size: 2.4 KiB

After

Width:  |  Height:  |  Size: 2.4 KiB

View File

Before

Width:  |  Height:  |  Size: 214 B

After

Width:  |  Height:  |  Size: 214 B

View File

Before

Width:  |  Height:  |  Size: 241 B

After

Width:  |  Height:  |  Size: 241 B

View File

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

View File

Before

Width:  |  Height:  |  Size: 227 B

After

Width:  |  Height:  |  Size: 227 B

View File

Before

Width:  |  Height:  |  Size: 1.5 KiB

After

Width:  |  Height:  |  Size: 1.5 KiB

View File

Before

Width:  |  Height:  |  Size: 336 B

After

Width:  |  Height:  |  Size: 336 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 146 B

View File

Before

Width:  |  Height:  |  Size: 720 B

After

Width:  |  Height:  |  Size: 720 B

View File

Before

Width:  |  Height:  |  Size: 277 B

After

Width:  |  Height:  |  Size: 277 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 269 B

View File

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

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

View File

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

View File

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

View File

@ -37,7 +37,7 @@ Partial Class frmAdministration
Me.btnaddSearch = New System.Windows.Forms.Button()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
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.colGUID = 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.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBCBS_PROFILESTableAdapter = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager()
Me.TBCBS_PROFILESTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.statuslabel = New System.Windows.Forms.ToolStripStatusLabel()
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.btnStartStopProcess = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.chkRunwindowCheck = New System.Windows.Forms.CheckBox()
Me.txtProcessName = New System.Windows.Forms.TextBox()
Me.txtPID = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TimerTest = New System.Windows.Forms.Timer(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.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
@ -106,8 +106,14 @@ Partial Class frmAdministration
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnLinkProcessPRofile = 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()
NAMELabel = 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.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.SuspendLayout()
'
'GUIDLabel
@ -635,7 +642,7 @@ Partial Class frmAdministration
Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(9, 263)
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.Text = "Lösche Userzuordnung"
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.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.GridControl = Me.GridControl2
Me.GridViewProfileUser.Name = "GridViewProfileUser"
@ -742,7 +756,7 @@ Partial Class frmAdministration
Me.TableAdapterManager.TBCBS_PROFILE_PROCESSTableAdapter = Nothing
Me.TableAdapterManager.TBCBS_PROFILESTableAdapter = Me.TBCBS_PROFILESTableAdapter
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
'
@ -770,22 +784,34 @@ Partial Class frmAdministration
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.btnStartStopProcess)
Me.GroupBox3.Controls.Add(Me.PictureBox1)
Me.GroupBox3.Controls.Add(Me.chkRunwindowCheck)
Me.GroupBox3.Controls.Add(Me.txtProcessName)
Me.GroupBox3.Controls.Add(Me.txtPID)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Location = New System.Drawing.Point(12, 310)
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.TabStop = False
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
'
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.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 40)
@ -793,16 +819,6 @@ Partial Class frmAdministration
Me.PictureBox1.TabStop = 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
'
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
'
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.ReadOnly = True
Me.txtPID.Size = New System.Drawing.Size(59, 21)
@ -833,7 +849,7 @@ Partial Class frmAdministration
'Label3
'
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.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 0
@ -922,24 +938,11 @@ Partial Class frmAdministration
Me.GroupBox4.Controls.Add(Me.GridControl3)
Me.GroupBox4.Location = New System.Drawing.Point(12, 397)
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.TabStop = False
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
'
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.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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1240, 730)
Me.Controls.Add(Me.GroupBox5)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
@ -995,16 +1066,18 @@ Partial Class frmAdministration
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox2 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_PROFILESTableAdapter As DD_Clipboard_Searcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter
Friend WithEvents TableAdapterManager As DD_Clipboard_Searcher.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents TBCBS_PROFILESTableAdapter As DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCBS_PROFILESTableAdapter
Friend WithEvents TableAdapterManager As DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents TBCBS_PROFILESBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
@ -1038,7 +1111,7 @@ Partial Class frmAdministration
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView
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 colGUID1 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 Label4 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 PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents TBWH_UserBindingSource 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 GridViewProcessProfile As DevExpress.XtraGrid.Views.Grid.GridView
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 btnLinkProcessPRofile 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

View File

@ -321,6 +321,9 @@
D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg==
</value>
</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">
<value>
AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA

View File

@ -32,6 +32,13 @@ Public Class frmAdministration
End Sub
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
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
Sub Status_Changed(text As String, col As System.Drawing.Color)
statuslabel.Text = text
@ -147,25 +154,13 @@ Public Class frmAdministration
End Try
End Sub
Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs) Handles chkRunwindowCheck.CheckedChanged
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
Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs)
End Sub
Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick
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
PID = 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)
End Try
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

View File

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

View File

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

View File

@ -2,6 +2,7 @@
Imports System.Globalization
Imports DD_LIB_Standards
Public Class frmConfig_Basic
Dim WithEvents Hotkey As New clsHotkey(Me)
Dim formloaded As Boolean = False
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
Try
@ -101,6 +102,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblChanges.Visible = False
If Not MyConnectionString = String.Empty Then
CONNECTION_CHANGED = False
Try
@ -166,6 +168,12 @@ Public Class frmConfig_Basic
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
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
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

View File

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

View File

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

View File

@ -35,9 +35,13 @@ Partial Class frmMain
Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.btnUserConfig = New System.Windows.Forms.Button()
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.StatusStrip1.SuspendLayout()
Me.ContextMenuStripForm.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'NotifyIconMain
@ -58,7 +62,7 @@ Partial Class frmMain
'
'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.Size = New System.Drawing.Size(249, 22)
Me.tsmiChangeState.Tag = "stop"
@ -67,9 +71,10 @@ Partial Class frmMain
'StatusStrip1
'
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.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.Text = "StatusStrip1"
'
@ -91,7 +96,7 @@ Partial Class frmMain
'
'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.Size = New System.Drawing.Size(135, 22)
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.Location = New System.Drawing.Point(12, 44)
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.Text = "Inaktivieren des Watchers über Rechtsklick Systray" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "oder Tastaturkombination Strg" &
" + T"
Me.Label1.Text = "Inaktivieren des Watchers über Rechtsklick Systray oder " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tastaturkombination Str" &
"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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnAdminConfig)
Me.Controls.Add(Me.StatusStrip1)
@ -154,6 +192,8 @@ Partial Class frmMain
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ContextMenuStripForm.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -169,5 +209,7 @@ Partial Class frmMain
Friend WithEvents ContextMenuStripForm As System.Windows.Forms.ContextMenuStrip
Friend WithEvents MinimierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
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

View File

@ -10,11 +10,16 @@ Public Class frmMain
_Watcher.Dispose()
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
If DT_USER_PROFILES Is Nothing Then
Exit Sub
End If
If DT_USER_PROFILES.Rows.Count = 0 Then
Exit Sub
End If
CURR_MATCH_RESULT = Nothing
CURR_MATCH_WM_SEARCH = Nothing
If MONITORING_ACTIVE = False Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub
@ -44,7 +49,8 @@ Public Class frmMain
' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
CURR_MATCH_RESULT = match.Groups(0).Value
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
End If
'Else
@ -92,9 +98,9 @@ Public Class frmMain
Exit Sub
End If
Try
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)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Clipboard-Searcher'"
'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)
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)
ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save()
@ -107,6 +113,12 @@ Public Class frmMain
Catch ex As Exception
End Try
Try
Hotkey.RemoveHotKey(354523017)
Catch ex As Exception
End Try
'TempDateien löschen
Try
For Each _file In TEMP_FILES
@ -126,11 +138,29 @@ Public Class frmMain
Me.NotifyIconMain.Visible = True
clsHotkey.Refresh_Profile_Links()
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
tslblUser.Text = USER_USERNAME
lbHKFunction.Text = HotkeyFunctionKey & " + " & HotkeySearchKey.ToUpper
End Sub
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
Sub Change_Monitoring_State()
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
Me.Hide()
End Sub
End Class

View File

@ -26,7 +26,6 @@ Partial Class frmSplash
Me.Copyright = New System.Windows.Forms.Label()
Me.Version = 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.pbStatus = New System.Windows.Forms.ProgressBar()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@ -41,7 +40,7 @@ Partial Class frmSplash
Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!)
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.Size = New System.Drawing.Size(185, 21)
Me.Copyright.TabIndex = 2
@ -54,7 +53,7 @@ Partial Class frmSplash
Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!)
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.Size = New System.Drawing.Size(185, 21)
Me.Version.TabIndex = 1
@ -72,18 +71,6 @@ Partial Class frmSplash
Me.Label1.TabIndex = 12
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
'
Me.lblStatus.AutoSize = True
@ -137,7 +124,6 @@ Partial Class frmSplash
Me.Controls.Add(Me.Copyright)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Version)
Me.Controls.Add(Me.ApplicationTitle)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.pbStatus)
@ -156,7 +142,6 @@ Partial Class frmSplash
Friend WithEvents Copyright As System.Windows.Forms.Label
Friend WithEvents Version 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 lblStatus As System.Windows.Forms.Label
Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar

View File

@ -25,12 +25,12 @@ Public NotInheritable Class frmSplash
' Projekteigenschaften (im Menü "Projekt") anpassen.
'Anwendungstitel
If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title
Else
'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
'If My.Application.Info.Title <> "" Then
' ApplicationTitle.Text = My.Application.Info.Title
'Else
' 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
' ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
'End If
'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.
@ -84,8 +84,7 @@ Public NotInheritable Class frmSplash
End If
System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(800)
'bw.ReportProgress(CalcProgress(5), "Initializing Addons")
'Init.InitAddons()

View File

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

View File

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

View File

@ -1,44 +1,44 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.21005.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}"
EndProject
Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{15FC07B7-9FF7-4F14-9BAB-05674E20D839}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|Mixed Platforms = Release|Mixed Platforms
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{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|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|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.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.Build.0 = 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|Mixed Platforms.ActiveCfg = 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.Build.0 = Debug|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.Build.0 = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.ActiveCfg = Release|x86
{15FC07B7-9FF7-4F14-9BAB-05674E20D839}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

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