Hi,
I am trying to automate one of the application using IE:Auotmation in perl
My web application has few text fields and 2 buttons "Save Changes" and "Discard Changes".I have written code to enter values to the text fields fetching from input file and click the button "Save Changes".As soon as "save changes" button is clicked pop up message will appear in another window saying "Request acknowledged-No Errors Reported" .I am stuck up in writing code to read this message and put it in some text file .Please some one help how to proceed.I will be very thankful to u.
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 - -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 -
#!/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");
print $popup;
}
close OUT;
Please anyone give me solution for this