_Write_Marquee ()..

[z0mgItsJohn]

A Marquee Is That Sliding Text Thing On Web-Pages.. Its Kinda Hard To Example

Source : _Marquee.Au3 | Size : 1.05 KB

Func _Write_Marquee ($BG_Color, $Font_Face, $Color, $Size, $Marquee_BG_Color, $Text)
Local $String, $Return
$String = ('<P><Span Style = "BackGround-Color: ' & $BG_Color & '"><Font Face = "' & $Font_Face & '" Color = "' & $Color & '" Size = "' & $Size & '">')
$String = $String & ('<Marquee BGColor = "' & $Marquee_BG_Color & '" Align = "Middle">' & $Text & '</Marquee></Font></Span></P>')

DirCreate (@TempDir & '\Marquee(s)')

$Return = _FileWrite_Array (@TempDir & '\Marquee(s)\Marquee','.HTML', $String, '100')

Return $Return
EndFunc

Func _FileWrite_Array ($File, $File_Type, $Data, $Max)
Local $Return
For $File_Array = '1' To $Max
If FileExists ($File & '(' & $Max & ')' & $File_Type) Then
ExitLoop
EndIf
If Not FileExists ($File & '(' & $File_Array & ')' & $File_Type) Then
FileWrite ($File & '(' & $File_Array & ')' & $File_Type, $Data)
$Return = ($File & '(' & $File_Array & ')' & $File_Type)
Return $Return
ExitLoop
EndIf
Next
EndFunc

Func OnAutoItExit ()
FileDelete (@TempDir & '\Marquee(s)')
DirRemove (@TempDir & '\Marquee(s)')
EndFunc

Screen Shot :

Feel Free.. To Leave Comments, Bugs.., Etc.. Etc.. >_<

- John

File Contents : _Marquee.Zip

[1] - _Marquee.Au3 | 427 KB

[2] - _Marquee Example.Au3 | 605 KB

[3] - Song.Mp3 | 2,197,409 KB

Download Link : http://www.4shared.com/file/63422290/3f6327b5/_Marquee.html

Edited September 18, 2008 by John2006

[TehWhale]

Wasn't this already created? The zip is empty.

Edited September 18, 2008 by Alienware

[z0mgItsJohn]

Lemme Fix The Link

Ohh.. Sorry I Did Not No This Was Already.. Created D:

Edited September 18, 2008 by John2006

[TehWhale]

http://www.autoitscript.com/forum/index.ph...&hl=Marquee

Nice program, but I think the above is better.

Edited September 18, 2008 by Alienware

[gseller]

This and the other one that Alienware is going on about would be cool to make a web interface with a form to control it..

They are both nice...