Kogmedia Posted October 23, 2007 Share Posted October 23, 2007 eBay Multi SnipeThe password is not stored on your computer!SSL encryption with Gixen!Gixen is a FREE Highly Reliable & Secure eBay Auction SniperSource Codeexpandcollapse popup#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 More sharing options...
DirtDBaK Posted October 23, 2007 Share Posted October 23, 2007 i dont like snipers, or people who snipe, also i dont trust anyone else with my passwords [center][/center] Link to comment Share on other sites More sharing options...
blubirdz Posted November 23, 2007 Share Posted November 23, 2007 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(^ERRORError: Variable used withot being declared.=================================Any comments...dont know much about autoit scripts...just started learning 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 More sharing options...
Kogmedia Posted October 31, 2008 Author Share Posted October 31, 2008 Gixen no longer requires Mirror Subscription for Autosnipe (above problem fixed) [font="Verdana"]Keith (Kogmedia)[/font]My ScriptQuick Search - Internet / Hard Drive Search Link to comment Share on other sites More sharing options...
speedi Posted June 11, 2009 Share Posted June 11, 2009 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.461I copied the script from your first posting... Thanks for any help!!! Link to comment Share on other sites More sharing options...
Valuater Posted June 11, 2009 Share Posted June 11, 2009 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.461I 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 postsOK, I did... Last Seen: 18th December 2008 - 01:08 PM 8) Link to comment Share on other sites More sharing options...
speedi Posted June 11, 2009 Share Posted June 11, 2009 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 postsOK, 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 More sharing options...
Kogmedia Posted July 15, 2009 Author Share Posted July 15, 2009 Try this, gets past line 86 but not fully tested : expandcollapse popup#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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now