User's Manual

End Sub
Private Sub lst_log_DblClick()
' show details
On Error Resume Next: Err = 0
txt_log.Text = lst_log.List(lst_log.ListIndex)
On Error GoTo 0
show_pages
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'F3=Exit
If KeyCode = 114 Then
Unload Me
'End
End If
End Sub
Private Sub Form_Load()
Dim lcl_rc As String
Dim lcl_o
Dim lcl_version
Dim Lcl_Msg As String
Dim lcl_h As Integer
' Set application title
Me.Caption = eAPI - SOPHO Messenger@Net - v & App.Major & . & App.Minor & . & App.R
evision
' Startup values required to enable logging
g_log_path = D:\SOPHO Messenger@Net
g_log_days = 14
lab_log_path = & g_log_path
lab_log_days = & g_log_days
' Default command line parameters
eAPI_form - 3
' /Site:1 /eKernel address:*LOCAL /eKernel port:3209 /Log drive:C
g_command = Command$
If g_command = Then
Lcl_Msg = Warning: eAPI is started without command line parameters. + Chr$(10) + Ch
r$(10)
Lcl_Msg = Lcl_Msg + Check the command string in the target value in the properties o
f the shortcut. + Chr$(10) + Chr$(10)
Lcl_Msg = Lcl_Msg + Please confirm to start this session with the following replacem
ent values: + Chr(10) + Chr$(10)
g_command = /Site:2 /eKernel address:*LOCAL /eKernel port:3209 /Log drive:C
lcl_rc = InputBox(Lcl_Msg, Me.Caption, g_command)
If lcl_rc = Then
End
Else
g_command = lcl_rc
End If
End If
'Initialise screen labels
lab_ekernel_remote_address = N/A
lab_ekernel_remote_port = N/A
lab_ekernel_local_address = N/A
lab_ekernel_local_port = N/A
' Get command line parameter
g_site = parse_cmd_line(Site)
g_ekernel_remote_address = parse_cmd_line(eKernel address)
g_ekernel_remote_port = parse_cmd_line(eKernel port)
g_log_drive = parse_cmd_line(Log drive)
' Handle special values
If g_ekernel_remote_address = *LOCAL Then g_ekernel_remote_address =
ip_ekernel.LocalIP
' Start
log S, INF, Application & Me.Caption & started with parameters & g_command
DECT Messenger Installation and Commissioning — Book 1 March 2012 73