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);
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;
评论