By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
437,777 Members | 1,755 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 437,777 IT Pros & Developers. It's quick & easy.

save popup window using perl script

P: 12
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
Share this Question
Share on Google+
4 Replies


KevinADC
Expert 2.5K+
P: 4,059
What do you mean by "popup window"?
Jul 17 '08 #2

P: 12
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

P: 12
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

P: 12
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.