Что нового

Не понимаю работу цикла

ArgoNaft

Новичок
Сообщения
129
Репутация
0
Код:
$error = 0
			While $error <= 10
			   If (InetGet('http://traaa.com/'&$oA.innertext&'.rtf', 0) == 1) Then
				  $error = 11
			   EndIf
$error = $error+1
			WEnd


Не понимаю почему не срабатывает, а он в цикле все грузит и грузит, даже если прошла удачная прогрузка файла... должно же переменной $error присвоить 11 и он должен выйти их цикла?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
ArgoNaft [?]
даже если прошла удачная прогрузка файла... должно же переменной $error присвоить 11 и он должен выйти их цикла?
Я очень сомневаюсь, что у Вас размер файла 1 байт. ;D
 
Автор
A

ArgoNaft

Новичок
Сообщения
129
Репутация
0
А причем тут объем?

InetGet:
Возвращаемое значение
Удачное выполнение: 1.
Неудачное выполнение: 0.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
ArgoNaft,
Кликните по InetGet в Вашем коде и внимательно прочитайте всю страницу.

PS
У Вас еще и в аргументах ошибка, которую Viktor1703 не исправил.
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Может так будет проще?!

Код:
While (Not InetGet('http://traaa.com/'&$oA.innertext&'.rtf', @ScriptDir & '\test.rtf', 1))
	Sleep(100)
Wend
 
Автор
A

ArgoNaft

Новичок
Сообщения
129
Репутация
0
Нет это бесконечны цикл тогда, а какое антоним
Код:
Not
есть?
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Вам madmasles написал уже, прочитайте про InetGet, она у вас не правильная, вы не указали файл в который нужно сохранять.
 
Автор
A

ArgoNaft

Новичок
Сообщения
129
Репутация
0
Код:
$error = 0
			While $error <= 10
			   If InetGet('http://manybooks.net/_scripts/send.php?tid='&$aShortUrl[0]&'&book=1:rtf:.rtf:rtf', @ScriptDir & '\books\'&$oA.innertext&'.rtf', 1,0) Then
				  ExitLoop
			   EndIf
			$error = $error+1
			WEnd


Так вот сделал всем спасибо ... :smile:
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Цикл не бесконечный, всё правильно работает!

Код:
Global $iLoop = 0

While ($iLoop <= 10)
    ;~ Правильная ссылка http://manybooks.net/_scripts/send.php?tid=tzusun132132&book=1:rtf:.rtf:rtf
	If InetGet('http://manybooks.net/_scripts/send.php?tid=ddd&book=1:rtf:.rtf:rtf', 'test.rtf') Then
		ExitLoop
	EndIf
	$iLoop += 1
	ConsoleWrite($iLoop & @CR)
Wend


Вот только функция InetGet всё равно создаёт файл даже если скачать не удалось.
 
Верх