EXCEL VBA TIPS

キーワードサーチ

▼キーワード検索

プロフィール

EXCEL VBA TIPS

フォローする

楽天カード

カレンダー

お気に入りブログ

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

コメント新着

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

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

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

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

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

フリーページ

2008.07.01

NTT@ビリング自動ログイン・シェル作ったよ電話料金紹介 vbs,wsh

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

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

下記ソースのuserId、password、お客様番号の3箇所をご自分のものの代入文に変更してください
何とか.vbsの名称で保存、ダブルクリックで実行できます
以下ソースです
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.billing.ntt-east.co.jp/entrance" then
Set objIE0 = Window '対象URLが表示→その画面を使う

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.billing.ntt-east.co.jp/entrance"
call waitPage(objIE0)
end if
objIE0.document.all.userID.value="" ' userId index=0

objIE0.document.all.okyakusamaDenban.value="" ' お客様番号 index=2
objIE0.document.all.LoginAction.click
Sub waitPage (objIE)
Do While objIE.busy
Loop

Loop
End Sub

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