wont loop?

[botanic]

i am trying to get this to loop but when it gets to the end the script just stops...

every part of it works but that 1...

CODE

While $cardnumber < 3938

WinWaitActive("Microsoft Internet Explorer")

sleep(1000)

WinActivate("Microsoft Excel - .xls")

sleep(300)

WinWaitActive("Microsoft Excel - .xls")

Sleep(300)

send("^f")

sleep(300)

WinActivate("Find")

sleep(300)

WinWaitActive("Find")

sleep(300)

send($cardnumber + 1)

sleep(300)

send("{enter}")

sleep(300)

WinClose("Find")

sleep(300)

WinActivate("Microsoft Excel - .xls")

sleep(300)

WinWaitActive("Microsoft Excel - .xls")

sleep(300)

MouseClick( "left", 125, 416)

sleep(300)

send("^c")

sleep(300)

WinActivate("Microsoft Internet Explorer")

sleep(300)

MouseClick( "left", 82, 447)

sleep(300)

$name = ClipGet()

sleep(300)

send("^v")

sleep(500)

send("{enter}")

sleep(800)

;wait for page to load

do

if PixelGetColor( 472, 475) <> 8654089 then

sleep(500)

EndIf

Until PixelGetColor( 472, 475) = 8654089

sleep(300)

MouseClickDrag( "left", 809, 498, 755, 497)

sleep(300)

send("^c")

sleep(300)

WinActivate("Microsoft Excel - .xls")

sleep(300)

WinWaitActive("Microsoft Excel - .xls")

sleep(300)

MouseClick( "left", 307, 417)

sleep(300)

send("^v")

sleep(300)

send("^a")

sleep(300)

send("^f")

sleep(300)

WinActivate("Find")

sleep(300)

WinWaitActive("Find")

sleep(300)

send("thisisthebegining")

sleep(300)

send("{enter}")

sleep(300)

WinClose("Find")

sleep(300)

WinActivate("Microsoft Excel - .xls")

sleep(300)

WinWaitActive("Microsoft Excel - .xls")

sleep(300)

send("^s")

sleep(300)

WEnd

[Outshynd]

That'll just loop forever, unless you set $cardnumber to a number higher than or equal to 3938. You don't increment $cardnumber or anything.

[botanic]

i made

$cardnumber = 2037

the problem is that it wont loop.... and i need it to... it just stops at the wend

does this fix the problem you saw tho?

sleep(300)

send($cardnumber + 1)

sleep(300)

Global $cardnumber = $cardnumber + 1

sleep(300)

send("{enter}")

Edited December 15, 2006 by botanic

[The Kandie Man]

I think you want this:

expandcollapse popup

While $cardnumber < 3938
    WinWaitActive("Microsoft Internet Explorer")
    Sleep(1000)
    WinActivate("Microsoft Excel - .xls")
    Sleep(300)
    WinWaitActive("Microsoft Excel - .xls")
    Sleep(300)
    Send("^f")
    Sleep(300)
    WinActivate("Find")
    Sleep(300)
    WinWaitActive("Find")
    Sleep(300)
    Send($cardnumber)
    Sleep(300)
    Send("{enter}")
    Sleep(300)
    WinClose("Find")
    Sleep(300)
    WinActivate("Microsoft Excel - .xls")
    Sleep(300)
    WinWaitActive("Microsoft Excel - .xls")
    Sleep(300)
    MouseClick("left", 125, 416)
    Sleep(300)
    Send("^c")
    Sleep(300)
    WinActivate("Microsoft Internet Explorer")
    Sleep(300)
    MouseClick("left", 82, 447)
    Sleep(300)
    $name = ClipGet()
    Sleep(300)
    Send("^v")
    Sleep(500)
    Send("{enter}")
    Sleep(800)
    ;wait for page to load
    Do
        If PixelGetColor(472, 475) <> 8654089 Then
            Sleep(500)
        EndIf
    Until PixelGetColor(472, 475) = 8654089
    Sleep(300)
    MouseClickDrag("left", 809, 498, 755, 497)
    Sleep(300)
    Send("^c")
    Sleep(300)
    WinActivate("Microsoft Excel - .xls")
    Sleep(300)
    WinWaitActive("Microsoft Excel - .xls")
    Sleep(300)
    MouseClick("left", 307, 417)
    Sleep(300)
    Send("^v")
    Sleep(300)
    Send("^a")
    Sleep(300)
    Send("^f")
    Sleep(300)
    WinActivate("Find")
    Sleep(300)
    WinWaitActive("Find")
    Sleep(300)
    Send("thisisthebegining")
    Sleep(300)
    Send("{enter}")
    Sleep(300)
    WinClose("Find")
    Sleep(300)
    WinActivate("Microsoft Excel - .xls")
    Sleep(300)
    WinWaitActive("Microsoft Excel - .xls")
    Sleep(300)
    Send("^s")
    Sleep(300)
    $cardnumber +=1
WEnd

Edited December 15, 2006 by The Kandie Man

[botanic]

humm it still wont loop even once...

[Valuater]

sure of your color ??

#include <GuiConstants.au3>

$win1 = GUICreate("my gui")
GUISetBkColor(8654089, $win1)
GUISetState()

While 1
    If GUIGetMsg() = -3 then Exit
WEnd

8)

[botanic]

nm i got it the win wasnt becoming active...