InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IBMHostCreditCardRecognizedHandler Event
Sender of event.
The card number (in redacted format) that was recognized.
The Windows user name of the current user.
The machine name (as set up in the system control panel).
The domain that the user is logged onto, or an empty string if not logged onto a Windows domain.
The date and time that the event occurred.
The type of access that the credit card number was encountered in (eg. LiveScreen, OfficeTools, ScreenHistory, etc).
Reserved for future use. This currently always returns a success return code.
In This Topic
    IBMHostCreditCardRecognizedHandler Event
    In This Topic
    Unredacted PAN is displayed or accessed.
    Syntax
    Public Delegate Sub IBMHostCreditCardRecognizedHandler( _
       ByVal sender As Object, _
       ByVal accountNumber As String, _
       ByVal user As String, _
       ByVal machineName As String, _
       ByVal userDomainName As String, _
       ByVal dateTime As String, _
       ByVal eventType As String, _
       ByVal success As Long _
    ) 

    Parameters

    sender
    Sender of event.
    accountNumber
    The card number (in redacted format) that was recognized.
    user
    The Windows user name of the current user.
    machineName
    The machine name (as set up in the system control panel).
    userDomainName
    The domain that the user is logged onto, or an empty string if not logged onto a Windows domain.
    dateTime
    The date and time that the event occurred.
    eventType
    The type of access that the credit card number was encountered in (eg. LiveScreen, OfficeTools, ScreenHistory, etc).
    success
    Reserved for future use. This currently always returns a success return code.
    Remarks

    This event occurs only when a PAN is displayed or copied in its entirety ("in the clear"). It is not fired when only redacted PANs are displayed or copied.

    Example

    Rem This sample sends information about credit card access to a log file.

    Rem For Open Systems, use Terminal_CreditCardRecognized instead of IbmTerminal_CreditCardRecognized

    Private Sub IbmTerminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long)


    Dim log As String

    Dim path As String

    Dim fnum As Integer

    log = "Account number: " + AccountNumber + " User: " + User + " Machine name: " + MachineName + "," +
    "Time: " + DateTime


    path = "C:\Users\Public\Documents\Micro Focus\InfoConnect\" & "log.txt"

    fnum = FreeFile()

    Open path For Append As fnum

    Print #fnum, log

    Close #fnum

    End Sub

    See Also