How to monitor phone status

[daprawda]

Hi,

How to monitor phone status?

I do it like this- for start monitoring:
[size=10pt][pre]ctiConnection.ConnectionName = "MyConn"
ctiConnection.TPort = ...
ctiConnection.THost = ...
ctiConnection.TConnect

ctiExtension.ConnectionName = "MyConn"
ctiExtension.ExtensionName = "MYEXTENSION"
Call ctiExtension.TSetRegisterMode(ModeMonitor)
ctiExtension.TDN = 1700
rc = ctiExtension.TRegister

If rc = T_FAIL Then
  Call MsgBox("Failed.")
End If[/pre][/size]

Next in event triggered sub:
[size=10pt][pre]Private Sub ctiExtension_TEvent2(EventInfo As Object)
  ...
End Sub[/pre][/size]

And for end monitoring:
[size=10pt][pre]Call ctiExtension.TUnregister
ctiConnection.TDisconnect[/pre][/size]

This code mostly work, but sometimes I only recieve EventRegistered and no other events (normally, when monitoring works ok, I receive EventOnHook, EventDialling, EventEstablished, etc...).

What I'm doing wrong? 
I don't have access to Genesys SDK so I sometimes like "gorillas in the fog" 

Regards,
Damian

[cavagnaro]

Main.TConnection1.THost = vhost
Main.TConnection1.TPort = vport
Main.TExtension1.TDN = vextension
Main.TExtension1.TAutoRegister = True
Main.TExtension1.ConnectionName = Main.TConnection1.Name
Main.TExtension1.TGetExtensions
Main.TConnection1.TConnect

Dont use TEvent2, it's used only for Power Builder.

Try TEvent_Ringing and do a popup or a message box.
Your controls also will be not greyed out.