Ограничение времени загрузки

$read_sql = GUICtrlRead($dorki)
Func _sql()
GUISetState(@SW_LOCK)
  	$read_sqls = StringSplit(StringStripCR($read_sql), @LF)
For $i = 0 to UBound($read_sqls) - 1
   GUICtrlCreateLabel($read_sqls[$i], 140, 760, 520, 23)
   GUICtrlSetResizing(-1, 1)
   GUICtrlSetFont(-1, 9, 180, 4, $font)
       $inet = BinaryToString(InetRead($read_sqls[$i] & "'", 1))
       $com = StringRegExpReplace($inet, "Warning:", "") 
 If StringInStr($com,"in line") Or StringInStr($com,'not a valid MySQL') Or StringInStr($com,'SQL syntax') Then
      $iCounts += 1
       Dim $aTitlesa[$iCounts]
       $aTitlesa[$iCounts - 1] = $read_sqls[$i]
              GUICtrlSetData($sql, $aTitlesa[$iCounts - 1] & @CRLF, 1)
              GUICtrlSetFont(-1, 12, 180, 3)
			  $itog = $itog + 1
		
 EndIf
	 Next
		 WinSetState($sql, "", @SW_SHOW)
GUISetState(@SW_UNLOCK)
MsgBox(64, "Готово", "Надено:" & $itog)
EndFunc

$inet = BinaryToString(InetRead($read_sqls[$i] & "'", 1))

Next

Sleep(100)

Until $iError <> 0 Or TimerDiff($iTimer) > 5000

InetRead

Sleep(100)

Local $aTitles[1], $oIE, $oForm, $oQuery, $oLinks, $iCount, $sLinkHTML, $sLinkText
$oIE = _IECreate("http://www.google.com/", 0, 1)
   _IELoadWait($oIE)
$oForm = _IEFormGetObjByName($oIE, "gbqf")
$oQuery = _IEFormElementGetObjByName($oForm, "q")
   _IEFormElementSetValue($oQuery, 'allinurl:' & $dom & $dork)
   _IEFormSubmit($oForm)
For $ww = 1 To $we
      $oLinks = _IELinkGetCollection($oIE)
If IsObj($oLinks) Then 
    $iCount = 0 
 For $oLink In $oLinks
        $sLinkHREF = $oLink.href
	    
;Captcha
	If StringInStr($sLinkHREF, "sorry") then 
	  GUISetState()
	$oIE1 = _IECreateEmbedded ()
    $GUIActiveX2 = GUICtrlCreateObj($oIE1, 10, 380, 300, 350)
   $oIE2 = _IENavigate ($oIE1, $sLinkHREF)
;	$oForm = _IEFormGetCollection($oIE2, 0)
$Form = _IEFormGetObjByName($oIE2,'')
$Query = _IEFormElementGetObjByName($Form, "")
_IEFormElementSetValue($Query, '')
;_IEAction($buttonz, 'click')
_IEFormSubmit($Form)
  ;_IELoadWait($oIE1)
	  EndIf  
;End Captcha
        
If Not StringInStr($sLinkHREF, "google") And Not StringInStr($sLinkHREF, "javascript") And Not StringInStr($sLinkHREF, "blogger") And Not StringInStr($sLinkHREF, "youtube") Then ; All non-Google links
   $iCount += 1 
   ReDim $aTitles[$iCount]
   $aTitles[$iCount - 1] = $sLinkHREF
   GUICtrlSetData($dorki, $aTitles[$iCount - 1] & @CRLF, 1)
   GUICtrlSetFont(-1, 10, 180, 3)
     EndIf
    Next
EndIf
    ;$hFile = FileOpen($sFile, 1)
   ;_FileWriteFromArray($hFile, $aTitles, 1)
Sleep(100)
   _IELinkClickByText ($oIE, "Следующая")
   If _IELinkClickByText ($oIE, "Следующая") = '' Then
	  $ww = $we
For $t = 1 To 2
   ProcessClose("iexplore.exe")
Next
EndIf
Next
For $i = 1 To 2
   $aArray = _ArrayUnique($aTitles, 1, 1)
    _ArrayDelete($aArray, 0) ; Delete first two non-Google links (YouTube and Blogger)
 Next
For $t = 1 To 2
   ProcessClose("iexplore.exe")
Next