您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi模拟登陆QQ页面的部分代码

时间:2011/9/3 16:26:50 点击:

  核心提示:procedure TForm1.Button2Click(Sender: TObject);var Doc,FrameDoc:IHTMLDocument2; Login:IHTMLElement;...
procedure TForm1.Button2Click(Sender: TObject);
var
  Doc,FrameDoc:IHTMLDocument2;
  Login:IHTMLElement;
  QQNumber,QQPassword,VerifyCode:IHTMLInputElement;
  Frame:IWebBrowser2;
begin
  while WebBrowser1.ReadyState<>4 do
    Application.ProcessMessages;
  if Succeeded(WebBrowser1.Document.QueryInterface(IHTMLDocument2,Doc)) then
  begin
    if Succeeded(Doc.all.item('login_frame',varEmpty).QueryInterface(IWebBrowser2,Frame)) then
    begin
      if Succeeded(Frame.Document.QueryInterface(IHTMLDocument2,FrameDoc)) then
      begin
        if Succeeded(FrameDoc.all.item('u',varEmpty).QueryInterface(IHTMLInputElement,QQNumber)) then
        begin
          QQNumber.value:='QQ号码';
        end;
        if Succeeded(FrameDoc.all.item('p',varEmpty).QueryInterface(IHTMLInputElement,QQPassword)) then
        begin
          QQPassword.value:='QQ密码';
        end;
        if Succeeded(FrameDoc.all.item('verifycode',varEmpty).QueryInterface(IHTMLInputElement,VerifyCode)) then
        begin
          VerifyCode.value:='验证码';
        end;
        if Succeeded(FrameDoc.all.item('login_button',varEmpty).QueryInterface(IHTMLElement,Login)) then
        begin
          Login.click;
          while FrameDoc.ReadyState<>'complete' do
            Application.ProcessMessages;
        end;
      end;
    end;
  end;
end;

作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号