'
' アクティブタブの
' マルチメディア・セキュリティを全て無効にします。
'

Option Explicit

Dim luna,dcid,defTime

Set luna = CreateObject("Lunascape2.LunascapeAPI")
dcid = luna.GetDocumentId(luna.ActiveIndex)
defTime = luna.GetAutoRefresh(luna.ActiveIndex)

luna.SetSecurity dcid,False,False,False,False,False,False,False

luna.SetAutoRefresh dcid,1

WScript.Sleep 1100

luna.SetAutoRefresh dcid,defTime

Set luna = Nothing
