Animated .gif running alongside IE input

[KalarAzar]

Hi all,

Apologies if this is in the wrong section, but this is my first post - be gentle..

I have a task that I need to run through daily and have managed to botch a script together (my choice of language fills you all with confidence, I'm sure!) that opens a new IE window at a specific web page, maximises it, clicks a link to open a pop-up form, fills out some details, and then clicks the save button on the page (by pressing the space bar after highlighting the button).

Now, what I would like to do is to put an animation over the top of this, while it is all in progress. I know you may ask why, but I am thinking of deploying this script to colleagues and it was suggested as a fun function, which then intrigued me and made me wonder whether it was possible..

After this, I would like to compile it all in the best possible way that would need the least amount of files. Is it possible to compile an animated .gif within the .exe instead of providing as a separate file or hosting it on the net..? This would allow me to then provide everyone with a simple .exe file that they can run to achieve the same results as me.

Once the script finishes I would like it to leave the IE window open (following the save, as is happening at present). I have looked through the GUI examples for this on this very forum and they all appear to be loops, but I can't figure out how to get them to run simultaneously.

Please help me and I shall be most grateful..

Existing script ::

#include <IE.au3>

$oIE = _IECreate("Internet Link Removed")

$date = @MDAY & "/" & @MON & "/" & @YEAR

Local $sMyString = "Add new item"

Local $oLinks = _IELinkGetCollection($oIE)

For $oLink In $oLinks

Local $sLinkText = _IEPropertyGet($oLink, "innerText")

If StringInStr($sLinkText, $sMyString) Then

_IEAction($oLink, "click")

ExitLoop

EndIf

Next

WinSetState("Pages - Time","",@SW_MAXIMIZE)

WinActivate("Pages - Time")

Send("Support")

WinWait("Untitled", "", 1)

Send("{tab}")

Send($date)

WinWait("Untitled", "", 1)

Send("{tab}")

Send("{tab}")

Send("IT General")

WinWait("Untitled", "", 1)

Send("{tab}")

Send("7")

WinWait("Untitled", "", 1)

Send("{tab}")

Send("{tab}")

Send("{space}")

[Mehomic]

Sorry... No idea what happening here.

Maybe this can not be done....

but who knows?

[Melba23]

Mehomic,

Please do not post meaningless drivel. If you can offer constructive help, then do so by all means - but that last post just wasted bandwidth and server space.

M23