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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

211
AVISO_INFO/AVISO_INFO.vbproj Normal file
View File

@@ -0,0 +1,211 @@
<?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>{A734141E-2C4E-4D70-81E8-A88184282AF5}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>AVISO_INFO.My.MyApplication</StartupObject>
<RootNamespace>AVISO_INFO</RootNamespace>
<AssemblyName>AVISO_INFO</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<Deterministic>true</Deterministic>
<TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<IsWebBootstrapper>true</IsWebBootstrapper>
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\AVISO_INFO\</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<InstallUrl>http://ftps.verag.ag/AVISO_INFO/</InstallUrl>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>publish.htm</WebPage>
<ApplicationRevision>4</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</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>AVISO_INFO.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>AVISO_INFO.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>aviso.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>9D59777AB77A758BD3CBA1B39EAE25EC16C09CA2</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>AVISO_INFO_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xaml" />
<Reference Include="System.Xml" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="AVISO_INFO" />
<Import Include="Microsoft.Toolkit.Forms.UI.Controls" />
<Import Include="Microsoft.Toolkit.UI.Controls" />
<Import Include="Microsoft.Toolkit.Win32.UI.Controls" />
<Import Include="Microsoft.Toolkit.Win32.UI.Controls.Interop.WinRT" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<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="frmInfo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmInfo.Designer.vb">
<DependentUpon>frmInfo.vb</DependentUpon>
<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="frmInfo.resx">
<DependentUpon>frmInfo.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="AVISO_INFO_TemporaryKey.pfx" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lan_de.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\timer.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\handy_QR.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\qr_search.png" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="Microsoft.Toolkit.Forms.UI.Controls.WebView">
<Version>6.0.0</Version>
</PackageReference>
<PackageReference Include="Microsoft.Windows.SDK.Contracts">
<Version>10.0.19041.1-preview.vb-release</Version>
</PackageReference>
<PackageReference Include="System.Runtime.WindowsRuntime">
<Version>4.7.0</Version>
</PackageReference>
<PackageReference Include="System.Runtime.WindowsRuntime.UI.Xaml">
<Version>4.7.0</Version>
</PackageReference>
</ItemGroup>
<ItemGroup>
<Content Include="aviso.ico" />
<None Include="Resources\flag_srb2.png" />
<None Include="Resources\flag_tr.png" />
<None Include="Resources\flag_srb.png" />
<None Include="Resources\lan_eng.png" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.7">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.7 %28x86 und x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

6
AVISO_INFO/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
</configuration>

38
AVISO_INFO/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <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 = false
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.AVISO_INFO.frmInfo
End Sub
End Class
End Namespace

10
AVISO_INFO/My Project/Application.myapp Normal file
View File

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

35
AVISO_INFO/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("AVISO_INFO")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("AVISO_INFO")>
<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("a1cc3d6c-2f32-42bf-ab74-d65a06593798")>
' 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")>

