WebBrowser与MSHTML实现点击操作，与自己鼠标点击有差异，求解

2010-01-01 03:19:03 563 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

innovus实战攻略 | 用setUsefulSkewMode解锁时序优化的“隐藏技能”！就像时序优化的“瑞士军刀”，参数虽多，但掌握了分类逻辑后，用起来其实很简单！如果你有更绝的用法，欢迎在评论区分享，大家一起卷起来！简单来说，它就是时序优化的“乾坤大挪移”。通过调整触发器的时钟到达时间，把关键路径的建立时间“借”给非关键路径，从而实现全局时序收敛。别急，这个命令就是你的“时序救星”！（工具最多只能借1.2ns的裕量，防止“借过头”导致新问题！这个参数能帮你兜底！（对关键路径“下死手”，确保优化到位！（设置上限，给工具套上“紧箍咒”！（直接跳过边界，避免优化反噬！（全局管理，防止“借过头”！阅读详情

用途：程序用WebBrowser打开CSDN主页http://www.csdn.com，点击一个链接，标签是<a href="http://tech.sina.com.cn" target="blank">新浪科技</a>

实现：
1.手动点击的话，该链接就在当前WebBrowser窗口中链接到http://tech.sina.com.cn
2.Delphi程序实现，HtmlElement对象执行click操作后，弹出了360浏览器（我这默认的浏览器）进入目标网页
3.C#中，HtmlElement对象执行InvokeMember("click")操作，实现与1即手动的效果。

下面是Delphi的代码：



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

var

  doc: IHTMLDocument2;

  em: IHtmlElement;

  colLink: IHTMLDocument2;

begin

  if WebBrowser1.Application=pDisp then begin

    showmessage('Web download is over.');



    doc := WebBrowser1.Document as IHTMLDocument2;

    if doc <> nil then begin

       em := GetHtmlElement(doc, 'links','innerText','新浪科技');

       //em.setAttribute('target', '_self', 0);//无效果

       if em<>nil then

         em.click; //点击

       end

    else begin

      showmessage('Html doc is null.');

    end;

  end;

end;

Delphi我初学，写多了点只是想把问题描述清楚。

问题：
1.让程序实现手动鼠标点击的效果，不弹出浏览器，请指点一下应该如何修改？
2.setAttribute为什么没效果？
3.HTML标签中明明有target="blank"，为什么手动鼠标点击时没有弹窗。这个有点费解。

...全文

python批量生成CAD图纸 python批量生成CAD图纸阅读详情

cilys

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

cilys 2010-01-05

打赏
举报

继续请人指点下，谢谢了

wuhenghuan 2010-01-05

打赏
举报

学习了

dongmei757 2010-01-03

打赏
举报

学习

pilicat 2010-01-02

打赏
举报

学习了。

cilys 2010-01-02

打赏
举报

他源码里就是 target="blank" 弹窗的啊普通的浏览器都是正常弹的，用webbrowse手动点反而不弹了，有点诡异

iseekcode 2010-01-01

打赏
举报

[Quote=引用 3 楼 cilys 的回复:]
好，多谢

那鼠标直接点的时候，为什么没有弹窗呢？这个不解
[/Quote]

html源码里可以设置是否在当前窗口或新窗口打开。

hjkto 2010-01-01

打赏
举报

标记

cilys 2010-01-01

打赏
举报

好，多谢

那鼠标直接点的时候，为什么没有弹窗呢？这个不解

zhuang_bx 2010-01-01

打赏
举报

procedure TfrmAdBrowser.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=WebBrowser2.Application;//加一个WEBBrowser2 这样在DELPHI中就不弹出来了

end;

cilys 2010-01-01

打赏
举报

GetHtmlElement是自定义函数，取出一个IHtmlElement对象。我估计和这关系不大，代码也贴出来



{

自定义函数，获取满足条件的标签

tagName：标签名 关键字：all,links,images,applets,forms,anchors,scripts,embeds,plugins,parentWindow

atName： 属性名 关键字：innerText(暂时只处理这个),

atValue：属性值

}

function TForm1.GetHtmlElement(doc:IHTMLDocument2; tagName,atName,atValue:string):IHtmlElement;

var

  col: IHTMLElementCollection;

  em: IHtmlElement;

  i: Integer;

begin

  if doc <> nil then begin

    //判断标签名

    if tagName = '' then

      col := doc.all As IHTMLElementCollection

    else if tagName = 'all' then

      col := doc.all As IHTMLElementCollection

    else if tagName = 'links' then

      col := doc.links As IHTMLElementCollection

    else if tagName = 'images' then

      col := doc.images As IHTMLElementCollection

    else if tagName = 'applets' then

      col := doc.applets As IHTMLElementCollection

    else if tagName = 'forms' then

      col := doc.forms As IHTMLElementCollection

    else if tagName = 'anchors' then

      col := doc.anchors As IHTMLElementCollection

    else if tagName = 'scripts' then

      col := doc.scripts As IHTMLElementCollection

    else if tagName = 'embeds' then

      col := doc.embeds As IHTMLElementCollection

    else if tagName = 'plugins' then

      col := doc.plugins As IHTMLElementCollection

    else if tagName = 'parentWindow' then

      col := doc.parentWindow As IHTMLElementCollection

    else

      col := doc.all.tags(tagName) As IHTMLElementCollection;



    //判断标签的id及name，如果都没有则返回，查询条件不足；

    if (atName='') or (atValue='') then begin

      showmessage('GetHtmlElement error:查询条件不足');

      exit;

    end;



    //循环标签容器，开始获取满足条件的第一个元素

    for i := 0  to col.length - 1 do begin

      em := col.item(i,0) as IHtmlElement;

      if atName='innerText' then begin

        if atValue=em.innerText then begin

          result := em;

        end;

      end

      else if atValue=em.getAttribute(atName,0) then begin

        result := em;

        exit;

      end;

    end;

  end else begin

    showmessage('GetHtmlElement error:Html doc is null.');

    exit;

  end;

end;

WebBrowser与MSHTML实现点击操作，与自己鼠标点击有差异，求解

相关推荐