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
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_TELEINFO/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>

77
VERAG_TELEINFO/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,77 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
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.btn = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label()
Me.btnTapi = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btn
'
Me.btn.Location = New System.Drawing.Point(424, 229)
Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(112, 35)
Me.btn.TabIndex = 0
Me.btn.UseVisualStyleBackColor = True
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.Location = New System.Drawing.Point(270, 346)
Me.lblStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(71, 20)
Me.lblStatus.TabIndex = 1
Me.lblStatus.Text = "lblStatus"
'
'btnTapi
'
Me.btnTapi.Location = New System.Drawing.Point(424, 506)
Me.btnTapi.Name = "btnTapi"
Me.btnTapi.Size = New System.Drawing.Size(75, 23)
Me.btnTapi.TabIndex = 2
Me.btnTapi.Text = "tapi"
Me.btnTapi.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1200, 692)
Me.Controls.Add(Me.btnTapi)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.btn)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btn As Button
Friend WithEvents lblStatus As Label
Friend WithEvents btnTapi As Button
End Class

120
VERAG_TELEINFO/Form1.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>

198
VERAG_TELEINFO/Form1.vb Normal file
View File

@@ -0,0 +1,198 @@

Imports System
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Imports JulMar.Atapi
Public Class Form1
WithEvents myTapi As JulMar.Atapi.TapiManager
Dim myLine As JulMar.Atapi.TapiLine
Dim myCall As JulMar.Atapi.TapiCall
Private Sub frmEinstellungen_Tapi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myTapi = New TapiManager("VERAG_TELEINFO")
AddHandler myTapi.CallStateChanged, AddressOf myCallState
Try
If Not myTapi.Initialize Then
Console.WriteLine("TAPI-Initialize failed")
Exit Sub
Else
myLine = myTapi.GetLineByName("Andreas Luxbauer EDV (135)", True)
myLine.Open(MediaModes.All)
'Dim lineArray As TapiLine() = myTapi.Lines
'Dim i As Integer = 0
'Dim x As String
'For i = 0 To lineArray.Length - 1
' Dim line As TapiLine = lineArray(i)
' If i = 0 Then
' x = "OPEN.....: "
' line.Monitor()
' myLine = line
' Else
' x = "NOT OPEN.: "
' End If
' Console.WriteLine(x & line.Name)
'Next
End If
'--- Wait here ---
Console.ReadLine()
'--- Exit TAPI ---
'myTapi.Shutdown()
'myLine = myTapi.GetLineByName("Andreas Luxbauer EDV (135)", True)
''myLine = myTapi.GetLineByName("135", True)
'myTapi.Initialize()
'myLine.Open(MediaModes.All)
'myTapi.
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
'threadsicherer Aufruf
Delegate Sub SetLabStatusCallback(txt As String)
Private Sub SetLabStatus(txt As String)
If Me.InvokeRequired Then
Dim d As New SetLabStatusCallback(AddressOf SetLabStatus)
Try
Me.Invoke(d, New Object() {txt})
Catch ex As Exception : End Try
Else
lblStatus.Text = txt
End If
End Sub
'Private Delegate Sub DelegateLabstatus(ByVal txt As String)
'Private DLabStatus As New DelegateLabstatus(AddressOf SetLabStatus)
'Private Sub SetLabStatus(ByVal txt As String)
' If Me.InvokeRequired Then
' Me.Invoke(DLabStatus, New Object() {txt})
' Else
' Me.lblStatus.Text = txt
' End If
'End Sub
Private Sub myCallState(ByVal sender As Object, ByVal e As CallStateEventArgs) Handles myTapi.CallStateChanged
Console.WriteLine(e.CallState)
Select Case e.CallState
Case CallState.Busy
SetLabStatus("Teilnehmer besetzt.")
Case CallState.Connected
SetLabStatus("Verbunden")
Case CallState.Dialing
SetLabStatus("Nummer wird gewählt...")
Case CallState.Disconnected
SetLabStatus("Disconnected")
Case CallState.Idle
SetLabStatus("Idle")
Case CallState.Ringback, CallState.Offering, CallState.Accepted '??
SetLabStatus("Läutet...")
Case CallState.Proceeding
SetLabStatus("Anruf in Arbeit...")
Case Else
SetLabStatus(e.CallState)
End Select
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' myLine.Open(MediaModes.Video)
myLine.MakeCall("06644178557")
'myLine.Capabilities.MediaModes.= MediaModes.Video
End Sub
Private Sub btnTapi_Click(sender As Object, e As EventArgs) Handles btnTapi.Click
frmTapi.Show()
End Sub
End Class
'Public Class Form1
' Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' ' Try
' MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
' Dim VendorID = Nothing '&H299D '&H0x299D
' 'Dim VendorID = 665
' Dim ProductID = Nothing '&H1 '0
' Dim GotVendorID = Nothing '-1
' Dim GotProductID = Nothing '-1
' Dim GotProductName As StringBuilder = Nothing
' Dim gotSerialNumber As StringBuilder = Nothing
' Dim HookPttInfo = -1
' PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
' MsgBox(HookPttInfo)
' 'PlathosysApiWrapper.Plathosys.Closedevice()
' Try
' PlathosysApiWrapper.Plathosys.Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName, gotSerialNumber)
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' MsgBox(GotVendorID)
' MsgBox(GotProductID)
' ' Catch ex As Exception
' ' MsgBox(ex.Message & ex.StackTrace)
' ' End Try
' End Sub
' '<DllImport("PlathosysApi.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
' 'Public Shared Function Opendevice(ByRef VendorID As Integer, ByRef ProductID As Integer, ByRef Optional GotVendorID As Integer = -1, ByRef Optional GotProductID As Integer = -1, ByRef Optional GotProductName As String = "") As IntPtr
' 'End Function
' 'Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' ' Dim VendorID = -1
' ' Dim ProductID = -1
' ' Dim GotVendorID = -1
' ' Dim GotProductID = -1
' ' Dim GotProductName = ""
' ' Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName)
' ' MsgBox(GotProductName)
' 'End Sub
' ''Public Shared Sub LoadNativeAssemblies(ByVal rootApplicationPath As String)
' '' Dim nativeBinaryPath = If(IntPtr.Size > 4, Path.Combine(rootApplicationPath, "SqlServerTypes\x64\"), Path.Combine(rootApplicationPath, "SqlServerTypes\x86\"))
' '' LoadNativeAssembly(nativeBinaryPath, "msvcr120.dll")
' '' LoadNativeAssembly(nativeBinaryPath, "SqlServerSpatial140.dll")
' ''End Sub
' ''Private Shared Sub LoadNativeAssembly(ByVal nativeBinaryPath As String, ByVal assemblyName As String)
' '' Dim path = System.IO.Path.Combine(nativeBinaryPath, assemblyName)
' '' Dim ptr = LoadLibrary(path)
' '' If ptr = IntPtr.Zero Then
' '' Throw New Exception(String.Format("Error loading {0} (ErrorCode: {1})", assemblyName, Marshal.GetLastWin32Error()))
' '' End If
' ''End Sub
' End Class

