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.
Dim IeApp As Object
Dim IeDoc As Object
Dim myStr As String
Set IeApp = CreateObject("InternetExplorer.Application")
Set IeDoc = IeApp.Document
myStr = "YOUR NUMBERS"
IeDoc.all("ID GOES HERE!").value = CStr(myStr)
IeDoc.all("submit").Click
IeApp.Visible = True
While IeApp.Busy
DoEvents
Wend
'--------------------------------------------------------------------------------
' This macro was created by the Macro Recorder.
' Session Document: "TN3270 MAINFRAME CONNECTION 1.EDP"
' Date: Friday, February 09, 2009 09:00:35
' User:
'--------------------------------------------------------------------------------
' Global variable declarations
Global g_HostSettleTime%
Global g_szPassword$
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
Dim IeApp As Object
Dim IeDoc As Object
Dim myStr As String
Dim Sessions As Object
Dim System 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 Sessions = System.ActiveSession
Set MyScreen = Sessions.Screen
CurrentRow = MyScreen.Row
CurrentCol = MyScreen.Col
'--------------------------------------------------------------------------------
' Set the default wait timeout value
g_HostSettleTime = 1000 ' 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("c83<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("u<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("11<Tab><Tab><Tab>Acount Closed<Tab>u<Enter>")
Sess0.Screen.Sendkeys("YY<Enter>")
Sess0.Screen.Sendkeys("x<Tab>x<Tab><Enter>")
Sess0.Screen.Sendkeys("<Tab><Tab>")
If CurrentRow = 07 And CurrentCol = 04 Then
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("X<Enter>")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("some text<Tab>")
Sess0.Screen.Sendkeys("some text")
Sess0.Screen.Sendkeys("<Enter>")
Set MyArea = MyScreen.Area(3,71,3,59,,3)
MyArea.Select
MyArea.Copy
Set IeApp = CreateObject("InternetExplorer.Application")
Set IeDoc = IeApp.Document
myStr = Sess0.Screen.GetString(3,71,3,59,,3)
IeApp.Visible = True
While IeApp.Busy
DoEvents
Wend
IeDoc.all("434886-525834").value = CStr(myStr)
IeDoc.all("submit").Click
Sess0.Screen.Sendkeys("<V<Enter>>")
System.TimeoutValue = OldSystemTimeout
End If
If (IeApp is Nothing) Then
Msgbox "Could not create the IE object. Stopping Program."
STOP
End If
If myStr ="" Then
MsgBox "You must Finalizeto Return the Number"
End If
End Sub
Function GetURLFrom_IE() As String
'SkipVought/2009 Jan 15
'--------------------------------------------------
':returns URLs from IE windows
'--------------------------------------------------
Dim oShell As oect
Dim oWindows As oect, oWindow As oect
Set oShell = Createoect("Shell.Application")
Set oWindows = oShell.Windows
For Each oWindow In oWindows
If Right(oWindow.FullName, 12) = "iexplore.exe" Then
GetURLFrom_IE = GetURLFrom_IE & oWindow.LocationURL & ";"
End If
Next
GetURLFrom_IE = Left(GetURLFrom_IE, Len(GetURLFrom_IE) - 1)
Set oWindow = Nothing
Set oWindows = Nothing
Set oShell = Nothing
End Function