5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

お前ら、wsh使ってますか?

1 :名無し~3.EXE:01/12/24 15:33
使いこなせばかなり便利だと思われるWindowsScriptingHost
お前らのwshを教えてください。

関連リンク
http://www.microsoft.com/japan/developer/scripting/windowshost/default.htm

ttp://www.roy.hi-ho.ne.jp/mutaguchi/wsh/
ttp://member.nifty.ne.jp/aya/wsh/

634 :11:02/03/20 18:27
ラスト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

635 :11:02/03/20 18:27
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


397 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)