Custom Query (3922 matches)

A timeout of 1000ms and higher causes a sleep delay. Delay time depends on TCPTimeout setting. Examples:

Opt('TCPTimeout', 1000) = 1 second Opt('TCPTimeout', 2000) = 2 seconds Opt('TCPTimeout', 5000) = 5 seconds

Thanks goes to AdmiralAlkex showing timer differences.

TCPStartup()
;
Local $iTimer, $Socket, $Server = TCPListen('127.0.0.1', 80)
If $Server = -1 Then Exit
;
Opt('TCPTimeout', 999); <-- set this higher to reproduce the problem
;
Local $gui = GUICreate('TCPTimeout Test', 400, 250, -1, -1)
GUISetState(@SW_SHOW)
;
While 1
    Switch GUIGetMsg()
        Case -3
            TCPShutdown()
            GUIDelete($gui)
            Exit
    EndSwitch
    ;
    $iTimer = TimerInit()
    $Socket = TCPAccept($Server)
    MsgBox(0, '', TimerDiff($iTimer))
    ;
    TCPCloseSocket($Socket)
WEnd

Link: ​http://www.autoitscript.com/forum/topic/137646-tcptimeout-bug/

reffering to a part of array that is being declared

$avArray[2]=["foo",$avArray[0]]

It appears that the routine returns only the last occurrence of string rather than all occurrences Modified as follows and it appear to work Func _Excel_RangeFind($oWorkbook, $sSearch, $vRange = Default, $iLookIn = Default, $iLookAt = Default, $bMatchcase = Default)

If Not IsObj($oWorkbook) Or ObjName($oWorkbook, 1) <> "_Workbook" Then Return SetError(1, 0, 0) If StringStripWS($sSearch, 3) = "" Then Return SetError(2, 0, 0) If $iLookIn = Default Then $iLookIn = $xlValues If $iLookAt = Default Then $iLookAt = $xlPart If $bMatchcase = Default Then $bMatchcase = False Local $oMatch, $sFirst = "", $bSearchWorkbook = False, $oSheet If $vRange = Default Then

$bSearchWorkbook = True $oSheet = $oWorkbook.Sheets(1) $vRange = $oSheet.UsedRange

ElseIf IsString($vRange) Then

$vRange = $oWorkbook.Parent.Range($vRange) If @error Then Return SetError(3, @error, 0)

EndIf ;;;;;Local $aResult[100][6], $iIndex = 0, $iIndexSheets = 1 Local $aResult[100][6], $iIndex = -1, $iIndexSheets = 1;;;; FIXED by RIC While 1

$oMatch = $vRange.Find($sSearch, Default, $iLookIn, $iLookAt, Default, Default, $bMatchcase) If @error Then Return SetError(4, @error, 0) If IsObj($oMatch) Then

$sFirst = $oMatch.Address While 1

$iIndex = $iIndex + 1;;;; FIXED by RIC $aResult[$iIndex][0] = $oMatch.Worksheet.Name $aResult[$iIndex][1] = $oMatch.Name.Name $aResult[$iIndex][2] = $oMatch.Address $aResult[$iIndex][3] = $oMatch.Value $aResult[$iIndex][4] = $oMatch.Formula $aResult[$iIndex][5] = $oMatch.Comment.Text $oMatch = $vRange.Findnext($oMatch) If Not IsObj($oMatch) Or $sFirst = $oMatch.Address Then ExitLoop ;;;;;$iIndex = $iIndex + 1;;;; FIXED by RIC If Mod($iIndex, 100) = 0 Then ReDim $aResult[UBound($aResult, 1) + 100][6]

WEnd

EndIf If Not $bSearchWorkbook Then ExitLoop $iIndexSheets = $iIndexSheets + 1 $sFirst = "" $oSheet = $oWorkbook.Sheets($iIndexSheets) If @error Then ExitLoop $vRange = $oSheet.UsedRange

WEnd ReDim $aResult[$iIndex + 1][6] Return $aResult

EndFunc ;==>_Excel_RangeFind