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.
is this REALLY where the data is on your emulator?
xAmount in 6, 1, 6, 7
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
Dim DiffMyArea
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[b]
Set MyArea = MyScreen.Area(10, 47, 10, 49, , 3)[/b]
If IsNumeric(MyArea) Then
DiffMyArea = CLng(MyArea) - CLng(5#)
End If
' If DiffMyArea < 85# Then
' MsgBox "sometext"
' End If
' MyScreen.Area(10, 47, 10, 49, , 3) = CStr(DiffMyArea)
[b] MyScreen.PutString DiffMyArea, 10, 47[/b]
' System.TimeoutValue = OldSystemTimeout
End Sub