Problem with runing statemens

[EmptySpace 0]

I can solve it in other way but i want to look it clearly and run smooth.

Func clicklink()
Sleep(4000)
_IELinkClickByText($oIE,$text)
If @error = 7 Then ;if no link found
_IELinkClickByText($oIE,$text2)
If @error = 7  Then ; link text2 wasnt found then
_IELinkClickByText($oIE,$text3)
If all errors then ;if no links found then
_ieaction($oIE,"refresh")
Endif
Endfunc

So how i can write this? Maybe its possible with case or smthg?

[JLogan3o13 961]

If I am understanding you correctly, maybe a For loop and an error level check would make it easier. Something like this (untested)?

Func clicklink()
Sleep(4000)

Local $ErrLevel = 0
Local $aText[3]
   $aText[0] = ""
   $aText[1] = ""
   $aText[2] = ""

For $link in $aText
_IELinkClickByText($oIE,$link)
  If @error = 7 Then ;if no link found
   $ErrLevel += 1
  EndIf
Next

If $ErrLevel = 3 Then  ;if no links found then
_ieaction($oIE,"refresh")
Endif

Endfunc

[EmptySpace 0]

Thanks! It works fine.

Edit, I cant see correctly but i think it click few links at once. Its possible?

Edited July 6, 2012 by Edgaras

[JLogan3o13 961]

Glad to help

[EmptySpace 0]

It works fine but I think if first link exists it clicks all three. It loops through all links I need somehow to make that if first link exists then dont even check other.

Edited July 6, 2012 by Edgaras

[JLogan3o13 961]

Depending on what you want to do, you need to add an Else into your If Statement:

Func clicklink()
Sleep(4000)
Local $ErrLevel = 0
Local $aText[3]
   $aText[0] = ""
   $aText[1] = ""
   $aText[2] = ""
For $link in $aText
_IELinkClickByText($oIE,$link)
  If @error = 7 Then ;if no link found
   $ErrLevel += 1
   Else
    ;click $link
  EndIf
Next
If $ErrLevel = 3 Then  ;if no links found then
_ieaction($oIE,"refresh")
Endif
Endfunc

[EmptySpace 0]

In first code when I start function in once it tries to click all links. If all three links is in window then i clicks firs and other two. I need if link is clicked then dont search for other links.

[JLogan3o13 961]

You should be able to use ExitLoop in your Else statement. That way, whichever link it finds it will then exit the For loop.

[EmptySpace 0]

Yeah, now it works fine. Thanks again for help

Func clicklink()
Sleep(4000)

Local $ErrLevel = 0
Local $aText[3]
$aText[0] = ""
$aText[1] = ""
$aText[2] = ""

For $link in $aText
_IELinkClickByText($oIE,$link)
If @error = 7 Then ;if no link found
$ErrLevel += 1
else
exitloop
EndIf
Next

If $ErrLevel = 3 Then ;if no links found then
_ieaction($oIE,"refresh")
Endif

Endfunc