痛风病人能喝茶吗:模拟点击网页中的按钮

来源：百度文库 编辑：偶看新闻 时间：2024/04/29 17:57:52

模拟点击网页中的按钮 - 回复 "starcraft_ly" 的问题


本例效果图:


代码文件: 
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, OleCtrls, SHDocVw;type  TForm1 = class(TForm)    WebBrowser1: TWebBrowser;    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button4Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  WebBrowser1.Align := alTop;  Button2.Enabled := False;  Button3.Enabled := False;  Button4.Enabled := False;  Button1.Caption := '模拟一个页面';  Button2.Caption := '假如知道按钮名称';  Button3.Caption := '假如知道按钮的 ID';  Button4.Caption := '假如只知道是第几个按钮';end;{模拟一个页面}procedure TForm1.Button1Click(Sender: TObject);begin  WebBrowser1.Navigate(    'about:标题' +    '
' +    '' +    ''
);  Button2.Enabled := True;  Button3.Enabled := True;  Button4.Enabled := True;end;{假如知道按钮名称, 譬如是: btnName}procedure TForm1.Button2Click(Sender: TObject);begin  WebBrowser1.OleObject.document.all.item('btnName').click;  //WebBrowser1.OleObject.document.all.item('btnName', 0).click;  FormCreate(nil);end;{假如知道按钮的 ID, 譬如是: btnID}procedure TForm1.Button3Click(Sender: TObject);begin  WebBrowser1.OleObject.document.getElementByID('btnID').click;  FormCreate(nil);end;{假如只知道是第几个按钮, 譬如是第一个}procedure TForm1.Button4Click(Sender: TObject);begin  WebBrowser1.OleObject.document.getElementsByTagName('input').item(0).click;  FormCreate(nil);end;end.

窗体文件: 
object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 152  ClientWidth = 625  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  PixelsPerInch = 96  TextHeight = 13  object WebBrowser1: TWebBrowser    Left = 8    Top = 8    Width = 360    Height = 105    TabOrder = 0    ControlData = {      4C00000035250000DA0A00000000000000000000000000000000000000000000      000000004C000000000000000000000001000000E0D057007335CF11AE690800      2B2E126208000000000000004C0000000114020000000000C000000000000046      8000000000000000000000000000000000000000000000000000000000000000      00000000000000000100000000000000000000000000000000000000}  end  object Button1: TButton    Left = 8    Top = 120    Width = 148    Height = 25    Caption = 'Button1'    TabOrder = 1    OnClick = Button1Click  end  object Button2: TButton    Left = 162    Top = 119    Width = 148    Height = 25    Caption = 'Button2'    TabOrder = 2    OnClick = Button2Click  end  object Button3: TButton    Left = 316    Top = 119    Width = 148    Height = 25    Caption = 'Button3'    TabOrder = 3    OnClick = Button3Click  end  object Button4: TButton    Left = 470    Top = 120    Width = 148    Height = 25    Caption = 'Button4'    TabOrder = 4    OnClick = Button4Click  endend
制作网页中的按钮 点击网页的上按钮无反应 进入网站点击按钮打不开网页怎么办？？ vb/.net中如何编程模拟点击网页中的超链接?? JS当中怎样实现模拟同时点击2个按钮？ 什么软件可以模拟鼠标点击,每隔一段时间点击某一按钮 网页中点击下载按钮实现图片下载功能 网页中flash按钮点击区域的鼠标指针问题 VB中,如何点击一个按钮后,弹出一个网页? 关于as的网页中的按钮问题 网页中的按钮事件怎么做 点击网页中的项目，不反应！！！ 点击网页中的链接无反应 电脑可以进入网页和输入网页地址，但是点击网页上的按钮却无反应，网页弹不出拉！急 为什么点击网页或网页中的项目时会出现感叹号 点击A网页中的链接在B网页中打开 如何让FLASH中的按钮连接到本地网页上面？ 网页中的返回上一页的按钮代码怎么写？ 为什么我的ie网页中的按钮有的不能用 网页页面中的最小化和最大化按钮的热键是多少？ 为什么网页中的flash按钮没法实现链接 请问，用dreamweaver做网页时，我想一个按钮，在点击后变色 点击网页上的按钮为啥页面不提交，而是刷新呢？ 在FLASH里点击按钮进入指定的网页，代码怎么写？