Popup ved lukning af webside

Hej lbri
Jeg har tidligere lavet et script som overvåger om IE lukkes ned....det kan du bygge lidt videre på:

strComputer = "maskinenavn"

Set WshShell = WScript.CreateObject("WScript.Shell") 

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
    ExecNotificationQuery("select * from __instancedeletionevent " _
            & "within 1 where TargetInstance isa 'Win32_Process'")
i = 0

Do While i = 0
    Set objLatestProcess = colMonitoredProcesses.NextEvent

if objLatestProcess.TargetInstance.Name = "IEXPLORE.EXE" then

msgbox "Du forlader websiden"


else
end if


Loop

Håber du kan bruge det:):)

Det ser lovende ud.
lbri

ok

hvorfor har du afvist mit svar?

Som du kan se har jeg først accepteret svaret, men jeg kunne ikke lukke sagen og så fik jeg trykket på afvist. Jeg prøver igen.