bot na aukcje DARKORBIT

[Omadafaka]

Siema. Szukam bota który co godzine licytowałby IRYSA za 5 mln.

[malydiabel]

ale chodzi Ci by stawiał na początku aukcji czy na końcu?

 

Pewnie można to zrobić lepszą metodą gdyż IE strasznie laguje przy tej stronce ( przynajmniej u mnie)

Masz tu jakis początek jeśli chcesz robić na ie.au3

Wystarczy troche motywacji, chęci i bota można samemu napisać z poradnikami na MPC bądź czytanie o danej funkcji u 'producenta' bądź licznymi pytaniami na forum ;P

 

Nie wiem jak to coś niże(kod)j nazwać. Button odpal - odpala przeglądarke następnie musisz sie zalogować pozamykać te okienka co są po zalogowaniu a nastepnie nacisnąć POSTAW. Testowałem u siebie i jakoś chodziło. Nie maiłem tej waluty dlatego też wyskoczył komunikat o braku.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 131, 109, 192, 124)
$Button1 = GUICtrlCreateButton("ODPAL ", 16, 16, 75, 25)
$Button2 = GUICtrlCreateButton("POSTAW", 16, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("GuiOnEventMode", 1)
GUICtrlSetOnEvent($Button1, "Odpal")
GUICtrlSetOnEvent($Button2, "postaw")

Func Odpal()
global $oIE = _IECreate("http://darkorbit.pl")

EndFunc

Func postaw()
	_IENavigate($oIE, "http://pl2.darkorbit.bigpoint.com/indexInternal.es?action=internalAuction")
	_IELoadWait($oIE)
	_IEImgClick($oIE, "http://darkorbit-22.ah.bpcdn.net/do_img/global/items/drone/iris-1_30x30.png", "src", 0)
	Sleep(6000)
	$ie_input = _IEGetObjByName($oIE, 'credits')
	$ie_postaw = _IEGetObjByName($oIE, 'auction_buy_button')
	$ie_cred = "5000000"
	$ie_input.Value = $ie_cred
	Sleep(10000)
	$ie_postaw.Click()
EndFunc



While 1

Wend

[Omadafaka]

 

ale chodzi Ci by stawiał na początku aukcji czy na końcu?

 

Pewnie można to zrobić lepszą metodą gdyż IE strasznie laguje przy tej stronce ( przynajmniej u mnie)

Masz tu jakis początek jeśli chcesz robić na ie.au3

Wystarczy troche motywacji, chęci i bota można samemu napisać z poradnikami na MPC bądź czytanie o danej funkcji u 'producenta' bądź licznymi pytaniami na forum ;P

 

Nie wiem jak to coś niże(kod)j nazwać. Button odpal - odpala przeglądarke następnie musisz sie zalogować pozamykać te okienka co są po zalogowaniu a nastepnie nacisnąć POSTAW. Testowałem u siebie i jakoś chodziło. Nie maiłem tej waluty dlatego też wyskoczył komunikat o braku.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 131, 109, 192, 124)
$Button1 = GUICtrlCreateButton("ODPAL ", 16, 16, 75, 25)
$Button2 = GUICtrlCreateButton("POSTAW", 16, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("GuiOnEventMode", 1)
GUICtrlSetOnEvent($Button1, "Odpal")
GUICtrlSetOnEvent($Button2, "postaw")

Func Odpal()
global $oIE = _IECreate("http://darkorbit.pl")

EndFunc

Func postaw()
	_IENavigate($oIE, "http://pl2.darkorbit.bigpoint.com/indexInternal.es?action=internalAuction")
	_IELoadWait($oIE)
	_IEImgClick($oIE, "http://darkorbit-22.ah.bpcdn.net/do_img/global/items/drone/iris-1_30x30.png", "src", 0)
	Sleep(6000)
	$ie_input = _IEGetObjByName($oIE, 'credits')
	$ie_postaw = _IEGetObjByName($oIE, 'auction_buy_button')
	$ie_cred = "5000000"
	$ie_input.Value = $ie_cred
	Sleep(10000)
	$ie_postaw.Click()
EndFunc



While 1

Wend

dzieki

[malydiabel]

'bot' stawia tylko 1x aby stawiał co godzinę musiałbyś coś dopisać

[Szymon2727]

'bot' stawia tylko 1x aby stawiał co godzinę musiałbyś coś dopisać

 

Sleep + pętla bez końca, ale to jakoś trudne nie jest.

­

[malydiabel]

prosta rzecz ale dlaczego uważasz że mam wysyłać całego gotowca? Dałem okaJe zapoznania się z kodem oraz dopisanie własnych opcji można do tego dopisać masę innych rzecY, np sprawdzenie stanu waluty itd