Sign in to follow this  
Followers 0
jerrymatthewmorris

Animated Taskbar Image

1 post in this topic

Hi everyone! I've been lurking in these forums for a long time, and I just recently decided to post a simple little thing I made that creates an animated taskbar image. There's nothing complex or special about it really. It's just one of the first times I've ever bothered to compile anything to an exe, and I think it's neat :P Forgive me if I've violated any rules by posting links to image downloads or external sites. I checked the forum rules sticky, and I didn't see anything about it in there. I'm not sure if there's a more comprehensive rules post somewhere that I should have already read. Just let me know if I've committed any faux pas here.

The images are modified versions of an iPhone modification posted by HeruLuingil here:

http://modmyi.com/downloads.php?do=file&id=32235

I've shared the modified icon images in a zip on my Google Drive:

https://docs.google.com/file/d/0B3-OM258dq9EU2JWd0F0Zm96UGc/edit?usp=sharing

It's set up to be fully packaged once compiled. It will create a directory at c:\spiralicon full of the icon images. To use it, you'll have to change "trayicon\BatteryBG_*.ico" to wherever you put the pictures in the zip file.

Here's the code:

Global $count=4
Global $switch=1

DirCreate("C:\spiralicon")
FileInstall("trayicon\BatteryBG_1.ico", "C:\spiralicon\BatteryBG_1.ico", 1)
FileInstall("trayicon\BatteryBG_2.ico", "C:\spiralicon\BatteryBG_2.ico", 1)
FileInstall("trayicon\BatteryBG_3.ico", "C:\spiralicon\BatteryBG_3.ico", 1)
FileInstall("trayicon\BatteryBG_4.ico", "C:\spiralicon\BatteryBG_4.ico", 1)
FileInstall("trayicon\BatteryBG_5.ico", "C:\spiralicon\BatteryBG_5.ico", 1)
FileInstall("trayicon\BatteryBG_6.ico", "C:\spiralicon\BatteryBG_6.ico", 1)
FileInstall("trayicon\BatteryBG_7.ico", "C:\spiralicon\BatteryBG_7.ico", 1)
FileInstall("trayicon\BatteryBG_8.ico", "C:\spiralicon\BatteryBG_8.ico", 1)
FileInstall("trayicon\BatteryBG_9.ico", "C:\spiralicon\BatteryBG_9.ico", 1)
FileInstall("trayicon\BatteryBG_10.ico", "C:\spiralicon\BatteryBG_10.ico", 1)
FileInstall("trayicon\BatteryBG_11.ico", "C:\spiralicon\BatteryBG_11.ico", 1)
FileInstall("trayicon\BatteryBG_12.ico", "C:\spiralicon\BatteryBG_12.ico", 1)
FileInstall("trayicon\BatteryBG_13.ico", "C:\spiralicon\BatteryBG_13.ico", 1)
FileInstall("trayicon\BatteryBG_14.ico", "C:\spiralicon\BatteryBG_14.ico", 1)
FileInstall("trayicon\BatteryBG_15.ico", "C:\spiralicon\BatteryBG_15.ico", 1)
FileInstall("trayicon\BatteryBG_16.ico", "C:\spiralicon\BatteryBG_16.ico", 1)
FileInstall("trayicon\BatteryBG_17.ico", "C:\spiralicon\BatteryBG_17.ico", 1)


While 1
While $switch=1
If $count<17 Then
TraySetIcon("C:\spiralicon\BatteryBG_" & $count & ".ico")
$count+=1
Sleep(100)
Else
TraySetIcon("C:\spiralicon\BatteryBG_" & $count & ".ico")
$switch=2
Sleep(100)
EndIf
WEnd
While $switch=2
If $count>4 Then
TraySetIcon("C:\spiralicon\BatteryBG_" & $count & ".ico")
$count-=1
Sleep(100)
Else
TraySetIcon("C:\spiralicon\BatteryBG_" & $count & ".ico")
$switch=1
Sleep(100)
EndIf
WEnd
WEnd

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0