var login, password:string;
login:=InputBox('votre login','votre login','');
password:=InputBox('votre password','votre password','');
navigate('http://mail.yahoo.com',1);
fillform('INPUT(0)/TD(0)/TR(3)/TBODY(0)/TABLE(0)/TD(0)/TR(1)/TBODY(0)/TABLE(0)/TD(1)/TR(2)/TBODY(0)/FORM(0)/TABLE(0)/TD(1)/TR(0)/TBODY(0)/TABLE(2)/CENTER(1)/BODY(0)/HTML(0)/',login,1);
fillform('INPUT(0)/TD(0)/TR(2)/TBODY(0)/TABLE(0)/TD(0)/TR(1)/TBODY(0)/TABLE(0)/TD(1)/TR(2)/TBODY(0)/FORM(0)/TABLE(0)/TD(1)/TR(0)/TBODY(0)/TABLE(2)/CENTER(1)/BODY(0)/HTML(0)/',password,1);
clickform('INPUT(0)/TD(0)/TR(0)/TBODY(0)/TABLE(0)/TD(0)/TR(1)/TBODY(0)/TABLE(0)/TD(1)/TR(2)/TBODY(0)/FORM(0)/TABLE(0)/TD(1)/TR(0)/TBODY(0)/TABLE(2)/CENTER(1)/BODY(0)/HTML(0)/',1);

if questionDlg('Effacer les spams ?') then 
clickform('A(0)/SPAN(0)/LI(1)/UL(0)/DIV(1)/DIV(0)/DIV(1)/DIV(1)/TD(2)/TR(0)/TBODY(0)/TABLE(0)/BODY(0)/HTML(0)/',1);