467,179 Members | 1,234 Online
Bytes | Developer Community
Ask Question

Home New Posts Topics Members FAQ

Post your question to a community of 467,179 developers. It's quick & easy.

save popup window using perl script

Hi,
Is there any way to write perl script to save the popup window into specified location.Please anyone help on this.

Thanks is advance.
Jul 17 '08 #1
  • viewed: 3995
Share:
4 Replies
KevinADC
Expert 2GB
What do you mean by "popup window"?
Jul 17 '08 #2
What do you mean by "popup window"?
I have an application where it has few text boxes and save changes button.If i enter few relevant characters and hit button save changes i get a pop up window saying Request Acknowledged - No errors reported.This message is in table data of that window.I want save this window using perl script to different location or i want retrieve characters appeared in this window into some file.
Jul 18 '08 #3
I have an application where it has few text boxes and save changes button.If i enter few relevant characters and hit button save changes i get a pop up window saying Request Acknowledged - No errors reported.This message is in table data of that window.I want save this window using perl script to different location or i want retrieve characters appeared in this window into some file.


some one help me on this know ....:-(
Aug 13 '08 #4
some one help me on this know ....:-(
HI, I have written a script to get the text from PopupWindow.But when i run it is showing error in IEAutomation.pm like this -

Expand|Select|Wrap|Line Numbers
  1. -Use of uninitialized value $counter in numeric le(<=) at E:/Perl/site
  2. +/lib/win32/IEAutomation.pm line 537
  3. -Can't call method "title" on an undefined value at E:/Perl/site/lib/w
  4. +in32/IEAutomation.pm line 542.
Following is my perl script -
Expand|Select|Wrap|Line Numbers
  1. #!/usr/bin/perl
  2. use Win32::OLE;
  3. use Win32::IEAutomation;
  4. $IE = Win32::OLE->new("InternetExplorer.Application")
  5.     || die "Could not start Internet Explorer.Application\n";
  6. $IE = Win32::IEAutomation->new( visible => 1, maximize => 2);
  7. $IE->gotoURL('http://10.255.114.191/snmpconfig.html');
  8. $IE->getButton('caption:',"Configure SNMP v1/v2c" )->Click;
  9. open(OUT, "E:/test/input.txt") || die;
  10. @lines =  <OUT>;
  11. foreach $value (@lines)
  12. {
  13. $IE->getTextBox('name:',"get_comm_name")->SetValue("$value");
  14. $IE->getButton('caption:',"Apply")->Click;
  15. sleep 5;
  16. my $popup = $ie->getPopupWindow("Request Acknowledged-Phaser 4510DT");
  17. $popup->getTable('id:', "headingtext")->Click;
  18. }
  19. close OUT;
Please anyone give me solution for this
Aug 13 '08 #5

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

38 posts views Thread by Shaun McKinnon | last post: by
12 posts views Thread by HarveyB | last post: by
6 posts views Thread by Logger | last post: by
3 posts views Thread by ypress | last post: by
3 posts views Thread by clsmith66 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.