マイケルジャクソン急死真相暴露　怠慢警官・公務員のハレンチ行為紹介

楽天銀行セキュリティコード入力自動化したよwsh,vbs,IE自動操作,VBテク連想記憶文字列操作

dim s,dSet d = WScript.CreateObject("Scripting.Dictionary")a = Array( _Array("XE","E9","AC","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""), _Array("","","","","","","","","",""))for i=0 to ubound(a)for j=0 to ubound(a(0)) d.Add chr(65+j)&cstr(i+1),a(i)(j)nextnextSet xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか？ If TypeName(Window.Document) = "HTMLDocument" Then  if instr(Window.Document.url,"fes.rakuten-bank.co.jp")>0 then   Set objIE0 = Window '対象URLが表示→その画面を使う   win_s=true   exit for  end if end ifnexts = objIE0.document.body.innerhtmlif instr(s,"支払わずに</div>")=0 thenobjIE0.document.all.tags("INPUT").item(0).value = "" 'ユーザidの代入分にするobjIE0.document.all.tags("INPUT").item(1).value = "" 'パスワードの代入分にするobjIE0.document.all.tags("INPUT").item(2).click Do While objIE0.busy = True Loop Do While objIE0.document.readyState <> "complete" Loopend if'---header end---'---以下操作コード、必要な部分をコピーしてください---s = objIE0.document.body.innerhtmlif instr(s,"セキュリティカード認証wwww</div>")=0 then objIE0.document.all.tags("INPUT").item(0).value="" ' 支店コードの代入文にする objIE0.document.all.tags("INPUT").item(1).value="" ' 口座番号の代入文にする objIE0.document.all.tags("INPUT").item(2).click Do While objIE0.busy = True Loop Do While objIE0.document.readyState <> "complete" Loopend ifs = objIE0.document.body.innerhtmlif instr(s,"セキュリティカード認証</div>")=0 then Set inp = objIE0.Document.all.tags("td") st="<td width=""50"" class=""c01 largebold"">" For i = 0 to inp.Length - 1  if len(inp(i).innerhtml)<5 and instr(inp(i).innerhtml,"-")>0 then   key1=replace(inp(i).innerhtml,"-","")   key2=replace(inp(i+2).innerhtml,"-","")   exit for  end if next Set inp = objIE0.Document.all.tags("INPUT") For i = 0 to inp.Length - 1  if inp(i).name="SECURITY_BOARD:_idJsp353" then   inp(i).Value=d(key1)   inp(i+1).Value=d(key2)  end if  if inp(i).name="SECURITY_BOARD:USER_PASSWORD" then   inp(i).Value="" '暗証番号の代入分にする  end if  if inp(i).name="SECURITY_BOARD:_idJsp684" then   inp(i).click   exit for  end if nextend ifif instr(s,"払込内容をご確認ください")=0 then if instr(s,"ペット")>0 then '以下、自身の合言葉に対応する代入文にする  objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end if if instr(s,"旧姓")>0 then  objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end if if instr(s,"出身地")>0 then  objIE0.document.all.tags("INPUT").item(2).value="" ' text index=2 end ifend ifDo While objIE0.busy = TrueLoopDo While objIE0.document.readyState <> "complete"Loopwscript.sleep(900)'objIE0.document.all.tags("INPUT").item(0).click ' text index=0'objIE0.document.all.tags("INPUT").item(1).value="4998" ' text index=1'objIE0.document.all.tags("INPUT").item(12).click.click