tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: InternetExplorerを使った制御
投稿日: 2020/03/25(Wed) 15:52
投稿者っk
> > 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。