ara

#include <WinAPI.au3>
#include <IE.au3>
#include <GUIConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>

Local $indirilecekResimSayisi = 30 ; Maksimum 30 resim, minimum 1 resim
$file = @ScriptDir&"\indirilecek-resimler.txt"

For $x = 0 To _FileCountLines($file) Step 1
   Global $sinput = FileReadLine($file,$x)
   imagedownload()
Next

Func imagedownload()
   $imageFolder = @ScriptDir&"\indirilen-resimler\"&$sinput
   If Not FileExists($imageFolder) Then DirCreate($imageFolder)
   $surl = "https://yandex.com.tr/gorsel/search?text="&$sinput
   $oIE = _IECreate($surl,0,1)
   $sSource = _IEBodyReadHTML($oIE)
   _IEQuit($oIE)
   $aurl = _StringBetween($sSource, ',"preview":[{"url":"', '",')

   If $indirilecekResimSayisi = 0 Then
	  $nf = UBound($aurl)
   ElseIf $indirilecekResimSayisi > 30 Then
	  $nf = 30
   Else
	  $nf = UBound($aurl)
   EndIf


   For $k = 0 To $nf-1
	  ConsoleWrite($aurl[$k]&"@@"&@CRLF)
	  $sImageName = $sinput&Random(6346346,3463463460)
	  InetGet($aurl[$k],$imageFolder&"\"&$sImageName&".png",0,1)
   Next
EndFunc