save popup window using perl script

jyo123

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.

KevinADC

What do you mean by "popup window"?

jyo123

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.

jyo123

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 ....:-(

jyo123

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

 -Use of uninitialized value $counter in numeric le(<=) at E:/Perl/site

+/lib/win32/IEAutomation.pm line 537

-Can't call method "title" on an undefined value at E:/Perl/site/lib/w

+in32/IEAutomation.pm line 542.

Following is my perl script -

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl

use Win32::OLE;

use Win32::IEAutomation;

$IE = Win32::OLE->new("InternetExplorer.Application")

    || die "Could not start Internet Explorer.Application\n";

$IE = Win32::IEAutomation->new( visible => 1, maximize => 2);

$IE->gotoURL('http://10.255.114.191/snmpconfig.html');

$IE->getButton('caption:',"Configure SNMP v1/v2c" )->Click;

open(OUT, "E:/test/input.txt") || die;

@lines =  <OUT>;

foreach $value (@lines)

{

$IE->getTextBox('name:',"get_comm_name")->SetValue("$value");

$IE->getButton('caption:',"Apply")->Click;

sleep 5;

my $popup = $ie->getPopupWindow("Request Acknowledged-Phaser 4510DT");

$popup->getTable('id:', "headingtext")->Click;

}

close OUT;

Please anyone give me solution for this

save popup window using perl script

Post your reply

Similar topics