みずほ銀行ログイン、第2暗証番号自動入力シェル

みずほ銀行ログイン、第2暗証番号自動入力シェル WSH活用例

みずほ銀行(旧富士)ログイン、振込みの第2暗証番号入力を自動化するシェルです
こちらは表示中のIEの画面を操作するためのVBのソースを生成の適用例です。若干WSH用に修正してます。指定内容を変えたいときは操作コードを出力して、下記のソースを修正してください

■Windows/XP,IE6で動作確認済み
■ログインシェルの使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.ソース中にユーザID、パスワードを入力。（下記ソースの"←"のコメントのところ）
5.保存・終了する
6.このvbsファイルを実行（ダブルクリック）
7.みずほ銀行にログインします
■ソース

■第2暗証番号自動入力の使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.ソース中に第2暗証番号（富士ﾃﾚﾎﾝバンキングご利用カードの確認番号・6桁の数字）を入力。（下記ソースの"←"のコメントのところ）
5.保存・終了する
6.以上で準備終了。みずほ銀行の振込み確認画面（第2暗証番号を入れる画面）まで実行します
7.このvbsファイルを実行（ダブルクリック）
8.第2暗証番号が入力されます
■ソース

Dim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用します
Dim objIE1 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください
Dim s
Dai2pass="" '←第2暗証番号を入れてください
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
 If TypeName(Window.Document) = "HTMLDocument" Then
  if instr(Window.Document.url,".ib.mizuhobank.co.jp/servlet/mib?xtr=EmfFrameset&NLS=JP")>0 then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   win_s=true
   exit for
  end if
 end if
next
if win_s=false then '対象URLが非表示→end
 WScript.quit
end if
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
' FRAME name=mizuhodirectheaderemf nest=1
Set objFRAME = objIE0.Document.frames '下位フレームがある場合参照します、削除しないほうが安全です
Set objIE1 = objFRAME("mizuhodirectheaderemf") '下位フレームがある場合参照します、削除しないほうが安全です

' FRAME name=mizuhodirectbodyemf nest=1
Set objFRAME = objIE0.Document.frames '下位フレームがある場合参照します、削除しないほうが安全です
Set objIE1 = objFRAME("mizuhodirectbodyemf") '下位フレームがある場合参照します、削除しないほうが安全です
objIE1.document.all.CheckAnshu2.click '  checkbox ※
sk = objIE1.Document.body.innertext
pos1=strmid(sk,"第2暗証番号の左から","番目")
pos2=strmid(sk,"、","番目")
pos3=strmid(sk,"、","番目")
pos4=strmid(sk,"、","番目")
'if  MsgBox(pos1 & " " & pos2 & " " & pos3 & " " & pos4, VbOKCancel, "WS") = vbOK Then WScript.Quit
objIE1.document.all.Anshu2.value=mid(Dai2pass,pos1,1) ' password index=5
objIE1.document.all.Anshu2_2.value=mid(Dai2pass,pos2,1) ' password index=6
objIE1.document.all.Anshu2_3.value=mid(Dai2pass,pos3,1) ' password index=7
objIE1.document.all.Anshu2_4.value=mid(Dai2pass,pos4,1) ' password index=8
'objIE1.document.all.ButtonExecHurikomi.click ' submit ButtonExecHurikomi 　振込実行　 or tags("INPUT").item(9).Click
'objIE1.document.all.Back.click ' submit Back 　戻る　 or tags("INPUT").item(10).Click
'objIE1.document.all.Cancel.click ' submit Cancel 　中止　 or tags("INPUT").item(11).Click
Sub waitPage (objIE)
        Do While objIE.busy
        Loop
        Do While objIE.Document.readyState <> "complete"
        Loop
End Sub
Function strmid(org,mae,usiro)
 pos = InStr(org, mae)
 If pos > 0 Then
  strmid = Right(org, Len(org) - pos - Len(mae) + 1)
  org = strmid
  pos = InStr(strmid, usiro)
  If usiro = "" Then
'   strmid = ""
  Else
   If pos > 0 Then
    strmid = Left(strmid, pos - 1)
   End If
  End If
 Else
  strmid = ""
 End If
End Function

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

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