Hi pm

I had the same requirement, just with a press of a button, I need my
inbox(all the login etc should be automated)

I wrote the following script.  (You may have to install the
Win32::GuiTest module from cpan. (also change YOURLOGIN and YOURPASSWORD
appropriately).

With this you don't have to worry about constructing the query string.





use Win32::GuiTest qw(:ALL);


system("start iexplore.exe");
sleep(3);  # this delay for the window 
           # to comeup - try to increase 
           #if it is not sufficient
SendKeys('^(l)');
SendKeys('http://mail.yahoo.com{ENTER}');
sleep(15);     # This delay is to load the 
               #page - try to increase if it is not sufficient
SendKeys('YOURLOGIN{TAB}');
SendKeys('YOURPASSWORD{ENTER}');



Thanks
Prasanna


-----Original Message-----
From: positive mind [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, December 20, 2006 5:24 PM
To: beginners@perl.org
Subject: constructing a http request using LWP..

Hi there,

is it possible to automate the login and log out say from  yahoo mail
using
LWP/HTTP module.
cause
i have application which is similar to this and i have to send my login
request alongwith few query parameters . after i login i will be logged
in
to my applications mail box. how can i do this..i know which query
parameters to send but not able to construct the  url.

the query parameters are
site=xyz.abc.com
lang=en
locale=us
and few more..which are static.
but there is something called random number which is hidden one and
which is
generated randomly.
if i do view source on the login page then i can get the value of this
random number.

my query is how do i get this random number from my perl script and pass
it
as query param. any idea will be helpful.

thanks in advance,
pm

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to