470,815 Members | 1,140 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

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

save popup window using perl script

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
4 4105
KevinADC
4,059 Expert 2GB
What do you mean by "popup window"?
Jul 17 '08 #2
jyo123
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
jyo123
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
jyo123
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.

Similar topics

38 posts views Thread by Shaun McKinnon | last post: by
2 posts views Thread by Al Clare | 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 Sol Linderstein | last post: by
3 posts views Thread by ypress | last post: by
3 posts views Thread by clsmith66 | last post: by
reply views Thread by mihailmihai484 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.