Soulgainer
Новичок
- Сообщения
- 3
- Репутация
- 0
Здраствуйте. У меня появилась проблема, с которой я уже не знаю что делать, а именно не работает (хотя по выводу "ConsoleWrite" — он просто игнорируется) For In Next.
Отрывок который не работает как следует:
Для теста:
В папке создать файл с именем sample_случайные символы без пробелов.расширение (png/jpg)
В папке создать файл с именем sample_случайные символы без пробелов.расширение (png/jpg)
Отрывок который не работает как следует:
Код:
#include <IE.au3>
$ie_w=_IECreate()
_IENavigate ($ie_w, "http://gelbooru.iqdb.org/", 1)
$fl=FileFindFirstFile("sample_*.*")
$file=FileFindNextFile($fl)
;$flnn = StringTrimLeft($file, 7)
$oInputFile=_IEGetObjById($ie_w, "file")
;_IEAction($oInputFile, "click")
MouseMove(_IEPropertyGet($oInputFile, "screenx") + _IEPropertyGet($oInputFile, "width") - 10, _IEPropertyGet($oInputFile, "screeny") + _IEPropertyGet($oInputFile, "height")/2)
MouseClick("left")
WinWait("Choose File to Upload")
ControlSetText("Choose File to Upload", "", "[CLASS:Edit; INSTANCE:1]", @WorkingDir & "\" & $file)
ControlClick("Choose File to Upload", "", "[CLASS:Button; INSTANCE:2]")
$oSubmits=_IETagNameGetCollection($ie_w, "submit")
For $oSubmit In $oSubmits
ConsoleWrite ("Start Collecting")
If String($oSubmit.Value) == "submit" Then
ConsoleWrite ("Collecting Done")
_IEAction($oSubmit, "click")
_IELoadWait($ie_w)
ExitLoop
EndIf
Next
ConsoleWrite ("Collecting Skipped or Done")