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

{AUTOIT} pytanie co do skryptu.

MewaPL

Rekomendowane odpowiedzi

MewaPL Uczeń

MewaPL

Opublikowano
Uczeń

MewaPL

Opublikowano

Witam, mam problem. Chcialem zrobic skrypt, aby pracowal w ukryciu, i mial kilka funkcji, gdy znajdzie prawidlowe dane.

Ale napotkalem problem. Mianowicie:

2gshf1d.jpg

wyskakuja te bledy^^^.

Wiem co zrobic, ale jezeli nadpisze WEnd za while 1 albo function start() to odrazu zakoncze petle, a tego nie chce.

Wie ktos co z tym zrobic? 

aaaa, i czy ten kod bedzie wykonywal to co mu podalem do zrobienia ??? 

Co zrobic, zeby zamienic Winactivate, zeby nie wyskakiwalo a i za send co zrobic zeby nie musialo byc okno otwarte zeby to wpisac, zeby tkjb. pracowal w ukryciu. Wiem, ze controlsend, ale jak otwiera mi i tak okno poprzez WinActivate to to nic nie da.

 

Caly kod to:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <nomad.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("data checker v1.0", 350, 26, 400, 70)
$Button1 = GUICtrlCreateButton("start", 30, 0, 90, 25)
$Button2 = GUICtrlCreateButton("stop", 130, 0, 90, 25) ;;
$Button3 = GUICtrlCreateButton("wyjeb",230, 0, 90, 25) ;; poloznie przycisku wyjeb
GUISetState(@SW_SHOW) ;;pokazane gui
#EndRegion ### END Koda GUI section ### ;; koniec kodu Koda GUI
WinSetOnTop ( "Data Checker v1.0", "Trwa sprawdzanie bazy danych kont...", 1 ) ;; okno zawsze na wierzchu
While 1 ;; petla wykonawcza gui
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE ;; zamyka gui
			Exit
		case $Button1  ;; przypisanie funkcji dla $button, czyli przyciskowi nr 1
			Global $PID = ProcessExists("Tibia.exe") ;; patrzy czy istnieje proces tibia.exe
			$memaaa = _MemoryOpen($pid) ;; otwiera pamiec neutralna nomad z nomad.au3
			msgbox(1, "Hack Active", "Hakowanie bazy danych zostalo zainicjowane BY Robson gg: 45790015", 3000 ) ;;wyswietla msgBoxa o tym kto stworzyl skrypt
			start() ;; wlacza funkcje start

				case $Button2				;; przypisanie funkcji dla $button2, czyli przyciskowi nr 2
				HotKeySet("{ESC}", "stop")
				stop ()
			case $Button3					;; przypisanie funkcji dla $button3, czyli przyciskowi nr 3
				HotKeySet("{END}","_koniecpetli")
				ExitLoop(start)
		EndSwitch ;; zamkniecie funkcji switch
;;zmienne
$a = pixelsearch(1225, 153, 1221, 153, 0xDB4F4F)
$konto = IniRead ( "data.ini", "Account_Name:", "account_login => ", "")
$haslo = IniRead ( "data.ini", "Password:", "password_login => ", "")
;; koniec zmiennych
WEnd
$petlakoniec=False
While 1 ;;petla poczatek
	Func start () ;; poczatek funkcji start
	if $a == 1 Then ExitLoop
		soundplay( "alert.wav" )
		FileWriteLine( "good.txt", "login: $konto" )
		FileWriteLine( "good.txt", "haslo: $haslo" )
		FileClose( "good.txt" ) ;;warunek
	endif ;; zakonczenie warunku
			;; dane wykonawcze
		$konto = IniRead ( "data.ini", "Account_Name:", "account_login => ", "") ;; wykonanie zmiennych
		$haslo = IniRead ( "data.ini", "Password:", "password_login => ", "")	;; wykonanie zminnych
		WinActivate("[CLASS:TibiaClient]")	;;otworzenie okna TibiaClient
			send($konto) ;;wpisuje login pobrany z data.ini
			send("{TAB}") ;; po wpisaniu loginu daje tab
			send($haslo) ;; wpisuje haslo
			send("{ENTER}") ;;potwierdza wpisane dane
_memoryclose($PID) ;; zamkniecie pamieci nomad.au3 memory
WEnd ;; koniec petli
$petlakoniec=True
EndFunc
Func stop ()
exit
endfunc
Func _koniecpetli()
   $petlakoniec=True
EndFunc

Prosze o szybka pomoc, mam nadzieje, ze dzis skoncze ten skrypt.

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Otworzyłeś pętle

Otworzyłeś funkcje

Zamknąłeś pętle

Zamknąłeś funkcje

 

A powinieneś najpierw zamknąć funkcje a potem pętle

 

Ale w sumie co Ci daje że dasz

While 1 ;;petla poczatek
Func start () ;; poczatek funkcji start
EndFunc
WEnd ;; koniec petli

