Trying to copy a line in attachmate and paste in the google search line. Sometimes it works sometimes it don't.
anybody have a better way?
[]
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object
Set Sys = CreateObject("EXTRA.System")
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
Set MyArea = MyScreen.Area(11, 14, 11, 50)
MyArea.Select
MyArea.Copy
Dim oIE as object
Dim oElements as object
Dim oElement as object
Set oIE = CreateObject("InternetExplorer.Application")
sURL = "
oIE.navigate(sURL)
oIE.visible = True
While oIE.Busy
'Do Nothing
Wend
Sendkeys "^v"
Sendkeys "{Enter}"
End Sub
anybody have a better way?
[]
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object
Set Sys = CreateObject("EXTRA.System")
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
Set MyArea = MyScreen.Area(11, 14, 11, 50)
MyArea.Select
MyArea.Copy
Dim oIE as object
Dim oElements as object
Dim oElement as object
Set oIE = CreateObject("InternetExplorer.Application")
sURL = "
oIE.navigate(sURL)
oIE.visible = True
While oIE.Busy
'Do Nothing
Wend
Sendkeys "^v"
Sendkeys "{Enter}"
End Sub