Sign in to follow this  
Followers 0
Kogmedia

eBay Multi Snipe for Gixen.com

8 posts in this topic

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

Share this post


Link to post
Share on other sites



i dont like snipers, or people who snipe, also i dont trust anyone else with my passwords


[center][/center]

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

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!!!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
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
Sign in to follow this  
Followers 0