30
VERAG_TELEINFO/Form2.Designer.vb generated Normal file
View File

@@ -0,0 +1,30 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
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()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "Form2"
End Sub
End Class

3
VERAG_TELEINFO/Form2.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Form2
End Class

13
VERAG_TELEINFO/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

9
VERAG_TELEINFO/My Project/Application.myapp Normal file
View File

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

35
VERAG_TELEINFO/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_TELEINFO")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("VERAG_TELEINFO")>
<Assembly: AssemblyCopyright("Copyright © 2022")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("48bb5b51-b9b5-481e-a581-fdb1ebdd4946")>
' 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,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

BIN
VERAG_TELEINFO/My Project/PlathosysApi.dll Normal file
View File

Binary file not shown.

103
VERAG_TELEINFO/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,103 @@
'------------------------------------------------------------------------------
' <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", "17.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_TELEINFO.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 _45944336_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("45944336_s", 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 _call() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_call", 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 Logo_blue_globe_Horizontal_eG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Logo_blue_globe_Horizontal_eG", 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 PLATHOSYS() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PLATHOSYS", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

133
VERAG_TELEINFO/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,133 @@
<?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="45944336_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\BILDMATERIAL\45944336_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Logo_blue_globe_Horizontal_eG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\FRONTOFFICE\Logo\Logo_blue_globe_Horizontal_eG.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="PLATHOSYS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\PLATHOSYS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_call" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\call.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

73
VERAG_TELEINFO/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", "17.2.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_TELEINFO.My.MySettings
Get
Return Global.VERAG_TELEINFO.My.MySettings.Default
End Get
End Property
End Module
End Namespace

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

79
VERAG_TELEINFO/My Project/app.manifest Normal file
View File

@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<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>
<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, eine Aktivierung
ist nicht erforderlich. Für Windows Forms-Anwendungen für .NET Framework 4.6, die diese Einstellung aktivieren, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der Datei "app.config" auf TRUE festgelegt werden.
Hierdurch können für die Anwendung lange Pfade verwendet werden. Weitere Informationen finden Sie unter https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation.-->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</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>

BIN
VERAG_TELEINFO/My Project/mfc100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/My Project/msvcr100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/PlathosysApi.dll Normal file
View File

Binary file not shown.

67
VERAG_TELEINFO/PlathosysApi.h Normal file
View File

