Azeroth 0 Posted May 28, 2011 Hello.I have made bot for auctions in game, but it won't submit offer. Sorry for my English. I'm from Poland.Translate:Offer $61 with character ($10795 on account) Offer.expandcollapse popup#include <IE.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $oIE Global $read_url Global $read_cena #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("[H-RP] Licytacja...", 297, 137, 512, 375) $edLogin = GUICtrlCreateInput("", 48, 16, 241, 21) $lbLogin = GUICtrlCreateLabel("Login", 8, 16, 30, 17) $lbHaslo = GUICtrlCreateLabel("HasÅ‚o", 8, 40, 33, 17) $edHaslo = GUICtrlCreateInput("", 48, 40, 241, 21) $edUrl = GUICtrlCreateInput("", 48, 80, 241, 21) $lbUrl = GUICtrlCreateLabel("Url", 8, 80, 17, 17) $edCena = GUICtrlCreateInput("", 48, 104, 65, 21) $lbCena = GUICtrlCreateLabel("Cena", 8, 104, 29, 17) $btStart = GUICtrlCreateButton("Start", 120, 104, 169, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $btStart Logowanie() EndSelect WEnd Func Logowanie() $oIE = _IECreate("http://h-rp.co/index.php?app=core&module=global§ion=login", 0, 0, 1, 1) $oForm = _IEFormGetCollection ($oIE, 1) $oQuery = _IEFormElementGetObjByName ($oForm, "username") $read_login = GUICtrlRead($edLogin) _IEFormElementSetValue ($oQuery, $read_login) $oQuery = _IEFormElementGetObjByName ($oForm, "password") $read_haslo = GUICtrlRead($edHaslo) _IEFormElementSetValue ($oQuery, $read_haslo) _IEFormSubmit ($oForm) $read_url = GUICtrlRead($edUrl) $read_cena = GUICtrlRead($edCena) _IEQuit($oIE) Oczekiwanie() EndFunc Func Oczekiwanie() $oIE = _IECreate($read_url, 0, 1, 1, 1) $sText = _IEBodyReadText ($oIE) $result = StringInStr($sText, "Koniec aukcji") $tnij = StringTrimLeft($sText, $result +12) $result = StringInStr($tnij, "minUID") if $result > 0 Then Oczekiwanie() Else $szukaj = StringInStr($tnij, "sekUID") if $szukaj > 0 Then $result = StringLeft($tnij, $szukaj -1) if Int($result) < 4 Then $result = StringInStr($sText, "Minimalna oferta$") $tnij = StringTrimLeft($sText, $result +16) $result = StringInStr($tnij, "Koniec aukcji") $wynik = StringLeft($tnij, $result -1) if Int($wynik) <= Int($read_cena) Then $oForm = _IEFormGetCollection ($oIE, 1) _IEFormSubmit($oForm, 1) ;It doesn't work. Exit Else Exit EndIf Else Oczekiwanie() EndIf Else Oczekiwanie() EndIf EndIf EndFunc Share this post Link to post Share on other sites
wakillon 403 Posted May 28, 2011 You need to Read Forum Rules ! AutoIt 3.3.14.2 X86 - SciTE 3.6.0 - WIN 8.1 X64 - Other Example Scripts Share this post Link to post Share on other sites
Azeroth 0 Posted May 28, 2011 I have read it and I think that I didn't broke any rule. Share this post Link to post Share on other sites
Maffe811 0 Posted May 28, 2011 Do not discuss automating games here. [font="helvetica, arial, sans-serif"]Hobby graphics artist, using gimp.Automating pc stuff, using AutoIt.Listening to music, using Grooveshark.[/font]Scripts:[spoiler]Simple ScreenshotSaves you alot of trouble when taking a screenshot!Don't remember what happened with this, but aperantly the exe is all i got.If you don't want to run it, simply don't._IsRun UDFIt figures out if the script has ben ran before based on the info in a ini file.If you don't want to use exactly what i wrote, you can use it as inspiration.[/spoiler] Share this post Link to post Share on other sites
Azeroth 0 Posted May 28, 2011 Auction is not a game. Share this post Link to post Share on other sites
Maffe811 0 Posted May 28, 2011 I have made bot for auctions in game [font="helvetica, arial, sans-serif"]Hobby graphics artist, using gimp.Automating pc stuff, using AutoIt.Listening to music, using Grooveshark.[/font]Scripts:[spoiler]Simple ScreenshotSaves you alot of trouble when taking a screenshot!Don't remember what happened with this, but aperantly the exe is all i got.If you don't want to run it, simply don't._IsRun UDFIt figures out if the script has ben ran before based on the info in a ini file.If you don't want to use exactly what i wrote, you can use it as inspiration.[/spoiler] Share this post Link to post Share on other sites
Azeroth 0 Posted May 28, 2011 Sorry for my English. I'm from Poland.Not in game. Game is San Andreas MultiPlayer... Not Forum. Share this post Link to post Share on other sites