Pass URL to Internet Explorer from text
Pass URL to Internet Explorer from text
(OP)
I am need to pass a URL that is in a block of text to Internet Explorer and bring up that window. The url is not recognized by DEC vt420 emulatior as anything more than text. I see in the previous post how to initiate IE, which i have successfully done, but with a hardcoded address. I am brand new to Attachmate, MyExtra-v7.0 and would appreciate any help.
thanks
thanks
RE: Pass URL to Internet Explorer from text
CODE
' // Get the main system object
Dim Sessions As Object
Dim System 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
' // 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)
' // Important part
Dim ie as object
Dim sURL as String
Dim addressRow as Integer '//Row of first char of address
Dim addressCol as Integer '//Column of first char of address
Dim lengthOfAddress as Integer '//Self explanatory
set ie = CreateObject("InternetExplorer.Application")
ie.visible = true
' // You can set sURL to anything, this just finds the first char of the address on the screen,
' // and takes the string for a specified length (which should be the length of the URL)
sURL = Sess0.getString(addressCol, addressRow, lengthOfAddress)
ie.Navigate(sURL)
End Function
RE: Pass URL to Internet Explorer from text