in reply to How to pass "Enter" key and "Tab" key

mld,

For clarification, are you trying to automate Internet Explorer? If so what are you using at the moment Win32::IE::Mechanize or Win32::GuiTest perhaps?

Martin

  • Comment on Re: How to pass "Enter" key and "Tab" key

Replies are listed 'Best First'.
Re^2: How to pass "Enter" key and "Tab" key
by mld (Acolyte) on Apr 09, 2009 at 09:27 UTC

    I downloaded and installed Win32::GuiTest module.Following error occured. Can't locate loadable object for module Win32::GuiTest in @INC

      Hi mld,

      A few things, firstly which version of Perl are you using Active State, Strawberry Perl? How did you install Win32::GuiTest, and did you experience any errors/warnings? Could you post some code which reproduces the problem (see Writeup Formatting Tips and How do I post a question effectively? please)?

      The error message you have posted here suggests that Win32::GuiTest has not been installed properly, could you post the results of running the following from the command line:

      perl -e 'print join("\n", @INC);'.

      For clarification, could you write a couple of sentences to describe what you are trying to achieve?

      Update: Fixed a couple of typos

      Thanks

      Martin

        use Win32::IEAutomation; use Win32::GuiTest qw(SendKeys); $IE=Win32::IEAutomation->new(visible=>1, maximize=>1); $IE->gotoURL('http://172.16.0.122/proof/Authenticate.aspx?FromSniffer= +true&SH=768&SW=1024'); $IE->getTextBox('name:','txtUserName')->SetValue('sfd'); Sendkeys("{ENTER}"); $IE->getTextBox('name:','txtPassword')->SetValue('dfsafdsaf'); $IE->getButton('name:','btnSignIn')->Click();

        On executing the above code error message "Can't locate loadable object for module Win32::GuiTest in @INC (@INC contains: D:\Perl\Sample\ C:/Perl/site/lib C:/Perl/lib .) at D:\Perl\Sample\GUITES~1.PL line 2 Compilation failed in require at D:\Perl\Sample\GUITES~1.PL line 2. BEGIN failed--compilation aborted at D:\Perl\Sample\GUITES~1.PL line 2." is getting displayed

        I also tried to execute the command "perl -e 'print join("\n", @INC);'" from cmd following message is getting displayed"Can't find string terminator "'" anywhere before EOF at -e line 1"