2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« Vista以降で、アクティブなシェルを捕捉する。(その2) | トップページ | スクリプトでクリップボードからテキストを取り出す。 »

2010年4月23日 (金)

エクスプローラの「お気に入りリンク」からアプリを起動すると、2回、重複して起動される。(障害)

「お気に入りリンク」に「メモ帳」のショートカットを入れて、エクスプローラの「お気に入りリンク」から起動すると、「メモ帳」が二つ開きます。

なので、エクスプローラの「お気に入りリンク」は昔のエクスプローラの「リンクバー」代わりには使えません。

しかし、スクリプトで重複起動を抑止すれば、昔のエクスプローラの「リンクバー」代わりに使えるようになります。

先頭の4行を追加します。

GetCurrentShell.vbs

On Error Resume Next
Set Lock=CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.ScriptFullName & ":Zone.Identifier",8,True)
If Err Then WScript.Quit
On Error GoTo 0
Set wShell=CreateObject("WScript.Shell")
wShell.SendKeys "^{tab}"
For Each ie In CreateObject("Shell.Application").Windows()
  If InStr(LCase(ie.FullName),"explorer.exe") Then
    wShell.SendKeys "^{tab}"
    If ie.StatusText="" Then Exit For
  End If
Next
If IsEmpty(ie) Then
  MsgBox "Not Found"
Else
  MsgBox ie.LocationURL
End If

「お気に入りリンク」に入れて、エクスプローラの「お気に入りリンク」から起動します。

« Vista以降で、アクティブなシェルを捕捉する。(その2) | トップページ | スクリプトでクリップボードからテキストを取り出す。 »