オレSE ie7以降の自動操作

オレSE

2009/12/12作成

[PR]

writer:オレ　2024-05-20（Mon）　　

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

ie7以降の自動操作

writer:オレ　2010-03-06（Sat）　VBScript　

ソース

Option Explicit

Private Const OPEN_NEW_TAB = &H800
Private Const OPEN_BACKGROUND_TAB = &H1000

' shellオブジェクトの生成
Dim shell
Set shell = CreateObject("Shell.Application")

' ウェブページにアクセス
Dim count
count = shell.Windows.Count
If count=0 Then
    Call shell.Windows.Item.Navigate2("http://engineer.gjpw.net/")
    count = 1
Else
    Call shell.Windows.Item.Navigate2("http://engineer.gjpw.net/", OPEN_NEW_TAB)
End If
Call WScript.Sleep(1000)

' ieオブジェクトを取得
Dim ie
Set ie = shell.Windows.Item(count)

' ウェブページの読み込み完了まで待つ
Do Until ie.Busy = False
    WScript.sleep(500)
Loop

' ieの終了
ie.Quit

Set ie = Nothing
Set shell = Nothing

使用方法

ソースを「ie7.vbs」という名前で保存し、ダブルクリック