webbrowser 開啟下麵的頁面后 如何自動點擊或者後台模擬鼠標點擊 指定DIV標籤
實際問題是這樣子的呢。我想用程序去操作GOOGLE的DOC，請從下麵的鏈接進入看下
https://www.google.com/accounts/ServiceLoginBoxAuth?Email=wo.de.doc2008@gmail.com&Passwd=de111111&continue=https://docs.google.com

比如自動點擊 菜單項 [Hide] [Delete] 以及所有類似的DIV標籤

1. 按鈕 [Hide] 代碼
2. <div class="goog-toolbar-item-hide goog-inline-block goog-toolbar-button">
3. <div class="goog-inline-block goog-toolbar-button-outer-box">
4. <div class="goog-inline-block goog-toolbar-button-inner-box">
5. <div class="goog-toolbar-item-hide-icon goog-inline-block">div>
6. <div class="goog-toolbar-item-hide-caption goog-inline-block"><div>Hidediv>div>div>div>div>
8. 按鈕式[Delete] 代碼
10. <div class="goog-toolbar-item-delete goog-inline-block goog-toolbar-button">
11. <div class="goog-inline-block goog-toolbar-button-outer-box">
12. <div class="goog-inline-block goog-toolbar-button-inner-box">
13. <div class="goog-toolbar-item-delete-icon goog-inline-block">div>
14. <div class="goog-toolbar-item-delete-caption goog-inline-block">
15. <div>Deletediv>div>div>div>div>

用下麵代碼點擊有執行到位可是看不到執行的結果，也就是好像不起作用
[code delphi]
for k := 0 to web[i].OleObject.Document.all.tags('Div').Length - 1 do begin
startag := web[i].oleobject.document.all.tags('Div').item(k).innertext;
if ansicontainsstr(startag,seedstr.Text) then begin
web[i].oleobject.document.all.tags('DIV').item(k).click;
memo1.Lines.Add('已點擊！' startag inttostr(k));
end;
end;
[/code]
答案出來了！在這里非常感謝朋友 [washare]，下麵是具體操作第i個DIV標籤代碼

[code delphi]
Wb.OleObject.document.parentWindow.document.all.tags('DIV').item(i).FireEvent('on_mouse_down',EmptyParam);//請把on_mouse_down的底線"_"delete掉即可
Wb.OleObject.document.parentWindow.document.all.tags('DIV').item(i).FireEvent('on_mouse_up',EmptyParam) ;//請把on_mouse_up底線"_"拿掉即可
[/code]

------
dfs

編輯記錄

你的never online本身如果是一個超連結的話，可以試試下面的程式碼
這是以前用過的source剪出來的，沒特別為你 試過
如果點擊的東西本身是一個連結的話，應該透過這種方式都能達成

Link(doc,'never online').click;

function Link(ADoc: IHTMLDocument2;
AUrl: WideString): HTMLLinkElement;
//取得指定文字它所指向的超連結
var
oLinks: IHTMLElementCollection;
oLink: HTMLLinkElement;
i: Integer;
s:widestring;
begin
if ADoc=nil then exit;
Result:= nil;
try
oLinks:= ADoc.links as IHTMLElementCollection;


for i:= 0 to oLinks.length-1 do
begin
oLink:= oLinks.item(i,0) as HTMLLinkElement;
s:=oLink.href;
//if SameText(oLink.href,AUrl) then
if SameText(oLink.innerText,AUrl) then
begin
Result:= oLink;
exit;
end;
end;
except

end;
end;

===================引 用 washare 文 章===================
你的never online本身如果是一個超連結的話，可以試試下面的程式碼
這是以前用過的source剪出來的，沒特別為你 試過
如果點擊的東西本身是一個連結的話，應該透過這種方式都能達成
首先謝謝您的回復！
這種方法我知道，它本身不是鏈接，所以上面的方法是抓不到它的
用下麵的方式可以抓到，可是沒有反應，不明白是沒有click呢還是不用使用click;

[code delphi]
for k := 0 to web[i].OleObject.Document.all.tags('Div').Length - 1 do begin
startag := web[i].oleobject.document.all.tags('Div').item(k).innertext;
if ansicontainsstr(startag,seedstr.Text) then begin
web[i].oleobject.document.all.tags('DIV').item(k).click;
memo1.Lines.Add('已點擊！' startag inttostr(k));
end;
end;
[/code]

------
dfs

請問有實際的網頁可以測嗎?其實你這樣片段講，也有點難測?如果有實際的網址可能更方便大家幫你試試

朋友您好：
論壇好像有些BUG，代碼不管怎麼貼出來都會執行里面的JS代碼所以我發到別的地方請幫偶看看
http://hi.baidu.com/szba/blog/item/5c1cd6030c5e9ce409fa93c2.html
謝謝 我的郵箱：wuma5201#hotmail.com###

------
dfs

編輯記錄

