Parameters
None.
Remarks
Although, while not necessary, this method can improve the performance of the script, because the BZHAO does not need to enumerate
child windows of the browser when attempting to auto-locate the BlueZone sessions.
Example
Dim host, SessionName, SessionId
Sub LoginToHost
Set Host = CreateObject( "BZWhll.WhllObj" )
Host.SetBrowserWnd window.top
Host.ConnectToHost 2, 0 'zero means bzhao must auto-determine session id
Host.Connect "!" '! means bzhao must auto-determine session name
SessionName = Host.GetSessionName()
SessionId = Host.GetSessionId()
Host.addConnectionCallback 2, SessionId, "ConnectionCallback"
'additional login statements
Host.Disconnect 'break link with session when done
End Sub
Sub ConnectionCallback
Host.Connect SessionName 'connect to the same session
'additional logoff statements
Host.Disconnect
End Sub