Buffer から画像付きツイートをしたい 削除
Message#2 2017年10月5日(木)08時08分 From: ジャッカル |
getElementsByIDは、getElementByID テキストエリアはgetElementsByTagNameで取得できるはず。 > Buffer から画像付きツイートをしたいと考えています。 > 下記まで作成したのですが、テキストエリアにうまく入力出来ずに困っています。 > > Sub 投稿予約() > Dim objIE As InternetExplorer > > 'ツイートするための情報を取得 > BUID = **** > BUPASS = **** > > Call ieView(objIE, "https://buffer.com/signin") > > > objIE.document.forms.Item(0).elements.Item("email").Value = BUID > objIE.document.forms.Item(0).elements.Item("password").Value = BUPASS > Call tagClick(objIE, "input", "Sign in") > Stop > objIE.document.getElementsByID("composer")(0).Value = "入力する値" > > > End Sub > > > > > > > > > > > > テキスト部分のHTML > <textarea id="composer" placeholder=""What do you want to share?"" class="ui-autocomplete-input" autocomplete="off" style="height: 100px;"></textarea> > > 画像選択部分のHTML > <div class="qq-upload-drop-area" style="display: none;"> > <!-- <span><span class="hidden">Click</span> or drag a photo here to upload!</span> --> > </div> > > クリックしたいボタンのHTML > <button id="js-custom-time" style="position:relative;" class="js-schedule dropdown-option">Schedule Post</button> |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。