EXCEL VBA TIPS

キーワードサーチ

▼キーワード検索

プロフィール

EXCEL VBA TIPS

フォローする

楽天カード

カレンダー

お気に入りブログ

バンの日記 バン3105さん
Ｌｅｎｏ★ROOM レノママ♪さん
ＲＳ　うけぽの独り言 うけぽさん
ＬＡＨＡＩＮＡ’ｓ … lahaina13さん
ウサといっ緒　今日… チェシゃ猫さん

コメント新着

RaymondArout@ Безопасность Впервые с начала противостояния в украи…

RaymondArout@ Сенаторы Впервые с начала противостояния в украи…

RaymondArout@ Санкции Впервые с начала операции в украинский …

Harveytoogs@ сериалы онлайн сезон Элита сериалы он-лайн шара в течение пр…

RaymondArout@ Демократы Впервые с начала спецоперации в украинс…

フリーページ

2008.07.17

Biglobeログイン自動入力するシェル(vbs,WSH)

(3)

テーマ：パソコン講師(288)

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

下記のソース中の2箇所を修正してください
・ユーザidの代入文
・パスワードの代入文
以下ソースです
Set objIEx = CreateObject("InternetExplorer.application")
objIEx.Navigate "about:blank"
Do While objIEx.Busy
WScript.Sleep 100
Loop

objIEx.Height=500
objIEx.Visible = true
objIEx.StatusBar = True
objIEx.StatusText = t_date & " htm作成中"
objIEx.ToolBar = false
objIEx.MenuBar = false
objIEx.Document.Write "状態:<input name=stat value=""不明""><br>"
objIEx.Document.Write "終了:<input type=checkbox name=term><br>"
on error resume next
Set xShell = CreateObject("Shell.Application")
do

if objIEx.Document.all.term.checked=true then exit do
wscript.sleep(1000)
For Each Window In xShell.Windows '対象URLが表示されているか？
if err.number <>0 then
objIEx.Document.Write "err xShell.Windows " & err.description & "num=" & err.number & "<br>"

end if
If TypeName(Window.Document) = "HTMLDocument" Then
if err.number <>0 then
objIEx.Document.Write "err TypeName " & err.description & "num=" & err.number & "<br>"
exit for
end if
if instr(Window.Document.url,"https://my.sso.biglobe.ne.jp/index.html")>0 then
win=true
Set objIE0 = Window '対象URLが表示→その画面を使う
if instr(objIE0.document.body.innerhtml,"btn_login.gif")>0 then
objIE0.document.all.loginname.value="" ' ユーザidの代入文
objIE0.document.all.userpass.value="" ' パスワードの代入文
objIE0.document.all.tags("INPUT").item(4).Click '
objIEx.Document.Write "Login button press " & time & "<br>"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
Loop
objIEx.Document.Write "Login success " & time & "<br>"
objIEx.Document.all.stat.value="ログイン成功"
exit for
else
objIEx.Document.all.stat.value="ログイン中"
end if
end if
end if
next
if win=false then
objIEx.Document.all.stat.value="Biglobeログイン画面なし"
end if
err.clear
loop
objIEx.Document.Write "止めたよ"

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