'
'タブロック以外全て閉じるスクリプト。
'ネットサーフィンしていて、後で見たいタブをロックしておき
'いらないタブを全て閉じてから、ロックの掛かっているタブだけを
'残しておいて見る、等の使い方が出来ます。
'
'タブロックの掛かっている最後のタブをアクティブにする処理を追加
'

Option Explicit

Dim luna,tabNumber,i
Set luna = Createobject("Lunascape2.LunascapeAPI")

tabNumber = luna.GetCount-1

For i = tabNumber To 0 step -1

   If luna.IsNavigateLock(luna.GetDocumentId(i)) = True Then
      luna.ActiveIndex(i)
      Exit For
   Else
   End If

Next

For i = tabNumber To 0 step -1

   If luna.IsNavigateLock(luna.GetDocumentId(i)) = True Then
   Else
      luna.Close(i)
   End If

Next

Set luna = Nothing
