#include <Opera.au3>
$NumberImage = 100
_OperaRun()
WinWaitActive('Opera')
for $i = 1 to $NumberImage
_OpenGetURL("http://pixelup.net", 0, 0, 'Opera')
WinWaitActive('Pixelup.net - Хостинг изображений - Opera')
Sleep(3000)
Send("{TAB 8}"& "{DOWN 4}") ;Установка "Сжать до ширины" на 1000 px
Send("{TAB 3}"& "{ENTER}")
WinWaitActive("Open")
Send(@ScriptDir & "thmb" & $i & ".jpg")
Send("{ENTER}")
Sleep(1000)
MouseClick("left", 243, 345, 1, 0)
WinWait("изображение")
Send("{TAB 5}")
Sleep(1000)
Send("^{c}")
IniWrite($List, "message"&string($i), "screen1", ClipGet())
Next