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

时间:2017-10-02 00:37:50

标签: html excel vba excel-vba

目标是打开网站上的第一个电报聊天:https://web.telegram.org/#/im并查看内容。在我的情况下将是“电报”聊天如下图所示。 Telegram image

我从另一个问题中获取此代码并尝试根据需要对其进行编辑,它似乎执行了点击但未显示对话。

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 &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>

提前感谢您的宝贵帮助。

0 个答案:

没有答案