我用 vfp webbrowser打开网页后有很多的屏蔽漂浮广告，请问下如何才能屏蔽这些广告呢？
广告的html源码如下：

<div style="position:fixed; width: 200px; top: 100px; right: 10px;z-index:9999;" id="notecdlst">
<span id="notecolselst" style="position:absolute; font-size:24px; cursor:pointer; right:10px;">×</span>
<a id="guanggao_right" href="http://www./price/index.php?fid=131&sid=24948" target="_blank" title="AAAAAAA" border="0">
                <img src="http://www./skin/v6/images/mprice_l1.jpg" border="0" width="200" height="100">
</a>
</div>
   <div style="position:fixed; width: 200px; top: 220px; right: 10px;z-index:9999;" id="notecdlst1">
        <span id="notecolselst1" style="position:absolute; font-size:24px; cursor:pointer; right:10px;">×</span>
<a id="guanggao_right" href="http://www./price/index.php?fid=518&sid=33910" target="_blank" title="BBBBBBB" border="0">
                <img src="http://www./skin/v6/images/deyuan.gif" border="0" width="200" height="100">
</a>
    </div>

广告有两个，id都为guanggao_right，网址是http://www.和http://www.。

给出现广告的网址

您好，网址是这个http://www.，左侧一个漂浮广告，右侧两个漂浮广告。

多次得到您的指点，很感谢。

我估也是这个，上次看到的还有印像，有三个广告对象。
有针对性的个别对象就好办
有广告时

移除广告后

示例代码
of = CREATEOBJECT("Form1")
of.show
READ EVENTS
CLEAR ALL
RETURN

DEFINE CLASS Form1 As Form
    Height = 500
    Width = 1200

    Add Object URL As TextBox WITH Top=10,Left=10,Width=680,Height=22,Anchor=11,;
        Value = "http://www.
    Add Object CMD1 As CommandButton WITH Top=10,Left=700,Width=40,Height=22,Anchor=9,Caption = ">>>"
    Add Object CHK1 As CheckBox WITH Top=10,Left=750,Width=80,Height=22,Anchor=9,Caption = "移除广告"
    Add Object WB As Olecontrol WITH OleClass="Shell.Explorer.2",Top=40,Left=0,Width=1200,Height=500,Anchor=15,Visible=.T.

    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC

    PROCEDURE Init
        this.WB.Silent = .T.
        this.CMD1.click
    ENDPROC

    PROCEDURE CMD1.Click
        thisform.CHK1.Enabled = .F.
        thisform.WB.navigate(ALLTRIM(thisform.URL.Value), 0, NuLL, NULL, NULL)
        thisform.WB.SetFocus
    ENDPROC

    PROCEDURE CHK1.InteractiveChange
        IF this.Value==1
            thisform.MoveObj()
        ENDIF
    ENDPROC
   
    PROCEDURE WB.DocumentComplete(pdisp, url)
        IF SYS(3095,pdisp)==SYS(3095,this)
            thisform.CHK1.Enabled = .T.
            IF thisform.CHK1.Value==1
                thisform.MoveObj()
            ENDIF
        ENDIF
    ENDPROC
   
    PROCEDURE MoveObj()
        TRY
            doc = this.WB.document
            doc.body.removeChild(doc.getElementById("notecdls"))
            doc.body.removeChild(doc.getElementById("notecdlst"))
            doc.body.removeChild(doc.getElementById("notecdlst1"))
        CATCH
        ENDTRY
    ENDPROC
ENDDEFINE

真的去掉，非常感谢。感谢。

版主好，我运行后出现脚本错误
换其他网址也出错

是提示，可继续运行
或在IE设置里修改脚本的相关限制

页面内容没问题的话，oIE.silent=.f.，不弹提示框即可。

oie.silent=.t.