ahk_While检测点击识图

 ~Rbutton::
      KeyWait, Rbutton, T0.4
          If ErrorLevel
                          reload
                 
Return


PgUp::
a:=0
WinGetActiveTitle, Title
          IfInString, Title, Photos 
                 gosub  OCR

return






OCR:

WinMove,A,,0,0,888,588

                           
                             x1:=8
                             y1:=388
                             x2:=888
                             y2:=568
                                         
                                                  
Old:=Clipboard 
          Send ^!o
           sendevent {click %x1%,%y1% down}{click %x2%,%y2% up}
              Sleep 188
                  sleep 588
                         sleep 188
                                  sleep 1088 
                    Sendevent {right down}{right up}

                                       
 

:=""  ;


while true
  {
       sleep,58    ;0.05


         if WinExist()  
            {   
               WinActivate ;
                     WinMove,A,,0,0,588,588
                      Sleep 1288
                         Winactivate,
           ;Pause  
                             Mousemove,500,558
                        Sleep 188
                     Click
                  New=%Clipboard%     
              Clipwait
           Sleep 188
       winclose,
  New=%Clipboard%             
            If !WinExist("")         
                   O := SubStr(Old, 1, 1)
                           N := SubStr(New, 1, 1)
                                  if (O != N)
                                            {   
                                                  Gosub 
                                                            Sleep 188
                                                              Msgbox,,,%New%,1
                                                                Old=%New% 
                                                                  mousemove,18,188
                                                                  click
                                                                     Gosub OCR
                                                         
                                                                    }else {   
                                                                               
                                                                                       mousemove,18,188
                                                                                              click
                                                                                                  Gosub OCR
                                                                                                        }
                                          
                             }


                                                              }

return

:

          
 a:=a+1
                                               
       New= %a%`:%New%
                   


            =_%A_YYYY%        ;
             =%%%A_MM%        ;
              =%%%A_DD%_         ;

                            OCR:="OCR"                        ;        
                                OCR=%OCR%%%                   ;
                                   :=""               ; 
                                              =%%%%    ;

                                       FileAppend,%New%`n`n,G:\OCR_SAVES\%OCR%.html 
                                                        Sleep 18
                            FileDelete,G:\OCR_SAVES\%%.txt
                         Sleep 18
                 FileAppend,%a%, G:\OCR_SAVES\%%.txt
            ; 
                        Sleep 18
                             Winactivate,"Photos"
                                                Sleep 18




return