Jump to content

help me with my ebay auction sniper


Recommended Posts

how do you guys suggest I pause this script until w/i a minute or so of the auction ending. While loop or some sort of sleep. I don't know. Any help would be appreciated. :P

i know this is some flagship software so uhh ® .. you kno how it goes :nuke:

Dim $howmuchdollas
Dim $continue
Dim $auctionaddress
Global $endofauction
#include <Date.au3>
$howmuchdollas = Inputbox("Auction Dragster", "What's the maximum  bid? ie: 27.00", ".00")
$auctionaddress = Inputbox("Auction Dragster", "Travel to the auction address and put the link in this box.", "")
$endofauction = Inputbox("Auction Dragster", "When does this auction end? ie: YYYY/MM/DD HH:MM:SS", _NowCalc())
$continue = Msgbox( 1, "Are you sure?", "You entered " & $howmuchdollas & " as your maximum bid of the auction's local currency.  This auction ends at " & $endofauction & " -- Military Time.")
If $continue = 1 Then
    Select
        Case @desktopheight = "768"
            dothetime($endofauction)
            RunWait(@ComSpec & ' /c start http://www.ebay.com', '', @SW_HIDE)
            MouseClickDrag("left", 464, 71, 225, 70, 100)
            Send ($auctionaddress&"{ENTER}")
            Sleep(3000) ;three seconds
            MouseMove( 494, 390) ; move to place bid button.
            MouseClick ("left") ; click placebid
            Sleep(27000)
            MouseMove ( 338, 130) ; go over mozilla roboform toolbar to login to ebay.com
            Sleep(2000)
            MouseMove(350, 157) ; move to fill and submit roboform command
            MouseClick ("left") ; click fill and submit roboform
            Sleep(5000)
            Send($howmuchdollas&"{ENTER}")
            Sleep(4000)
            MouseMove(67, 408)
            MouseClick("left") ; click on submit bid.
        Case @desktopheight = "600"
            ;when i'm bored.
        Case Else
            Msgbox( 0, "Incorrect Resolution", "This program operates with 800x600 or 1024x768 resolution.  Right click on your desktop..'Properties' and click the 'Settings' tab to make changes.")
    EndSelect
Else
    Msgbox(0, "Auction Dragster", "Snipe canceled by user")
EndIf
Exit

Func dothetime($endauction)
    #include <Date.au3>
    Local $thedifference
    $thedifference = _DateDiff('s', _NowCalc(), $endauction)
    return $thedifference
EndFunc
Link to comment
Share on other sites

Not tested, I doubt will work as posted, just a concept.

Func _Wait
    Sleep(60000)
    If _nowcalc = $endofauction - 0000/00/00 00:05:00 then
        ;;;;;;;;;;
        ;Code here;
        ;;;;;;;;;;
    Else
        Call("_Wait")
    Endif

Also might want to look into IE.au3 for navigation.

[quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]

Link to comment
Share on other sites

It will work if that _wait function will wait until the first condition was met and then run that code. Anybody else familiar with _wait ???

it will call itself every 60 seconds, if the script runs long enough you'll reach a recursion level exceded and the script will abort.

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Link to comment
Share on other sites

it will call itself every 60 seconds, if the script runs long enough you'll reach a recursion level exceded and the script will abort.

yess thank you so much for this knowledge; would any1 know how long it will take for this recursion level to be met.

Link to comment
Share on other sites

  • 4 weeks later...

yess thank you so much for this knowledge; would any1 know how long it will take for this recursion level to be met.

Did you ever complete this project - I know for one I would be very interested in the completion.

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Link to comment
Share on other sites

  • 8 months later...

Hello, I have made a snipe script with greasemonkey using Gixen free and very cool :)

eBay Gixen - Autosnipe

This script adds a "Snipe this item" link to item page you view after doing a search on eBay. You can click on the link and it will add a snipe for the item.

Video that shows what autosnipe add-on is:

http://www.gixen.com/autosnipevideo/video.swf

Require Greasemonkey installed for firefox users

If you are having problems installing the script checkout http://diveintogreasemonkey.org/install/userscript.html

Edited by Kogmedia
[font="Verdana"]Keith (Kogmedia)[/font]My ScriptQuick Search - Internet / Hard Drive Search
Link to comment
Share on other sites

  • 1 month later...

I really like that video. It shows how easy it is to hand off your personal info to some stranger's website :rolleyes:.

Won't greasemonkey+autoit allow you to create this type of function all on your own machine? If not, why not?

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...