Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
' Global variable declarations
Global g_HostSettleTime%
Global g_szPassword$
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
Dim Sessions As Object
Dim System As Object
Dim amount As Object
Dim total As Object
Dim myStr As Object, Sys As Object
Dim MyScreen As Object
Dim MyArea As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
' Set the default wait timeout value
g_HostSettleTime = 3000 ' milliseconds
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
' This section of code contains the recorded events
Sess0.Screen.Sendkeys("c96<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("u<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("10<Tab>p<Tab>")
Sess0.Screen.Sendkeys("sometext")
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6,17,6,22,,3)
MyArea.Select
MyArea.Copy
if isnumeric(MyArea) then
DiffMyArea = clng(MyArea)-clng(75.00)
end if
If DiffMyArea < 85.00 Then
Msgbox "sometext"
End If
MyScreen.Area(6,17,6,22,,3) = DiffMyArea
System.TimeoutValue = OldSystemTimeout
End Sub
MyScreen.PutString DiffMyArea, 6, 17