delphi实现自动填写表单和调用网页上的函数

var 
Doc : IHTMLDocument2; 
input: OleVariant; 
userinputelement , pwdinputelement : ihtmlinputelement; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
label1.Caption:=''; 
datex:= FormatDateTime('yyyymmddhhnnss',now()); 
nicheng:=FormatDateTime('mmddhhnnss',now()); 
    doc:=webbrowser1.document as ihtmldocument2; 
    userinputelement:=(doc.all.item('email',0) as ihtmlinputelement); 
    zhanghao:=datex; 
    userinputelement.value:=zhanghao+'@163.com'; 
    pwdinputelement:=(doc.all.item('nickname',0) as ihtmlinputelement); 
    pwdinputelement.value:='昵称'+nicheng; 
    pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement); 
    pwdinputelement.value:='1111'; 
    pwdinputelement:=(doc.all.item('repassword',0) as ihtmlinputelement); 
    pwdinputelement.value:='1111'; 
    pwdinputelement:=(doc.all.item('authCode',0) as ihtmlinputelement); 
    pwdinputelement.value:=Edit2.Text; 
    input:=doc.all.item('div_Reg',0); 
    input.click; 
    Memo1.Lines.Add(zhanghao); 
     repeat 
     Application.ProcessMessages ; 
     until(not webbrowser1.Busy); 
     Sleep(1000);//貌似not busy的判断不是很准，所以sleep之后再判断一次，出错次数减少了，但是偶尔还会出错，建议网速慢的，就多sleep一会，嘿嘿~ 
     repeat 
     Application.ProcessMessages ; 
     until(not webbrowser1.Busy); 
    Form1.Button2.click(); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
try 
WebBrowser1.OleObject.document.parentWindow.ChannelList.QuickAppend.OpenPannel(); 
//网页上的函数为 onclick="ChannelList.QuickAppend.OpenPannel()" 
   doc2:=webbrowser1.document as ihtmldocument2; 
   userinputelement:=(doc.all.item('quickFeedInput',0) as ihtmlinputelement); 
   userinputelement.value:=feedrss; 
    input:=doc2.all.item('quickAppend',0); 
    input.click; 
     repeat 
     Application.ProcessMessages ; 
     until(not webbrowser1.Busy); 
     Sleep(1000); 
     repeat 
     Application.ProcessMessages ; 
     until(not webbrowser1.Busy); 
     Form1.Button3.click(); 
except 
Label1.Caption:='出错'; 
end;
 
end;

 



//如果提交按钮没有name属性 
var 
formx:IHTMLFormElement; 
    formx:=(doc.all.item('regist',0) as ihtmlformelement); 
    formx.submit; 
//使用字典 
Randomize; 
i:=Random(9999); 
List := TStringList.Create; 
List.LoadFromFile('456zidian.txt'); 
S:= List[i];
 
{

 
如果表单中包含有select下拉列表，一般为密码保护问题等等。
   input:=WebBrowser1.OleObject.Document.all.Item('question',0); 
   input.value:='我最喜欢的运动员是谁？';//此处即为select下拉列表中的任意一个value。 
附上一个延时函数，不再需要sleep
在使用之前声明即可} 
procedure Delay(MSecs: Longint); 
//延时函数，MSecs单位为毫秒(千分之1秒) 
var 
FirstTickCount, Now: Longint; 
begin 
FirstTickCount := GetTickCount(); 
repeat 
    Application.ProcessMessages; 
    Now := GetTickCount(); 
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount); 
end;