neu

UID/usrctlProcedures.vb

@@ -15,10 +15,193 @@ Imports System.Text
 Imports System.Xml.Serialization
 Imports System.Xml
 Imports System.Data.OleDb
-
 'Imports Microsoft.Office.Interop
 
 Public Class usrctlProcedures
+
+
+
+
+    'Private hwAddress As TAddress = Nothing
+    'Private mediaTypes As Integer
+
+    'Private WithEvents tapiCls As TTapi
+    'Private Const mediaAudio = JulMar.Tapi3.TAPIMEDIATYPES.AUDIO
+    'Private Const mediaData = JulMar.Tapi3.TAPIMEDIATYPES.DATAMODEM
+    'Private Const mediaVideo = JulMar.Tapi3.TAPIMEDIATYPES.VIDEO
+    'Private Const mediaFax = JulMar.Tapi3.TAPIMEDIATYPES.G3FAX
+    'Private Const mediaMultitrack = JulMar.Tapi3.TAPIMEDIATYPES.MULTITRACK
+
+    'Private offeringCall As Boolean = False
+    'Private connectedCall As Boolean = False
+    'Private inProgressCall As Boolean = False
+
+    'Private incomingCall As TCall
+
+    'Public Sub New()
+
+    '    tapiCls = New TTapi
+    '    tapiCls.Initialize()
+
+    '    'Discover all hardware addresses
+    '    'Make "And" function to discover different media devices
+
+    '    For Each address In tapiCls.Addresses
+    '        If address.State = ADDRESS_STATE.AS_INSERVICE Then
+    '            mediaTypes = address.MediaTypes
+
+    '            'We discover and select the audio device usually to be a modem
+    '            If (mediaTypes And mediaAudio) = mediaAudio Then
+
+    '                hwAddress = address
+    '                hwAddress.Open(mediaAudio)
+    '                'This will show the name of the audio devices discovered
+    '                'MsgBox(hwAddress.AddressName.ToString)
+
+    '            End If
+
+    '        End If
+    '    Next
+
+    '    'If an hardware has not been found
+    '    If hwAddress Is Nothing Then
+
+    '        'Hardware address not found
+
+    '    End If
+
+    'End Sub
+
+    'Public Sub openLine()
+    '    'Put modem wake up to listem to the line
+    '    Try
+    '        If hwAddress.State = ADDRESS_STATE.AS_INSERVICE Then
+    '            hwAddress.Open(mediaAudio)
+    '        End If
+
+    '    Catch ex As Exception
+    '        'Manage the exception
+    '    End Try
+
+    'End Sub
+
+    'Public Sub closeLine()
+    '    'Put modem shut down
+    '    Try
+    '        If hwAddress.State = ADDRESS_STATE.AS_INSERVICE Then
+    '            hwAddress.Close()
+    '        End If
+
+    '    Catch ex As Exception
+
+    '        'Manage the exception
+    '    End Try
+
+    'End Sub
+
+    'Public Sub answerCall()
+    '    If offeringCall = True Then
+    '        incomingCall.Answer()
+    '    End If
+    'End Sub
+
+    'Public Sub hungup()
+    '    If connectedCall = True Then
+    '        incomingCall.Disconnect(DISCONNECT_CODE.DC_REJECTED)
+    '    End If
+    'End Sub
+
+    'Private Sub tapiCallNotification_Event(ByVal sender As Object,
+    '  ByVal e As TapiCallNotificationEventArgs) Handles tapiCls.TE_CALLNOTIFICATION
+    '    'MsgBox("Call notification")
+
+    '    Select Case e.Event
+    '        Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
+    '            'Choose you action
+    '        Case CALL_NOTIFICATION_EVENT.CNE_OWNER
+    '            'Choose you action
+    '    End Select
+    'End Sub
+
+    'Private Sub tapiInfoChange_Event(ByVal sender As Object,
+    '  ByVal e As TapiCallInfoChangeEventArgs) Handles tapiCls.TE_CALLINFOCHANGE
+    '    Dim callerNumber As String = ""
+
+    '    Try
+
+    '        callerNumber = e.Call.CallInfo(CALLINFO_STRING.CIS_CALLERIDNUMBER).ToString
+
+    '        If callerNumber.Length = 0 Then
+    '            'Hidden number
+
+    '        Else
+    '            'Clear number
+
+    '        End If
+
+    '    Catch ex As Exception
+
+    '        'Manage the exception
+
+    '    End Try
+
+
+    'End Sub
+
+    'Private Sub tapiGeneral_Event(ByVal sender As Object,
+    '  ByVal e As TapiCallStateEventArgs) Handles tapiCls.TE_CALLSTATE
+
+    '    ' MsgBox(e.State.ToString)
+
+    '    Select Case e.State
+
+    '        Case CALL_STATE.CS_UNKNOWN
+
+    '        Case CALL_STATE.CS_OFFERING
+    '            'When a call is coming in during the ring tone
+    '            offeringCall = True
+
+    '        Case CALL_STATE.CS_CONNECTED
+    '            'When a call is answered
+    '            connectedCall = True
+    '            offeringCall = False
+
+    '        Case CALL_STATE.CS_HOLD
+    '        Case CALL_STATE.CS_IDLE
+    '        Case CALL_STATE.CS_INPROGRESS
+    '        Case CALL_STATE.CS_QUEUED
+    '        Case CALL_STATE.CS_DISCONNECTED
+    '            'When a call is in conversation or closed
+    '            connectedCall = False
+    '    End Select
+
+    'End Sub
+
+    'Private Sub tapiGenerate_Event(ByVal sender As Object,
+    '   ByVal e As TapiDigitGenerationEventArgs) Handles tapiCls.TE_GENERATEEVENT
+    '    ' MsgBox("GENERATE")
+    'End Sub
+
+    'Private Sub tapiSpecific_Event(ByVal sender As Object,
+    '  ByVal e As TapiAddressDeviceSpecificEventArgs) Handles tapiCls.TE_ADDRESSDEVSPECIFIC
+    '    ' MsgBox("SPECIFIC EVENTS")
+    'End Sub
+
+    'Private Sub tapiObject_Event(ByVal sender As Object,
+    '  ByVal e As TapiObjectEventArgs) Handles tapiCls.TE_TAPIOBJECT
+    '    'MsgBox("tapi object")
+    'End Sub
+
+    'Private Sub tapiPhone_Event(ByVal sender As Object,
+    '  ByVal e As TapiPhoneEventArgs) Handles tapiCls.TE_PHONEEVENT
+    '    'MsgBox("Phone events")
+    'End Sub
+    'Private Sub tapiDigit_Event(ByVal sender As Object,
+    '  ByVal e As TapiDigitDetectionEventArgs) Handles tapiCls.TE_DIGITEVENT
+    '    'MsgBox("Digit detection events")
+    'End Sub
+
+
     'Inherits UserControl
     'Public Sub New()
     '    InitializeComponent()
@@ -3259,6 +3442,7 @@ Public Class usrctlProcedures
         VERAG_PROG_ALLGEMEIN.cGoogleAPI.test()
     End Sub
 
+
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
     '        Dim fi As New FileInfo(d)