Winword Easter Egg Code

Author	Message

Hackoo

Total Posts : 105
Scores: 4
Reward points : 0
Joined: 6/25/2010
Status: offline

Winword Easter Egg Code Tuesday, September 13, 2011 3:30 AM (permalink)

0

Hi !
This just for fun code to test the Winword Easter Egg

Set Ws = CreateObject("WScript.Shell")
eastercode = "=rand{(}100{)}"
Ws.run "Winword.exe"
wscript.sleep 1000
ws.AppActivate "Winword"
ws.sendkeys eastercode
ws.SendKeys "{enter}"

#1

ebgreen Total Posts : 8227 Scores: 98 Reward points : 0 Joined: 7/12/2005 Status: offline	Re:Winword Easter Egg Code Tuesday, September 13, 2011 3:44 AM (permalink) 0 Didn't do anything for me. Well, it opened Word. That was it. "... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm http://www.visualbasicscript.com/m_47117/tm.htm
	#2

59cobalt Total Posts : 981 Scores: 91 Reward points : 0 Joined: 7/17/2011 Status: offline	Re:Winword Easter Egg Code Tuesday, September 13, 2011 4:47 AM (permalink) 0 He probably meant to trigger this easter egg.
	#3

Online Bookmarks Sharing:

Jump to:

Current active users

There are 0 members and 1 guests.

Icon Legend and Permission

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

Read Message
Post New Thread
Reply to message
Post New Poll
Submit Vote
Post reward post
Delete my own posts
Delete my own threads
Rate post