[问题求助] [已解決]VBS如何获取无id、无name型的网页控件？

328612167

如何获取无id、无name型的网页控件
下面这个网站是一个例子

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "https://www.cgtz.com/login.html" 


Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4


ie.document.getElementById("LoginForm_username").value="15672465439"
ie.document.getElementById("LoginForm_password").value="123456"
ie.document.getElementById("submit").click


Do 
Wscript.Sleep 200 
Loop Until ie.ReadyState=4 


ie.navigate "https://www.cgtz.com/palace/index.html"


Do 
Wscript.Sleep 200 
Loop Until ie.ReadyState=4


'("签到赚积分")如何操作？
复制代码

CrLf

回复 26# ohar


    https://www.cgtz.com/logout.html

ohar

回复 25# CrLf


    没懂

CrLf

回复 24# ohar


    哦，多打一个o

ohar

回复 23# CrLf


    https://www.cgtz.com/logoout.html 点这个没用的，我试过，不能退出

我是加在 end sub 之前

CrLf

回复 22# ohar


    加一句退出账户：

ie.Navigate "https://www.cgtz.com/logout.html"
While ie.busy Or ie.readystate <> 4
Wend
复制代码

ohar

回复 20# CrLf


    查了昨晚下的资料，但无果，请大仙指教

ohar

回复 20# CrLf

不会点退出，又没ID，又不一样

 <li class="jsWeixin">
                <i class="weixin"></i>微信<span>|</span>
                <div class="weixinImg"></div>
            </li>
            <li class="financialNew"><a href="/tech/27.html" target="_blank">理财资讯</a><span>|</span>
                <ul class="dropDown">
                                                                <li> <a href="/tech/27.html" target="_blank">p2p理财新闻</a></li>
                                            <li> <a href="/tech/28.html" target="_blank">理财小知识</a></li>
                                            <li> <a href="/tech/29.html" target="_blank">草根理财故事</a></li>
                                            <li> <a href="/tech/30.html" target="_blank">个人理财入门</a></li>
                                            <li> <a href="/tech/31.html" target="_blank">草根理财FAQ</a></li>
                                    </ul>
            </li>
            <li><a href="/faq.html" target="_blank">帮助中心</a><span>|</span></li>
                            <li>欢迎 <a href="/accouts.html" class="aGreen" rel="nofollow">
                        186****6940</a> 来到草根投资！
                    <a href="/logout.html" rel="nofollow">[退出]</a>
                    <span>|</span></li>
                    </ul>
复制代码

CrLf

回复 19# ohar


    你退出第一个号了吗

ohar

回复 18# CrLf

登录第二个账号时就出错，是怎么回事

'On Error Resume Next
Dim ie,nam,pass
Set ie=WScript.CreateObject("InternetExplorer.Application")
j = 0
nam = "15672465439"
pass = "123456"
Call aoie(nam,pass)

nam = "15672465439"
pass = "123456"
Call aoie(nam,pass)

nam = "15672465439"
pass = "123456"
Call aoie(nam,pass)

WScript.Echo(j)

Sub aoie(nam,pass)

ie.navigate "https://www.cgtz.com/login.html" 

While ie.busy Or ie.readystate <> 4
Wend

ie.Document.getElementById("LoginForm_username").value=nam
ie.Document.getElementById("LoginForm_password").value=pass
ie.Document.getElementById("submit").click

While ie.busy Or ie.readystate <> 4
Wend

ie.navigate "https://www.cgtz.com/palace/index.html"

While ie.busy Or ie.readystate <> 4
Wend

ie.Document.getElementById("signNum").parentNode.getElementsByTagName("a")(1).click
j = j + 1
End Sub
复制代码

CrLf

回复 17# ohar


    昂，ie.document.getElementById("signNum").parentNode.getElementsByTagName("a")(0).innerText

ohar

<div class="leaguer_sign">
                        <p>积分：<a href="/palace/integrallist.html" class="integralBalance">175</a></p>
                        <p class="signNum" id="signNum">本月累计签到 8 天</p>
                        <a class="sign" href="javascript:;">签到赚积分</a>
                    </div>
复制代码

回复 15# CrLf


    还有一个问题，怎么获得上面175这个值，它是个变数

ohar

好了好了，欧耶
谢谢 CrLf

CrLf

回复 14# ohar


试试，应该是这两个中的一个
document.getElementById('signNum').parentNode.getElementsByTagName('a')[0]
document.getElementById('signNum').parentNode.getElementsByTagName('a')[1]

ohar

回复 13# CrLf