Получение содержимого картинки через tcp

kaster · Конфигурация компьютера

malev,

HTML код:

InetGet('http://captcha.yandex.net/image?key=f9b73ae5d3f0714529c621b66f0d92a9', 'd:\1.jpg')

получить эту урлу думаешь сможешь сам

PS: имеется в виду, первый InetGet для полученя урлы, второй InetGet для получения картинки...

Вот набросал. Поиск строки можно реализовать намного проще через Рег.Выражения. Но я в них не силен.

Код:

#include <Array.au3>
InetGet('http://webmaster.yandex.ru/', 'd:\1.url')
$hFile = FileOpen('d:\1.url', 0)
While 1
	$sCaptcha = FileReadLine($hfile)
	If StringInStr($sCaptcha, 'http://captcha.yandex.net') Then
		$aCaptcha = StringSplit($sCaptcha, '"')
		;_ArrayDisplay($aCaptcha)
		For $i = 1 to $aCaptcha[0]
			If StringInStr($aCaptcha[$i], 'http://captcha.yandex.net') Then $sURL = $aCaptcha[$i]
		Next
		ExitLoop
	EndIf
WEnd
InetGet($sURL, 'd:\1.jpg')
ShellExecute('d:\1.jpg')