Trap IE page refresh

[Dan Bratt]

Hello,

I've been running this script for about a year now. I use

it to load a SQL reporting services report page. You'll see

in the script that I have disabled all of the links on the

web page because I don't want the user to go outside of the page.

It all works perfectly, until the user hits [F5] refresh.

The page reloads and all of my custom link event traps go

away. I really don't want to disable the refresh function,

but is there a way that I can trap for it ? Here is my

script:

#include <IE.au3>

$URL = $CmdLine[1]

$IsSSRS = StringInStr($URL,"http://sql05srv/Reports")

If $IsSSRS <> 1 Then

MsgBox (0,"Warning","This function can only be used with SSRS pages.")

Exit

EndIf

$oIE = _IECreate ($URL)

_IEPropertySet ($oIE, "addressbar", False)

_IEPropertySet ($oIE, "menubar", False)

_IEPropertySet ($oIE, "toolbar", False)

For $i = 0 to 9 Step 1

$oLink = _IELinkGetCollection($oIE,$i)

$sLinkId = $oLink.uniqueId

_IEHeadInsertEventScript($oIE, $sLinkId, "onclick", "alert('Function not available');return false;")

Next

Opt("WinTitleMatchMode", 2)

WinSetState("- Windows Internet Explorer", "", @SW_MAXIMIZE)

Exit

Thanks to anyone who can help !

[DaleHohm]

Please see how to prevent/control refresh, navigation or close of a webpage

Dale

[Dan Bratt]

Dale,

Thanks. You got my gears turning with that example.

In my application, I do not want to disable the page

reload, I just want to disable some page links when a

reload happens. I ended up making the following script

which seams to work great:

#include <IE.au3>

Local $f_Abort = False, $i_ErrorStatusCode = $_IEStatus_Success

$URL = $CmdLine[1]

$IsSSRS = StringInStr($URL,"http://sql05srv/Reports")

If $IsSSRS <> 1 Then

MsgBox (0,"Warning","This function can only be used with SSRS pages.")

Exit

EndIf

$oIE = _IECreate ($URL)

_IEPropertySet ($oIE, "addressbar", False)

_IEPropertySet ($oIE, "menubar", False)

_IEPropertySet ($oIE, "toolbar", False)

Opt("WinTitleMatchMode", 2)

WinSetState("- Windows Internet Explorer", "", @SW_MAXIMIZE)

DisableLinks()

While __IEIsObjType($oIE, "browser")

While Not (String($oIE.readyState)="complete" Or $oIE.readyState = 4 Or $f_Abort)

If @error = $_IEStatus_ComError And __IEComErrorUnrecoverable() Then

$f_Abort = True

ExitLoop

EndIf

DisableLinks()

WEnd

$f_Abort = False

Sleep(200)

WEnd

Exit

Func DisableLinks()

_IELoadWait ($oIE)

For $i = 0 to 9 Step 1

$oLink = _IELinkGetCollection($oIE,$i)

$sLinkId = $oLink.uniqueId

_IEHeadInsertEventScript($oIE, $sLinkId, "onclick", "alert('Function not available');return false;")

Next

EndFunc

[notsure]

nice! i can also use this.

thx