お前ら、wsh使ってますか？
ラストIEオープナー.vbs
・現在のウィンドウ数をカウントできる
(ただし、ダイアログが出た時点での枚数)
・最後にIEのウィンドウをcloseできる
・別プロセスでの立ち上げ試験用
という点で本家を上回っています。
http://pc.2ch.net/test/read.cgi/win/1015937521/
On Error Resume Next
sPath="D:\Program Files\Internet Explorer\iexplore.exe"
Set Shell=Wscript.CreateObject("Shell.Application")
iWindow=0
Do
sNum=InputBox("現在" & Shell.Windows.Count & "枚のIEとフォルダを開いてる。で、次は何枚開くんだ。",,"1")
If IsNumeric(sNum) And sNum<>"" Then
For I=1 To CInt(sNum)
Shell.ShellExecute sPath,"about:blank"
iWindow = iWindow + 1
Next
Else
Exit Do
End If
Loop
・現在のウィンドウ数をカウントできる
(ただし、ダイアログが出た時点での枚数)
・最後にIEのウィンドウをcloseできる
・別プロセスでの立ち上げ試験用
という点で本家を上回っています。
http://pc.2ch.net/test/read.cgi/win/1015937521/
On Error Resume Next
sPath="D:\Program Files\Internet Explorer\iexplore.exe"
Set Shell=Wscript.CreateObject("Shell.Application")
iWindow=0
Do
sNum=InputBox("現在" & Shell.Windows.Count & "枚のIEとフォルダを開いてる。で、次は何枚開くんだ。",,"1")
If IsNumeric(sNum) And sNum<>"" Then
For I=1 To CInt(sNum)
Shell.ShellExecute sPath,"about:blank"
iWindow = iWindow + 1
Next
Else
Exit Do
End If
Loop
|
|
|
Dim oIE()
Redim oIE(0)
Dim iIE
iIE=-1
iFol=-1
For Each window In Shell.Windows
If typename(window.document)="HTMLDocument" Then
iIE=iIE+1
Redim Preserve oIE(iIE)
Set oIE(iIE)=window
Else
iFol=iFol+1
End If
Next
iMsg=MsgBox (iIE+1 & "枚のIE、" & iFol+1 & "枚のフォルダウィンドウが開いてる。" & vbCrLf & "IEだけ全部閉じていい？",vbYesNo)
If iMsg=vbYes Then
For I=0 To UBound(oIE)
oIE(I).Quit
Next
End If
Redim oIE(0)
Dim iIE
iIE=-1
iFol=-1
For Each window In Shell.Windows
If typename(window.document)="HTMLDocument" Then
iIE=iIE+1
Redim Preserve oIE(iIE)
Set oIE(iIE)=window
Else
iFol=iFol+1
End If
Next
iMsg=MsgBox (iIE+1 & "枚のIE、" & iFol+1 & "枚のフォルダウィンドウが開いてる。" & vbCrLf & "IEだけ全部閉じていい？",vbYesNo)
If iMsg=vbYes Then
For I=0 To UBound(oIE)
oIE(I).Quit
Next
End If