|
テーマ:FXの取引(1204)
カテゴリ:カテゴリ未分類
先頭2行をユーザid,パスワードの代入文に変更してください
id="" pw="" 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://www.fxking.jp/mypage/Login.action" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end if next if win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://www.fxking.jp/mypage/Login.action" Do While objIE0.busy = True Loop Do While objIE0.document.readyState <> "complete" Loop end if '---header end--- '---以下操作コード、必要な部分をコピーしてください--- objIE0.document.all.fxkingId.value=id ' text index=0 objIE0.document.all.password.value=pw ' password index=1 objIE0.document.all.btn_login.click ' image btn_login submit or tags("INPUT").item(2).Click お気に入りの記事を「いいね!」で応援しよう
最終更新日
2009.05.21 09:35:50
コメント(0) | コメントを書く |