hello my friends

[marryzee]

Hi
i am Sarra Stivens... i am 20 and i goodlooking girl,
i like this site
i wish f to rtgister on this site time ago, but i do it today cous of some reasons...
i am good looking and i a proposition to have a rest this summer with a boy 20-25 year old
hendsome, dont smoke, with a good body..
with my side -- no problem.. rest 20-30 days
photo and others on latter...

so post about yourself!!!

thanks,,

[jdl]

Welcome to the forum marryzee, but hellos like this should be in the "Meet And Greet" section, just to let you know.

[mqdar]

SPAMBOT CHECK = SPAMBOT!

Even without the spambot check (which is looking up their username on Google), it's obvious that marryzee is not real. First of all, this is in General Wonderland Discussion. Second of all, there is nothing about Wonderland in that post. Third of all, this isn't the sort of thing you talk about in this forum.

(Oh look, no smilies!)

[jdl]

Oops, looks like I messed up with that one! Yeah, anyone who joins, that isn't stuff that you should talk about on here. And even I used smilies on my first post!

[tyteen4a03]

SPAMBOT CHECK = SPAMBOT!

Even without the spambot check (which is looking up their username on Google), it's obvious that marryzee is not real. First of all, this is in General Wonderland Discussion. Second of all, there is nothing about Wonderland in that post. Third of all, this isn't the sort of thing you talk about in this forum.

(Oh look, no smilies!)

You finally use(without premission )my spambot check machine!XD

[jdl]

Spambot Checking Machine??? Whats that?

[mqdar]

It's not a machine (tyteen ). Here's the so-called code:

Code: Select all

Dim Spambot As Boolean = False
Results = (GoogleSearch("marryzee")), SearchNum
If Results > 10 Then
  Spambot = True
End If

If Spambot = True Then
  Print "SPAMBOT CHECK = SPAMBOT"
Else
  Print "SPAMBOT CHECK = REAL"
  Print "Welcome to the forum!"
End If
End

[jdl]

<--- The smiley says all.

[mqdar]

I made up the command "GoogleSearch" on the spot.
Jacob, if you learn QBasic (which I used for my game), you will understand more of this, and notice the fake commands.

Tyteen, I'm not sure how many results you would want there to be in a google search to deem the user a spambot (is that the right use of "deem"?). I chose ten. Et toi?

[tyteen4a03]

I made up the command "GoogleSearch" on the spot.
Jacob, if you learn QBasic (which I used for my game), you will understand more of this, and notice the fake commands.

Tyteen, I'm not sure how many results you would want there to be in a google search to deem the user a spambot (is that the right use of "deem"?). I chose ten. Et toi?

Right,it's like it,but I am just using VP(XD,it'' VB)
And some few change of your code:
Set Spambot Name=x

Code: Select all

Dim Spambot As Boolean = False 
Results = (GoogleSearch("x")), SearchNum 
If Results > 100 Then 
  Spambot = True
End If 
If Results < 100 Then
  Spambot = False
End If
If Results = 100 Then
   Spambot = Null
End If
If Results < 0 Then
   Spambot = Null

If Spambot = True Then 
  Print "Spambot Check Result=SPAMBOT!!!!!!!!!" 
End If
If Spambot = Fales Then
  Print "Spambot Check Result=Real Person"
  Print "Welcome to the Great&#40;&#58;lol&#58;&#41; Wonderland Forum!"
  Print "Hope you have fun here!"
End If
If Spambot = Null
  Print "The Program could not find enought infomation to ensure that this user is a spambot or a real person"
End If
End

I choose 100 here.

[chrise]

Well, I don't think the number of Google results on the username should be taken as an indicator that someone is a spambot... I think that code would show chrise (me), tyteen4a03, mqdar, jdl, and in fact probably the majority of users here as spambots. If you actually go to the pages in the search results and find many identical posts on various forums, then you might conclude that they are probably a spambot... or perhaps they are just someone who is looking on forums for friends.

If this really is a spambot, I am slightly confused as to what the point of it is. It doesn't actually seem to be advertising anything, except for the request for a partner, responses to which would surely need to be dealt with by a human anyway...

[Toon Dog]

Good point... New code!

Code: Select all

Dim Identicy As Integer
Dim spam As Boolean
If Identicy = 15 Or Identicy > 15 Then
    spam = True
Else
    spam = False
End If
If spam = True Then
    print "SPAMMER!"
Else
    print "Welcome!"
End If

YAY!