Buffer から画像付きツイートをしたい
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2017年9月23日(土)11時46分 From: SW | 返事 削除 変更 |
| 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> |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
