Как реализовать загрузку картинок на сайт.

#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 276, 107, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 32, 56, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 152, 56, 75, 25, $WS_GROUP)

$oIE = _IECreate("http://picsee.net")
$oForm = _IEFormGetCollection($oIE, 0)


GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$oSubmit = _IEFormElementGetCollection($oForm, 0)
			_IEAction($oSubmit, "click")
		Case $Button2

			Do
				$oSubmit1 = _IEFormElementGetCollection($oForm, 12)
			Until StringStripWS(_IEFormElementGetValue($oSubmit1), 3) = "Загрузить"
			_IEAction($oSubmit1, "click")

	EndSwitch
WEnd

$oIE = _IEAttach('PicSee')

;~ 		clickInTag('', $oIE, "$oLink.name == 'file[]'")
;~         clickInTag('', $oIE, "$oLink.type == 'submit'")

		$oLinks = _IETagNameGetCollection($oIE,'td')
		For $oLink In $oLinks
			If StringInStr ($oLink.outertext,'Прямой') Then

                       $oLinkw = _IETagNameGetCollection($oIE,'td')
					   MsgBox (16,'',$oLinkw.innertext)
					   MsgBox (16,'',$oLinkw.value)
					   MsgBox (16,'',$oLinkw.text)

				ExitLoop
			EndIf
		Next

#include <IE.au3>
#include <File.au3>
#include <Array.au3>

Opt('MustDeclareVars', 1)

Global $sUrl = 'http://picsee.net/', $sTempFile, $oIE, $oForm, $oInput, $iPID, $sMessage, _
		$sFilePic = @MyDocumentsDir & '\Скриншоты\Captured Image9.png', $oTDs, $oInputs, $iCount
Dim $aResult[6][2] = [[5],['BBCode с миникартинкой:'],['BBCode без миникартинки:'],['HTML с миникартинкой:'], _
		['HTML без миникартинки:'],['Прямой URL картинки']]

$sMessage = _Check_Pic($sFilePic)
If @error Then
	MsgBox(16, 'Error', $sMessage)
	Exit
EndIf

OnAutoItExitRegister('_Del')

$sTempFile = _TempFile(@TempDir)
$iPID = _Set_Pic($sFilePic)
If Not $iPID Then
	MsgBox(16, 'Error', 'Error')
	Exit
EndIf

$oIE = _IECreate($sUrl);, 0, 0)
If @error Then Exit
For $i = 1 To 1
	$oForm = _IEFormGetCollection($oIE, 0)
	If @error Then ExitLoop
	$oInput = _IEFormElementGetObjByName($oForm, 'file[]')
	If @error Then ExitLoop
	_IEAction($oInput, 'click')
	If @error Then ExitLoop
	_IELoadWait($oIE)
	If @error Then ExitLoop
	_IEFormSubmit($oForm)
	If @error Then ExitLoop
	_IELoadWait($oIE)
	If @error Then ExitLoop
	$oTDs = _IETagNameGetCollection($oIE, 'td')
	If @error Then ExitLoop
	For $oTD In $oTDs
		For $j = 1 To $aResult[0][0]
			If StringInStr($oTD.innertext, $aResult[$j][0]) Then
				$oInputs = _IETagNameGetCollection($oTD, 'input')
				If @error Then ContinueLoop
				For $oInput In $oInputs
					If $oInput.type == 'text' Then
						$aResult[$j][1] = $oInput.value
						$iCount += 1
						ExitLoop
					EndIf
				Next
			EndIf
		Next
		If $iCount = 5 Then ExitLoop
	Next
Next
If @error Then
	_IEQuit($oIE)
	MsgBox(16, 'Error', 'Error')
Else
	_IEQuit($oIE)
	_ArrayDisplay($aResult)
EndIf

Func _Check_Pic($s_FilePic)
	Local $sExtension, $sString = 'jpeg|jpg|gif|png|'
	If Not FileExists($s_FilePic) Then Return SetError(1, '', 'Файл отсутствует')
	If FileGetSize($s_FilePic) >= 5 * 1024 * 1024 Then Return SetError(1, '', 'Файл слишком большой')
	$sExtension = StringRegExpReplace($s_FilePic, '^.*\.', '')
	If Not StringInStr($sString, $sExtension) Then Return SetError(1, '', 'Формат не поддерживается')
	Return SetError(0)
EndFunc   ;==>_Check_Pic

Func _Del()
	If ProcessExists($iPID) Then
		ProcessClose($iPID)
		Sleep(500)
	EndIf
	FileDelete($sTempFile)
EndFunc   ;==>_Del

Func _Set_Pic($s_File_Pic)
	Local $h_File, $i_Pid
	Local $s_Script = "#NoTrayIcon" & @CRLF & _
			"$hWin = WinWait('[Title:Выбор файла для выгрузки; Class:#32770]', '', 60)" & @CRLF & _
			"If Not $hWin Then" & @CRLF & _
			"ToolTip('Ошибка 1', 0, 0)" & @CRLF & _
			"Sleep(5000)" & @CRLF & _
			"Exit" & @CRLF & _
			"EndIf" & @CRLF & _
			"ControlSetText($hWin, '', '[CLASS:Edit; INSTANCE:1]', '" & $s_File_Pic & "')" & @CRLF & _
			"Sleep(500)" & @CRLF & _
			"If ControlGetText($hWin, '', '[CLASS:Edit; INSTANCE:1]') <> '" & $s_File_Pic & "' Then" & @CRLF & _
			"ToolTip('Ошибка 2', 0, 0)" & @CRLF & _
			"Sleep(5000)" & @CRLF & _
			"Exit" & @CRLF & _
			"EndIf" & @CRLF & _
			"ControlClick($hWin, '', '[CLASS:Button; INSTANCE:2]')" & @CRLF & _
			"Sleep(500)" & @CRLF & _
			"If WinExists($hWin) Then" & @CRLF & _
			"ToolTip('Ошибка 3', 0, 0)" & @CRLF & _
			"Sleep(5000)" & @CRLF & _
			"EndIf" & @CRLF & _
			"Exit"
	$h_File = FileOpen($sTempFile, 2)
	FileWrite($h_File, $s_Script)
	FileClose($h_File)
	$i_Pid = Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sTempFile & '"')
	Return $i_Pid
EndFunc   ;==>_Set_Pic

$oInput = _IEFormElementGetObjByName($oForm, 'file[]')
               _IEAction($oInput, 'click')