[VB] VERY INTERESTING

[saprouzy]

What would this do?!?

MsgBox "Happy Birthday Indigo2005"

hehe

i accidently saw Indigo's name on "today's bday list"

(i know he checks this forum since he was the first to try helping me on my first post )

Edited July 14, 2005 by saprouzy

[Martin Zugec]

@Echo off

Echo Happy birthday Indigo2005

[gunsmokingman]

Save This As HappyBirthday.vbs

The Blue Text Change The Number To Match The Person Age

Green Text Is The Messages In The Script

Set objExplorer = CreateObject _

("InternetExplorer.Application")

objExplorer.Navigate "about:blank" 

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Left = 400

objExplorer.Top = 200

objExplorer.Width = 400

objExplorer.Height = 150

objExplorer.Visible = 1 

Inta = Inta

Do

Inta = inta + 1

objExplorer.Document.Title = "Logon script in progress"

objExplorer.Document.Body.InnerHTML = "<Center><Table Height=""24"" BGcolor=""c1c1c1"" ><TD Bgcolor=""#00f2f2"">" &_

"<Font Size=""5"" Color=""Blue"">Some One Is This Old Today </td></Table>" &_

"<Center><Table Height=""24"" BGcolor=""c1c1c1"" ><td Width=""80"" BGcolor=""#00A070"">"&_

"<Font Size=""5"" Color=""#002090""><Center> " & INTA & " </FONT> </td></table>"

WScript.Sleep 50

Loop Until Inta = 100

objExplorer.Document.Body.InnerHTML = "<Center><table><TD Width=""305"" Bgcolor=""ededed"">" &_

"<Font Size=""6"" Color=""Red""><Center>Indigo2005<Center><table>" &_

"<TD Width=""305"" Bgcolor=""ededed""><Font Size=""6"" Color=""green""><Center>Enjoy Your Day!"

WScript.Sleep 3150

objExplorer.quit