目标是打开网站上的第一个电报聊天:https://web.telegram.org/#/im并查看内容。在我的情况下将是“电报”聊天如下图所示。
我从另一个问题中获取此代码并尝试根据需要对其进行编辑,它似乎执行了点击但未显示对话。
Sub Telegram()
'Open website
Dim IE As New InternetExplorer
IE.Visible = True
IE.Navigate "https://web.telegram.org/"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
'Wait till page charge
Application.Wait (Now + TimeValue("0:00:03"))
'Click on first telegram chat
IE.document.getElementsByClassName("im_dialog_peer")(0).Click
End Sub
根据inspect元素的HTML代码:
<div class="im_dialog_message_wrap">
<div class="im_dialog_peer">
<span my-peer-link="dialogMessage.peerID" verified="true">Telegram <i class="icon-verified"></i></span>
</div>
<div ng-switch="dialogMessage.typing ? 'typing' : (!dialogMessage.unreadCount && dialogMessage.draft ? 'draft' : (dialogMessage.deleted ? 'deleted' : 'message'))">
<!---->
<!---->
<!---->
<!----><div ng-switch-when="message" class="im_dialog_message" style="">
<span ng-switch="dialogMessage.peerID > 0 || dialogMessage.fromID < 0">
<!----><span ng-switch-when="true">
<!---->
</span><!---->
<!---->
</span>
<span my-short-message="dialogMessage"><!----><!----><!----><span class="im_short_message_text" ng-if="message.message.length && (!message.media || message.media._ == 'messageMediaWebPage')" ng-bind-html="message.richMessage">Angel: Detectamos una conexión a tu cuenta desde un nuevo dispo</span><!----></span>
</div><!---->
</div>
</div>
提前感谢您的宝贵帮助。