After reading WWW::Mechanize::Cookbook, I can suggest the following:
use WWW::Mechanize::Firefox; my $mech = WWW::Mechanize::Firefox->new( launch => '/path/to/firefox', ); $mech->get('https://login.binck.nl/klanten/Login.aspx?ReturnUrl=%2fkla +nten%2fdefault.aspx'); $mech->eval(q{document.getElementById('ctl00_Content_Gebruikersnaam'). +value='username';document.getElementById('ctl00_Content_Wachtwoord'). +value='password'; window.open(document.getElementById('ctl00_Content_LoginButton').href, + '_self', 'true');});
This is just an untested rewrite of your AppleScript in Perl. It's possible that even Firefox is not needed (and only WWW::Mechanize is required), but I was not able to find the form ID on the login page because the page doesn't work for me.
In reply to Re^3: javascript login
by aitap
in thread javascript login
by robertw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |