PR
キーワードサーチ
▼キーワード検索
AKB48激安放出中握手権CDDVD写真集てんこ盛り
怠慢警官・公務員のハレンチ行為、駐車違反凶悪犯罪を紹介します
カレンダー
コメント新着
フリーページ
2009.04.12
テーマ： スポーツあれこれ(11419)
カテゴリ： カテゴリ未分類
先頭2行をユーザ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
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://secure.tipness.co.jp/my/auth/login"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
DoEvents
Loop
end if
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.login_id.value=id ' text index=1
objIE0.document.all.login_pass.value=pw ' password index=2
objIE0.document.forms(0).submit
pw=""
Dim objIE0
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" 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://secure.tipness.co.jp/my/auth/login"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
DoEvents
Loop
end if
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.login_id.value=id ' text index=1
objIE0.document.all.login_pass.value=pw ' password index=2
objIE0.document.forms(0).submit
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
