Есть ф-ция.В любом случае,она возвращает ошибку.Я уже два часа не могу понять в чем загвоздка.
Добавлено:
Проблему почти решил,но остался вопрос ,
всегда нужно использовать в таком случае?
Добавлено:
Вроде бы разобрался.Но как быть в такой ситуации :
Код:
Func navigate($comment, $obj, $link, $intermediateBlank = 1)
Local $intermediate
If $intermediateBlank = 1 Then
$intermediate = _IENavigate($obj, 'about:blank', 1)
EndIf
If $intermediateBlank = 0 Then
$intermediate = -1
EndIf
If $intermediate = -1 Then
If _IENavigate($obj, $link, 0) = -1 Then
$loadWait = _IELoadWait($obj, 0, $timeWaitDefault)
If $loadWait = 1 Or $loadWait = 6 Then
$A = TimerInit()
While 1
If waitingString($obj, 'DATABASE ERROR') = 0 _
And waitingString($obj, 'MySQL error: 1203') = 0 _
And waitingString($obj, 'fatal error') = 0 _
And waitingString($obj, 'SQL ERROR') = 0 Then ExitLoop
_IEAction($obj, 'refresh')
_IELoadWait($obj, 0, $timeWaitDefault)
If $timeWaitDefault < TimerDiff($A) Then ExitLoop
Sleep(1000)
WEnd
_GUICtrlRichEdit_AppendText($hRichEdit, ' navigate (' & $link & ') -> successfully (' & $comment & ')' & @CRLF)
Else
_GUICtrlRichEdit_AppendText($hRichEdit, ' navigate (' & $link & ') -> error (' & $comment & ')' & @CRLF)
Return SetError(1)
EndIf
EndIf
EndIf
EndFunc ;==>navigate
Добавлено:
Сообщение автоматически объединено:
Проблему почти решил,но остался вопрос ,
Код:
Return SetExtended(0)
Добавлено:
Сообщение автоматически объединено:
Вроде бы разобрался.Но как быть в такой ситуации :
Код:
If StringInStr($linkPic, 'picsee') Then
Return $linkPic
Else
Return SetError(1)
EndIf