@@ -0,0 +1,67 @@
// PlathosysApi.h
#ifdef PLATHOSYSAPIDLL_EXPORTS
#define PLATHOSYSAPIDLL_API __declspec(dllexport)
#else
#define PLATHOSYSAPIDLL_API __declspec(dllimport)
#endif
namespace PlathosysApiFuncs
{
class PlathosysFn
{
public:
static PLATHOSYSAPIDLL_API unsigned int PlathosysFn::ApiVersionNumber(); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::Opendevice(unsigned int VendorID,unsigned int ProductID,unsigned int *GotVendorID,unsigned int *GotProductID, char *GotProductName, char *SerialNumber);
static PLATHOSYSAPIDLL_API int PlathosysFn::Closedevice();
static PLATHOSYSAPIDLL_API int PlathosysFn::IsDeviceOpen();
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHandsetVolume(unsigned int Volume); //Do not use in new software client. (Use SetHandsetVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetVolume(unsigned int Volume); //Do not use in new software client. (Use SetHeadsetdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerVolume(unsigned int Volume); //Do not use in new software client. (Use SetIntSpeakerdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerMute(bool State);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHandsetMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetHandsetdBMicVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetHeadsetdBMicVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMicVolume(unsigned int Volume); //Do not use in new software client. (Use SetExtMicdBVolume() )
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadCurrentInfo(unsigned char *Info1,unsigned char *Info2,unsigned char *Info3,unsigned char *Info4,unsigned char *Info5,unsigned char *Info6,
unsigned char *Info7,unsigned char *Info8,unsigned char *Info9,unsigned char *Info10); //Do not use in new software client. (Use ReadCurrentInfodB() )
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadHookAndPTT(unsigned int *HookPttInfo);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSideTone(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetMicMute(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSpeakerOutMute(int OnOff);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWideBand(int OnOff); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetEchoCanseller(int OnOff); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMic(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetConference(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetActive(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWirelessHeadsetRinging(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetWirelessCall(bool State); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetPttFunctions(unsigned int InVal); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetEar(int OnOffRelease); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtmicLed(bool State); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetByListening(bool State);
static PLATHOSYSAPIDLL_API int PlathosysFn::SetCodecType(int CodecType); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetSerialNumber(unsigned long Serno); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::InitHookAndPTTState();
static PLATHOSYSAPIDLL_API int PlathosysFn::MuteSpkCt140(bool State); //Only PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::MuteMicCt140(bool State); //Only PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetHeadsetMicdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetExtMicdBVolume(int dBVolume); //Only with PID 0x0001,0x0002 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntSpeakerdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntAlarmSpeakerdBVolume(int dBVolume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetIntAlarmSpeakerVolume(unsigned int Volume); //Not with PID 0x0003,0x0004 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::SetLyncFeature(unsigned int Feature ); //Only with PID 0x0005,0x0006 devices
static PLATHOSYSAPIDLL_API int PlathosysFn::ReadCurrentInfodB(unsigned char *Info1,unsigned char *Info2,unsigned char *Info3,unsigned char *Info4,unsigned char *Info5,unsigned char *Info6,
unsigned char *Info7,unsigned char *Info8,unsigned char *Info9,unsigned char *Info10,
char *Info11,char *Info12,char *Info13, char *Info14, char *Info15,unsigned char *Info16); //Not with PID 0x0003,0x0004 devices
};
}

BIN
VERAG_TELEINFO/PlathosysApi.lib Normal file
View File

Binary file not shown.

234
VERAG_TELEINFO/VERAG_TELEINFO.vbproj Normal file
View File

@@ -0,0 +1,234 @@
<?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>{5193A729-058C-4C93-B7D3-0A228CA719CC}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>VERAG_TELEINFO.frmTapi</StartupObject>
<RootNamespace>VERAG_TELEINFO</RootNamespace>
<AssemblyName>VERAG_TELEINFO</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>VERAG_TELEINFO.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_TELEINFO.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="ChilkatDotNet47">
<HintPath>..\..\..\dll\ChillKat64\ChilkatDotNet47.dll</HintPath>
</Reference>
<Reference Include="ClosedXML">
<HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk">
<HintPath>C:\Users\DEVELOPER1\.nuget\packages\esendex-dotnet-sdk\3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain">
<HintPath>..\..\..\dll\Dynamsoft\8.3.3\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET">
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="Interop.TAPI3Lib">
<HintPath>..\..\..\dll\Tapi3\Interop.TAPI3Lib.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
</Reference>
<Reference Include="itextsharp">
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="NetSpell.SpellChecker">
<HintPath>..\..\..\dll\NetSpell.SpellChecker.DLL</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\.nuget\packages\newtonsoft.json\10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf">
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Web" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="VBTAPI">
<HintPath>..\..\..\dll\Tapi3\VBTAPI.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
</Reference>
</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="Form1.vb">
<SubType>Form</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Compile>
<Compile Include="Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTapi.Designer.vb">
<DependentUpon>frmTapi.vb</DependentUpon>
</Compile>
<Compile Include="frmTapi.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>
<DesignTime>True</DesignTime>
</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="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="frmTapi.resx">
<DependentUpon>frmTapi.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>
<Content Include="PlathosysApiWrapper.pdb">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<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" />
<Content Include="PlathosysApi.lib">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<Content Include="mfc100.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="msvcr100.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="My Project\mfc100.dll" />
<Content Include="My Project\msvcr100.dll" />
<Content Include="My Project\PlathosysApi.dll" />
<Content Include="PlathosysApi.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="PlathosysApi.h">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\..\SCHNITTSTELLEN\PLATHOSYS\WRAPPER\PlathosysApiWrapper-master\PlathosysApiWrapper-master\PlathosysApiWrapper\PlathosysApiWrapper.csproj">
<Project>{a4a15e4a-9d83-4fd5-807b-63fc87ca4f0f}</Project>
<Name>PlathosysApiWrapper</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<PackageReference Include="ATAPI">
<Version>2018.3.9</Version>
</PackageReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

267
VERAG_TELEINFO/frmTapi.Designer.vb generated Normal file
View File

@@ -0,0 +1,267 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTapi
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.btn = New System.Windows.Forms.Button()
Me.lblStatusTAPI = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.picCallState = New System.Windows.Forms.PictureBox()
Me.lblCallState = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblClose = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblClock = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel = New System.Windows.Forms.Panel()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btn
'
Me.btn.Location = New System.Drawing.Point(273, 45)
Me.btn.Margin = New System.Windows.Forms.Padding(2)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(50, 15)
Me.btn.TabIndex = 0
Me.btn.UseVisualStyleBackColor = True
'
'lblStatusTAPI
'
Me.lblStatusTAPI.AutoSize = True
Me.lblStatusTAPI.Location = New System.Drawing.Point(18, 112)
Me.lblStatusTAPI.Name = "lblStatusTAPI"
Me.lblStatusTAPI.Size = New System.Drawing.Size(75, 13)
Me.lblStatusTAPI.TabIndex = 1
Me.lblStatusTAPI.Text = "asdasdasdasd"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(18, 125)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(75, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "asdasdasdasd"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(257, 89)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(167, 85)
Me.Button1.TabIndex = 3
Me.Button1.UseVisualStyleBackColor = True
'
'Timer
'
Me.Timer.Interval = 500
'
'pnl
'
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.lblStatusTAPI)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Location = New System.Drawing.Point(67, 44)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(444, 186)
Me.pnl.TabIndex = 4
Me.pnl.Visible = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.picCallState)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.lblCallState)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Panel)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1318, 893)
Me.Panel1.TabIndex = 5
'
'picCallState
'
Me.picCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.picCallState.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.PLATHOSYS
Me.picCallState.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picCallState.Location = New System.Drawing.Point(382, 378)
Me.picCallState.Name = "picCallState"
Me.picCallState.Size = New System.Drawing.Size(529, 268)
Me.picCallState.TabIndex = 10
Me.picCallState.TabStop = False
'
'lblCallState
'
Me.lblCallState.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblCallState.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCallState.Location = New System.Drawing.Point(161, 206)
Me.lblCallState.Name = "lblCallState"
Me.lblCallState.Size = New System.Drawing.Size(1016, 101)
Me.lblCallState.TabIndex = 9
Me.lblCallState.Text = "1. Halten Sie Ihr Kennzeichen (Auflieger) bereit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2. Bitte heben Sie den Höhrer " &
"ab, um den Anruf zu starten." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3. Sie werden automatisch mit einem Service-Mitarb" &
"eiter verbunden." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblCallState.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources._45944336_s
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(382, 746)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(529, 98)
Me.PictureBox1.TabIndex = 5
Me.PictureBox1.TabStop = False
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.lblClose)
Me.Panel2.Controls.Add(Me.lblClock)
Me.Panel2.Controls.Add(Me.lbl)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1318, 104)
Me.Panel2.TabIndex = 4
'
'lblClose
'
Me.lblClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblClose.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblClose.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblClose.Location = New System.Drawing.Point(1247, -1)
Me.lblClose.Name = "lblClose"
Me.lblClose.Size = New System.Drawing.Size(70, 31)
Me.lblClose.TabIndex = 9
Me.lblClose.Text = "X"
Me.lblClose.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_TELEINFO.My.Resources.Resources.Logo_blue_globe_Horizontal_eG
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(3, 110)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(332, 104)
Me.pic.TabIndex = 8
Me.pic.TabStop = False
'
'lblClock
'
Me.lblClock.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.ForeColor = System.Drawing.Color.White
Me.lblClock.Location = New System.Drawing.Point(14, 43)
Me.lblClock.Name = "lblClock"
Me.lblClock.Size = New System.Drawing.Size(1291, 31)
Me.lblClock.TabIndex = 4
Me.lblClock.Text = "INFO TERMINAL"
Me.lblClock.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.lbl.Location = New System.Drawing.Point(543, 8)
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:"
Me.lbl.Visible = False
'
'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, 863)
Me.Panel.Name = "Panel"
Me.Panel.Size = New System.Drawing.Size(1318, 30)
Me.Panel.TabIndex = 3
'
'frmTapi
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1318, 893)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "frmTapi"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmTapi"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.picCallState, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn As Button
Friend WithEvents lblStatusTAPI As Label
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Timer As Timer
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents pic As PictureBox
Friend WithEvents lblClock As Label
Friend WithEvents lbl As Label
Friend WithEvents Panel As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents picCallState As PictureBox
Friend WithEvents lblCallState As Label
Friend WithEvents lblClose As Label
End Class

