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

キーワードサーチ

▼キーワード検索

プロフィール

AKB48激安放出中握手権CDDVD写真集てんこ盛り

フォローする

カレンダー

楽天カード

お気に入りブログ

ほぼ週間!!くいしん… くいしんぼ〜さん
????? オヤじぃさん

コメント新着

ヤフオクからきたけど@ Re:Yahooオークション落札、こんなハレンチ出品者がまだいた(03/06) このフォームのどこがハレンチなんだろう …

ミュウミュウ財布@ tomdwok@gmail.com 突然訪問します失礼しました。あなたのブ…

ヴィトン通販@ efmfnzclws@gmail.com 今日は　よろしくお願いしますね^^すごい…

ヴィトンコピー@ jqgghwgag@gmail.com 突然訪問します失礼しました。あなたのブ…

ボッテガ財布@ ddxabohuu@gmail.com こんにちは、またブログ覗かせていただき…

フリーページ

ニューストピックス

購入履歴

【翌日配達】ランニングシューズ厚底スニーカー赤男女兼用人気無臭無菌日常着…

サイズはピッタリ、あとは長持ちしてくれるかどうか。10-31午前注文で11-4着。遅すぎ [ >> ]

（メール便可：5点まで）富士フイルムチェキフィルムインスタントカラーフィルム「i…

品薄に悪乗りし定価の2倍超でちょろまかす悪徳業者 [ >> ]

>> お買い物履歴一覧を見る

新着記事一覧(全79件)

過去の記事 >

2013.11.27

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

テーマ：英語のお勉強日記

カテゴリ：カテゴリ未分類

dim s,d
Set d = WScript.CreateObject("Scripting.Dictionary")
a = Array( _
Array("XE","E9","AC","","","","","","",""), _
Array("","","","","","","","","",""), _
Array("","","","","","","","","",""), _
Array("","","","","","","","","",""), _
Array("","","","","","","","","",""), _
Array("","","","","","","","","",""))

for j=0 to ubound(a(0))
d.Add chr(65+j)&cstr(i+1),a(i)(j)
next
next
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,"fes.rakuten-bank.co.jp")>0 then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   win_s=true

  end if
end if
next
s = objIE0.document.body.innerhtml
if instr(s,"支払わずに</div>")=0 then

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"
Loop
end if
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
s = objIE0.document.body.innerhtml
if 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"
Loop
end if
s = objIE0.document.body.innerhtml
if 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
next
end if
if 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 if
end if
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
Loop
wscript.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

お気に入りの記事を「いいね！」で応援しよう