zoukankan      html  css  js  c++  java
  • 偶也来模拟Delphi登陆网页

    这篇文章也不算是原创,毕竟参考了某位大牛代码,好了废话不说了直接代码了:

    登录前:

    登陆后:

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw, UIWebBrowser, MSHtml, StdCtrls, WinSkinData,
      bsSkinData, BusinessSkinForm;

    type
      TForm1 = class(TForm)
        Label1: TLabel;
        Edit1: TEdit;
        Label2: TLabel;
        Edit2: TEdit;
        Button2: TButton;
        UIWebBrowser1: TUIWebBrowser;
        SkinData1: TSkinData;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      //UiWebBrowser1.Navigate('http://localhost/User/Login.asp');
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    var
      Doc: IHTMLDocument2;
      userinputelement, pwdinputelement: ihtmlinputelement;
    begin
      doc := UiWebBrowser1.document as ihtmldocument2;
      userinputelement := (doc.all.item('name', 0) as ihtmlinputelement);
      userinputelement.value := Trim(Edit1.Text);
      pwdinputelement := (doc.all.item('password', 0) as ihtmlinputelement);
      pwdinputelement.value := Trim(Edit2.Text);
    //  下面三种都可以,自己测试
      //按按钮名称来点击
      //wb1.OleObject.document.all.item('btnLogin').click;
      //按钮钮ID来点击
      // wb1.OleObject.document.getElementByID('btnLogin').click ;
      //按第几个按钮来点击
      //UiWebBrowser1.OleObject.document.getElementsByTagName('Input').item(4).click;
      UIWebBrowser1.OleObject.Document.all.item('submit').Click;
      Label1.Visible := False;
      Edit1.Visible := False;
      Label2.Visible := False;
      Edit2.Visible := False;
      Button2.Visible := False;
    end;


    procedure TForm1.FormCreate(Sender: TObject);
    begin
      UiWebBrowser1.Navigate('http://localhost/User/Login.asp');
    end;

    end.

  • 相关阅读:
    代码仓库创建规范
    在阿里云托管的k8s上使用nas做动态存储
    YApi——手摸手,带你在Win10环境下安装YApi可视化接口管理平台
    SwiftUI
    Istio多集群(1)-多控制面
    使用kind搭建kubernetes
    Envoy 代理中的请求的生命周期
    Istio中的流量配置
    Istio 的配置分析
    istio部署模型
  • 原文地址:https://www.cnblogs.com/spider518/p/1847534.html
Copyright © 2011-2022 走看看