Jak to nic nie daje? To tak samo było by chyba bez pętli tak? Nie mogę sprawdzić bo chwilowo brak dostępu do AutoIt

1387536187-U112334.png

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

MewaPL Uczeń

MewaPL

Opublikowano
Uczeń

MewaPL

  • Autor
Opublikowano

Teraz skrypt wyglada w kolejnosci:

While 1
func start()
	if $a == 1 Then ExitLoop
		soundplay( "alert.wav" )
		FileWriteLine( "good.txt", "login: $konto" )
		FileWriteLine( "good.txt", "haslo: $haslo" )
		FileClose( "good.txt" ) ;;warunek
	EndIf ;; zakonczenie warunku
			;; dane wykonawcze
		$konto = IniRead ( "data.ini", "Account_Name:", "account_login => ", "") ;; wykonanie zmiennych
		$haslo = IniRead ( "data.ini", "Password:", "password_login => ", "")	;; wykonanie zminnych
		WinActivate("[CLASS:TibiaClient]")	;;otworzenie okna TibiaClient
			send($konto) ;;wpisuje login pobrany z data.ini
			send("{TAB}") ;; po wpisaniu loginu daje tab
			send($haslo) ;; wpisuje haslo
			send("{ENTER}") ;;potwierdza wpisane dane
_memoryclose($PID) ;; zamkniecie pamieci nomad.au3 memory
EndFunc
WEnd ;; koniec petli

a kod bledu to:

"C:\Users\robik1180\Desktop\dicebotbyme\datacheck.au3"(39,2) : error: missing Wend.
	Func
	^
"C:\Users\robik1180\Desktop\dicebotbyme\datacheck.au3"(38,1) : REF: missing Wend.
While
^
"C:\Users\robik1180\Desktop\dicebotbyme\datacheck.au3"(40,26) : error: 'ExitLoop' not allowed outside loop.
	if $a == 1 Then ExitLoop
	~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\robik1180\Desktop\dicebotbyme\datacheck.au3"(45,2) : error: syntax error
	EndIf
	^
"C:\Users\robik1180\Desktop\dicebotbyme\datacheck.au3"(56,1) : error: syntax error
WEnd
^

Jak moze byc blad w endif??, while, i wend, caly czas pokazuje na 1 literke np WEnd

                                                                                                                               ^

A  i mam pytanie dodatkowe tkjb. skrypt nie pobiera danych z pliku data.ini, tylko odrazu enter. Nawet po podaniu dokladnej lokalizacji C:/users/rb/desktop/au3test/data.ini, to wtedy takze nie dziala. Plik sie tam znajduje.

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

definicja funkcji nie powinna być w pętli po po cholerę cały czas ją definiować  , tam tylko jej wywołanie !  czyli sama funkcja ma wylądować na końcu skryptu tam gdzie inne

 

skutki bezmyślnego kopiowania czyjejś pracy i bezsensownego użycia nomadmemory

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

MewaPL Uczeń

MewaPL

Opublikowano
Uczeń

MewaPL

  • Autor
Opublikowano

Chlopie, co ty do mnie mowisz, chcem zapetlic funkcje a nie zapetlac if co ty wogole wiesz?

Vip, tyle postow a nawet nie umie czytac co ktos chce zrobic? Jezeli masz mi zle podpowiadac, to po co wogole sie odzywac?

 

Jeszcze raz powiem, chcem zapetlic funkcje start()

No to mam nieuzywac petli? 

Ale zeby was przekonac...

Dalem

Do
func start()
Until

func start()
dot. funkcji start
ENDfunc

I nie wiem co to dalo? Nadal jest blad choc wywolalem sama funkcje w petli, i jak masz zle podpowiadac to sie nei odzywaj.

 

EDIT%

Aha doszedlem do wniosku, ze sam popelnilem blad i nie zwrocilem uwagi, chodz to ze wywolalem w petli jest kompletna bzdura RobeM<<

ale stworzylem kod, ktory powinien dzialac w 100%, gdybym wiedzial jedynie co zrobic, aby chcial on pobrac dane z pliku data.ini. Oto za pomoca czego ma on pobierac te dane.

 

   $konto = IniRead("data.ini", "Account_Name:", "account_login => ", "") ;; wykonanie zmiennych

 

niestety program wykonuje tylko tab i enter.

Dodam, iz robie to w skrypcie po otwarciu f5, nie podajac sciezki do data.ini, gdyz ten skrypt znajduje sie razem z plikami data.ini , i  good.txt

Ma ktos jakis pomysl?

a caly kod teraz to:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "stop")
$Form1 = GUICreate("data checker v1.0", 350, 26, 400, 70)
$Button1 = GUICtrlCreateButton("start", 30, 0, 90, 25)
$Button2 = GUICtrlCreateButton("stop", 130, 0, 90, 25)
$Button3 = GUICtrlCreateButton("wyjeb", 230, 0, 90, 25)
GUISetState(@SW_SHOW)

