Specifications

COM+ reference
12
Glink: API reference manual Gallagher & Robertson
Private Sub glapi_onGlinkEvent(ByVal glevent As
Glink.IGlinkEvent)
Dim Val As Integer
Dim Ev As Integer
' List1.AddItem ("Glevent text is: ")
' List1.AddItem (glevent.getValueText)
Ev = glevent.getEventCode
Val = glevent.getValue
If Ev = GlinkEvent_STARTED Then
List1.AddItem ("glevent: STARTED")
GlStarted = True
ElseIf Ev = GlinkEvent_STOPPED Then
List1.AddItem ("glevent: STOPPED")
GlStarted = False
ElseIf Ev = GlinkEvent_CONNECTED Then
List1.AddItem ("glevent: CONNECTED")
GlConnected = True
ElseIf Ev = GlinkEvent_DISCONNECTED Then
List1.AddItem ("glevent: DISCONNECTED")
GlConnected = False
ElseIf Ev = GlinkEvent_TURN_RECEIVED Then
List1.AddItem ("glevent: TURN_RECEIVED")
ReadScreenContent
GlKeybLocked = False
ElseIf Ev = GlinkEvent_TURN_LOST Then
List1.AddItem ("glevent: TURN_LOST")
GlKeybLocked = True
ElseIf Ev = GlinkEvent_STRING_RECEIVED Then
List1.AddItem ("glevent: STRING_RECEIVED: " +
str(glevent.getValue))
If Val = 1 Then
glapi.SendKeys ("myuserid")
glapi.sendCommandKey (Transmit)
glapi.SendKeys ("logo")
glapi.sendCommandKey (Transmit)
End If
End If
End Sub
Below is an example of reading the full Glink screen line by line: