Keying into proprietary IE based application
Keying into proprietary IE based application
(OP)
I am trying to use Attachmate to run scripted entry into a proprietary system that presents using IE. It seems to me that there should be a way to emulate the keyboard type entry to this web style page, and tab through inputboxes, and buttons, to enter the elements required for the assigned task. I can do it with my keyboard, why not with a script?
I can open the window using...
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate(sURL)
oIE.visible = True
but am stuck at this point. The first input is a typed in Username and Password with a "Login" button. The page is written in Javascript, but I was hoping for a generic "keyboard replacement" solution that would allow me to navigate throughout this application, something on the order of o_Session.Screen.Sendkeys("A<Ctrl+M>")
Is this even possible?
I can open the window using...
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate(sURL)
oIE.visible = True
but am stuck at this point. The first input is a typed in Username and Password with a "Login" button. The page is written in Javascript, but I was hoping for a generic "keyboard replacement" solution that would allow me to navigate throughout this application, something on the order of o_Session.Screen.Sendkeys("A<Ctrl+M>")
Is this even possible?
RE: Keying into proprietary IE based application
Dim objShell as object, objIE as object
Set objShell = CreateObject("WScript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate ("google.com")
while objIE.busy
msgbox "waiting for app to load"
wend
objShell.AppActivate "Google - Microsoft Internet Explorer"
objIE.visible = true
objShell.SendKeys "Why I shouldn't use sendkeys"
objShell.SendKeys "{ENTER}"
set objIE=Nothing
Set objShell=Nothing
End Sub
Sometimes you gotta leave your zone of safety. You have to manufacture Inspirado. You gotta get out of the apartment. You've got to run with the wolves. You've got to dive into the ocean and fight with the sharks. Or just treat yourself to a delicious hot fudge sundae........ with nuts. - Jack Black
RE: Keying into proprietary IE based application
RE: Keying into proprietary IE based application
RE: Keying into proprietary IE based application
RE: Keying into proprietary IE based application
http://msd
Sub Main()
Dim objShell as object, objIE as object
Set objShell = CreateObject("WScript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
Dim d As Object 'HTMLDocument
objIE.Visible = True
objIE.navigate ("google.com")
Do While objIE.BUSY
msgbox "opening IE"
Loop
Set d = objIE.document
For cnt =0 to d.all.length - 1
if d.all.item(cnt).tagname = "TITLE" then msgbox d.all.item(cnt).text
Next
objIE.Quit
Set OBJie = Nothing
End Sub
Sometimes you gotta leave your zone of safety. You have to manufacture Inspirado. You gotta get out of the apartment. You've got to run with the wolves. You've got to dive into the ocean and fight with the sharks. Or just treat yourself to a delicious hot fudge sundae........ with nuts. - Jack Black
RE: Keying into proprietary IE based application