User's Manual

Real-world examples 283
’ Inform user
lab_msg = Message submitted to eKERNEL.
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim lcl_o As String
’ Submit <pgmsts> shutdown request to ekernel if connected
On Error Resume Next: Err = 0
If ip_ekernel.State = 7 Then
lcl_o = <xml><pgmsts><value>Shutdown</value></pgmsts></xml>
ip_ekernel.SendData lcl_o + Chr$(13) + Chr$(10)
If Err Then
lab_msg = Error & Err & - & Err.Description
log E, ERR, TCP senddata error & Err & - & Err.Description & - & l
cl_o & could not be sent to eKERNEL
Else
lst_ekernel_outq.RemoveItem 0
log O, TCP, lcl_o
End If
On Error GoTo 0
End If
DoEvents
’ log
log S, INF, Application ended
’ end
End
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
Nortel Communication Server 1000
DECT Messenger Installation and Commissioning — Book 1
NN43120-301 02.01 4 June 2010
Copyright © 2003-2010 Nortel Networks. All Rights Reserved.
.