Neighborhoodie of the Year

Jenmac

Ok, ponies!
#42
If only we could get our hands on his code.
note: someone with programming experience is gonna have to head this up. he lost me at WshShell.
 

Purnell

Active Member
#43
mceatsomething said:
If only we could get our hands on his code.
note: someone with programming experience is gonna have to head this up. he lost me at WshShell.
Can anyone who knows what he or she is talking about tell me if this marginally modified version of this guys code is right? If so, then its just a matter of numbers, and I think we have those on our side.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore.exe http://neighborhoodies.com/catalog/noty_vote.php", 9
Wscript.Sleep 1000
WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "java_script_:document.forms[0].vote[5].click{(}{)}"
WshShell.SendKeys "~"
WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "java_script_:document.forms[0].submit.click{(}{)}"
WshShell.SendKeys "~"
Wscript.Sleep 1000
WshShell.SendKeys "%{F4}"
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[1].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[1].txt")
f1.Delete
End If
If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[2].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[2].txt")
f1.Delete
End If
Wscript.Quit
 

GoldDustWoman

difficult but worth it
#46
mceatsomething said:
If anyone figures it out, save the big push for early Monday morning. Also, don't post to the brother's website.
Dumbengineer? You can't, it's password-protected.

They truly suck.

Why hasn't neighborhoodies caught on to this?
 
#47
GoldDustWoman said:
Dumbengineer? You can't, it's password-protected.

They truly suck.

Why hasn't neighborhoodies caught on to this?
It's good publicity for them.

Brother Gabe's site login is the and the password is inconvenience. (no period).

Dyna asking us not to vote for her is like Malcom X turning pacifist. I don't know what to do! I want to win this. If it makes you feel dirty, Dyna, you could ask them to just give the certificate to Rushmore when you win.

I like that Brother Gabe is discussing strategy aginst Pac Islander, and not Dyna (despite the fact that she was the one with the highest vote count all year). If Pac Islander's camp steps up their macroing, we may have to jump the gun just to keep up. But I think we can win with numbers.

Poor Min. I bet she's crying herself to sleep this week.
 

OhDramaQueen

I heart monkeys!
#48
I know the Dyna-mites are planning on cheating if they break the code, but could we take the high road and alert the people at neighborhoodies? It's more than a little suspicious that two have 20,000ish to the others less than 1000? Especially if there's proof of the heinous beevil deeds. Maybe they can fix their system so we can all go vote properly (because Dyna probably legitimately has the largest following of the 5). Any takers?

~Molly
*I do not actually know Dyna Moe in person, but I back her 100% in this endeavor ;-)

Update: I added a "few" votes for Dyna and a couple for Min, cuz she's just adorable.
 
Last edited:
#49
Let the Bee win and live forever never knowing if she could have won without cheating. Don't bother trying to beat her, it is futile.
 

EpicZero

Unregistered User
#50
If they were going to change the voting system they would have changed it a long time ago. The voting system isnt going to change. Its just a simple code written for a stupid contest where the only value of winning is the value you give it by participating. A $50 gift certificate is a pretty lame prize anyway. Plus you could always support dyna in (what I feel are) better ways like going to see her shows.
 

dethtron5000

all things to all people*
#51
I think they've moved to a more sophisiticated engine. I tried blocking cookies and re-voting and it doesn't seem to be adding votes.
 
#52
Those of us who will be running a script for Dyna, I suggest we start overnight on Sunday-Monday, no earlier than midnight.

I'll be away for the rest of the weekend, and I haven't made time to check the script yet. I'm no code-jockey, anyway. Could someone please confirm a working script and post instructions for both Mac and PC (Whines, Purnell, Jennings?)?

I have two Windows boxes I can dedicate overnight on Sunday.
 
#53
Figuring 10 hours for the over night (1am - 11am) and one vote per second, one computer will do 36000 votes. We'll need at least that to catch up with the Bee and Pac, especially if they really turn it on before then.
 

DJ Plan B

Enemy Combatant
#54
after knowing nothing of the Jen vs. Jen previous match (and just learning in the last hour), i find this all hilarious. especially because the Bee's brother has no idea he's up against another NYC improvisor and their hoodie.
 
#55
I'm not able to get the script to work.

The script is opening Internet Explorer to the voting page and is clearing my cookies, but no vote is being tallied.

Brother's code has the Bee as "vote[3]," Purnell's code has Dyna as "vote[5]." But I figure Dyna must be #4 if the Bee is #3 (with Rushmore as #0). But neither work for me.

I AM able to vote manually - clearing cookies and manually re-voting works for me.

I'd certainly appreciate any help. I don't know anyting about coding.
 
Last edited:
#56
Got it working.

Here's the script for once on a windows machine:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore.exe http://neighborhoodies.com/catalog/noty_vote.php", 9

Wscript.Sleep 1000

WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "javascript:document.forms[0].vote[4].click{(}{)}"
WshShell.SendKeys "~"

WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "javascript:document.forms[0].submit.click{(}{)}"
WshShell.SendKeys "~"

Wscript.Sleep 1000

WshShell.SendKeys "%{F4}"

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[1].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[1].txt")
f1.Delete
End If
If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[2].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[2].txt")
f1.Delete
End If

Wscript.Quit​


Here's the script for 50,000:




Set WshShell = WScript.CreateObject("WScript.Shell")

For i = 1 to 50000

WshShell.Run "iexplore.exe http://neighborhoodies.com/catalog/noty_vote.php", 9

Wscript.Sleep 1000

WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "javascript:document.forms[0].vote[4].click{(}{)}"
WshShell.SendKeys "~"

WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "javascript:document.forms[0].submit.click{(}{)}"
WshShell.SendKeys "~"

Wscript.Sleep 1000

WshShell.SendKeys "%{F4}"

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("c:\documents and settings\administrator\cookies\administrator@catalog[1].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\administrator\cookies\administrator@catalog[1].txt")
f1.Delete
End If
If (fso.FileExists("c:\documents and settings\administrator\cookies\administrator@catalog[2].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\administrator\cookies\administrator@catalog[2].txt")
f1.Delete
End If
Next

Wscript.Quit


In either case, copy the text into notepad. You must replace all 8 instances of "username" or "administrator" with whatever your windows username is. Save the file as "killthebee.vbs" and doubleclick to run.

EDIT: There may have been a typo in the script as I posted it; it should be corrected now.
 
Last edited:

Z-Tab

Grampa Spoonbread
#58
I've had a couple of PCs running your script since around 11:30, they should be set until around 8 AM, hopefully racking up some odd thousands of votes. Nice work on it, I made the delay a little longer, as my connection wasn't loading the site as quickly as it seems yours was. If other folks get on this as well, we may well be able to log over 100,000 votes, ending the Neighborhoodie of the Year contest forever and destroying their faith in humanity.

In general I frown on cheating, in this case it seems that the best cheater will be the victor.
 
#59
Good point. I've got 4 machines running the script, each at various delays.

If you find that the page doesn't finish loading before your vote is cast, you can increase the delay between loading the page and voting by editing the first instance of
Wscript.Sleep 1000​
1000 = 1 second (I think), so increase accordingly.

Dyna could still use more help. There's quite a ways to go before we even hit The Bee's current total.
 
Last edited:

mattpack

Like a fat kid love cake
#60
I've been doing the math - we're averaging 20 votes a minute with these scripts - in the 11.5 hours left, that means we should get just short of 12,000 votes - not enough to catch up. Pacific Islander may be the only one who can beat The Bee - we must beat The Bee, people! Should we give up and throw our support behind Pacific Islander?
 
Top