Jak to zrobić?

[Golumiusz]

Siema, 

Tworzę pewnego bota który miałby działać tak: (na bibliotece IE)

Wrzuca się plik tekstowy z linkami (wyświetla się w Edit) - to już udało mi się zrobić.

Następnie Bot wchodzi na podane linki (Co ważne chce że by robił to po kolei tzn. 1 link instrukcja, 2 link instrukcja itd)  i wykonuje instrukcje

I tak cały czas dopóki się linki nie skończą 

 

Nie mam pojęcia jak zrobić pobieranie tekstu i wpisywanie w pasek.Na dodatek nie umiem nigdzie znaleźć id/nazwy paska co jeszcze bardziej utrudnia mi pracę 

 

Myślałem jeszcze nad _IENavigate ale to już kompletnie nie wiem jak zrobić tak żeby po kolei wchodził w te linki i wykonywał instrukcje 

[IZZER4]

#include <file.au3>

#include <array.au3>

$link =''

_FileReadToArray(@scriptdir & '/linki.txt',$link)

For $x = 1 To $link[0]

_IENavigate($oIE,$link[$x]_

Next

[Golumiusz]

Z twoim kodem wywala syntax error 

 

A z 

#include <file.au3>
 #include <array.au3>
$link =''
_FileReadToArray(@scriptdir & '/linki.txt',$link)
For $x = 1 To $link[0]
_IENavigate($oIE,$link[$x])
Next

Program się wyłącza po kliknięciu buttona odpowiedzialnego za rozpoczęcie akcji 

[VereX.]

#include <file.au3>
#include <array.au3>
$link =''
_FileReadToArray(@scriptdir & '/linki.txt',$link)
For $x = 1 To $link[0]
_IENavigate($oIE,$link[$x]_   <---------- Syntax error
Next

Zamień _IENavigate($oIE.$link[$x]) i naucz się rozumieć błędy...

[Golumiusz]

Variable used without being declared chociaż zmienne zadeklarowane.. 

[VereX.]

Variable used without being declared chociaż zmienne zadeklarowane.. 

A to zdeklarowałeś?

$oIE

Podaj cały kod + w której linijce występuje błąd...

[Golumiusz]

oIE zadeklarowałem jako Global 

 

Wywala się na IENavigate($oIE,$link[$x])

[IZZER4]

Daj caly kod.

I czytaj errory bo tam poprostu wkradl sie blad poniewaz pisze z pamieci prosto w temacie.

[Golumiusz]

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Wczytaj
			Wczytaj() 



		Case $Start


Global $oIE = _IECreate("www.google.com")
Local $Nes1 = _IEGetObjById($oIE,"")
Local $Nes2= _IEGetObjById($oIE,"")
Local $Nes3= _IEGetObjById($oIE,"")

	




		Case $Go

Local $link = ' '
Local $x = ' '
_FileReadToArray(@scriptdir & '/linki.txt',$link)
For $x = 1 To $link[0]
_IENavigate($oIE,$link[$x])
Next



	EndSwitch
WEnd

 Includy itp. pominąłem bo chyba nie są ważne..

[IZZER4]

ale buttony itd mogles dac.

[Golumiusz]

#include <IE.au3>

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <file.au3>

#include <array.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 228, 127, 255, 124)

$Wczytaj = GUICtrlCreateButton("Wczytaj", 8, 8, 75, 25)

$Start = GUICtrlCreateButton("Start", 8, 48, 75, 25)

$Go = GUICtrlCreateButton("Go", 8, 88, 75, 25)

$Edit1 = GUICtrlCreateEdit("", 96, 8, 121, 105)

GUICtrlSetData(-1, "Edit1")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

[IZZER4]

#include <IE.au3>

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <file.au3>

#include <array.au3>

#include <guiedit.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 228, 127, 255, 124)

$Wczytaj = GUICtrlCreateButton("Wczytaj", 8, 8, 75, 25)

$Start = GUICtrlCreateButton("Start", 8, 48, 75, 25)

$Go = GUICtrlCreateButton("Go", 8, 88, 75, 25)

$Edit1 = GUICtrlCreateEdit("", 96, 8, 121, 105)

GUICtrlSetData(-1, "")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

 

Case $Wczytaj

Wczytaj()

 

 

 

Case $Start

 

 

Global $oIE = _IECreate("www.google.com")

Local $Nes1 = _IEGetObjById($oIE,"")

Local $Nes2= _IEGetObjById($oIE,"")

Local $Nes3= _IEGetObjById($oIE,"")

 

 

 

 

 

 

Case $Go

 

Local $link = ' '

Local $x = ' '

_FileReadToArray(@scriptdir & '/linki.txt',$link)

If UBound($link) >=1 Then

status('Znaleziono')

status($link[0])

status('linkow')

For $x = 1 To $link[0]

status($link[$x])

_IENavigate($oIE,$link[$x])

_IELoadWait($oIE)

Next

Else

status('Nie znaleziono')

status('linkow')

EndIf

 

 

EndSwitch

WEnd

Func status($data)

_GUICtrlEdit_AppendText($Edit1, $data & @CRLF)

ConsoleWrite($data & @CRLF)

EndFunc ;==>status

[Golumiusz]

Dzięki! Działa Super!

[Golumiusz]

Mam jeszcze jedno pytanie: Co zrobić gdy div na stronie nie ma ani nazwy ani id tylko jest jako class?

[Golumiusz]

Dobra, miałem akurat trochę czas i po przeszukaniu "gugla" doszedłem do tego że trzeba użyć funkcji  _IEFormElementGetCollection. Niestety nie umiem jej zastosować.. mógłby ktoś pokrótce wyjaśnić jak to działa i jak tego użyć?

   

[IZZER4]

$forma = _IEFormGetCollection($ie, 0)

_IEFormSubmit($forma)

Zmieniasz 0 na 1 itd... Zmieniasz dopoki nie trafisz w odpowiedni button.

[Golumiusz]

Niestety nie działa..znaczy niby działa ale tylko 0 i 1 a reszta wywala

IE.au3 T3.0-1 Warning from function _IEFormGetCollection, $_IESTATUS_NoMatch

--> IE.au3 T3.0-1 Error from function _IEFormSubmit, $_IESTATUS_InvalidDataType

 

(Dobiłem do 30 i na wszystkich to samo)

[IZZER4]

Ja mam praktycznie zerowa wiedze na temat ie.au3 poniewaz nigdy nie bylo mi to potrzebne, wiec dalej juz raczej nie pomoge.

Poszukaj w google gootwych przykladow.

[Golumiusz]

Dobra, znalazłem parę kodów na autoitscript. Spróbuję je przerobić pode mnie, ale nie spodziewam się cudów..Bardziej liczę na to że ktoś kto bardziej ogarnia IE się wypowie.I tak dzięki za pomoc 

[Golumiusz]

To żeby nie zakładać nowego tematu:Mam pewien problem; 

Local $Jtf= _IEGetObjById($oIE,"JakieśID")
_IEAction($Jtf,"click")

Błąd: IE.au3 T3.0-1 Error from function _IEAction(click), $_IESTATUS_InvalidDataType 

Jest to prawie sam początek kodu po includach itp. Oczywiście $oIE zadeklarowane jako Global. ID sprawdzałem i jest poprawnie.

 

Przy okazji; jak kliknąć coś w przeglądarce? Tzn np. Send Enter klika ale na programie nie w przeglądarce a _IEFormElementSetValue  to T3.0-1 Error from function _IEFormElementSetValue, $_IESTATUS_InvalidDataType

[Golumiusz]

Teraz znowu Error from function _IEAction(click),  $_IESTATUS_InvalidObjectType    ??? Używałem i ID i Name. Może ktoś pomóc? Google nic nie mówią

 

Nie, jednak _IESTATUS_InvalidDataType