Jump to content

eBay Multi Snipe for Gixen.com

Kogmedia

By Kogmedia,
in AutoIt Example Scripts

 Share

Recommended Posts

Kogmedia Adventurer

Kogmedia

Posted
Posted

eBay Multi Snipe

The password is not stored on your computer!

SSL encryption with Gixen!

Gixen is a FREE Highly Reliable & Secure eBay Auction Sniper

Source Code

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Gixen.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
#include <INet.au3>
#include <array.au3>
#include <File.au3>
#Include <Date.au3>

Global $TITLE = 'AutoSnipe'
Global $EXT = '.txt'
Global $GixenUserName
Global $GixenPassword
Global $NoSnipe = 0
Global $oRead

Dim $ItemNumber,$Bid,$GixenUserName,$sInputBoxAnswer
#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Login","USERNAME",""," M","140","125","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
            If $sInputBoxAnswer = "" Then Exit
            $GixenUserName = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---

#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Login","PASSWORD","","*","140","125","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
             If $sInputBoxAnswer = "" Then Exit
             $GixenPassword = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect

While 1
#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=200, Height=30
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Add an Item Number",""," ","200","30","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
    If $sInputBoxAnswer = "" Then Exit
        $ItemNumber = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Snipe Amount",""," ","200","30","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
    If $sInputBoxAnswer = "" Then Exit
      $Bid = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---
