模拟点击网页中的按钮

sdzeng

于 2006-03-23 19:37:00 发布

阅读量1.8k

点赞数

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

本文链接：https://blog.youkuaiyun.com/sdzeng/article/details/636352

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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);