我想我應該沒有看眼花，從你的html看來never-online，並沒有任何事件跟它關連，你的alert();是寫在doc.on_mouse_down上，如果你只是要去觸發alert();，那應該直接去觸發doc_on_mouse_down，跟click never-online這個div好像沒什麼關連，不太懂你的問題。不然就是你的_on_mouse_down應該寫到div裏面，這樣你去觸發div的click應該就會有反應了，是不是你把事件寫錯地方了

編輯記錄

真是非常感謝您的細心，
實際問題是這樣子的呢。我想用程序去操作GOOGLE的DOC，請從下麵的鏈接進入看下
https://www.google.com/accounts/ServiceLoginBoxAuth?Email=wo.de.doc2008@gmail.com&Passwd=de111111&continue=https://docs.google.com
比如自動點擊 菜單項[File]>document

------
dfs

我覺得你好像把問題想的太複雜了，如果你是要點擊菜點的某個功能，如你給的連結點進去後，的new\document<---這個會進入文件編輯模式
那你只需要如下的程式碼就能完成

寫這行就像你去click菜單一樣
HccWebBrowser1.Navigate('https://docs.google.com/DocAction?action=newdoc&source=doclist&hl=en');

所以你只需要知道每個菜單執行的是那個url就行了

這個答案是你要的嗎?

//------------------------------

[code delphi]
unit Unit1;

interface

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

type
TForm1 = class(TForm)
HccWebBrowser1: THccWebBrowser;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
HccWebBrowser1.Navigate('https://www.google.com/accounts/ServiceLoginBoxAuth?Email=wo.de.doc2008@gmail.com&Passwd=de111111&continue=https://docs.google.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

HccWebBrowser1.Navigate('https://docs.google.com/DocAction?action=newdoc&source=doclist&hl=en');
end;

end.
[/code]

編輯記錄

真是不好意思！是偶沒有表達清楚，您提到的這些偶了解！也知道怎麼實現請再看看這下麵的代碼

因為像這樣子的偶從前沒有遇到過，既然遇到了是想搞明白為什麼不能控制它？我到底是什麼原因？


[code xml]
按鈕 [Hide] 代碼

Hide

按鈕式[Delete] 代碼

Delete

[/code]

------
dfs

//下面是測試時的source，實際使用時，直接用GetElementByID取得delete的div就行了

procedure THccWebBrowser.ClickDiv(Doc2: IHTMLDocument2);
var
divs: IHTMLElementCollection;
e: DispHTMLDivElement;
i: Integer;
ws,cn,id:widestring;
r:OleVariant;
s:string;
DIVDisp,tempDisp:IDispatch;
begin

if Doc2=nil then exit;
try
DIVDisp:= doc2.all.tags('DIV') ;
if DIVDisp=nil then exit;
divs:=DIVDisp as IHTMLElementCollection ;
if divs=nil then exit;
for i:= 0 to divs.length-1 do
begin
e:= divs.item(i,0) as DispHTMLDivElement;
cn:=e._className;

id:=e.id;
if id=':z' then //delete的id
begin
e.FireEvent('onmousedown',EmptyParam) ;
e.FireEvent('onmouseup',EmptyParam) ;
end;
end;
except

end;
end;

編輯記錄

非常感激您的熱心哦
偶測試時在
e.FireEvent('forbidden',EmptyParam) ;
e.FireEvent('forbidden',EmptyParam) ;
時遇到報錯，是不是需要什麼引用？
自己還是在找資料因為FireEvent我不會用，您能提示一下就好了
我測試好再來結貼給分！謝謝哦

------
dfs

天呀，source又被網站自動改了喔!
我把source code 傳到你的hotmail，你收看看

[code delphi]
procedure THccWebBrowser.ClickDiv(Doc2: IHTMLDocument2);
var
divs: IHTMLElementCollection;
e: DispHTMLDivElement;
i: Integer;
ws,cn,id:widestring;
r:OleVariant;
s:string;
DIVDisp,tempDisp:IDispatch;
begin

if Doc2=nil then exit;
try
DIVDisp:= doc2.all.tags('DIV') ;
if DIVDisp=nil then exit;
divs:=DIVDisp as IHTMLElementCollection ;
if divs=nil then exit;
for i:= 0 to divs.length-1 do
begin
e:= divs.item(i,0) as DispHTMLDivElement;
cn:=e._className;

id:=e.id;
if id=':z' then
begin
e.FireEvent('on_mouse_down',EmptyParam) ;//請把on_mouse_down的底線"_"delete掉即可
e.FireEvent('on_mouse_up',EmptyParam) ;//請把on_mouse_up底線"_"拿掉即可
end;
end;
except

end;
end;

[/code]

編輯記錄

首先感謝您的技術，再次感謝您的熱心！，讓我又學會一種方法，雖然還是不太清楚 [FireEvent] 的其它具體用法，
下麵我簡化了一下具體操作第 i 個DIV標籤的方法，以便其他朋友們參考！
[code delphi]

[/code]
Wb.OleObject.document.parentWindow.document.all.tags('DIV').item(i).FireEvent('onmousedown',EmptyParam);
Wb.OleObject.document.parentWindow.document.all.tags('DIV').item(i).FireEvent('onmouseup',EmptyParam);

------
dfs