VBA：从html电报网站打开聊天

目标是打开网站的第一个电报聊天： 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 

根据检查元素的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 &amp;&amp; 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 &amp;&amp; (!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> 

在此先感谢您的宝贵帮助。