TrayTip("Adding Snipe","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10)
$return = GixenSnipe($ItemNumber,$Bid)
If $return <> 1 Then 
    TrayTip("Error!","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10)
    MsgBox(0,"Autosnipe",$return,30)
EndIf
TrayTip("","",0)
WEnd

Func GixenSnipe($ItemNumber,$Bid)

    If WinExists("Gixen Autosnipe") <> 0 Then $oIE = _IECreate("https://www.gixen.com/autosnipe.php",0,0,1,1)
    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection ($oIE, 0)
        $oFormUsername = _IEFormElementGetObjByName($oForm,"username")
        $oFormPassword = _IEFormElementGetObjByName($oForm,"password")
        $oFormItemId = _IEFormElementGetObjByName($oForm,"itemid")
        $oFormBid = _IEFormElementGetObjByName($oForm,"maxbid")
            _IEFormElementSetValue($oFormUsername,$GixenUserName)
            _IEFormElementSetValue($oFormPassword,$GixenPassword)
            _IEFormElementSetValue($oFormItemId,$ItemNumber)
            _IEFormElementSetValue($oFormBid,$Bid)
    _IEFormSubmit($oForm)
    Sleep(1000)
    _IELoadWait($oIE)
    $oRead = _IEBodyReadText($oIE)
    _IEQuit($oIE)
    If StringInStr($oRead,"Added item ") = 0 Then 
    Return('Item#: '&@TAB&$ItemNumber&@CRLF&'Bid: '&@TAB&$Bid&@CRLF&StringTrimLeft($oRead,54))
    Else
    Return(1)
    EndIf
Return(0)
EndFunc
[font="Verdana"]Keith (Kogmedia)[/font]My ScriptQuick Search - Internet / Hard Drive Search
Link to comment
Share on other sites
  • 1 month later...
blubirdz Seeker

blubirdz

Posted
Posted

I like this script but i get the following error on execution, just after entering and submitting the snipe amount -

=================================

Line 86

_IELoadWait($oIE)

_IELoadWait(^ERROR

Error: Variable used withot being declared.

=================================

Any comments...dont know much about autoit scripts...just started learning :P

Note:

===

When i went to the link in the script code and tried to manually use the link the script uses

- https://www.gixen.com/autosnipe.php

,I got this message -

"Sorry, autosnipe script is available to mirror subscribers only."

Question - could this be why your autoit script fails?

Suggestion - maybe you might wanna use this link in the script instead -

http://www.gixen.com/home_1.php?username=s...nameurlencoded=

"sennfr' in the link above is my ebay username.

Thanx!

Link to comment
Share on other sites
  • 11 months later...
  • 7 months later...
speedi Adventurer

speedi

Posted
Posted

Gixen no longer requires Mirror Subscription for Autosnipe (above problem fixed)

Hi Keith, I also had the same problem that you said is fixed.

==> Variable used without being declared.:

_IELoadWait($oIE)

_IELoadWait(^ ERROR

->11:26:07 AutoIT3.exe ended.rc:1

+>11:26:08 AutoIt3Wrapper Finished

>Exit code: 1 Time: 59.461

I copied the script from your first posting... Thanks for any help!!!

Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted

Hi Keith, I also had the same problem that you said is fixed.

==> Variable used without being declared.:

_IELoadWait($oIE)

_IELoadWait(^ ERROR

->11:26:07 AutoIT3.exe ended.rc:1

+>11:26:08 AutoIt3Wrapper Finished

>Exit code: 1 Time: 59.461

I copied the script from your first posting... Thanks for any help!!!

Did you happen to notice just when this script was made?

... might want to check to see if he is still around with only 127 posts

OK, I did... Last Seen: 18th December 2008 - 01:08 PM

8)

NEWHeader1.png

Link to comment
Share on other sites
speedi Adventurer

speedi

Posted
Posted

Did you happen to notice just when this script was made?

... might want to check to see if he is still around with only 127 posts

OK, I did... Last Seen: 18th December 2008 - 01:08 PM

8)

Yes - It looked like a long shot... I have been trying to do my own ebay snipe thing and I haven't made much progress....

THANKS!

Link to comment
Share on other sites
  • 1 month later...
Kogmedia Adventurer

Kogmedia

Posted
  • Author
Posted

Try this, gets past line 86 but not fully tested :

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Gixen.ico
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
#include <INet.au3>
#include <array.au3>
#include <File.au3>
#Include <Date.au3>

Global $TITLE = 'AutoSnipe'
Global $EXT = '.txt'
Global $GixenUserName
Global $GixenPassword
Global $NoSnipe = 0
Global $oRead
Global $oIE
Global $ie_visable = 0 ;0=IE Hidden; 1=Visable

Dim $ItemNumber,$Bid,$GixenUserName,$sInputBoxAnswer
#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Login","USERNAME",""," M","140","125","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
            If $sInputBoxAnswer = "" Then Exit
            $GixenUserName = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---

#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Login","PASSWORD","","*","140","125","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
             If $sInputBoxAnswer = "" Then Exit
             $GixenPassword = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect

While 1
#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=200, Height=30
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Add an Item Number",""," ","200","30","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
    If $sInputBoxAnswer = "" Then Exit
        $ItemNumber = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Snipe Amount",""," ","200","30","-1","-1")
Select
    Case @Error = 0;OK - The string returned is valid
    If $sInputBoxAnswer = "" Then Exit
      $Bid = $sInputBoxAnswer
    Case @Error = 1;The Cancel button was pushed
    Exit
    Case @Error = 3;The InputBox failed to open
    Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---
TrayTip("Adding Snipe","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10)
$return = GixenSnipe($ItemNumber,$Bid)
If $return <> 1 Then 
    TrayTip("Error!","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10)
    MsgBox(0,"Autosnipe",$return,30)
EndIf
TrayTip("","",0)
WEnd

Func GixenSnipe($ItemNumber,$Bid)

    If $oIE = 0 Then $oIE = _IECreate("https://www.gixen.com/autosnipe.php",0,$ie_visable,1,1)
    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection ($oIE, 0)
        $oFormUsername = _IEFormElementGetObjByName($oForm,"username")
        $oFormPassword = _IEFormElementGetObjByName($oForm,"password")
        $oFormItemId = _IEFormElementGetObjByName($oForm,"itemid")
        $oFormBid = _IEFormElementGetObjByName($oForm,"maxbid")
            _IEFormElementSetValue($oFormUsername,$GixenUserName)
            _IEFormElementSetValue($oFormPassword,$GixenPassword)
            _IEFormElementSetValue($oFormItemId,$ItemNumber)
            _IEFormElementSetValue($oFormBid,$Bid)
    _IEFormSubmit($oForm)
    Sleep(1000)
    _IELoadWait($oIE)
    $oRead = _IEBodyReadText($oIE)
    _IEQuit($oIE)
    If StringInStr($oRead,"Added item ") = 0 Then 
    Return('Item#: '&@TAB&$ItemNumber&@CRLF&'Bid: '&@TAB&$Bid&@CRLF&StringTrimLeft($oRead,54))
    Else
    Return(1)
    EndIf
Return(0)
EndFunc
[font="Verdana"]Keith (Kogmedia)[/font]My ScriptQuick Search - Internet / Hard Drive Search
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
Go to topic listing

  • Recently Browsing   0 members

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