[Сеть, интернет] получение капчи с вэбстраницы на GUI окно

#include <IE.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#include <INet.au3>
#include <Array.au3>
		$oIE = _IECreate ("http://wmmail.ru/")
		
		_IELinkClickByText($oIE, "Регистрация")
		_IELoadWait($oIE)

$oImgs = _IEImgGetCollection ($oIE)
$iNumImg = @extended


		$kol=@extended

		Dim $oArray[$kol]
		$oArray[0]=0
		$i = 1
		While $i <= $kol
		For $oImg In $oImgs
		_ArrayInsert ( $oArray, $i, $oImg.src )
	    $i = $i + 1
		Next
	WEnd
	
 	$num=$kol-11
	



GUICreate("Ввод капчи", 140, 140)

	
InetGet ( $oArray[$num]&".bmp", "F:\captha.bmp",1,1 )

		
GUICtrlCreatePic("F:\captha.bmp",12,12, 115,40)

GUICtrlCreateLabel("Ввод капчи", 40, 60)
GUICtrlCreateInput("", 38, 78)

$butt_1=GUICtrlCreateButton( "Ввел!", 20, 110, 100, 20)
GUISetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_CLOSE
		Exit
      Case $msg = $GUI_EVENT_MINIMIZE
   
      Case $msg = $butt_1
Exit

EndSelect
Wend


Exit

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

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 217, 140, 192, 114)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 215, 100)
$Button1 = GUICtrlCreateButton("Отправить", 132, 108, 75, 25, 0)
$Input1 = GUICtrlCreateInput("", 6, 110, 121, 21)

GUISetState(@SW_HIDE)

#EndRegion ### END Koda GUI section ###

TrayTip("Внимание!","Загружаемся...",1)

_IENavigate($oIE,"http://wmmail.ru/index.php?cf=reg-newr")
If @error Then Exit	
_IELoadWait ($oIE)	
If @error Then Exit
	
	$oForm = _IEFormGetObjByName ($oIE, "reg")
	$oInputs = _IETagNameGetCollection ($oForm, "img")

	For $oInput In $oInputs
		$sCapcha = $oInput.src
	Next

_IENavigate($oIE,$sCapcha)	
_IELoadWait ($oIE)
If @error Then Exit
	
	TrayTip("","",1)	
	GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
			Exit
		Case $nMsg = $Button1
		;~ ....
	EndSwitch
WEnd

;...
_IENavigate($oIE,$sCapcha)

;...
_IENavigate($oIE,"http://wmmail.ru/index.php?cf=reg-newr")

_IEAction ($oIE, "back")

;...
Sleep(8000)
_IENavigate($oIE,$sCapcha)	
;...

;...
Case $Button1
	; здесь что делать?
;...

#include <IE.au3>
#include <ScreenCapture.au3>

Opt("PixelCoordMode", 0)

$oIE = _IECreate ("http://wmmail.ru/index.php?cf=reg-newr")
WinSetState ("[Class:IEFrame]", "", @SW_MAXIMIZE)
MouseMove(@DesktopWidth / 2, @DesktopHeight / 2)
MouseWheel("down", 5)
_ScreenCapture_Capture(@DesktopDir & "\captcha.jpg", 230, 477, 330, 515)
WinSetState ("[Class:IEFrame]", "", @SW_MINIMIZE)

_ShowPics()
 Func _NoPics()
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Images', 'REG_SZ', 'no')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Animations', 'REG_SZ', 'no')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Videos', 'REG_SZ', 'no')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Background_Sounds', 'REG_SZ', 'no')
EndFunc   ;==>_NoPics

Func _ShowPics()
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Images', 'REG_SZ', 'yes')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Animations', 'REG_SZ', 'yes')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Display Inline Videos', 'REG_SZ', 'yes')
	RegWrite('HKCU\Software\Microsoft\Internet Explorer\Main', 'Play_Background_Sounds', 'REG_SZ', 'yes')
EndFunc   ;==>_ShowPics