User's Manual

Real-world examples 289
ip_ekernel.SendData lcl_o + Chr$(13) + Chr$(10)
If Err Then
lab_msg = Error & Err & - & Err.Description
log E, ERR, Error & Err & - & Err.Description & during SendData & lcl_
o & to eKERNEL
Exit Do
Else
lst_ekernel_outq.RemoveItem 0
log O, TCP, lcl_o
End If
Loop
On Error GoTo 0
’
-------------------------------------------------------------------------
----
’ Close socket after send
’
-------------------------------------------------------------------------
----
DoEvents
ip_ekernel.Close
’ Set socket state indicator to defaults
lab_ekernel_state.BackColor = RGB(0, 0, 0)
’ Update screen
g_ekernel_local_address = ip_ekernel.LocalIP
lab_ekernel_local_address = & g_ekernel_local_address
g_ekernel_local_port = ip_ekernel.LocalPort
lab_ekernel_local_port = & g_ekernel_local_port
’------------------------------------------------------------------------
----
End Sub
Private Sub process_ekernel_jobq(cmd As String)
Dim lcl_rc As Integer
’ <xxxxxx>
If Left$(cmd + Space$(13), 13) = <xml><xxxxxx> Then
’ TODO - you could add code here
End If
’ <yyyyyy>
If Left$(cmd + Space$(13), 13) = <xml><yyyyyy> Then
’ TODO : you could add code here
End If
End Sub
Sub show_pages()
lab_log = Format$(lst_log.ListIndex + 1, 00) & / & Format$(lst_log.ListCount,
00)
End Sub
Private Sub tim_Timer()
Dim lcl_guarding As Variant
’ Disable timer to prevent recursive calls
tim.Enabled = False
’ Update clock
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.
.