|
分類:[VBScript]
お世話になります。
環境：Windows7 32bitPro
IE Version 7.0
上記の環境において
下記のプログラミングを実行した場合、IEが表示され、指定のサイトが開くのですが
どういう操作をしたら出るのかわかりませんが、稀に右のようなエラーが発生します。 ｟オブジェクトでサポートされていないプロパティまたはメソッドです。:objWindow.Visible｠
ホームページを参考にしたスクリプトがだめなのでしょうか…わかる方、教えてください。お願いします。
Option Explicit
'---- IEオブジェクト ----
Dim objExplorer
Dim strURL
Dim shell
Dim application
Dim objWindow
Dim objProcList
Dim objProcess
'----objWindow.Visibleを参照するときに、「オブジェクトでサポートされていないプロパティまたはメソッドです。」の例外が発生する場合があるので
'IE起動前にこの例外が発生しないかチェックする。例外が発生した場合は起動しているIEの全プロセスを終了する。----
Set application = CreateObject("Shell.Application")
On Error Resume Next 'エラー処理を有効
for each objWindow in application.Windows
If objWindow.Visible=False And objWindow.ToolBar<>False And objWindow.LocationURL="" Then
'何もしない
End If
if Err.Number <> 0 then
Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
For Each objProcess In objProcList
If LCase(objProcess.Name) = LCase("iexplore.exe") Then
objProcess.Terminate
end if
Next
Set objProcList = nothing
Set objProcess = nothing
Exit For
end if
Next
Err.Clear 'エラーのクリア
On Error Goto 0 'エラー処理を無効
'---- 起動URL ----
strURL = "http://www.yahoo.co.jp"
' ---- IEオブジェクト生成 ----
Set shell = WScript.CreateObject("WScript.Shell")
shell.run "IExplore.EXE -nohome",0
Set application = CreateObject("Shell.Application")
Do
for each objWindow in application.Windows
If objWindow.Visible=False And objWindow.ToolBar<>False And objWindow.LocationURL="" Then
Set objExplorer = objWindow
Exit For
End If
Next
Loop While IsEmpty(objExplorer)
objExplorer.Top = 2000
objExplorer.Left = 0
objExplorer.Visible = 1
objExplorer.Navigate strURL
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=1024
objExplorer.Height = 735
objExplorer.Top = 0
Set shell = nothing
Set application = nothing
Set objWindow = nothing
|