L liaoshu Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #1 怎么向IE中的图片发送鼠标点击？<br>怎么控制鼠标点链接？<br>不能直接在地址栏输入链接地址。
L liaoshu Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #3 不能用shellexecute,这和在地址栏输入地址没区别。<br>一定要点那个链接
L liaoshu Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #4 怎么找图片的handle?<br>sendmessage(h,WM_LBUTTONDOWN,0,0)<br>和sendmessage(h,WM_LBUTTONUP,0,0)好象没用。<br><br>
S Sterntaler Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #9 在 DocumentComplete 事件里面, 写如下代码:<br><br>procedure TMainForm.WebBrowser1DocumentComplete(Sender: TObject;<br> const pDisp: IDispatch; var URL: OleVariant);<br>var<br> oDoc: OleVariant;<br> oItem: OleVariant;<br> I: Integer;<br>begin<br> oDoc := (Sender as TWebBrowser).Document;<br><br> for I := 0 to oDoc.All.Length - 1 do begin<br> oItem := oDoc.All.Item(I);<br> if ((oItem.tagName = 'IMG') and (oItem.name = 'imgG')) then<br> oItem.Click;<br> end;<br>end;
在 DocumentComplete 事件里面, 写如下代码:<br><br>procedure TMainForm.WebBrowser1DocumentComplete(Sender: TObject;<br> const pDisp: IDispatch; var URL: OleVariant);<br>var<br> oDoc: OleVariant;<br> oItem: OleVariant;<br> I: Integer;<br>begin<br> oDoc := (Sender as TWebBrowser).Document;<br><br> for I := 0 to oDoc.All.Length - 1 do begin<br> oItem := oDoc.All.Item(I);<br> if ((oItem.tagName = 'IMG') and (oItem.name = 'imgG')) then<br> oItem.Click;<br> end;<br>end;
W wang_80919 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-05 #10 搞网赚吗？据我所知，只有这事需要这种功能！
L liaoshu Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-05 #11 to:Sterntaler<br>oDoc.All是什么属性？<br>twebbrowser没有all这个属性啊
S Sterntaler Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-05 #12 (Sender as TWebBrowser).Document.All<br><br>Document: IDispatch , 用来(通过 COM 对象模型)访问 HTML 文档内容.<br><br>你试验过了吗? 肯定可以实现你的目的.
(Sender as TWebBrowser).Document.All<br><br>Document: IDispatch , 用来(通过 COM 对象模型)访问 HTML 文档内容.<br><br>你试验过了吗? 肯定可以实现你的目的.
