tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルInternetExplorerを使った制御
記事No16522
投稿日: 2020/03/23(Mon) 15:15
投稿者っk
InternetExplorerをVBで操作しています。


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


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

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

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


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

[ツリー表示へ]
タイトルRe: InternetExplorerを使った制御
記事No16523
投稿日: 2020/03/24(Tue) 08:21
投稿者魔界の仮面弁士
> FC2ブログで VB6.0を使ってブログを更新したいのですが
FC2 ブログ を使ったことが無いので、どういうページ構成なのか分からないです。

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

[ツリー表示へ]
タイトルRe^2: InternetExplorerを使った制御
記事No16524
投稿日: 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

[ツリー表示へ]