123
VERAG_TELEINFO/frmTapi.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>

614
VERAG_TELEINFO/frmTapi.vb Normal file
View File

@@ -0,0 +1,614 @@
Imports System.ComponentModel
Imports System.Text
Imports TAPI3Lib
Public Class frmTapi
Private Const MediaAudio As Integer = 8
Private Const MediaModem As Integer = 16
Private Const MediaFax As Integer = 32
Private Const MediaVideo As Integer = 32768
Private WithEvents oTAPI As TAPI3Lib.TAPI ' will hold our TAPI object
' will hold our selected address (you can hold many addresses in an array)
Private oAddress As ITAddress
Private RegCookie As Integer
Sub New()
Try
InitializeComponent()
' creating a new instance to first initialize TAPI
' before attaching the events
Dim m_TAPI As New TAPI3Lib.TAPIClass
' a variable to hold supported media types for the address
Dim MediaTypes As Integer
' initializing TAPI
m_TAPI.Initialize()
' attaching event sink
oTAPI = m_TAPI
' getting rid of the private instance as we have another
' global instance (oTAPI)
m_TAPI = Nothing
Dim AddressCollection As ITCollection = oTAPI.Addresses()
' looping through address collection
For Each Address As ITAddress In AddressCollection
' checking if address is working
If Address.State = ADDRESS_STATE.AS_INSERVICE Then
' extracting media support interface from the address
Dim MediaSupport As ITMediaSupport = Address
' extracting media types supporting
MediaTypes = MediaSupport.MediaTypes
MediaSupport = Nothing ' dispose of the object
'If (MediaTypes And MediaModem) = MediaModem Then
If MediaModem = MediaModem Then
' the address is a data Modem
If MediaTypes = MediaAudio Then
' Select the address since it supports Audio
' and is a FAX/Modem
oAddress = Address ' select this address
' show the selected address name
SetLabStatus(lblStatusTAPI, "we have selected this address: " & oAddress.AddressName)
Exit For
End If
End If
End If
Next Address
If Not (oAddress Is Nothing) Then
' registering notifications for the selected address
RegCookie = oTAPI.RegisterCallNotifications(oAddress, True, False, MediaTypes, 1)
' Note: this registration can be done on
' as many addresses as you want
' we will not receive notifications unless we specify
' which type of events we are interested in
oTAPI.EventFilter = (TAPI_EVENT.TE_CALLNOTIFICATION Or
TAPI_EVENT.TE_CALLSTATE Or TAPI_EVENT.TE_CALLINFOCHANGE)
Else
MsgBox("no address selected")
End If
Catch ex As Exception
MsgBox("Error occurred:" & vbCrLf & ex.Message,
MsgBoxStyle.Critical, "VBCITY.VBTAPI")
End Try
' by now we are done for the initialization and registration
' and the events should fire
' Note: you must dispose of TAPI before you destroy the class
' and I will leave this for now
End Sub
Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT,
ByVal pEvent As Object) Handles oTAPI.Event
' making a thread asynchronously process the event
Dim thAsyncCall As System.Threading.Thread
Select Case TapiEvent
Case TAPI_EVENT.TE_CALLNOTIFICATION 'Call Notification Arrived
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallNotificationEvent)
' passing the variable for the thread
CallNotificationObject = CType(pEvent, ITCallNotificationEvent)
' starting the thread
thAsyncCall.Start()
Case TAPI_EVENT.TE_CALLSTATE 'Call State Changes
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallStateEvent)
' passing the variable for the thread
CallStateObject = CType(pEvent, ITCallStateEvent)
' starting the thread
thAsyncCall.Start()
Case TAPI_EVENT.TE_CALLINFOCHANGE 'Call Info Changes
' assigning our sub's delegate to the thread
thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent)
' passing the variable for the thread
CallInfoObject = CType(pEvent, ITCallInfoChangeEvent)
' starting the thread
thAsyncCall.Start()
End Select
End Sub
Private CallNotificationObject As ITCallNotificationEvent
Private Sub CallNotificationEvent()
' here we should check to see various notifications of new and ended calls
Select Case CallNotificationObject.Event
Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
' the notification is for a monitored call
Case CALL_NOTIFICATION_EVENT.CNE_OWNER
' the notification is for an owned call
End Select
End Sub
Private CallStateObject As ITCallStateEvent
Private Sub CallStateEvent()
' here we should check to see call state and handle connects and disconnects
Select Case CallStateObject.State
Case CALL_STATE.CS_IDLE
SetLabStatus(lblStatusTAPI, "CS_IDLE")
Case CALL_STATE.CS_INPROGRESS
SetLabStatus(lblStatusTAPI, "CS_IDLE")
Case CALL_STATE.CS_OFFERING
' a call is offering so if you don't want it then pass it
' The code to pass the call is the following
' Dim CallControl As ITBasicCallControl = CallStateObject.Call
' CallControl.HandoffIndirect(CallStateObject.Call.CallInfoLong(CALLINFO_LONG.CIL_MEDIATYPESAVAILABLE))
'Dim c = CallStateObject.Call.get_CallInfoString(TAPI3Lib.CALLINFO_STRING.CIS_CALLERIDNUMBER)
Dim target = CallStateObject.Call.Address.DialableAddress
'SetLabStatus(lblStatusTAPI, CallStateObject.)
SetLabStatus(Label1, target)
Dim oCallInfo As ITCallInfo2 = CallStateObject.Call
'SetLabStatus(lblStatusTAPI, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
SetLabStatus(Label1, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER))
' SetLabStatus(lblStatusTAPI, CallStateObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER)) ' oCallInfo.get_CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
' SetLabStatus(lblStatusTAPI, oCallInfo.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))' oCallInfo.get_CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME))
Case CALL_STATE.CS_CONNECTED
' call is connected
SetLabStatus(lblStatusTAPI, " call is connected ")
SetLabStatus(lblCallState, "Anruf läuft, bitte nennen Sie Ihr Anliegen.")
' CallStateObject.Call.
'CallStateObject.Call.CallInfoString()
Case CALL_STATE.CS_QUEUED
' call is being queued
SetLabStatus(lblStatusTAPI, " call is being queued ")
Case CALL_STATE.CS_HOLD
' call is on hold
SetLabStatus(lblStatusTAPI, "call is on hold ")
Case CALL_STATE.CS_DISCONNECTED
' call is disconnected
SetLabStatus(lblStatusTAPI, "call is disconnected ")
'SetLabStatus(lblCallState, "Anruf beendet.")
End Select
End Sub
'threadsicherer Aufruf
Delegate Sub SetLabStatusCallback(lbl As Label, txt As String)
Private Sub SetLabStatus(lbl As Label, txt As String)
If Me.InvokeRequired Then
Dim d As New SetLabStatusCallback(AddressOf SetLabStatus)
Try
Me.Invoke(d, New Object() {lbl, txt})
Catch ex As Exception : End Try
Else
lbl.Text = txt
End If
End Sub
Private CallInfoObject As ITCallInfoChangeEvent
Private Sub CallInfoEvent()
' here you can extract information from the call
' the code to extract the caller ID
' >>> put the following code in a try block and
' swallow the exception if it gives errors
Try
Dim CallerID As String
CallerID = CallInfoObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNAME)
Catch ex As Exception
End Try
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim PhoneNumber As String = "00436644178557"
' Dim PhoneNumber As String = "147"
makePhoneCall(PhoneNumber)
'makeVideoCall(PhoneNumber)
End Sub
Dim CURRENTCALL As TAPI3Lib.ITBasicCallControl
Sub makePhoneCall(PhoneNumber As String)
Try
' Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_AUDIO, lCallbackInstance As Long = 1
Dim TestCall As TAPI3Lib.ITBasicCallControl
Dim lAddressType As Long = TAPI3Lib.TapiConstants.LINEADDRESSTYPE_PHONENUMBER
TestCall = oAddress.CreateCall(PhoneNumber, lAddressType, TapiConstants.TAPIMEDIATYPE_AUDIO)
TestCall.Connect(False)
CURRENTCALL = TestCall
'Dim pITMediaSupport = .QueryDispatchInterface(IID_String_ITMediaSupport, pITAddress)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub makeVideoCall(PhoneNumber As String)
Try
' Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim lMediaTypes As Long = TAPI3Lib.TapiConstants.TAPIMEDIATYPE_VIDEO, lCallbackInstance As Long = 1
Dim TestCall As TAPI3Lib.ITBasicCallControl
Dim lAddressType As Long = TAPI3Lib.TapiConstants.LINEADDRESSTYPE_PHONENUMBER
TestCall = oAddress.CreateCall(PhoneNumber, lAddressType, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
TestCall.Connect(False)
'Dim pITMediaSupport = .QueryDispatchInterface(IID_String_ITMediaSupport, pITAddress)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub makeVideoCall2(PhoneNumber As String)
SetLabStatus(lblStatusTAPI, "Dialing to " & PhoneNumber & " ...")
Dim call_control As TAPI3Lib.ITBasicCallControl
call_control = oAddress.CreateCall(PhoneNumber, TapiConstants.LINEADDRESSTYPE_IPADDRESS, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
' call_control = call_address.CreateCall(addr, TapiConstants.LINEADDRESSTYPE_IPADDRESS, TapiConstants.TAPIMEDIATYPE_AUDIO Or TapiConstants.TAPIMEDIATYPE_VIDEO)
' button1.Enabled = False
Dim enum_stream As IEnumStream
'Dim pstream_control As ITStreamControl
'pstream_control = CType(call_control, ITStreamControl)
' pstream_control.EnumerateStreams(enum_stream)
Dim p_stream As ITStream
Dim a11 As UInteger = 0
call_control.EnumerateStreams(enum_stream)
enum_stream.[Next](1, p_stream, a11)
Dim imedia As Integer
imedia = p_stream.MediaType
Dim dir As TERMINAL_DIRECTION
dir = p_stream.Direction
Dim termi, termi1 As ITTerminal
Dim term_support As ITTerminalSupport = CType(oAddress, ITTerminalSupport)
termi = term_support.GetDefaultStaticTerminal(imedia, dir)
p_stream.SelectTerminal(termi)
enum_stream.[Next](1, p_stream, a11)
termi1 = term_support.GetDefaultStaticTerminal(imedia, TERMINAL_DIRECTION.TD_CAPTURE)
p_stream.SelectTerminal(termi1)
call_control.EnumerateStreams(enum_stream)
call_control.Connect(False)
End Sub
Private Sub btn3_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Try
'MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
openConnectionPLATHOSYS()
'Dim HookPttInfo = -1
'PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
'MsgBox(HookPttInfo)
'PlathosysApiWrapper.Plathosys.Closedevice()
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
End Sub
Function openConnectionPLATHOSYS() As Boolean
Try
Dim isDeviceOpen As Boolean = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If Not isDeviceOpen Then
Dim apiVersionNumber As Integer = PlathosysApiWrapper.Plathosys.ApiVersionNumber()
Console.WriteLine("ApiVersionNumber: {0}", Convert.ToString(apiVersionNumber, 2))
Dim successful As Boolean
Dim vendorID As Integer = 0
Dim productID As Integer = 0
Dim selectedVendorID As Integer
Dim selectedProductID As Integer
Dim deviceName As StringBuilder = New StringBuilder(200)
Dim serialNumber As StringBuilder = New StringBuilder(200)
successful = PlathosysApiWrapper.Plathosys.Opendevice(vendorID, productID, selectedVendorID, selectedProductID, deviceName, serialNumber)
Console.WriteLine($"Open successful? {successful}")
Console.WriteLine("Selected Vendor ID: {0:X}", selectedVendorID)
Console.WriteLine("Selected Product ID: {0:X}", selectedProductID)
Console.WriteLine($"Device name: {deviceName}")
Console.WriteLine($"Serial number: {serialNumber}")
If successful Then
successful = PlathosysApiWrapper.Plathosys.SetHandsetVolume(200)
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(0)
successful = PlathosysApiWrapper.Plathosys.SetHandsetMicVolume(128)
successful = PlathosysApiWrapper.Plathosys.SetMicMute(False)
'successful = PlathosysApiWrapper.Plathosys.SetSpeakerOutMute(False) 'alle
'successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(True)
'' Console.WriteLine($"SetHeadsetActive successful? {successful}")
''PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(False)
''PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(255)
''PlathosysApiWrapper.Plathosys.SetHandsetVolume(128)
'successful = PlathosysApiWrapper.Plathosys.SetConference(False)
'Console.WriteLine($"SetConference successful? {successful}")
' PlathosysApiWrapper.Plathosys.SetConference(False) 'Lautsprecher deaktivieren
'PlathosysApiWrapper.Plathosys.SetHeadsetEar(True) 'Hörer aktivieren
' PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(0) 'Hörer Lautstäreke = 0
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Timer.Enabled = True
Return True
End If
End If
End If
' Public Shared Function Opendevice(ByVal vendorID As Integer, ByVal productID As Integer, <Out> ByRef gotVendorID As Integer, <Out> ByRef gotProductID As Integer, ByVal gotProductName As StringBuilder, ByVal gotSerialNumber As StringBuilder) As Boolean
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Sub allFunc()
' Try
MsgBox(PlathosysApiWrapper.Plathosys.ApiVersionNumber())
'Dim HookPttInfo = -1
'PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
'MsgBox(HookPttInfo)
'PlathosysApiWrapper.Plathosys.Closedevice()
Try
Dim apiVersionNumber As Integer = PlathosysApiWrapper.Plathosys.ApiVersionNumber()
Console.WriteLine("ApiVersionNumber: {0}", Convert.ToString(apiVersionNumber, 2))
Dim successful As Boolean
Dim vendorID As Integer = 0
Dim productID As Integer = 0
Dim selectedVendorID As Integer
Dim selectedProductID As Integer
Dim deviceName As StringBuilder = New StringBuilder(200)
Dim serialNumber As StringBuilder = New StringBuilder(200)
successful = PlathosysApiWrapper.Plathosys.Opendevice(vendorID, productID, selectedVendorID, selectedProductID, deviceName, serialNumber)
Console.WriteLine($"Open successful? {successful}")
Console.WriteLine("Selected Vendor ID: {0:X}", selectedVendorID)
Console.WriteLine("Selected Product ID: {0:X}", selectedProductID)
Console.WriteLine($"Device name: {deviceName}")
Console.WriteLine($"Serial number: {serialNumber}")
Dim isDeviceOpen As Boolean = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen? {isDeviceOpen}")
successful = PlathosysApiWrapper.Plathosys.SetHandsetVolume(128)
Console.WriteLine($"SetHandsetVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetVolume(128)
Console.WriteLine($"SetHeadsetVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerVolume(128)
Console.WriteLine($"SetIntSpeakerVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerMute(True)
Console.WriteLine($"SetIntSpeakerMute successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHandsetMicVolume(128)
Console.WriteLine($"SetHandsetMicVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMicVolume(128)
Console.WriteLine($"SetExtMicVolume successful? {successful}")
Dim info1, info2, info3, info4, info5, info6, info7, info8, info9, info10 As Byte
successful = PlathosysApiWrapper.Plathosys.ReadCurrentInfo(info1, info2, info3, info4, info5, info6, info7, info8, info9, info10)
Console.WriteLine($"ReadCurrentInfo successful? {successful}")
Console.WriteLine($"Connected / PTT Info: {Convert.ToString(info1, 2).PadLeft(8, "0"c)}")
successful = PlathosysApiWrapper.Plathosys.SetSideTone(True)
Console.WriteLine($"SetSideTone successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetMicMute(True)
Console.WriteLine($"SetMicMute successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWideBand(True)
Console.WriteLine($"SetWideBand successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetEchoCanceller(True)
Console.WriteLine($"SetEchoCanceller successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMic(True)
Console.WriteLine($"SetExtMic successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetConference(True)
Console.WriteLine($"SetConference successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetActive(True)
Console.WriteLine($"SetHeadsetActive successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWirelessHeadsetRinging(True)
Console.WriteLine($"SetWirelessHeadsetRinging successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetWirelessCall(True)
Console.WriteLine($"SetWirelessCall successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetPttFunctions(9)
Console.WriteLine($"SetPttPlathosys successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetEar(1)
Console.WriteLine($"SetHeadsetEar successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtmicLed(True)
Console.WriteLine($"SetExtmicLed successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetByListening(True)
Console.WriteLine($"SetByListening successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetCodecType(1)
Console.WriteLine($"SetCodecType successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetSerialNumber(12345678)
Console.WriteLine($"SetSerialNumber successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.InitHookAndPTTState()
Console.WriteLine($"InitHookAndPTTState successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.MuteSpkCt140(True)
Console.WriteLine($"MuteSpkCt140 successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.MuteMicCt140(True)
Console.WriteLine($"MuteMicCt140 successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetdBVolume(-6)
Console.WriteLine($"SetHeadsetdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetHeadsetMicdBVolume(6)
Console.WriteLine($"SetHeadsetMicdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetExtMicdBVolume(3)
Console.WriteLine($"SetExtMicdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntSpeakerdBVolume(3)
Console.WriteLine($"SetIntSpeakerdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntAlarmSpeakerdBVolume(3)
Console.WriteLine($"SetIntAlarmSpeakerdBVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetIntAlarmSpeakerVolume(3)
Console.WriteLine($"SetIntAlarmSpeakerVolume successful? {successful}")
successful = PlathosysApiWrapper.Plathosys.SetLyncFeature(True)
Console.WriteLine($"SetLyncFeature successful? {successful}")
Dim info11, info12, info13, info14, info15, info16 As Byte
successful = PlathosysApiWrapper.Plathosys.ReadCurrentInfodB(info1, info2, info3, info4, info5, info6, info7, info8, info9, info10, info11, info12, info13, info14, info15, info16)
Console.WriteLine($"ReadCurrentInfodB successful? {successful}")
Console.WriteLine($"Connected Info: {Convert.ToString(info1, 2).PadLeft(8, "0"c)}")
Console.WriteLine($"Standard headset connected? {(info1 And 2) <> 0}")
Console.WriteLine($"Info3: {info3}")
Dim hardwareVersion As String = Convert.ToString(info3, 2).PadLeft(8, "0"c)
Dim first As Integer = Convert.ToInt32(hardwareVersion.Substring(0, 4), 2)
Dim second As Integer = Convert.ToInt32(hardwareVersion.Substring(4, 4), 2)
Console.WriteLine($"Hardware version: {first}.{second}")
Console.WriteLine($"Info4: {info4}")
Dim softwareVersion As String = Convert.ToString(info4, 2).PadLeft(8, "0"c)
first = Convert.ToInt32(hardwareVersion.Substring(0, 4), 2)
second = Convert.ToInt32(hardwareVersion.Substring(4, 4), 2)
Console.WriteLine($"Software version: {first}.{second}")
Console.WriteLine($"Serial number high: {info7}")
Console.WriteLine($"Serial number: {info8}")
Console.WriteLine($"Serial number: {info9}")
Console.WriteLine($"Serial number low: {info10}")
Console.WriteLine($"Speaker volume on bylisten: {info14}")
Dim hookAndPttInfo As Integer
successful = PlathosysApiWrapper.Plathosys.ReadHookAndPTT(hookAndPttInfo)
Console.WriteLine($"ReadHooAndPttInfo successful? {successful}")
Console.WriteLine($"HookAndPttInfo: {Convert.ToString(hookAndPttInfo, 2).PadLeft(4, "0"c)}")
Console.WriteLine($"HookOff? {(hookAndPttInfo And 1) <> 0}")
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen: {isDeviceOpen}")
successful = PlathosysApiWrapper.Plathosys.Closedevice()
Console.WriteLine($"DeviceClosed successful? {successful}")
isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
Console.WriteLine($"IsDeviceOpen: {isDeviceOpen}")
''Public Static extern bool Opendevice(
''Int VendorID,
''Int productID,
''out Int gotVendorID,
''out Int gotProductID,
''StringBuilder GotProductName,
''StringBuilder gotSerialNumber);
'Dim VendorID As Integer '= &H299D '&H299D '
''Dim VendorID = 665
'Dim ProductID As Integer '= &H1 '0
'Dim GotVendorID As Integer
'Dim GotProductID As Integer
'Dim GotProductName As String = ""
'Dim gotSerialNumber As String = ""
'MsgBox(PlathosysApiWrapper.Plathosys.IsDeviceOpen())
'If PlathosysApiWrapper.Plathosys.Opendevice(VendorID, ProductID, GotVendorID, GotProductID, GotProductName, gotSerialNumber) Then
' MsgBox(GotVendorID)
' MsgBox(GotProductID)
'Else
' MsgBox("No")
'End If
' Public Shared Function Opendevice(ByVal vendorID As Integer, ByVal productID As Integer, <Out> ByRef gotVendorID As Integer, <Out> ByRef gotProductID As Integer, ByVal gotProductName As StringBuilder, ByVal gotSerialNumber As StringBuilder) As Boolean
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
End Sub
Private Sub frmTapi_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try
Dim isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Dim successful = PlathosysApiWrapper.Plathosys.Closedevice()
Console.WriteLine($"DeviceClosed successful? {successful}")
End If
Catch ex As Exception
End Try
End Sub
Dim STATE = "NOT PICKUP"
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Dim isDeviceOpen = PlathosysApiWrapper.Plathosys.IsDeviceOpen()
If isDeviceOpen Then
Dim HookPttInfo = -1
Dim ReadHook = PlathosysApiWrapper.Plathosys.ReadHookAndPTT(HookPttInfo)
Console.WriteLine($"ReadHook? {ReadHook}")
Console.WriteLine($"HookPttInfo? {HookPttInfo}")
'Dim HookAndPTTState = PlathosysApiWrapper.Plathosys.InitHookAndPTTState()
'Console.WriteLine($"HookAndPTTState? {HookAndPTTState}")
Select Case HookPttInfo
Case "17" 'PICKUP
If STATE <> "PICKUP" Then
STATE = "PICKUP"
' --> ANRUF STARTEN
picCallState.BackgroundImage = My.Resources._call
'picCallState.BackgroundImage = Nothing
'picCallState.Image = My.Resources._call
lblCallState.Text = "Anruf wird gestartet..."
Dim PhoneNumber As String = "00436644178557"
' Dim PhoneNumber As String = "147"
makePhoneCall(PhoneNumber)
' MsgBox("PICKUP!!!")
End If
Case Else
If STATE = "PICKUP" Then
STATE = "NOT PICKUP"
' --> ANRUF BEENDEN
picCallState.BackgroundImage = My.Resources.PLATHOSYS
'picCallState.BackgroundImage = My.Resources.PLATHOSYS
'picCallState.Image = Nothing
lblCallState.Text = "Bitte heben Sie den Höhrer ab, um den Anruf zu starten."
CURRENTCALL.Disconnect(DISCONNECT_CODE.DC_NORMAL)
' MsgBox("PICKUP DOWN!!!")
End If
End Select
Else
'NEU VERBINDEN
openConnectionPLATHOSYS()
End If
End Sub
Private Sub frmTapi_Load(sender As Object, e As EventArgs) Handles Me.Load
'allFunc()
Timer.Enabled = True
End Sub
Private Sub lblClose_Click(sender As Object, e As EventArgs) Handles lblClose.Click
Me.Close()
End Sub
Private Sub lblClose_MouseHover(sender As Object, e As EventArgs) Handles lblClose.MouseHover
lblClose.BackColor = Color.Red
lblClose.ForeColor = Color.White
End Sub
Private Sub lblClose_MouseLeave(sender As Object, e As EventArgs) Handles lblClose.MouseLeave
lblClose.BackColor = Panel2.BackColor
lblClose.ForeColor = Panel2.BackColor
End Sub
End Class

BIN
VERAG_TELEINFO/mfc100.dll Normal file
View File

Binary file not shown.

BIN
VERAG_TELEINFO/msvcr100.dll Normal file
View File

Binary file not shown.