edv/VERAG_OCR
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Projektdateien hinzufügen.

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-14 10:52:19 +02:00
parent 42e043f6e1
commit 5532a70acd
24 changed files with 1771 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
VERAG_OCR.sln Normal file
View File

@@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28307.106
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_OCR", "VERAG_OCR\VERAG_OCR.vbproj", "{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}.Debug|Any CPU.Build.0 = Debug|Any CPU
{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}.Release|Any CPU.ActiveCfg = Release|Any CPU
{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {BF2A7BF5-46A2-41F0-A1B9-C349439F55EB}
EndGlobalSection
EndGlobal

11
VERAG_OCR/App.config Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup>
<System.Windows.Forms.ApplicationConfigurationSection>
<add key="DpiAwareness" value="PerMonitorV2" />
</System.Windows.Forms.ApplicationConfigurationSection>
</configuration>

13
VERAG_OCR/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <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

11
VERAG_OCR/My Project/Application.myapp Normal file
View File

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

35
VERAG_OCR/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("VERAG_OCR")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("VERAG_OCR")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("fa8b69e6-9ca4-4257-bde3-1a8fb4c61361")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

93
VERAG_OCR/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,93 @@
'------------------------------------------------------------------------------
' <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
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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("VERAG_OCR.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
'''</summary>
Friend ReadOnly Property cursor_24() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("cursor_24", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
'''</summary>
Friend ReadOnly Property cursor_48() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("cursor_48", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
Friend ReadOnly Property google() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("google", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
End Module
End Namespace

130
VERAG_OCR/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,130 @@
<?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.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cursor_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cursor-24.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cursor_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cursor-48.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="google" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\My First Project-bb8af69631fc.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

73
VERAG_OCR/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <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
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.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 "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(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VERAG_OCR.My.MySettings
Get
Return Global.VERAG_OCR.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
VERAG_OCR/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

81
VERAG_OCR/My Project/app.manifest Normal file
View File

@@ -0,0 +1,81 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
<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">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<asmv3:application>
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/pm</dpiAware>
</windowsSettings>
</asmv3:application>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel und müssen sich nicht
anmelden. Für Windows Forms-Anwendungen für .NET Framework 4.6, die sich für diese Einstellung anmelden, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der "app.config" auf "true" festgelegt werden. -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

12
VERAG_OCR/Resources/My First Project-bb8af69631fc.json Normal file
View File

@@ -0,0 +1,12 @@
{
"type": "service_account",
"project_id": "utopian-hearth-294922",
"private_key_id": "bb8af69631fc80d6d868f883341642fcb2ce92e5",
"private_key": "-----BEGIN PRIVATE KEY-----\nMIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDKyrdcugJoJLNV\nbvsBT7X5gi8hI/zkSKYX5cmWvUWdXcWPnvq95j4k2p7iCeF39vHg6DwsqHtmWpET\nMLujhf8qWIwgMrUCrXHRKuswQUdD09GNtCYkzDprc579wwFOGhZFvF+/SdMecUb6\n6VEMpbWisGsA7jwLkWTvRuqPqa5G04fH6QPVUrYOwbYdMrGyW/049o3JG7E4UTfa\nlwemacso+Ecx5P98Kd95ocT1B5Np6eX1acEPaYcWf8YALHbVvA6MQQ5yumiNBA/X\n6gDoELLVh7W7ngETIEmitgtpK+menr+pWLHre9nWGgEWNEjdIWsP9N6B4AP6iYRl\ns2Qyy9qdAgMBAAECggEADICoAmMDb/lHRy6i8gdAkGP61N+7oTVrbBDCN3Vu289i\ntUKXcerGjQ4feo8iY/uJGRUoVJaEmSBfTmAUSXYi77Dq3rdRmpsn573uJxj3NFLU\nWhivu1gOB/7mX/3MUEzib6U3//qktf1E44ZL9WwoASJATpvhftMVdn0YTAgpkvsu\nYv8hl+Uln50dDJGPyYVwBqkDJy7Ey354J6ItcSWCRaWJp3dZkEKntJy21NM63Xvf\nfHX8bnlvszgGNiU1R14MWBTUJpj8Uw+eDfRBkX82R5t0NjF6+jSAkOoVBFxZ4cRU\nS9R2uYD8/gsA/TgRqmCdkSJesBF0h+fp01RQkDrL0QKBgQD92ZcICwnT+4tSd1tp\nPiL5Eg8UI48Sgsgk9fdbq9JiFtsa4t98QqRcQaoSieo29kdanOAQyEZy27Eh8veY\nkLmVNfzFhjOtf6BYD83UQC9FvxHgSgzeFwkpJTFI1ld6p2xZvY9l/GZ9hBxwyzEB\nMz/66xVdSfNgi2Z4i4RlQAn0iQKBgQDMgmtqkiJD0hi6Jv1/UTPxzbFpGQZtlvK/\nEDF8kPG7ri2QWft36ID8DtpdlDLkFrRhsrr9Ae0eQx/nCt4KTIdSxm6X9+P3txE3\nwuUdTpc3PpVFY4VXVrnYlW1SXokl7/4HQNw8wvjx0Ard7LtP3zXuHdgigF2hy6zu\ncEVeRLBYdQKBgQCnbk75lR5EXVNFb0gxoDQ9B7Y+WD3TvcL47era4fd/jwexMhap\nxOLXns/oLmL3IXVqxLHdH9unglPQyoqYbEybp+Iy/hMzykweCT5/Ul5bqGzH/M+D\n5Lm8E7XwDr/gPHFwt2DPqayH+Q0xMDQAUKdQfqG2yEHoWcmalJsclSJ70QKBgQC3\nOKU53mC6eFFU/behSEQMf+dRLG1444LpsH1Vh5o7Nkp2CFfmTrS4nin/KtYJSVok\nKXejUwV4VlUPrsnNWlDm1QaiOiHQff/8AC06e324reYYO5hr7jQkmYNPB4lCJuhk\n4TQvb9KO+n+x4fTTEzyC79QC3RSF7y8olAdh9JI1PQKBgBJZrFe3stDA4q+xAF3k\nh0nNwjLd3bcOeFDnCJNZkuaseWKPalpJ1KmW7ydCGXFU83S6w99o9+VYf1dTdAe/\nPrGplUBxNEXQ4+bpMH2YLPNtAwcct/Z82u5XgjFW/D9FF36MQiMQR/wjVK+xnnJT\nasIh21aWDlahsZgPT3ya78Ng\n-----END PRIVATE KEY-----\n",
"client_email": "luxbauer@utopian-hearth-294922.iam.gserviceaccount.com",
"client_id": "106198620318819149794",
"auth_uri": "https://accounts.google.com/o/oauth2/auth",
"token_uri": "https://oauth2.googleapis.com/token",
"auth_provider_x509_cert_url": "https://www.googleapis.com/oauth2/v1/certs",
"client_x509_cert_url": "https://www.googleapis.com/robot/v1/metadata/x509/luxbauer%40utopian-hearth-294922.iam.gserviceaccount.com"
}

BIN
VERAG_OCR/Resources/cursor-24.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 729 B

BIN
VERAG_OCR/Resources/cursor-48.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.4 KiB

172
VERAG_OCR/VERAG_OCR.vbproj Normal file
View File

@@ -0,0 +1,172 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{13E50121-CD65-4DFD-BF2B-5D0AC7C613E3}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>VERAG_OCR.cMain</StartupObject>
<RootNamespace>VERAG_OCR</RootNamespace>
<AssemblyName>VERAG_OCR</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>x64</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>VERAG_OCR.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>VERAG_OCR.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="cMain.vb" />
<Compile Include="frmMainOCR.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMainOCR.Designer.vb">
<DependentUpon>frmMainOCR.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFullScreen.Designer.vb">
<DependentUpon>frmFullScreen.vb</DependentUpon>
</Compile>
<Compile Include="frmFullScreen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMessage.Designer.vb">
<DependentUpon>frmMessage.vb</DependentUpon>
</Compile>
<Compile Include="frmMessage.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmMainOCR.resx">
<DependentUpon>frmMainOCR.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFullScreen.resx">
<DependentUpon>frmFullScreen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMessage.resx">
<DependentUpon>frmMessage.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="Resources\My First Project-bb8af69631fc.json">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<PackageReference Include="CaptureScreen">
<Version>1.0.0</Version>
</PackageReference>
<PackageReference Include="Google.Cloud.Vision.V1">
<Version>2.0.0</Version>
</PackageReference>
<PackageReference Include="IronOcr">
<Version>4.4.0</Version>
</PackageReference>
</ItemGroup>
<ItemGroup>
<None Include="Resources\cursor-24.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\cursor-48.ico">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

35
VERAG_OCR/cMain.vb Normal file
View File

@@ -0,0 +1,35 @@

Public Class cMain
<System.Runtime.InteropServices.DllImport("user32.dll")>
Private Shared Function SetProcessDPIAware() As Boolean
End Function
Shared Sub Main()
If Environment.OSVersion.Version.Major >= 6 Then SetProcessDPIAware()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New frmMainOCR())
' cMain.Main()
'MsgBox("GO")
'Dim Ocr As New AutoOcr()
'Dim Result = Ocr.Read("C:\Users\DEVELOPER1\Desktop\test.png")
'MsgBox(Result.Text)
End Sub
'Public captured As System.Drawing.Bitmap
End Class

56
VERAG_OCR/frmFullScreen.Designer.vb generated Normal file
View File

@@ -0,0 +1,56 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFullScreen
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()
Me.pic = New System.Windows.Forms.PictureBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pic
'
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
Me.pic.Location = New System.Drawing.Point(0, 0)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(800, 450)
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'frmFullScreen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.pic)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmFullScreen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmFullScreen"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pic As PictureBox
End Class

120
VERAG_OCR/frmFullScreen.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

129
VERAG_OCR/frmFullScreen.vb Normal file
View File

@@ -0,0 +1,129 @@
Imports System.ComponentModel
Public Class frmFullScreen
Event CAPTURED_IMG(frmFullScreen As frmFullScreen)
Public bg As System.Drawing.Bitmap
Dim CursorPos1 As Point
Dim CursorPos2 As Point
Private isMouseDown As Boolean = False
Private rect As Rectangle = New Rectangle(125, 125, 50, 50)
Public captured As System.Drawing.Bitmap
Sub New(bg)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.bg = bg
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
Me.Close()
End Sub
Private Sub frmFullScreen_Load(sender As Object, e As EventArgs) Handles Me.Load
pic.BackgroundImage = bg
Dim mycursor As Icon = My.Resources.cursor_48 ' normal is my curosor icon
Me.Cursor = New Cursor(mycursor.Handle)
End Sub
Private Sub pic_MouseDown(sender As Object, e As MouseEventArgs) Handles pic.MouseDown
CursorPos1 = Cursor.Position
isMouseDown = True
End Sub
Private Sub pic_MouseUp(sender As Object, e As MouseEventArgs) Handles pic.MouseUp
isMouseDown = False
CursorPos2 = Cursor.Position
captured = MakeScreenshot()
' MsgBox(CursorPos1.X & "-" & CursorPos1.Y & ", " & CursorPos1.X - CursorPos2.X & "-" & CursorPos1.Y - CursorPos2.Y)
If captured IsNot Nothing Then RaiseEvent CAPTURED_IMG(Me)
'Me.Close()
End Sub
Private Function MakeScreenshot() As Bitmap
Dim tmp_width As Integer = CursorPos1.X - CursorPos2.X
Dim tmp_Height As Integer = CursorPos1.Y - CursorPos2.Y
If tmp_width = 0 Then Return Nothing
If tmp_Height = 0 Then Return Nothing
If tmp_width <= 0 Then tmp_width *= -1 'Me.Close()
If tmp_Height <= 0 Then tmp_Height *= -1 ' Me.Close()
' MsgBox(tmp_width & "-" & tmp_Height)
Dim bmp As New Bitmap(tmp_width, tmp_Height)
Dim g = Graphics.FromImage(bmp)
g.CopyFromScreen(CursorPos1.X, CursorPos1.Y, 0, 0, New Size(tmp_width, tmp_Height))
g.Dispose()
Return bmp
End Function
Private Sub frmFullScreen_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Me.Cursor = Cursors.Default
End Sub
Private MouseDownStage, MouseDownX, MouseDownY As Integer
Private x1, y1, x2, y2 As Integer
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles pic.MouseMove
'If isMouseDown = True Then
' rect.Location = e.Location
' If rect.Right > pic.Width Then
' rect.X = pic.Width - rect.Width
' End If
' If rect.Top < 0 Then
' rect.Y = 0
' End If
' If rect.Left < 0 Then
' rect.X = 0
' End If
' If rect.Bottom > pic.Height Then
' rect.Y = pic.Height - rect.Height
' End If
' Refresh()
'End If
If isMouseDown = True Then
rect.Location = CursorPos1
Dim tmp_width As Integer = CursorPos1.X - Cursor.Position.X
Dim tmp_Height As Integer = CursorPos1.Y - Cursor.Position.Y
If tmp_width <= 0 Then tmp_width *= -1 'Me.Close()
If tmp_Height <= 0 Then tmp_Height *= -1 ' Me.Close()
rect.Width = tmp_width
rect.Height = tmp_Height
Refresh()
End If
End Sub
Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles pic.Paint
If isMouseDown Then
e.Graphics.DrawRectangle(New Pen(Color.Red, 3), rect)
End If
End Sub
End Class

77
VERAG_OCR/frmMainOCR.Designer.vb generated Normal file
View File

@@ -0,0 +1,77 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMainOCR
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()
Me.Button1 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txt = New System.Windows.Forms.RichTextBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 307)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "GET"
Me.Button1.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(12, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(776, 271)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'txt
'
Me.txt.Location = New System.Drawing.Point(121, 307)
Me.txt.Name = "txt"
Me.txt.Size = New System.Drawing.Size(667, 131)
Me.txt.TabIndex = 2
Me.txt.Text = ""
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.txt)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.ShowInTaskbar = False
Me.Text = "Form1"
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents txt As RichTextBox
End Class

120
VERAG_OCR/frmMainOCR.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

323
VERAG_OCR/frmMainOCR.vb Normal file
View File

@@ -0,0 +1,323 @@

Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading
Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.Services
Imports Google.Apis.Util.Store
Imports Google.Cloud.Vision.V1
Imports IronOcr
Public Class frmMainOCR
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312
Protected Overrides Sub WndProc(ByRef m As Message)
'die messages auswerten
If m.Msg = WM_HOTKEY Then
'hier wird entschieden welcher hotkey es war
'einfach die übergebene id auswerten
Select Case m.WParam
Case 1
' MessageBox.Show("Sie haben die SUPTERTEST gedrückt!")
Button1.PerformClick()
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'die tab taste wieder freigeben
UnregisterHotKey(Me.Handle, 1)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
'die tab taste abfangen
RegisterHotKey(Me.Handle, 1, 2, Keys.NumPad0) ' 2=CONTROL!
AuthExplicit()
' cMain.Main()
End Sub
Public Function AuthExplicit() As Object
Dim pathJson = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\") & "\My First Project-bb8af69631fc.json" '"C:\Users\DEVELOPER1\Downloads\My First Project-bb8af69631fc.json"
System.Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", pathJson)
Dim Pathsave = System.Environment.GetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS")
'Dim credential As UserCredential
'Using stream = New FileStream("client_secret.json", FileMode.Open, FileAccess.Read)
' Dim credPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal)
' credPath = Path.Combine(credPath, ".credentials/drive-dotnet-quickstart.json")
' credential = GoogleWebAuthorizationBroker.AuthorizeAsync(
' GoogleClientSecrets.Load(stream).Secrets, Scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result
' 'Console.WriteLine("Credential file saved to: " + credPath)
'End Using
End Function
'Public Shared Function getServiceInitializer() As BaseClientService
' Dim serviceAccountCredentialFilePath = "Path to Json service account key file" REM from Google Developers console
' Dim myKeyEMail = "XXX@developer.gserviceaccount.com" REM from Google Developers console
' Dim scope = Google.Apis.Auth.OAuth2..v4.AnalyticsReportingService.Scope.AnalyticsReadonly
' Try
' Dim credential
' Using stream As New FileStream(serviceAccountCredentialFilePath, FileMode.Open, FileAccess.Read)
' credential = GoogleCredential.FromStream(stream).CreateScoped(scope)
' End Using
' Dim Initializer As New BaseClientService.Initializer()
' Initializer.HttpClientInitializer = credential
' Initializer.ApplicationName = "SRJCGMail"
' Dim service As New AnalyticsReportingService(Initializer)
' Return service
' Catch ex As Exception
' Console.WriteLine(ex.Message)
' Return Nothing
' End Try
'End Function
Public captured As System.Drawing.Bitmap
Dim FORMS_SCR As New List(Of frmFullScreen)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FORMS_SCR.Clear()
For Each SCR In Screen.AllScreens()
initCapture(SCR)
Next
End Sub
Sub initCapture(SCR As Screen)
Try
captured = TakeScreenShot(SCR)
Dim f As New frmFullScreen(captured)
f.Location = SCR.WorkingArea.Location
'f.ShowDialog()
f.Show()
FORMS_SCR.Add(f)
PictureBox1.BackgroundImage = f.captured
AddHandler f.CAPTURED_IMG, Sub(frmFullScreen As frmFullScreen)
Dim imgLocationTMp = saveIMGToClipboard(frmFullScreen)
closeAllFrms()
readOCR(imgLocationTMp)
End Sub
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
' Exit Sub
''THIS PART TAKES A SCREENSHOT
'Dim area As Rectangle
'Dim graph As Graphics
'area = Screen.PrimaryScreen.Bounds
'captured = New System.Drawing.Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
'graph = Graphics.FromImage(captured)
'graph.CopyFromScreen(area.X, area.Y, 0, 0, area.Size, CopyPixelOperation.SourceCopy)
''HERE WE INSERT THE MOUSE CURSOR
'Cursor.Draw(graph, New Rectangle(New Point(Cursor.Position.X - Cursor.HotSpot.X, Cursor.Position.Y - Cursor.HotSpot.Y), Cursor.Size))
''AND WE PUT THE PICTURE IN A PICTUREBOX
'PictureBox1.BackgroundImage = captured
End Sub
Sub closeAllFrms()
Try
For Each f In FORMS_SCR
f.Close()
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Function saveIMGToClipboard(f As frmFullScreen) As String
Try
Dim imgLocationTMp = System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".png" '"C:\Users\DEVELOPER1\Desktop\testSC2.png"
f.captured.Save(imgLocationTMp)
Return imgLocationTMp
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Sub readOCR(imgLocationTMp)
Try
Me.Cursor = Cursors.WaitCursor
Dim TMPgoogle = 1
If TMPgoogle Then
Dim client = ImageAnnotatorClient.Create()
Dim image = Google.Cloud.Vision.V1.Image.FromFile(imgLocationTMp)
Dim response = client.DetectLabels(image)
Dim response2 = client.DetectDocumentText(image)
' Dim response = client.DetectLabels(DirectCast(f.captured.Clone(), Image))
Dim ResultText = ""
'For Each annotation In response
' If annotation.Description IsNot Nothing Then ResultText &= annotation.Description & vbNewLine
' 'If annotation.Description IsNot Nothing Then ResultText &= annotation.Description & vbNewLine
' ' If annotation.IsNot Nothing Then ResultText &= annotation.Description & vbNewLine
'Next
If response2 IsNot Nothing AndAlso response2.Text <> "" Then
Dim f2 As New frmMessage(response2.Text)
f2.Show()
End If
'txt.Text = response2.Text
Else
'Dim Ocr As New AutoOcr()
'Dim Result = Ocr.Read(f.captured)
'txt.Text = Result.Text
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Function TakeScreenShot(SCR As Screen) As Bitmap
'the working area excludes all docked toolbars like taskbar, etc.
Dim currentScreen = SCR.WorkingArea
'create a bitmap of the working area
Dim bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
'copy the screen to the image
Using g = Graphics.FromImage(bmp)
g.CompositingQuality = CompositingQuality.HighQuality
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.HighQuality
g.CopyFromScreen(New Point(currentScreen.X, currentScreen.Y), New Point(0, 0), currentScreen.Size)
End Using
''save the image
'Using sfd As New SaveFileDialog() With {.Filter = "PNG Image|*.png",
' .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop}
' 'If sfd.ShowDialog() = Windows.Forms.DialogResult.OK Then
' ' bmp.Save(sfd.FileName, System.Drawing.Imaging.ImageFormat.Png)
' 'End If
' End Using
Return bmp
If False Then
Dim screenSize As Size = New Size(SCR.Bounds.Width, SCR.Bounds.Height)
Dim screenGrab As New Bitmap(SCR.Bounds.Width, SCR.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(screenGrab)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
Return screenGrab
End If
End Function
'Private Function TakeScreenShot() As Bitmap
' 'the working area excludes all docked toolbars like taskbar, etc.
' Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
' 'create a bitmap of the working area
' Dim bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
' 'copy the screen to the image
' Using g = Graphics.FromImage(bmp)
' g.CompositingQuality = CompositingQuality.HighQuality
' g.InterpolationMode = InterpolationMode.HighQualityBicubic
' g.SmoothingMode = SmoothingMode.HighQuality
' g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
' End Using
' ''save the image
' 'Using sfd As New SaveFileDialog() With {.Filter = "PNG Image|*.png",
' ' .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop}
' ' 'If sfd.ShowDialog() = Windows.Forms.DialogResult.OK Then
' ' ' bmp.Save(sfd.FileName, System.Drawing.Imaging.ImageFormat.Png)
' ' 'End If
' ' End Using
' Return bmp
' If False Then
' Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
' Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
' Dim g As Graphics = Graphics.FromImage(screenGrab)
' g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
' Return screenGrab
' End If
'End Function
End Class

104
VERAG_OCR/frmMessage.Designer.vb generated Normal file
View File

@@ -0,0 +1,104 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMessage
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()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.RichTextBox = New System.Windows.Forms.RichTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lbl = New System.Windows.Forms.Label()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.RichTextBox)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(371, 120)
Me.pnl.TabIndex = 0
'
'RichTextBox
'
Me.RichTextBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.RichTextBox.Location = New System.Drawing.Point(0, 30)
Me.RichTextBox.Name = "RichTextBox"
Me.RichTextBox.Size = New System.Drawing.Size(369, 88)
Me.RichTextBox.TabIndex = 1
Me.RichTextBox.Text = ""
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.lbl)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(369, 30)
Me.Panel1.TabIndex = 0
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.lbl.ForeColor = System.Drawing.Color.White
Me.lbl.Location = New System.Drawing.Point(13, 8)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(207, 17)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Text in Zwischenablage kopiert:"
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 3000
'
'frmMessage
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(371, 120)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmMessage"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.TopMost = True
Me.pnl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents RichTextBox As RichTextBox
Friend WithEvents Panel1 As Panel
Friend WithEvents lbl As Label
Friend WithEvents Timer As Timer
End Class

123
VERAG_OCR/frmMessage.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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>
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

21
VERAG_OCR/frmMessage.vb Normal file
View File

@@ -0,0 +1,21 @@
Public Class frmMessage
Dim MessageTxt
Sub New(MessageTxt)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.MessageTxt = MessageTxt
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmMessage_Load(sender As Object, e As EventArgs) Handles Me.Load
RichTextBox.Text = MessageTxt
Clipboard.SetText(MessageTxt.Replace("\n", "\r\n"))
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Me.Close()
End Sub
End Class