IE.au3 Form won't submit.

[Azeroth]

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&section=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

[wakillon]

You need to Read Forum Rules !

[Azeroth]

I have read it and I think that I didn't broke any rule.

[Maffe811]

Do not discuss automating games here.

[Azeroth]

Auction is not a game.

[Maffe811]

I have made bot for auctions in game

[Azeroth]

Sorry for my English. I'm from Poland.

Not in game. Game is San Andreas MultiPlayer... Not Forum.