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

キーワードサーチ

▼キーワード検索

プロフィール

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

フォローする

カレンダー

楽天カード

お気に入りブログ

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

コメント新着

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

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

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

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

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

フリーページ

2013.08.24

楽天銀行オンラインログイン支店番号口座番号合言葉自動設定シェル

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

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

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="https://fes.rakuten-bank.co.jp/MS/main/fcs/rb/fes/jsp/mainservice/Affiliation/Multipaymentlink/Login/MultiPaymentLinkLogin.jsp" then
   Set objIE0 = Window '対象URLが表示→その画面を使う
   win_s=true
   exit for

end if
next
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://fes.rakuten-bank.co.jp/MS/main/fcs/rb/fes/jsp/mainservice/Affiliation/Multipaymentlink/Login/MultiPaymentLinkLogin.jsp"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
Loop
end if

'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.tags("INPUT").item(0).value="" ' 支店コードの代入文にしてください
objIE0.document.all.tags("INPUT").item(1).value="" ' 口座番号の代入文にしてください
s = objIE0.document.body.innerhtml
if instr(s,"ペット")>0 then

end if
if instr(s,"旧姓")>0 then
objIE0.document.all.tags("INPUT").item(2).value="" ' 母親の旧姓に該当の合言葉の代入文にしてください
end if
if instr(s,"出身地")>0 then
objIE0.document.all.tags("INPUT").item(2).value="" ' 出身地に該当の合言葉の代入文にしてください
end if

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