用Delphi实现论坛灌水机(含源码)

    var
    hform:IHTMLFormelement;
    hdoc:ihtmldocument2;
    hall:ihtmlelementcollection;
    Hinput:IHTMLinputelement;
    iw:iwebbrowser2;
    hlen,tmploop:integer;
    vk:oleVariant;
    dispatch:IDispatch;
    begin
    if Assigned(webbrowse1) then ///保证网页里有内容;即已经打开一个网页!
    begin
    hdoc:=webbrowse1.document as ihtmldocument2;
    hall:=hdoc.get_all;
    hlen:=hall.get_length;
    ////以上几步的操作为:将浏览器控件里的内容赋给hdoc.取其所有标识,并算出总数;
    ////下面的操作为:按总数循环找到用户名和密码的edit;并赋值;
    for tmploop:=0 to hlen-1 do
    begin
    vk:=tmploop;
    dispatch:=hall.item(vk,0);
    if succeeded(Dispatch.QueryInte易做图ce(IHTMLInputelement,hinput)) then
    ///如果此标识是一个edit控件.....
    begin ////下面这里的uppercase是必需的!防止因大小写的不同而判断失误!
    ///下面的"TEXT"是由网页里的内容来确定的.也就是说你要判断就必需根据具体网页代码来!
    ///密码框和用户名处是一样的!
    if uppercase(hinput.Type_)=TEXT then hinput.value:=tresss
    else if uppercase(hinput.type_)=PASSWORD then hinput.value:=tresss;
    end;
    if succeeded(dispatch.QueryInte易做图ce(IHTMLFormElement,hform))
       and (uppercase(hform.name)=THEFORM)
    then
    ///此处是form提交.如果从html发现只有一个form的话那第二个条件是非必需的!
    ///而且也不一定要判断name属性,也可以根据其它属性来判断.
    Hform.submit;
    end; ////for end;
    end; //if end;
    end;

    var
    ......
    ......
    iw:iwebbrowser2;
    begin
    .....
    iw:=getframe(3); //此步即是取得webbrowse里的第二个框架;
    ///而后的操作都是一样的,也就是上面的操作的作用是将一个框架里的内容来作为一个网页来处理;
    hdoc:=iw.document as ihtmldocument2;
    hall:=hdoc.get_all;
    ......
    ......
    ///getframe() 函数如下需要在uses里加入activex单元:
    Function TFrmain.GetFrame(FrameNo:Integer):IWebbrowser2;
    var
    OleContainer:IOleContainer;
    enum:IEnumUnknown;
    unk:IUnknown;
    Fetched:PLongint;
    begin
    while webbrowse1.ReadyState<>READYSTATE_COMPLETE do
    Application.ProcessMessages;
    if Assigned(webbrowse.document) then
    begin
    Fetched:=nil;
    OleContainer:=webbrowse.Document as IOleContainer;
    OleContainer.EnumObjects(OLECONTF_EMBEDDINGS,enum);
    Enum.Skip(FrameNo);
    Enum.Next(OLECONTF_EMBEDDINGS,Unk,Fetched);
    Result:=Unk as IWebbrowser2;
    end
    else
    Result:=nil;
    end;