Break a loop inside While - Database - (Moved)

[mihai210]

Hello to everyone  
I am relatively new to autoit script, I did a lot of research and mostly my script is formed  by combining scripts and using the help file, so if it possible to help me with this one. 

When it gets clicked the row with the second book will open like first one so in need to get back to  "while 1" to create a  new directory and when  "$nr" gets to 45 I need to scroll down and get pos of the las row i exported. 

i used image search

 

expandcollapse popup

#include <ImageSearch.au3>
HotKeySet("{space}", "Terminate")
#include <AutoItConstants.au3>

f2()
func f2()
    EndFunc

$x1=0
$y1=0

MouseClick("left",242,249,1,1) 
ToolTip("mouse set")
Sleep(400)

While 1
    
    $result = _ImageSearch("book.bmp",1,$x1,$y1,0)
if $result=1 Then
    MouseMove($x1,$y1,3)
    MouseClick("left",$x1,$y1,1)
    
;   folder name
    MouseMove(453,212,0)
sleep(50)
MouseClick("left",453,212,1,1) 
sleep(50) 
Send ("^a")
 Send ("^c")
 $fname = ClipGet()
 
 ; Folder code
MouseMove(67,213,0)
sleep(50)
MouseClick("left",67,213,1,1) 
sleep(50)  
Send ("^a")
 Send ("^c")
 $fcode = ClipGet()
 
 ;create and open directory 
    ToolTip("Mouse here")
    Sleep(1000)
        ToolTip("clicked on in")
        DirCreate("D:\DB\"  & $fcode & " " & $fname)
        ShellExecute("D:\DB\"  & $fcode & " " & $fname)
    Sleep(1000)
    MouseClick("left",$x1+100,$y1+16,1)
    ;Start copy 
    $y1= $y1+16
    
elseif $result =0 Then
    $nr=0
f1()
func f1()
    $locpart =$y1


While $locpart <>974
    $locpart = $locpart + 16
    $nr= $nr + 1
;when $nr gets to 45 MouseWheel($MOUSE_WHEEL_down, 14) and reset mouse location
MouseMove(220, $locpart ,1)
MouseClick("left",220, $locpart,1) 
sleep(1000)
;break when second book if find and return to while 1
if $result = 1 Then f2() 
WinActivate("Selección de Parámetros")
sleep(200)
if  WinActive("Selección de Parámetros") then
    Send ("{esc}")

    endif

   ToolTip("Mouse Here " & $nr)
sleep(50)
MouseMove(34,173,0)
sleep(50)  
MouseDown($MOUSE_CLICK_LEFT)
sleep(50)
MouseMove(2464,339,0)
ToolTip("mouse here")
Sleep(50)
MouseUp($MOUSE_CLICK_LEFT)
WinActivate("Reemplazar u omitir archivos")
sleep(200)
if  WinActive("Reemplazar u omitir archivos") then
    Send ("{esc}")
    endif

WEnd

 EndFunc
;scroll
;else
;MouseWheel($MOUSE_WHEEL_down, 14)
endif

WEnd

Func Terminate()
    SplashTextOn("Exit","EXIT PROGRAM")
    Sleep(600)
    Exit
EndFunc   ;==>Terminate

 

[Musashi]

Break a loop inside While

See : https://www.autoitscript.com/autoit3/docs/keywords/ExitLoop.htm

[mihai210]

 I put an empty function at the beginning of the script and when it suppose to beak I used 

if $result = 1 Then f2()

to try to get it started from the beginning. I will watch extloop. Thanks

[Melba23]

Moved to the appropriate forum.

Moderation Team