Question

我想通过使用本地VBScript从远程网页获得一些价值。到目前为止，我能做的是迭代标签，找到它并获得它的价值。但是，我发现它并不低效，而且花了很长时间。那么有什么方法可以提高VBScript的效率吗？这是我的源HTML和vbscripts，我想获得值'BBBBBB'。来源HTML：

<div id="profile_content" class="dxb_bc">
    <div>
        <div class="hm">
            <p>
                <a href="space-uid-52433.html" target="_blank">
                    <img src="http://bbs.dealmoon.com/uc_server/avatar.php?uid=52433&size=middle" />
                </a>
            </p>
            <h2 class="mbn">
                <a href="space-uid-52433.html" target="_blank">LittleCar</a>
            </h2>
        </div>
        <ul class="xl xl2 cl ul_list">
            <li class='ul_ignore'>
                <a href="home.php?mod=spacecp&ac=friend&op=ignore&uid=52433&handlekey=ignorefriendhk_52433" id="a_ignore_52433" onclick="showWindow(this.id, this.href, 'get', 0);">AAAAAA</a>
            </li>
            <li class='ul_msg'>
                <a href="home.php?mod=space&uid=52433&do=wall">BBBBBB</a>
            </li>
            <li class='ul_poke'>
                <a href="home.php?mod=spacecp&ac=poke&op=send&uid=52433&handlekey=propokehk_52433" id="a_poke_52433" onclick="showWindow(this.id, this.href, 'get', 0);">CCCCCC</a>
            </li>
            <li class='ul_pm'>
                <a href="home.php?mod=spacecp&ac=pm&op=showmsg&handlekey=showmsg_52433&touid=52433&pmid=0&daterange=2" id="a_sendpm_52433" onclick="showWindow('showMsgBox', this.href, 'get', 0)">DDDDDD</a>
            </li>
        </ul>
        </div>
    </div>
</div>

VBScript片段：

Set objDoc = IE.Document
Set allTags = objDoc.getElementsByTagName("a")
For Each aTag in allTags
    If aTag.innerHTML = "BBBBBB"
        'dosomething
    End If
Next

THX

VBScript快速定位特定标签并获取其值

0 个答案: