Photo Gallery
Member List
Search
Calendars
FAQ
Ticket List
Log Out
Forums
Register
Login
My Profile
Inbox
Address Book
My Subscription
My Forums
Tiny earth
Logged in as: Guest
arrSession:exec spGetSession 2,16,62753
Active Users: There are
0
members and
0
guests.
Users viewing this topic: none
Printable Version
All Forums
>>
[Scripting]
>>
Post a VBScript
>> Tiny earth
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!
Page:
[1]
Login
Message
<< Older Topic
Newer Topic >>
Tiny earth -
7/25/2008 12:37:23 AM
AMBience
Posts: 5
Score: 0
Joined: 7/24/2008
Status:
offline
Here's a spinning earth. Not rocket science I know, but the code is so tiny....
Save it as HTA, run it, then delete it and try to forget about it. ;-)
<HTML><HEAD><TITLE>Tiny Earth</TITLE> <HTA:application id="frmMain" applicationname="frmMain" singleinstance="yes" showintaskbar="yes" maximizeButton="no" minimizeButton="no" border="thin" navigable="yes" windowState="normal" contextmenu="no"/></HEAD><SCRIPT language="VBScript">Option Explicit:Dim MainLoopInt Sub Window_OnLoad:Self.ResizeTo 400,400:Self.MoveTo (Screen.Width/2)-256,(Screen.Height/2)-256 MainLoopInt = Window.SetInterval ("MainLoop", 1) Map.style.filter ="progid:DXImageTransform.Microsoft.glow(color=#000070, strength=7)" End Sub Sub MainLoop():map.style.pixelleft=map.style.pixelleft-1 if map.style.pixelleft =-518 then map.style.pixelleft =0 End Sub </SCRIPT><BODY scroll="no" style="margin:0;background.color:#5050FF;"> <div id="Map" style="position:absolute;font-family:webdings;font-size:400;color:#905020" />ûû</div> <div id="Ball" style="position:absolute;font-family:wingdings;font-size:900;Left:-200;Top:-296;" />£</div> </BODY></HTML>
< Message edited by
AMBience
--
7/25/2008 1:07:45 AM
>
Revisions: 2
|
Post #: 1
RE: Tiny earth -
7/25/2008 5:57:55 AM
p0ng
Posts: 28
Score: 0
Joined: 6/18/2008
Status:
offline
cool, thanks for the example.
(in reply to
AMBience
)
Post #: 2
If you found our site useful please link to us
<a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>
.
All Forums
>>
[Scripting]
>>
Post a VBScript
>> Tiny earth
Page:
[1]
Jump to:
Select a Forum
All Forums
----------------------
[Welcome]
- - Forum Rules
- - Test Posting Messages
- - New Member Area/Introduction
[Scripting]
- - WSH & Client Side VBScript
- - WSH & Client Side VBScript Tutorial
- - Post a VBScript
- - Windows PowerShell
- - ASP
- - ASP.NET
- - Windows Script Components
[General Forum]
- - Other Programming/Scripting Languages
- - Suggestions & Feedback
- - Off-Topic Lounge
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
Forum Software ©
ASPPlayground.NET
Advanced Edition
2.5.5 ANSI
All Forums >> [Scripting] >> Post a VBScript >> Tiny earth 
Printable Version
Tiny earth - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread