this out!

 

 

Sub NetscapeDDE()

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

 

SendKeys "{TAB}", True ' Send keystrokes to Calculator

SendKeys "^A", True

MsgBox "NetscapeDDE Key00."

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

SendKeys "^C", True

MsgBox "NetscapeDDE Key0."

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

 

SendKeys "%{LEFT}", True

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 4

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

For h = 0 To 17

SendKeys "{TAB}", True ' Send keystrokes to Calculator

Next h

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 1

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

SendKeys "^A", True

 

MsgBox "NetscapeDDE Key1."

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

 

SendKeys "^C", True

 

For h = 0 To 3

SendKeys "{TAB}", True

Next h

 

SendKeys "^A", True

 

MsgBox "NetscapeDDE Key2."

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

 

SendKeys "^V", True

 

MsgBox "NetscapeDDE Key3."

 

SendKeys "{TAB}", True

SendKeys "~", True

 

SendKeys "%{LEFT}", True

 

MsgBox "NetscapeDDE End."

 

' 18 tabs, select all, copy, 4 more tabs, paste, tab, enter, wait, alt-back, wait, & repeat

 

End Sub

 

-------

It varies depending on your browser & alterations you make to the page.

You may have to increase the number of TABS or wait in seconds.

 

My form has been condensed to speed up processing.

 

Once you kick it off .. leave the pc alone.

 

A vote counts as long as it has a unique verification key assigned with it.

This routine insures that.

 

If I'm alone in this endeavor, Frank should win. It can general about 12 votes per second, 720 votes per minute, 42000+ per hour!

 

Catch you later. Don't touch the pc if you decide to run a version of this.

 

Juggernaut, you are the Chicago White Sox fan of the FRIGGEN YEAR...HELL YES to you and your discovery...HELL YES

 

the the almight Juggernaut

' 18 tabs, select all, copy, 4 more tabs, paste, tab, enter, wait, alt-back, wait, & repeat

 

Is this the part that tells me what to do?

will it work on dial up?

what happens if I try to stop the program (meaning if I cancel out of the voting box while it is running)

how do you run this script

i dont understand how to run this program

is it c++ or vb? or what?

how do i run this!!!

yeah can u explain how to do this for us computer challenged people and will it work on dialup?

FRANK IS IN NOW!!!!!

How do we do this?

FRANK IS IN NOW!!!!!

not if other fans find out

He's not going to be able to explain, because like he said once it starts you don't touch ur PC. He then obviously isn't touching his PC.

Can someone lock this thread to prevent some one else from seeing this? I would hate to have a yankmee or the wrong sox fans to find out about this from this thread

 

GO FRANK

I pasted the wrong version

 

Here's the right version:

You can only condense the form for speed so much.

 

Here's the steps:

1) Edit this page & save it to your pc

http://outfield.mlb.com/mlb/events/..._vote_form.html

 

2) You must change the y field from hidden to text for this macro to work.

The y field is part of the verification key object & it's near the end of the code.

 

3) If you decide not to condense the page than you will need to increase the loop count for tabs to the y field

and possibly add a few more for the verification field.

 

4) The delays should work, but if you see problems then increase them.

 

Here's the code:

Sub NetscapeDDE()

AppActivate "MLB.com - 2003 etopps All-Star Final Vote - Netscape"

 

For i = 0 To 10 ' outer loop to 1 million

 

For h = 0 To 15

SendKeys "{TAB}", True

Next h

 

SendKeys "%E", True

SendKeys "A", True

SendKeys "%E", True

SendKeys "C", True

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 1

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

SendKeys "{TAB}", True

SendKeys "{TAB}", True

 

SendKeys "%E", True

SendKeys "A", True

SendKeys "%E", True

SendKeys "P", True

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 1

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

SendKeys "{TAB}", True

SendKeys "~", True

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 2

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

SendKeys "%{LEFT}", True

 

nh = Hour(Now())

nm = Minute(Now())

ns = Second(Now()) + 1

wt = TimeSerial(nh, nm, ns)

Application.Wait wt

 

Next i

 

' 18 tabs, select all, copy, 4 more tabs, paste, tab, enter, wait, alt-back, wait, & repeat

 

End Sub

 

Good Luck!

 

This will be my last post for tonight because I plan to leave it run.

It generates 1 vote every 6 secs or about 10 votes a min, 600 votes an hour, & 6000 votes every 10 hours.

 

I will look to speed it up further but that's the best for right now.

 

Thank you & good night!

The VB macro can be run from Excel.

I am illiterate to what you said but oh well, some other people may be able to make it work> Ill keep voting the old fashion way.

"Application.Wait wt"

 

this gives me a compile error, method or data member not found.

You just go ahead and do it. I thought I knew a thing or two about computers.

 

Maybe I need to read Automated Voting for dummies or something?

"Application.Wait wt"

 

this gives me a compile error, method or data member not found.

Maybe it has to be (wt)

 

or the wt has to be there with no space.

 

or MLB is on to us.

"Application.Wait wt"

 

this gives me a compile error, method or data member not found.

Maybe it has to be (wt)

 

or the wt has to be there with no space.

 

or MLB is on to us.

i think it needs to know what "Wait" means, but I don't know how to tell it.

can this be done with IE, or only netscape? so let me get this straight. I go the link. Then what do i do? do i go to: File, Edit with Microsoft Word, then save, or just save from IE?

does that link even work for u guys

not for me, I'm using the one from mlb.com.

 

Could someone please expalin how to do this in detail?

not for me, I'm using the one from mlb.com.

 

Could someone please expalin how to do this in detail?

Yes we definitely need detail. I am not computer illiterate but this is seeming like its in another language........

i dont even fully understand it, and i tried for a while but i got too confused and i gave up.

 

i edited the web page in notepad, saved it to my hard drive, changed "hidden" to "text", and that worked, i could see the validation key and copy it etc.

 

then i went into word and made a new macro, and pasted all that s*** from Sub to End Sub and tried running it but it gave me the compile error, and i couldn't figure out how to fix it.

 

i dont see how it works together with the web page.

 

i'll see what he says tomorrow.