CObject調用Webbrowser控件Document例子 VFB

yjgyjgg 10月前 7428

    dim doc as CObject
    doc.SetObject me.WebBrowser1.Document'先獲取WebBrowser1控件的文檔接口
    doc.Get("getElementById"  ,"kw").Put("value"  ,"test")'調用getElementById方法獲得百度kw文本框,并設置value為test
    if doc.IsErr Then PrintA doc.ErrDescription'顯示錯誤
    doc.ClearErr'清除錯誤
    doc.Get("getElementById"  ,"su").Run("click")'獲得百度一下按鈕并點擊
    Dim pw As CObject  = Doc.Get("parentWindow")'獲得parentWindow接口
    pw.Run("execScript","alert('1')")'調用execScript方法運行js命令alert('1')

因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网