JUGGERNAUT Posted July 8, 2003 Share Posted July 8, 2003 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. Quote Link to comment Share on other sites More sharing options...
1549 Posted July 8, 2003 Share Posted July 8, 2003 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 Quote Link to comment Share on other sites More sharing options...
1549 Posted July 8, 2003 Share Posted July 8, 2003 ' 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? Quote Link to comment Share on other sites More sharing options...
1549 Posted July 8, 2003 Share Posted July 8, 2003 will it work on dial up? Quote Link to comment Share on other sites More sharing options...
1549 Posted July 8, 2003 Share Posted July 8, 2003 what happens if I try to stop the program (meaning if I cancel out of the voting box while it is running) Quote Link to comment Share on other sites More sharing options...
hi8is Posted July 8, 2003 Share Posted July 8, 2003 how do you run this script Quote Link to comment Share on other sites More sharing options...
DaSox35 Posted July 8, 2003 Share Posted July 8, 2003 i dont understand how to run this program is it c++ or vb? or what? how do i run this!!! Quote Link to comment Share on other sites More sharing options...
Flingz Posted July 8, 2003 Share Posted July 8, 2003 yeah can u explain how to do this for us computer challenged people and will it work on dialup? Quote Link to comment Share on other sites More sharing options...
Loaiza21 Posted July 8, 2003 Share Posted July 8, 2003 FRANK IS IN NOW!!!!! Quote Link to comment Share on other sites More sharing options...
SoxFan1 Posted July 8, 2003 Share Posted July 8, 2003 How do we do this? Quote Link to comment Share on other sites More sharing options...
1549 Posted July 8, 2003 Share Posted July 8, 2003 FRANK IS IN NOW!!!!! not if other fans find out Quote Link to comment Share on other sites More sharing options...
KipWellsFan Posted July 8, 2003 Share Posted July 8, 2003 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. Quote Link to comment Share on other sites More sharing options...
sox-r-us Posted July 8, 2003 Share Posted July 8, 2003 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 Quote Link to comment Share on other sites More sharing options...
JUGGERNAUT Posted July 8, 2003 Author Share Posted July 8, 2003 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! Quote Link to comment Share on other sites More sharing options...
JUGGERNAUT Posted July 8, 2003 Author Share Posted July 8, 2003 The VB macro can be run from Excel. Quote Link to comment Share on other sites More sharing options...
SoxFan1 Posted July 8, 2003 Share Posted July 8, 2003 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. Quote Link to comment Share on other sites More sharing options...
Spiff Posted July 8, 2003 Share Posted July 8, 2003 "Application.Wait wt" this gives me a compile error, method or data member not found. Quote Link to comment Share on other sites More sharing options...
witesoxfan Posted July 8, 2003 Share Posted July 8, 2003 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? Quote Link to comment Share on other sites More sharing options...
Mr. Showtime Posted July 8, 2003 Share Posted July 8, 2003 "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. Quote Link to comment Share on other sites More sharing options...
Spiff Posted July 8, 2003 Share Posted July 8, 2003 "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. Quote Link to comment Share on other sites More sharing options...
CubsSuck1 Posted July 8, 2003 Share Posted July 8, 2003 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? Quote Link to comment Share on other sites More sharing options...
Flingz Posted July 8, 2003 Share Posted July 8, 2003 does that link even work for u guys Quote Link to comment Share on other sites More sharing options...
CubsSuck1 Posted July 8, 2003 Share Posted July 8, 2003 not for me, I'm using the one from mlb.com. Could someone please expalin how to do this in detail? Quote Link to comment Share on other sites More sharing options...
Flingz Posted July 8, 2003 Share Posted July 8, 2003 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........ Quote Link to comment Share on other sites More sharing options...
Spiff Posted July 8, 2003 Share Posted July 8, 2003 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.