:duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :
Printable View
:duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :duck: :
I used to love my duck colon :(
The many faces of mendhak...
:afrog:
http://www.vbforums.com/images/ieimages/2006/02/1.gif
http://www.vbforums.com/images/ieimages/2006/02/1.gif
http://www.vbforums.com/images/ieimages/2006/02/1.gif
http://www.vbforums.com/images/ieimages/2006/02/1.gif
http://www.vbforums.com/images/ieimages/2006/02/1.gif
http://www.vbforums.com/images/ieimages/2006/01/1.gif
http://www.vbforums.com/images/ieimages/2006/02/1.gif
Your avatar is creepy in a positive way :lol:Quote:
Originally Posted by Bonker Gudd
Wouldn't it be funny if Cyber came back and changed the name of this thread?
VB Code:
if spam.mode then Kill spammer end if
VB Code:
If Detected.Spammer Then Spammer.BeatHeadIn("wooden cooking spoon") Spammer.Kick("groin") End If
Please people! Learn to declare objects!
VB Code:
Dim spamguy as System.VBForums.Members.Spammers Private Sub PunishSpammer(spammer as spamguy) With spammer If .Detected = True Then .Beat("Aluminium baseball bat") .Kick("Teeth") .Kick("Groin") .Headbutt("Nostrills") End With End Sub
Jesus... Where on earth is that sub being called?
VB Code:
Dim spamguy as System.VBForums.Members.Spammers Private Sub PunishSpammer(spammer as spamguy) With spammer If .Detected = True Then .Beat("Aluminium baseball bat") .Kick("Teeth") .Kick("Groin") .Headbutt("Nostrills") End With End Sub Private Sub Forum_Spam(spammer As String) PunishSpammer spammer End Sub
Where did you learn to code? My god..
I learnt everything off you timeshifter... :D
And forgot one more thing...
VB Code:
Dim spamguy as System.VBForums.Members.Spammers Private Sub PunishSpammer(spammer as spamguy) With spammer If .Detected = True Then .Beat("Aluminium baseball bat") .Kick("Teeth") .Kick("Groin") .Headbutt("Nostrills") End With End Sub Private Sub Forum_Spam(spammer As String) PunishSpammer spammer End Sub Private Sub Form_Load() PunishSpammer spammer 'or Forum_Spam spammer End Sub
No, no.. you're making it too complicated. Here at VBF, we wait for the spamming to start, then we go about punishing them.. no need to call it when the form loads...
VB Code:
Private Declare Sub Spammer Lib "spam32" (ByVal numberOfPost As Long) Private Sub Form_Load() On Error GoTo errmsg Do Until spam.EOF Spammer 10000000 Loop Exit Sub errmsg: MsgBox "Overflow, avoid spamming!!!" End Sub
spam +1
You have no End If; you declare a static variable; and you use a variable as if it were a type.Quote:
Originally Posted by kregg
/slap * 3
Baaaz da doon!
:wave:
Obey your globe.
Bump.
Spoonguard.
Wossy was exposed to spoons for a mere seven seconds... now look at him!
I dont think he is visiting the forum these days :bigyello:Quote:
Originally Posted by timeshifter
He actually wanted to hit 1000, we have hit more than 46000.... :thumb: :DQuote:
Originally Posted by CyberSurfer
I'm still here, just don't post too much
Why not?
I thought you are not visiting because there is no recent posts from you....ah ya...I hope you are posting only at General PC and Chats secions.... ;)Quote:
Originally Posted by CyberSurfer
I only really post in CC and General PC these days as the only programming I do is non windows.
Not like there'sanything else worht posting in...
Quite
VB Code:
Imports VBForums.Members.Spammer.PunishmentTypes Imports VBForums.Members.Spammer.BodyParts Namespace VBForums.Members Public Class DealWithSpammer Private WithEvents _spamguy As Spammer Public Sub New(ByVal spamGuy As Spammer) _spamguy = spamGuy End Sub Private Sub PunishSpammer() Handles _spamguy.BeingAtool With _spamguy .Interact(Beat, Body) .Interact(Kick, Teeth) .Interact(Kick, Groin) .Interact(HeadButt, Nostrills) End With End Sub End Class Public Interface DefaultMember ReadOnly Property description() As String End Interface Public Class Spammer Implements DefaultMember Private _description As String Public Event BeingAtool() Sub New() Me._description = "I annoy the hell out of people." End Sub Public ReadOnly Property description() As String Implements DefaultMember.description Get Return _description End Get End Property Public Sub Interact(ByVal punishType As PunishmentTypes, ByVal parts As BodyParts) Console.WriteLine("Call a hospital, this guy is getting worked over.") End Sub Public Enum PunishmentTypes Beat Kick HeadButt End Enum Public Enum BodyParts Body Teeth Groin Nostrills End Enum End Class End Namespace
:wave:
whats going on?
[Seven years later]: Zonk
HEEEEY im picking leeks.
Your leeks suck.
y0u|2 1e3|< 5u><0rz /\/\0r3...
How could they? Theyre leeks. :mad:Quote:
Originally Posted by Bonker Gudd
Watch me levitate. Do you feel that?
i :duck: :duck: :duck:
play :duck: :duck: :duck:
:duck: :duck: GOOSE
random crap goes here
OOOOOOOO
OOO OOO
OOOOOOOO
<random crap>
Blah.
</random crap>