Delphi中用TWebBrowser控件问题？？？

[honestman]

　　我想用TWebBrowser控件编一个特殊的浏览器，要求它
能自动点击网页上的按钮和自动运行JavaScript程序。怎么
编？？？

[honestman]

如果觉得分太少，可以加。
重要的是：我满意，你也满意。

[csst]

我也很想知道如何用webbrowser,请cxgtommy能不能讲的清楚一点

[Tommy Chang]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.sina.com.cn');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
i:integer;
begin
memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml;
for i:=0 to webbrowser1.oleobject.document.links.length-1 do
begin
listbox1.Items.Add(webbrowser1.oleobject.document.links.item(i).href);
end;

end;

end.

这是写给一个网友的例子。其中文档就参照dhtml就可以了，结构也在那里可以找到。
msdn.microsoft.com里面，去search "innerhtml"应该可以找到许多东西的。

执行脚本专门有个方法的，还可以指定脚本的语言。

:)

[csst]

非常感谢

[alin]

鼠标自动点击的例子
SetCursorPos(X,Y);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);

[Tommy Chang]

哈哈哈哈，这些都可以，通过dhtml的dom(document object model)可以随便操作里面的对象，而且执行脚本都是现成的方法。看看历史贴子吧。

:)

[Tommy Chang]

哈哈哈哈，这些都可以，通过dhtml的dom(document object model)可以随便操作里面的对象，而且执行脚本都是现成的方法。看看历史贴子吧。

:)