WinSetOnTop("data checker v1.0", "", 1) ;; okno zawsze na wierzchu
While 1 ;; petla wykonawcza gui
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE ;; zamyka gui
         Exit
      Case $Button1 ;; przypisanie funkcji dla $button, czyli przyciskowi nr 1
         If ProcessExists("Tibia.exe") Then
            MsgBox(1, "Hack Active", "Hakowanie bazy danych zostalo zainicjowane BY Robson gg: 45790015", 3000) ;;wyswietla msgBoxa o tym kto stworzyl skrypt
            start() ;; wlacza funkcje start
         EndIf
      Case $Button2 ;; przypisanie funkcji dla $button2, czyli przyciskowi nr 2

         stop()
      Case $Button3 ;; przypisanie funkcji dla $button3, czyli przyciskowi nr 3
EndSwitch



WEnd

Func start()

   $konto = IniRead("data.ini", "Account_Name:", "account_login => ", "") ;; wykonanie zmiennych
   $haslo = IniRead("data.ini", "Password:", "password_login => ", "") ;; wykonanie zminnych
   ControlSend("[CLASS:TibiaClient]","","Login","($konto)",0)
   ControlSend("[CLASS:TibiaClient]","","TAB","{TAB}",0)
   ControlSend("[CLASS:TibiaClient]","","Haslo","($haslo)",0)
   ControlSend("[CLASS:TibiaClient]","","ENTER","{ENTER}",0)
While 1
Sleep(10)
   PixelSearch(1225, 153, 1221, 153, 0xDB4F4F)
   If Not @ Then
      SoundPlay("alert.wav")
      FileWriteLine("good.txt", "login: "&$konto)
      FileWriteLine("good.txt", "haslo: "&$haslo)
      ExitLoop

   EndIf
   WEnd
EndFunc   ;==>start


Func stop()
   Exit
EndFunc   ;==>stop
hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Chlopie, co ty do mnie mowisz, chcem zapetlic funkcje a nie zapetlac if co ty wogole wiesz?

Vip, tyle postow a nawet nie umie czytac co ktos chce zrobic? Jezeli masz mi zle podpowiadac, to po co wogole sie odzywac?

 

Jeszcze raz powiem, chcem zapetlic funkcje start()

No to mam nieuzywac petli? 

Ale zeby was przekonac...

Dalem

Do
func start()
Until

func start()
dot. funkcji start
ENDfunc

I nie wiem co to dalo? Nadal jest blad choc wywolalem sama funkcje w petli, i jak masz zle podpowiadac to sie nei odzywaj

 

 

 

Po pierwsze:

Do
start()
Until

func start()
;co ma robic funkcja
ENDfunc

Po drugie wcale nikt Ci nie musi pomagać, więc się ciesz że w ogóle ktoś ma chęć to robić. Po drugie sam robisz błędy a jemu wytykasz. Dobrze Ci napisał ponieważ dałeś "nową funkcje" w pętle ale w ogóle jej nie wywołujesz.

W pierwszym moim poście poprawiłem Cię tylko jak powinna wyglądać "składnia" a nie cały kod.

1387536187-U112334.png

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

MewaPL Uczeń

MewaPL

Opublikowano
Uczeń

MewaPL

  • Autor
Opublikowano

Dzieki bardzo za pomoc, nic sie nie dowiedzialem, tylko bezsensowne tlumaczenia o skladniach jakbym nie wiedzial, piszac skrypt na takim stopniu jak podany, napisalem na innym forum o tej tematyce i juz otrzymalem odpowiedz i pomoc dokladnie opisana. Wiecej nie skorzystam z tego forum, do autoit, bo widze, ze albo ludzie sie nie znaja na tym co mowia, albo sa tacy aby tylko kogos pograzyc w jego niewiedzy, choc w innych tematach mozna duzo sie dowiedziec. 

 

Dzieki. Do zamkniecia

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Dzieki bardzo za pomoc, nic sie nie dowiedzialem, tylko bezsensowne tlumaczenia o skladniach jakbym nie wiedzial, piszac skrypt na takim stopniu jak podany, napisalem na innym forum o tej tematyce i juz otrzymalem odpowiedz i pomoc dokladnie opisana. Wiecej nie skorzystam z tego forum, do autoit, bo widze, ze albo ludzie sie nie znaja na tym co mowia, albo sa tacy aby tylko kogos pograzyc w jego niewiedzy, choc w innych tematach mozna duzo sie dowiedziec. 

 

Dzieki. Do zamkniecia

1. A spójrz twoje posty wyżej. Bardzo dziwni są ci ludzie na tym forum, zadajesz pytanie a oni akurat na to pytanie odpowiadają- powinni odpowiadać na coś innego prawda? Błędy były w składni i w ogóle bez sensu więc o tym pisali.

2. Takie jak Ty masz podejście do nas tak my "uprzejmie" Tobie pomagamy skoro tak nas oceniasz. Dziękuje, nie zapraszam ponownie.

1387536187-U112334.png

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

Zarchiwizowany

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

Tematy
×
×
  • Dodaj nową pozycję...