InternetExplorerをVBで操作しています。


FC2ブログで　VB6.0を使ってブログを更新したいのですが


どうしても、記事を書くの

【HTML表示】ボタンがコードから押せません。

ご教授していただけたら嬉しいです。


Buttonを特定できてもClickのコードがききません。

> FC2ブログで　VB6.0を使ってブログを更新したいのですが
FC2 ブログ を使ったことが無いので、どういうページ構成なのか分からないです。

> 【HTML表示】ボタンがコードから押せません。
今はどういうコードを記述しているのでしょうか?

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