Bot do Plemion

[xBlackxK]

Witam mam zamiar pisać bota do plemion, oczywiście nie jestem żadnych pro Automaniakiem i nie znam się zbytnio więc jeśli bd miał problem będę tu pisał prosząc was o pomoc:)

 

Pierwszy problem:

Stworzyłem Logowanie:

Edit: Problem rozwiazany

Edit2: jak moge pobrac <span class="warn" title="86" id="wood">1229</span> chodzi o to że ma pobierać liczbę surowców które mogę się zmieniać..

[Sopelek997]

Było tego mnóstwo na forum, poszukaj. A tak w ogóle, to mógłby mi ktoś wytłumaczyć po co autologin do amatorskiego bota... Najpierw zrób reszte, a potem ogarnij autologin.

[m4rcin93]

$lol = _IEGetObyByID($oIE, "wood")
Msgbox(0,"",$lol)

[xBlackxK]

Tylko jak ma pobrać do Label?, przez GUICtrlSetData??

[m4rcin93]

$lol = _IEGetObyByID($oIE, "wood")
Msgbox(0,"",GUICtrlRead($Label1))

 

Jeśli nie będzie działać to spróbuj tym GUICtrlSetData

[xBlackxK]

Nie działa ani GUICtrlSetData ani GUICtrlRead:D

Nawet z poprawnie napisanym "_IEGetObjByID"

[m4rcin93]

w którym miejscu to jest bo nie widze?:|

[xBlackxK]

Co w którym miejscu??

[m4rcin93]

To:

Edit2: jak moge pobrac <span class="warn" title="86" id="wood">1229</span> chodzi o to że ma pobierać liczbę surowców które mogę się zmieniać..

[xBlackxK]

To jest w surowcach ile jest surowców.

[jackraymund]

_IENavigate($oIE, "http://s5.footballteam.pl/training.php")

stringbeetwen między > a </span> potem arraydisplay i sprawdz które to jest na tablicy i tyle, nie zapomnij o include

[xBlackxK]

Kurcze co?? a ten _IENavigate($oIE,"") po co mi?? w surowcach nie ma żadnego linku.

Edit: Kto wytłumaczy mi dokładnie jak używać tej funkcji _StringBetween

[C.J]

"Kto wytłumaczy mi dokładnie jak używać tej funkcji _StringBetween"

 

Najlepiej wytłumaczy ci to help w autoicie.Czytasz go wogóle??...

[M4niak]

Masz tutaj na surowce

Bez zadnych stringbetween..

 

Wyciagnij Xpath z tego - <span class="warn" title="86" id="wood">1229</span>

 

#Include <FF.au3> ; include

_FFConnect() ; connect 

While 1
     $surowiec = _FFXpath("tutaj xpath, "", 13) ; pobiera ilosc surowca
     TrayTip("" & $surowiec, " ", 1) ; wyswietla
     Sleep(1000) ; sleep
WEnd

[xBlackxK]

MrDeska - Patrzyłem ale nie rozumiem....

M4niak - tak tylko to ma być do IE.au3:)

[xBlackxK]

Odświeżam i może lepiej jak ktoś mi stworzy skrypt że po zalogowaniu pobiera ilość surowców do label:

To jest kod do autologowania:)

        #include <IE.au3>
       #include <ButtonConstants.au3>
       #include <EditConstants.au3>
       #include <GUIConstantsEx.au3>
       #include <StaticConstants.au3>
       #include <TabConstants.au3>
       #include <WindowsConstants.au3>
       #include <String.au3>
       #include <Array.au3>

       Global $oIE ; to ma być tu

       #region ### START Koda GUI section ### Form=d:\my folder\autoit3\autoit-v3-setup.exe\forms\form1.kxf
       $Form1_1 = GUICreate("Form1", 722, 552, 192, 124)
       $Tab1 = GUICtrlCreateTab(8, 8, 705, 537)
       $TabSheet1 = GUICtrlCreateTabItem("Podglad")
       $Nick = GUICtrlCreateInput("Input1", 136, 96, 97, 21)
       $Haslo = GUICtrlCreateInput("Input2", 136, 120, 97, 21)
       $Swiat = GUICtrlCreateInput("Input3", 136, 144, 33, 21)
       $Loguj = GUICtrlCreateButton("Button1", 168, 176, 75, 25)
       $TabSheet2 = GUICtrlCreateTabItem("Budynki")
       $Label1 = GUICtrlCreateLabel("Label1", 408, 48, 36, 17)
       GUICtrlSetBkColor(-1, 0xFFFFFF)
       $Label2 = GUICtrlCreateLabel("Label1", 449, 48, 36, 17)
       GUICtrlSetBkColor(-1, 0xFFFFFF)
       $Label3 = GUICtrlCreateLabel("Label1", 494, 48, 36, 17)
       GUICtrlSetBkColor(-1, 0xFFFFFF)
       $Label4 = GUICtrlCreateLabel("Label1", 538, 48, 36, 17)
       GUICtrlSetBkColor(-1, 0xFFFFFF)
       $TabSheet3 = GUICtrlCreateTabItem("Wojska")
       GUICtrlCreateTabItem("")
       GUISetState(@SW_SHOW)
       #endregion ### END Koda GUI section ###

       While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
       Case $GUI_EVENT_CLOSE
       Exit
       Case $Loguj
          login()
       EndSwitch
       WEnd

       Func Login()
          $Nick = GUICtrlRead($Nick)
          $Haslo = GUICtrlRead($Haslo)
          $Swiat = int(GUICtrlRead($Swiat))

          $oIE = _IECreate("http://www.plemiona.pl/")
       _IELoadWait($oIE)
       $login = _IEGetObjByID($oIE, "user")
       $password = _IEGetObjByID($oIE, "password")
       _IEFormElementSetValue($login, $Nick)
       _IEFormElementSetValue($password, $Haslo)

          $SMYSTRING= "Login"
       $OLINKS= _IELINKGETCOLLECTION($OIE)
       FOR $OLINK IN $OLINKS
       $SLINKTEXT= _IEPROPERTYGET($OLINK, "innerText")
       IF STRINGINSTR($SLINKTEXT, $SMYSTRING) THEN
       _IEACTION($OLINK, "click")
       ENDIF
       Next
       Sleep(1000)
          $SMYSTRING= "Świat "&$Swiat
       $OLINKS= _IELINKGETCOLLECTION($OIE)
       FOR $OLINK IN $OLINKS
       $SLINKTEXT= _IEPROPERTYGET($OLINK, "innerText")
       IF STRINGINSTR($SLINKTEXT, $SMYSTRING) THEN
       _IEACTION($OLINK, "click")
       ENDIF
       NEXT
          EndFunc

[4ggr35510n]

może lepiej jak ktoś mi stworzy skrypt

Może lepiej jak sobie pójdziesz.

Z szczerego serca, marnujesz tylko swój czas...

 

I używaj spojlerów, bo śmiecisz.

[TNC1993]

To ja mam pytanko z "innej beczki" zna ktoś jakiś dobry skrypt do farmienia?

[jackraymund]

nie napisałeś informacji dla nas, co to jest te jebane farmienie?

[TNC1993]

Farmienie w plemionach jest to wysyłanie wojsk na inne wioski żeby pozyskać dobra materialne przy pomocy jednostek, przeważnie lk - lekkiej kawalerii. Poszukuje skryptu który działa z KP badz nie, KP- konto premium. Tu jest co to farmienie z skryptem

http://www.youtube.com/watch?v=qxiSmyZM7IQ