模拟点击网页中的按钮

最新推荐文章于 2024-08-05 05:18:27 发布

sdzeng

最新推荐文章于 2024-08-05 05:18:27 发布

阅读量1.8k

点赞数

分类专栏： Delphi 文章标签： integer ie

本文链接：https://blog.csdn.net/sdzeng/article/details/636352

版权

这段代码演示了如何使用Delphi来实现自动化操作，通过IShellWindows接口获取活动的IE浏览器窗口，然后定位到指定网页（http://www.sohu.com），进一步查找页面上的登录按钮并模拟点击事件。

摘要由CSDN通过智能技术生成

procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
ie :IWebBrowser2;
i,j : Integer;
V,vInput : OleVariant;
sp:IDispatch;
idoc:IHTMLDocument2;
aInput :IHTMLInputButtonElement;
begin
ShellWindow := CoShellWindows.Create;
for i:=0 to ShellWindow.Count-1 do
begin
V := i;
sp := ShellWindow.Item(V);
sp.QueryInterface(IWebBrowser2,ie);
if ie<>nil then
begin
if ie.LocationURL='http://www.sohu.com' then
begin
ie.Document.QueryInterface(IHTMLDocument2,idoc);
if idoc<>nil then
begin
for j:=0 to idoc.all.Length-1 do
begin
sp := idoc.all.item(j,varEmpty);