アフィリエイトA8ログイン自動化 WSH

究極の攻略法公開中！詳細はこちら
攻略プロが押す人気機種の裏技も載っています。
またＨＰのどこかに北斗、新海の攻略の鍵が・・・

アフィリエイトA8ログイン自動化

アフィリエイトA8のログインを自動化します。
シェルのダブルクリックだけで済みます
こちらは表示中のIEの画面を操作するためのVBのソースを生成の適用例です。若干WSH用に修正してます。指定内容を変えたいときは操作コードを出力して、下記のソースを修正してください
■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.ソース中にユーザID、パスワードを入力。（下記ソースの"←"のコメントの行の""の間に入れてください）
5.保存・終了する
6.このvbsファイルを実行（ダブルクリック）
5.ログインしたあと全件表示されます

■ソース

Dim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s 
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
 If TypeName(Window.Document) = "HTMLDocument" Then
  if Window.Document.url="http://www.a8.net/" then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   win_s=true
   exit for
  end if
 end if
next
if win_s=false then '対象URLが非表示→新しく画面を開く
 Set objIE0 = CreateObject("InternetExplorer.Application")
 objIE0.Visible = True
 objIE0.Navigate "http://www.a8.net/"
 call waitPage (objIE0)
end if
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.tags("INPUT").item(1).value="" ' ←ユーザID
objIE0.document.all.tags("INPUT").item(2).value="" ' ←パスワードを入力
objIE0.document.all.tags("INPUT").item(3).Click 'image  
call waitPage (objIE0)
objIE0.Document.links(130).click

Sub waitPage (objIE)
        Do While objIE.busy
        Loop
        Do While objIE.Document.readyState <> "complete"
        Loop
End Sub

■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらからその他WSH,EXCEL VBAの活用例紹介しています

こちらのオークションでプログラミングの書籍を出品してます