// WB:打开网页的TWebBrowser对象,Href:热链地址 //模拟点击TWebBrowser的图片 procedure ImageClick(WB: TWebBrowser; Href: string); var i: Word; Document: IHtmlDocument2; str: string; begin for i := 0 to WB.OleObject.Document.Images.Length - 1 do begin Document := WB.Document as IHtmlDocument2; Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href; if Pos(Href, str) <> 0 then begin ((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click; end; end; end;其他的url可以直接Navigate或者用上面类似的方法. 提交表单的话可以用 var Userole,Passole,Submit:OleVariant;Userole:=WebBrowser1.OleObject.Document.All.Item('userid', 0); Userole.Value:=User; Passole:=WebBrowser1.OleObject.Document.All.Item('password', 0); Passole.Value:=Password; Submit:=WebBrowser1.OleObject.Document.All.Item('Submit', 0); Submit.Click; 用同样的方法可以获取到页面的变量,命名的form表单(submit提交)等,可以进行赋值或调用其方法
// WB:打开网页的TWebBrowser对象,Href:热链地址
//模拟点击TWebBrowser的图片
procedure ImageClick(WB: TWebBrowser; Href: string);
var
i: Word;
Document: IHtmlDocument2;
str: string;
begin
for i := 0 to WB.OleObject.Document.Images.Length - 1 do
begin
Document := WB.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
if Pos(Href, str) <> 0 then
begin
((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;其他的url可以直接Navigate或者用上面类似的方法.
提交表单的话可以用
var
Userole,Passole,Submit:OleVariant;Userole:=WebBrowser1.OleObject.Document.All.Item('userid', 0);
Userole.Value:=User;
Passole:=WebBrowser1.OleObject.Document.All.Item('password', 0);
Passole.Value:=Password;
Submit:=WebBrowser1.OleObject.Document.All.Item('Submit', 0);
Submit.Click;
用同样的方法可以获取到页面的变量,命名的form表单(submit提交)等,可以进行赋值或调用其方法