Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Pomocy! Pisze w tym programie tylko 1h i niezbyt go rozumiem...

MrFrut

Przez MrFrut
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

MrFrut Nowicjusz

MrFrut

Opublikowano
Nowicjusz

MrFrut

Opublikowano

Zatem napisałem sb bocika co by mi klikał różne rzeczy tylko jest problem bo nie ogarniam tego programu i tych funkcji..

bawiłem się troszke w c++ dlatego jakieś podstawy tam znam i pytanie czy jest ktoś w stanie poprawić ten kod czy coś :/

 

 

Global $Paused
 
HotKeySet("{F6}","stop")
 
Func stop()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Pauza',0,0)
    WEnd
    ToolTip("")
 EndFunc
 
 HotKeySet("{F7}","ext")
 
Func ext()
        Exit
EndFunc
 
For $i = 0 To 999999 Step +1
   $x +=1
 
   If $x<80 Then
   For $x = 0 To 80 Step +1
   MouseClick ("left", 570, 724)
   Sleep(100)
   MouseClick ("left", 1243, 752)
   Sleep(100)
   MouseClick ("left", 1034, 941)
   Sleep(100)
   MouseClick ("left", 966, 923)
   Sleep(100)
   MouseClick ("left", 980, 928)
   Sleep(100)
   MouseClick ("left", 874, 685)
   Sleep(100)
 
   Next
[Else]
   MouseClick ("left", 1274, 750)
   MouseClick ("left", 1274, 750)
   MouseClick ("left", 1274, 750)
   MouseClick ("left", 1274, 750)
   MouseClick ("left", 1274, 750)
EndIf
If $x==250 Then
   MouseClick ("left", 21, 704)
   Sleep(1000)
   MouseClick ("left", 65, 681)
   Sleep(1000)
   MouseClick ("left", 955, 171)
   Sleep(1000)
   MouseClick ("left", 1038, 204)
   Sleep(1000)
   MouseClick ("left", 21, 704)
   Sleep(1000)
   MouseClick ("left", 228, 369)
   Sleep(1000)
   MouseClickDrag ("left", 1244, 372, 1242, 796)
   Sleep(1000)
[Else]
      MouseClick ("left", 21, 704)
   Sleep(1000)
   MouseClick ("left", 65, 681)
   Sleep(1000)
   MouseClick ("left", 955, 171)
   Sleep(1000)
   MouseClick ("left", 1038, 204)
   Sleep(1000)
   MouseClick ("left", 21, 704)
   Sleep(1000)
   MouseClick ("left", 228, 369)
   Sleep(1000)
   MouseClickDrag ("left", 1244, 372, 1242, 796)
   Sleep(1000)
 
   EndIf
 
 
jeśli to chce uruchomić wyskakuje błąd iż "Next" nie ma pokrycia w funkcji For
Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano

To zapoznaj sie z podstawami, a nie na slepo lecisz.

https://www.autoitscript.com/autoit3/docs/keywords/For.htm

https://www.autoitscript.com/autoit3/docs/keywords/IfElseEndIf.htm

Global $Paused

HotKeySet("{F6}", "stop")

Func stop()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Pauza', 0, 0)
	WEnd
	ToolTip("")
EndFunc   ;==>stop

HotKeySet("{F7}", "ext")

Func ext()
	Exit
EndFunc   ;==>ext

$x = 0
For $i = 0 To 999999
	$x += 1

	If $x < 80 Then
		For $x = 0 To 80
			MouseClick("left", 570, 724)
			Sleep(100)
			MouseClick("left", 1243, 752)
			Sleep(100)
			MouseClick("left", 1034, 941)
			Sleep(100)
			MouseClick("left", 966, 923)
			Sleep(100)
			MouseClick("left", 980, 928)
			Sleep(100)
			MouseClick("left", 874, 685)
			Sleep(100)
		Next
	Else
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
	EndIf

	If $x == 250 Then
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 65, 681)
		Sleep(1000)
		MouseClick("left", 955, 171)
		Sleep(1000)
		MouseClick("left", 1038, 204)
		Sleep(1000)
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 228, 369)
		Sleep(1000)
		MouseClickDrag("left", 1244, 372, 1242, 796)
		Sleep(1000)
	Else
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 65, 681)
		Sleep(1000)
		MouseClick("left", 955, 171)
		Sleep(1000)
		MouseClick("left", 1038, 204)
		Sleep(1000)
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 228, 369)
		Sleep(1000)
		MouseClickDrag("left", 1244, 372, 1242, 796)
		Sleep(1000)
	EndIf
Next

 

 

MrFrut Nowicjusz

MrFrut

Opublikowano
Nowicjusz

MrFrut

  • Autor
Opublikowano

