[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: InternetExplorerを使った制御 投稿日 ： 2020/03/25(Wed) 15:52 投稿者 ： っｋ
| > > FC2ブログで VB6.0を使ってブログを更新したいのですが > FC2 ブログ を使ったことが無いので、どういうページ構成なのか分からないです。 > > > 【HTML表示】ボタンがコードから押せません。 > 今はどういうコードを記述しているのでしょうか? 返信ありがとうございます。 FC2ブログのユーザーを作ります。 ※メールアドレスとパスワード ブログ記載画面に【HTML表示】ボタンがあり、 クラス名は［trumbowyg-viewHTML-button］です。 これを取得できるのですは、クリックして ブログ書き込み欄をHTML仕様にしたいのですがどうしてもできません。 書き込みボタンとかは押せるのですが、コードは下記のように書いています。 宜しくお願いします。 Dim m_e As InternetExplorer Dim m_tmp As Variant Private Sub Command1_Click() Call m_e.Navigate2("hhttps://admin.blog.fc2.com/control.php?mode=editor&process=new") Call mIE待機(m_e, 1000) 'ログイン名 m_tmp = m_e.document.getElementsByName("id") m_tmp.Value = "ああああああ" パスワード m_tmp = m_e.document.getElementsByName("pass") m_tmp.Value = "いいいいいい" m_tmp = m_e.document.getElementsByName("form_login") m_tmp.submit Call mIE待機(m_e, 1000) m_tmp = m_e.document.getElementsByName("entry[title]") m_tmp.Value = "タイトル入力" m_tmp = m_e.document.getElementsByName("entry[body]") m_tmp.Value = "内容入力" Dim objTag As Object ' Set objTag = m_e.document.getElementsByClassName("trumbowyg-viewHTML-button") 'タグをクリック For Each objTag In m_e.document.getElementsByTagName("A") If InStr(objTag.outerText, "記事を保存") <> 0 Then objTag.Click Exit For End If Next End Sub |
をクリックするとツリー全体を一括表示します） - InternetExplorerを使った制御 - っｋ 20/03/23-15:15No.16522