Sub Globals
Private cred As String
Dim su As StringUtils
Dim encoded As String
Dim mp As Map
End Sub
Sub Activity_Create(FirstTime As Boolean)
cred = "****rto:****BAR2210"
lst.Initialize
encoded = su.EncodeBase64(cred.GetBytes("UTF8"))
If FirstTime Then
wsh.Initialize(Me)
End If
Activity.LoadLayout("1")
mp = CreateMap("Authorization":"Basic "&encoded)
wsh.Headers(mp)
End Sub