Func update_captcha()
   $Test=@ScriptDir & "\MF.txt"
   FileDelete ($Test)
   FileOpen ($Test , 2 +8 +128)
   $Link="http://www.google.com/recaptcha/api/challenge?k=6Lf2gNsSAAAAAKLs-0tI-4f0LuU4xdQ8gIVh_bJ0"
   FileWriteLine ($Test , _INetGetSource($Link))
   $Read=FileRead (@ScriptDir & "\MF.txt")
   Local $aArray = StringRegExp($Read, "(?i) challenge : '(.*?)',",1)
   For $i = 0 To UBound($aArray) - 1
Local $captcha_url = ("http://www.google.com/recaptcha/api/image?c="&$aArray[$i])
Local $captcha_file = @ScriptDir & "\image.jpg"
If Not FileExists($captcha_file) Then FileWrite($captcha_file, "")
$httpObj.Open("GET", $captcha_url, False)
$httpObj.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 6.1; vi; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3")
$httpObj.Send()
Local $captcha_data = $httpObj.ResponseBody
Local $captcha_filehwnd = FileOpen($captcha_file, 2)
FileWrite($captcha_filehwnd, $captcha_data)
FileClose($captcha_filehwnd)
GUICtrlSetImage($PicCaptcha, $captcha_file)
FileDelete($captcha_file)

Next
EndFunc