 |
|
|
|
 |
|
 |
 |
A.J.
Back from the dead

Registered: Nov 2003
Location: Sydney
|
|
|
Open up Microsoft Excel.
Go to Tools-->Macro-->Visual Basic Editor
Go to Insert-->Module
Now Copy and paste the text in white below this into the big white window.....and push Play up on the top toolbar.
hahahahaha so lame.....but funny.....but not......
Sub OmgHi2U()
'Declarations
Dim TA, COR, InB4DaLock, PicsOrSTFU, Yes, ROFL, X
'Assignments
TA = "Title"
Yes = "Yes"
InB4DaLock = "Thread Closed..."
COR = Val(InputBox("How cool is the Chill Out Room? Answer in numbers", TA, "1000000", 5000, 0))
If COR > 0 Then
MsgBox "BRICKEDDDDDDDDDD!!!!! AAHAHAHA" & vbCr & "i am 1337"
Else: MsgBox "DJ Sammy is teh #1 techno DJ!"
End If
MsgBox "Tiesto", , InB4DaLock
MsgBox "Armin", , InB4DaLock
MsgBox "Do you think they are good?"
ROFL = InputBox("Do you like Armin or Tiesto? YES/NO", "WHO IS TEH #1?", "Yes", 5000, 0)
If ROFL = "Yes" Then
MsgBox "ROOM RAVE!!!!!!! DISCO BOOMER, Trancebrat and the" & Chr(13) _
& "rest of the Sensation grey crew!!!!!!!!!!!!!!!"
Else: MsgBox "You are lamer than torontotrance & Mr Mystery combined!"
End If
PicsOrSTFU = InputBox("Do you have nekkid pics?" & vbCr & "Yes/No", pwned, "Yes", 5000, 0)
If PicsOrSTFU = Yes Then
MsgBox "CAN I SEE THEM!!!!?!!!!!!!!!", , "OMGOMGOMGHI2UKTHXBIE"
Else: MsgBox "Damn!"
End If
X = InputBox("Ball in Parking Lot. Do you wish to play again? Yes/No" _
, "Lee Carvino's Putting Challenge", , 5000, 0)
MsgBox "You have selected NO"
' I am such a 1337 Ta. ph33r m4 VBA skillz!!!!!
'BRICKED!!!!!!!!!!!!!! HAHAHAHAHA
'PICS OR STFU N00B!!!!!1
End Sub

|
|
Aug-19-2004 03:37
|
|
|
 |
 |
N|te-L|fe
I saw GOD, now I can die

Registered: May 2003
Location: Quebec
|
|
|
| quote: | Originally posted by Vigilante
Open up Microsoft Excel.
Go to Tools-->Macro-->Visual Basic Editor
Go to Insert-->Module
Now Copy and paste the text in white below this into the big white window.....and push Play up on the top toolbar.
hahahahaha so lame.....but funny.....but not......
Sub OmgHi2U()
'Declarations
Dim TA, COR, InB4DaLock, PicsOrSTFU, Yes, ROFL, X
'Assignments
TA = "Title"
Yes = "Yes"
InB4DaLock = "Thread Closed..."
COR = Val(InputBox("How cool is the Chill Out Room? Answer in numbers", TA, "1000000", 5000, 0))
If COR > 0 Then
MsgBox "BRICKEDDDDDDDDDD!!!!! AAHAHAHA" & vbCr & "i am 1337"
Else: MsgBox "DJ Sammy is teh #1 techno DJ!"
End If
MsgBox "Tiesto", , InB4DaLock
MsgBox "Armin", , InB4DaLock
MsgBox "Do you think they are good?"
ROFL = InputBox("Do you like Armin or Tiesto? YES/NO", "WHO IS TEH #1?", "Yes", 5000, 0)
If ROFL = "Yes" Then
MsgBox "ROOM RAVE!!!!!!! DISCO BOOMER, Trancebrat and the" & Chr(13) _
& "rest of the Sensation grey crew!!!!!!!!!!!!!!!"
Else: MsgBox "You are lamer than torontotrance & Mr Mystery combined!"
End If
PicsOrSTFU = InputBox("Do you have nekkid pics?" & vbCr & "Yes/No", pwned, "Yes", 5000, 0)
If PicsOrSTFU = Yes Then
MsgBox "CAN I SEE THEM!!!!?!!!!!!!!!", , "OMGOMGOMGHI2UKTHXBIE"
Else: MsgBox "Damn!"
End If
X = InputBox("Ball in Parking Lot. Do you wish to play again? Yes/No" _
, "Lee Carvino's Putting Challenge", , 5000, 0)
MsgBox "You have selected NO"
' I am such a 1337 Ta. ph33r m4 VBA skillz!!!!!
'BRICKED!!!!!!!!!!!!!! HAHAHAHAHA
'PICS OR STFU N00B!!!!!1
End Sub
|
this is kinddof easy to figure out even without Excel 
___________________
|
|
Aug-19-2004 03:39
|
|
|
 |
 |
|
 |
All times are GMT. The time now is 05:59.
Forum Rules:
You may not post new threads
You may not post replies
You may not edit your posts
|
HTML code is ON
vB code is ON
[IMG] code is ON
|
|
|
|
|
|
Contact Us - return to tranceaddict
Powered by: Trance Music & vBulletin Forums
Copyright ©2000-2026, Jelsoft Enterprises Ltd.
Privacy Statement / DMCA
|