注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

BCB-DG's Blog

...

 
 
 

日志

 
 

自动填表和调用函数  

2014-09-09 15:56:45|  分类: Web |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
//轉

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;

  评论这张
 
阅读(390)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017