Skocz do zawartości

[Pytanie] Zrobienie pętli ;]

Marvel40

Przez Marvel40,
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Marvel40 Newbie

Marvel40

Opublikowano
Opublikowano

Witam :) Otóż mam sobie taki kodzik

 

 

MouseClick("Right",894,287,1,10)
Sleep(1000)
MouseClick("Left",982,302,1,10)
Sleep(1000)
MouseClick("Right",894,321,1,10)
Sleep(1000)
MouseClick("Left",982,331,1,10)
Sleep(1000)
MouseClick("Right",894,357,1,10)
Sleep(1000)
MouseClick("Left",982,372,1,10)
Sleep(1000)
MouseClick("Right",894,406,1,10)
Sleep(1000)
MouseClick("Left",982,413,1,10)
Sleep(1000)
MouseClick("Right",894,445,1,10)
Sleep(1000)
MouseClick("Left",982,448,1,10)
Sleep(5000)
MouseClick("Left",286,12,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",160,14,1,10)
Sleep(1000)
MouseClick("Left",951,478,1,10)
Sleep(100000)

Ponieważ dziś po raz pierwszy odpaliłem ten program, nie potrafię zrobić tak, aby czynność ta wykonywana była bez końca. Od początku do końca od początku do końca;p Bez końca :)

 

Czy ktoś mógłby mi w tym pomóc ? :)

 

 

Odnośnik do komentarza
Udostępnij na innych stronach
hehe7 Newbie

hehe7

Opublikowano
Opublikowano

While 1

;;;;tutaj wpisz kod

WEnd

to będzie działało bez końca ale lepsza była by opcja

 

Global $dzialaj = False
HotKeySet ( "{F1}", "funkcja1")
Func funkcja1()
$dzialaj = Not $dzialaj
While $dzialaj2
;;;Tutaj kod
WEnd
EndFunc
While 1
Sleep(10)
WEnd

To samo tylko mozesz wlaczyc i wylaczyc F1

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Odnośnik do komentarza
Udostępnij na innych stronach
JestemPolakiem Newbie

JestemPolakiem

Opublikowano
Opublikowano

 

 

 

While 1/ While True
MouseClick("Right",894,287,1,10)
Sleep(1000)
MouseClick("Left",982,302,1,10)
Sleep(1000)
MouseClick("Right",894,321,1,10)
Sleep(1000)
MouseClick("Left",982,331,1,10)
Sleep(1000)
MouseClick("Right",894,357,1,10)
Sleep(1000)
MouseClick("Left",982,372,1,10)
Sleep(1000)
MouseClick("Right",894,406,1,10)
Sleep(1000)
MouseClick("Left",982,413,1,10)
Sleep(1000)
MouseClick("Right",894,445,1,10)
Sleep(1000)
MouseClick("Left",982,448,1,10)
Sleep(5000)
MouseClick("Left",286,12,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",998,444,1,10)
Sleep(1000)
MouseClick("Left",377,14,1,10)
Sleep(1000)
MouseClick("Left",160,14,1,10)
Sleep(1000)
MouseClick("Left",951,478,1,10)
Sleep(100000)
WEnd

 

 

 

 

bądź jeżeli wolisz 10 razy ma się to powtarzać

 

 

 

 



For $i = 0 to 10 step +1


MouseClick("Right",894,287,1,10)


Sleep(1000)


MouseClick("Left",982,302,1,10)


Sleep(1000)


MouseClick("Right",894,321,1,10)


Sleep(1000)


MouseClick("Left",982,331,1,10)


Sleep(1000)


MouseClick("Right",894,357,1,10)


Sleep(1000)


MouseClick("Left",982,372,1,10)


Sleep(1000)


MouseClick("Right",894,406,1,10)


Sleep(1000)


MouseClick("Left",982,413,1,10)


Sleep(1000)


MouseClick("Right",894,445,1,10)


Sleep(1000)


MouseClick("Left",982,448,1,10)


Sleep(5000)


MouseClick("Left",286,12,1,10)


Sleep(1000)


MouseClick("Left",998,444,1,10)


Sleep(1000)


MouseClick("Left",377,14,1,10)


Sleep(1000)


MouseClick("Left",998,444,1,10)


Sleep(1000)


MouseClick("Left",377,14,1,10)


Sleep(1000)


MouseClick("Left",998,444,1,10)


Sleep(1000)


MouseClick("Left",377,14,1,10)


Sleep(1000)


MouseClick("Left",998,444,1,10)


Sleep(1000)


MouseClick("Left",377,14,1,10)


Sleep(1000)


MouseClick("Left",998,444,1,10)


Sleep(1000)


MouseClick("Left",377,14,1,10)


Sleep(1000)


MouseClick("Left",160,14,1,10)


Sleep(1000)


MouseClick("Left",951,478,1,10)


Sleep(100000)


Next


 


 










 


@edit


ehh nie zauważyłem, że już rozwiązane.



			
		


		

		
			

	

		

		

			
qxv1fr.jpg


by NovusOrdo


It is better to keep your mouth closed and let people think you are a fool than to open it and remove all doubt. ~Mark Twain


		

	


		
	


	

	





	
Odnośnik do komentarza

	
		
	
	
	

	
	
Udostępnij na innych stronach

	

	


	

	

	




	




					
					
					
					
					
                        

					
					
				
				
			
			



		

	


	
	
	
		

			
Zarchiwizowany

			

				Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.
			

		

	


   	



	
	

	







	

		
			
				Tematy
			
		
	

	





								


	

		
    
			
				
					
					
  • 

    
    
        
            Ostatnio przeglądający
        
        
        
        forum [Pytanie] Zrobienie pętli ;] 
        
          0 użytkowników
        
    
    
    
        
      
            
                
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
      • 
            
        
    
        
    
    

    • 
				
			
		

	


                                
                                
                                
                                    
        
            






  



        

                                
                                            
							

							


						

					

					
				

				

			

		

		
		
 
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Dodaj nową pozycję...
    •