Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4206 / 13644 ツリー ←次へ | 前へ→

【57877】アメブロのペタ付け 姫BIG 08/9/18(木) 17:45 質問[未読]
【57879】Re:アメブロのペタ付け かみちゃん 08/9/18(木) 21:13 発言[未読]
【57891】Re:アメブロのペタ付け 姫BIG 08/9/19(金) 11:10 質問[未読]
【57893】Re:アメブロのペタ付け かみちゃん 08/9/19(金) 12:39 発言[未読]
【57895】Re:アメブロのペタ付け ハチ 08/9/19(金) 12:48 発言[未読]
【57900】Re:アメブロのペタ付け 姫BIG 08/9/19(金) 15:57 お礼[未読]

【57877】アメブロのペタ付け
質問  姫BIG  - 08/9/18(木) 17:45 -

引用なし
パスワード
   アメーバブログをやっているのですが、ペタを毎日200件以上返しているため作業が大変です。

そのため、ペタ返しを自動でできないか模索中です。

CreateObjectでInternetExplorerを起動して、自分のペタ帳についている人のプロフィール画面からペタを付ける画面まではNavigateで飛んで行けたのですが、そこから「ペタを押す」コードが分からない状態です。

「ペタを押す」のところを右クリックしてリンク先を探そうと思ったら、『Flash Playerについて』なんて出てくるのでリンク先を探せない状態です。

何か方法がありましたら教えてください。よろしくお願いします。

【57879】Re:アメブロのペタ付け
発言  かみちゃん E-MAIL  - 08/9/18(木) 21:13 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> CreateObjectでInternetExplorerを起動して、自分のペタ帳についている人のプ
> ロフィール画面からペタを付ける画面まではNavigateで飛んで行けた

できているコードはないのでしょうか?
あれば、途中まででもいいので、提示してみましょう。

http://peta.ameba.jp/p/addPeta.do?targetAmebaId=***
がペタ帳になると思うのですが、*** の部分は、取得できているということでしょうか?

アメーバにログインしていなければ、アメーバIDとパスワードを入れて、ログイン
ボタンをクリックするという操作が必要なようですが。

>アメーバブログをやっているのですが、ペタを毎日200件以上返しているため作業が大変です。
>
>そのため、ペタ返しを自動でできないか模索中です。

しかし、そもそも、そういうことを自動でして、何の意味があるのだろうと思います。
ペタ帳は、やっぱり「訪問しました〜」という足跡をひとつずつ残していくという
「温もり」みたいなものがあってこそのものだと思います。
それをプログラムを使って、ペタペタ足跡を残されても、私なら、あまりうれしく
ありません。

技術的には、可能だと思いますが、めずらしく、精神的には、どうなのだろうと疑問を持ちました。

すみません。少し個人的感情が入ったコメントになってしまいました。

【57891】Re:アメブロのペタ付け
質問  姫BIG  - 08/9/19(金) 11:10 -

引用なし
パスワード
   かみちゃんさんありがとうございます。
コードを出そうと思ったら「本文に禁止語句が含まれています。」
と表示されて書き込みができません。

ので、概要を書きます。

1.アメーバIDとパスワードは入力された状態(ログイン状態)で実行。よって、ログインをする機能は考えていない。
2.自分のペタ帳でペタを付けてくれた日付を認識する方法が分からないので、30ページ遡って、ペタをつけてくれた人のプロフィールをコレクションオブジェクトに格納。
3.コレクションオブジェクトに格納された件数分ループして、プロフィールページにCreateObject("InternetExplorer.Application")でNavigate
4.プロフィールページの『ペタ』ボタンをClick

とここまでできている状態です。

【57893】Re:アメブロのペタ付け
発言  かみちゃん E-MAIL  - 08/9/19(金) 12:39 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> コードを出そうと思ったら「本文に禁止語句が含まれています。」
> と表示されて書き込みができません。

前回のコメントに書いておけばよかったです。
httpという文字列が半角になっていれば、その部分だけ、全角で記述して投稿して
みていただけますか?

【57895】Re:アメブロのペタ付け
発言  ハチ  - 08/9/19(金) 12:48 -

引用なし
パスワード
   ▼姫BIG さん:
>4.プロフィールページの『ペタ』ボタンをClick

自分はアメブロを見たことがないので、よくわかりませんが・・・

この『ペタ』ボタンをelementとして取得してClickすれば良いのですか?
Flashで書かれているとすると、layerも使っているかも知れませんので、
うまくいくか解りませんが、ループで探してみてはどうでしょう?

Dim objTAG As Object

For Each objTAG In .document.body.all
  If objTAG.tagName =xx Then
Next

【57900】Re:アメブロのペタ付け
お礼  姫BIG  - 08/9/19(金) 15:57 -

引用なし
パスワード
   ハチさんありがとうございます。

フラッシュで書かれたペタをクリックするという考えをやめました。
画面で右クリックし「ソースの表示」で出てきたものを、少しだけ分かる者に教えてもらって、直接ペタ完了のページへ飛ぶことができるようになりました。

ありがとうございました。

4206 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free