czytałem te podstawy... w moim kodzie brakowało tylko next na koncu... tylko jest problem bardziej merytoryczny i wałsnie nwm jak go rozwiązać 

chodzi o to zeby do 20 powtorzeń wykonywał to co w pentli a pózniej zeby jednorazowo wykonał tak jakby tego elsa, a znowu następnie jak wykona elsa powrocił do fora z tymi 20 powtórzeniami (taka akcja musiala by sie powtorzyc 3 razy) zas z koleji po tym jak wykona te 3 akcje to powinien zrobić następna czyli ten if==250 czy masz może jakies pomysły?

Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano

Chyba nie bardzo lapie koncepcje, ale moze cos takiego:

Global $Paused

HotKeySet("{F6}", "stop")
HotKeySet("{F7}", "ext")

$x = 0

While 1
	Sleep(100)
	$x += 1

	If IsInt($x/20) And $x <=60 Then
		MouseClick("left", 570, 724)
		Sleep(100)
		MouseClick("left", 1243, 752)
		Sleep(100)
		MouseClick("left", 1034, 941)
		Sleep(100)
		MouseClick("left", 966, 923)
		Sleep(100)
		MouseClick("left", 980, 928)
		Sleep(100)
		MouseClick("left", 874, 685)
		Sleep(100)
	Else
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
		MouseClick("left", 1274, 750)
	EndIf

	If $x > 60 Then
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 65, 681)
		Sleep(1000)
		MouseClick("left", 955, 171)
		Sleep(1000)
		MouseClick("left", 1038, 204)
		Sleep(1000)
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 228, 369)
		Sleep(1000)
		MouseClickDrag("left", 1244, 372, 1242, 796)
		Sleep(1000)
		$x = 0
	Else
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 65, 681)
		Sleep(1000)
		MouseClick("left", 955, 171)
		Sleep(1000)
		MouseClick("left", 1038, 204)
		Sleep(1000)
		MouseClick("left", 21, 704)
		Sleep(1000)
		MouseClick("left", 228, 369)
		Sleep(1000)
		MouseClickDrag("left", 1244, 372, 1242, 796)
		Sleep(1000)
	EndIf
WEnd

Func stop()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Pauza', 0, 0)
	WEnd
	ToolTip("")
EndFunc   ;==>stop

Func ext()
	Exit
EndFunc   ;==>ext

 

 

MrFrut Nowicjusz

MrFrut

Opublikowano
Nowicjusz

MrFrut

  • Autor
Opublikowano

niestety nie takie cos bo to przechodzi odrazu do 2 czynnosci, moze jakos graficznie pzredstawie xD

 

 

(Petla nieskonczona)  (oczywiscie inkrementacja)

       {            if(ktory zrobi sie 3 razy)

                         {    

                                 if (jesli wykona 20 razy przechodzi do elsa)

                                                    (petla ktora wykona sie 20 razy)   

                                 else(i tu kliknie 4 razy)

                          }

                     tutaj else(jak wykona sie 3 razy petla w ifie)

                             tutaj znowu jakies tam klikniecia

                           i teraz najwazniejsze czyli powrot do poczatku calego programu.

         }

 

jest w stanie takie cos napisac i czy wogole ma prawo to dzialac?

Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano 




Global $Paused


 



HotKeySet("{F6}", "stop")



HotKeySet("{F7}", "ext")


 



While 1



	Sleep(100)


 



	For $i = 1 To 3



		For $j = 1 To 20



			Petla20Razy()



		Next



		MouseClick("left", 1274, 750, 4)



	Next


 



	ZnowuJakiesKlikniecia()



WEnd


 



Func Petla20Razy()



	MouseClick("left", 570, 724)



	Sleep(100)



	MouseClick("left", 1243, 752)



	Sleep(100)



	MouseClick("left", 1034, 941)



	Sleep(100)



	MouseClick("left", 966, 923)



	Sleep(100)



	MouseClick("left", 980, 928)



	Sleep(100)



	MouseClick("left", 874, 685)



	Sleep(100)



EndFunc   ;==>Petla20Razy


 



Func ZnowuJakiesKlikniecia()



	Sleep(100)



EndFunc   ;==>ZnowuJakiesKlikniecia


 



Func stop()



	$Paused = Not $Paused



	While $Paused



		Sleep(100)



		ToolTip('Pauza', 0, 0)



	WEnd



	ToolTip("")



EndFunc   ;==>stop


 



Func ext()



	Exit



EndFunc   ;==>ext


 







			
		


		

		
			

	

		

		

			

	 





	 



		

	


		
	


	
    


	




					
					
					
				
			
			



		

	


	
	
	
		

			
Zarchiwizowany

			

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

		

	
	
	

	







	

		
			
				Tematy
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Dodaj nową pozycję...
    •