143
AVISO_INFO/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,143 @@
'------------------------------------------------------------------------------
' <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", "15.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("AVISO_INFO.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.Bitmap.
'''</summary>
Friend ReadOnly Property flag_srb() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_srb", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flag_srb2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_srb2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flag_tr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_tr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property handy_QR() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("handy_QR", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lan_de() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lan_de", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lan_eng() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lan_eng", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property qr_search() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("qr_search", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property timer() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("timer", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

145
AVISO_INFO/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,145 @@
<?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="lan_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lan_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_srb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_srb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="timer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\timer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr_search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lan_eng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lan_eng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy_QR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy_QR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_srb2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_srb2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

73
AVISO_INFO/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.AVISO_INFO.My.MySettings
Get
Return Global.AVISO_INFO.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
AVISO_INFO/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>

BIN
AVISO_INFO/Resources/flag_srb.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 311 KiB

BIN
AVISO_INFO/Resources/flag_srb2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 100 KiB

BIN
AVISO_INFO/Resources/flag_tr.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 41 KiB

BIN
AVISO_INFO/Resources/handy_QR.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 54 KiB

BIN
AVISO_INFO/Resources/lan_de.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.4 KiB

BIN
AVISO_INFO/Resources/lan_eng.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.6 KiB

BIN
AVISO_INFO/Resources/qr_search.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 29 KiB

BIN
AVISO_INFO/Resources/timer.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
AVISO_INFO/aviso.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 66 KiB

372
AVISO_INFO/frmInfo.Designer.vb generated Normal file
View File

@@ -0,0 +1,372 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmInfo
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfo))
Me.pnl = New System.Windows.Forms.Panel()
Me.WebView1 = New Microsoft.Toolkit.Forms.UI.Controls.WebView()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnResetSearch = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblClock = New System.Windows.Forms.Label()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btn = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.MyTextBox1 = New System.Windows.Forms.TextBox()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel = New System.Windows.Forms.Panel()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.timerResetDefault = New System.Windows.Forms.Timer(Me.components)
Me.Panel3 = New System.Windows.Forms.Panel()
Me.pnl.SuspendLayout()
CType(Me.WebView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Controls.Add(Me.WebBrowser)
Me.pnl.Controls.Add(Me.WebBrowser1)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.Panel)
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(1388, 559)
Me.pnl.TabIndex = 1
'
'WebView1
'
Me.WebView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebView1.Location = New System.Drawing.Point(0, 0)
Me.WebView1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebView1.Name = "WebView1"
Me.WebView1.Size = New System.Drawing.Size(1386, 398)
Me.WebView1.TabIndex = 7
'
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 129)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(1386, 398)
Me.WebBrowser.TabIndex = 6
'
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 129)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(1386, 398)
Me.WebBrowser1.TabIndex = 5
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.btnResetSearch)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
Me.Panel1.Controls.Add(Me.MyTextBox1)
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(1386, 129)
Me.Panel1.TabIndex = 2
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.qr_search
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(3, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(129, 104)
Me.PictureBox1.TabIndex = 6
Me.PictureBox1.TabStop = False
'
'btnResetSearch
'
Me.btnResetSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnResetSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnResetSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnResetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnResetSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btnResetSearch.ForeColor = System.Drawing.Color.White
Me.btnResetSearch.Location = New System.Drawing.Point(581, 3)
Me.btnResetSearch.Name = "btnResetSearch"
Me.btnResetSearch.Size = New System.Drawing.Size(251, 51)
Me.btnResetSearch.TabIndex = 1
Me.btnResetSearch.Text = "X Suche zurücksetzen"
Me.btnResetSearch.UseVisualStyleBackColor = False
Me.btnResetSearch.Visible = False
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.Gold
Me.Panel2.Controls.Add(Me.pic)
Me.Panel2.Controls.Add(Me.lblClock)
Me.Panel2.Location = New System.Drawing.Point(134, 10)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(96, 47)
Me.Panel2.TabIndex = 3
Me.Panel2.Visible = False
'
'pic
'
Me.pic.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.timer
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(4, 4)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(44, 39)
Me.pic.TabIndex = 5
Me.pic.TabStop = False
'
'lblClock
'
Me.lblClock.AutoSize = True
Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblClock.Location = New System.Drawing.Point(45, 8)
Me.lblClock.Name = "lblClock"
Me.lblClock.Size = New System.Drawing.Size(46, 31)
Me.lblClock.TabIndex = 4
Me.lblClock.Text = "10"
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.WhiteSmoke
Me.FlowLayoutPanel.Controls.Add(Me.btn)
Me.FlowLayoutPanel.Controls.Add(Me.Button1)
Me.FlowLayoutPanel.Controls.Add(Me.Button2)
Me.FlowLayoutPanel.Controls.Add(Me.Button4)
Me.FlowLayoutPanel.Controls.Add(Me.Button5)
Me.FlowLayoutPanel.Controls.Add(Me.Button3)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(884, 3)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(491, 75)
Me.FlowLayoutPanel.TabIndex = 2
'
'btn
'
Me.btn.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.lan_de
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.AliceBlue
Me.btn.Location = New System.Drawing.Point(3, 3)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 63)
Me.btn.TabIndex = 0
Me.btn.Tag = "DE"
Me.btn.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.lan_eng
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.AliceBlue
Me.Button1.Location = New System.Drawing.Point(84, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 63)
Me.Button1.TabIndex = 1
Me.Button1.Tag = "EN"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.flag_srb2
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.AliceBlue
Me.Button2.Location = New System.Drawing.Point(165, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 63)
Me.Button2.TabIndex = 2
Me.Button2.Tag = "SRB"
Me.Button2.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
Me.Button4.Location = New System.Drawing.Point(246, 3)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 63)
Me.Button4.TabIndex = 4
Me.Button4.Tag = "RUS"
Me.Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = False
'
'Button5
'
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
Me.Button5.Location = New System.Drawing.Point(327, 3)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 63)
Me.Button5.TabIndex = 5
Me.Button5.Tag = "BG"
Me.Button5.UseVisualStyleBackColor = True
Me.Button5.Visible = False
'
'Button3
'
Me.Button3.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.flag_tr
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.AliceBlue
Me.Button3.Location = New System.Drawing.Point(408, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 63)
Me.Button3.TabIndex = 3
Me.Button3.Tag = "TR"
Me.Button3.UseVisualStyleBackColor = True
'
'MyTextBox1
'
Me.MyTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyTextBox1.Location = New System.Drawing.Point(134, 90)
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(698, 20)
Me.MyTextBox1.TabIndex = 7
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.lbl.Location = New System.Drawing.Point(130, 61)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(240, 20)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
'
'Panel
'
Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel.Location = New System.Drawing.Point(0, 527)
Me.Panel.Name = "Panel"
Me.Panel.Size = New System.Drawing.Size(1386, 30)
Me.Panel.TabIndex = 0
Me.Panel.Visible = False
'
'Timer
'
Me.Timer.Interval = 1000
'
'Timer1
'
Me.Timer1.Enabled = True
'
'timerResetDefault
'
Me.timerResetDefault.Enabled = True
Me.timerResetDefault.Interval = 5000
'
'Panel3
'
Me.Panel3.Controls.Add(Me.WebView1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 129)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1386, 398)
Me.Panel3.TabIndex = 9
'
'frmInfo
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1388, 559)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmInfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Info"
Me.TopMost = True
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.pnl.ResumeLayout(False)
CType(Me.WebView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.FlowLayoutPanel.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents lbl As Label
Friend WithEvents Panel As Panel
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents btn As Button
Friend WithEvents MyTextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Timer As Timer
Friend WithEvents Panel2 As Panel
Friend WithEvents pic As PictureBox
Friend WithEvents lblClock As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents btnResetSearch As Button
Friend WithEvents WebBrowser1 As WebBrowser
Friend WithEvents WebBrowser As WebBrowser
Friend WithEvents WebView1 As Microsoft.Toolkit.Forms.UI.Controls.WebView
Friend WithEvents Timer1 As Timer
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Public WithEvents timerResetDefault As Timer
Friend WithEvents Panel3 As Panel
End Class

1262
AVISO_INFO/frmInfo.resx Normal file
View File

File diff suppressed because it is too large Load Diff

117
AVISO_INFO/frmInfo.vb Normal file
View File

@@ -0,0 +1,117 @@
Imports CefSharp.WinForms
Public Class frmInfo
Dim Timer_Sek As Integer = 30
Dim Timer_cnt As Integer
Dim lastLink As String = ""
Dim tmstmp_Eingabe As Date
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown
Try
If e.KeyCode = Keys.Return Then
lastLink = MyTextBox1.Text
setLink(MyTextBox1.Text)
End If
' Dim c As New ChromiumWebBrowser("as")
' Me.WebBrowserEx1.ActivateBrowserOnCreation = False
Catch ex As Exception
End Try
End Sub
Sub setLink(link)
If validlink(link) Then
WebView1.Navigate(link) ', Nothing, Nothing, "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)")
' WebBrowserEx1. = MyTextBox1.Text
MyTextBox1.Text = ""
Timer_cnt = Timer_Sek
lblClock.Text = Timer_cnt
Panel2.Visible = True
Timer.Enabled = True
btnResetSearch.Visible = True
Else
reset()
End If
End Sub
'Private Async Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Dim functionString As String = String.Format("document.getElementById('nameDiv').innerText = 'Hello, {0}';", nameTextBox.Text)
' Await WebView1.InvokeScriptAsync("eval", New String() {functionString})
'End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Try
If Timer_cnt = 0 Then
reset()
End If
Timer_cnt -= 1
lblClock.Text = Timer_cnt
Catch ex As Exception
End Try
End Sub
Sub reset()
Timer.Enabled = False
Panel2.Visible = False
btnResetSearch.Visible = False
WebView1.Navigate("")
WebView1.Dispose()
WebView1 = Nothing
MyTextBox1.Text = ""
MyTextBox1.Focus()
lastLink = ""
End Sub
Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
Try
reset()
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
MyTextBox1.Focus()
End Sub
Private Sub btn_Click(sender As Object, e As MouseEventArgs) Handles btn.MouseDown, Button1.MouseDown, Button2.MouseDown, Button3.MouseDown, Button4.MouseDown, Button5.MouseDown
If validlink(lastLink) Then
setLink(lastLink & "&lan=" & sender.tag)
End If
End Sub
Function validlink(link) As Boolean
If link = "" Then Return False
If Not link.contains("https://login.verag.ag/status.aspx?AvisoId=") Then Return False
Return True
End Function
Private Sub timerResetDefault_Tick(sender As Object, e As EventArgs) Handles timerResetDefault.Tick
If Timer_cnt > 0 Then Exit Sub ' Anzeige läuft...
Dim Result As TimeSpan = Now - tmstmp_Eingabe
If Result.Seconds > 4 Then
reset()
End If
End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
tmstmp_Eingabe = Now
End Sub
Private Sub btntm_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseDown, lblClock.MouseDown, Panel2.MouseDown
Timer_cnt = Timer_Sek + 1 ' zurücksetzen
End Sub
End Class