ファミリーマートTカード自動ログインシェル作ったよ wsh vbs - EXCEL VBA TIPS：楽天ブログ2008.06.17 ファミリーマートTカード自動ログインシェル作ったよ wsh vbs (2) テーマ：パソコン講師(297) カテゴリ：カテゴリ未分類 下記のソース中の2箇所を修正してください ・Tカード番号の代入文 ・暗証番号の代入文 以下ソースです Dim objIE0 '対象画面を検索、なければ開く（必要に応じ使用してください） 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://portal.expay.net/servlet/FTPoLogin
