Question

有人知道怎样模拟鼠标点击网页中的button吗

若以下回答无法解决问题，邀请你更新回答

Answer 1

程序如下：
var
doc : IHTMLDocument2;
all : IHTMLElementCollection;
len,i : integer;
item : OleVariant;
HtmlInputEle : IHTMLInputElement;
SubmitBtn : IHTMLButtonElement;
spDisp : IDispatch;
begin
if WebBrowser1.Document <> nil then
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
all:=doc.all;
len:=all.Length;
for i:=0 to len-1 do
begin
spDisp:=all.item(i,varEmpty);
if SUCCEEDED(spDisp.QueryInterface(IHTMLInputElement ,HtmlInputEle)) then
begin
if HTMlInputEle.name = 'UserID' then
HtmlInputEle.value := 'test';
if HTMlInputEle.name = 'Passwd' then
HtmlInputEle.value := 'test';
end;
if SUCCEEDED(spDisp.QueryInterface(IHTMLButtonElement ,SubmitBtn)) then
if SubmitBtn.name = 'submitButtonName' then
SubmitBtn.click();
end;
end;
end;

这样做的话，它会提示click没有定义。