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

Rekomendowane odpowiedzi

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

na pulpicie nic nie mam jedyna szansa to pendrive ale nie długo robię bota na podrożę tylko troche to zajmie bo robie go + lochy i troche fotek do zrobienia jest :D

przydał by się dekompilator to bym odbudował skrypt bo kojarze jego budowe

a dekompilatora szukam od paru dni bo już pare osób pyta o source

@edit

znalazlem dekompilator

 

 

i»?

Func _IMAGESEARCH($FINDIMAGE, $RESULTPOSITION, ByRef $X, ByRef $Y, $TOLERANCE)

Return _IMAGESEARCHAREA($FINDIMAGE, $RESULTPOSITION, 0, 0, @DesktopWidth, @DesktopHeight, $X, $Y, $TOLERANCE)

EndFunc

 

 

Func _IMAGESEARCHAREA($FINDIMAGE, $RESULTPOSITION, $X1, $Y1, $RIGHT, $BOTTOM, ByRef $X, ByRef $Y, $TOLERANCE)

If $TOLERANCE > 0 Then $FINDIMAGE = "*" & $TOLERANCE & " " & $FINDIMAGE

$RESULT = DllCall("ImageSearchDLL.dll", "str", "ImageSearch", "int", $X1, "int", $Y1, "int", $RIGHT, "int", $BOTTOM, "str", $FINDIMAGE)

If $RESULT[0] = "0" Then Return 0

$ARRAY = StringSplit($RESULT[0], "|")

$X = Int(Number($ARRAY[2]))

$Y = Int(Number($ARRAY[3]))

If $RESULTPOSITION = 1 Then

$X = $X + Int(Number($ARRAY[4]) / 2)

$Y = $Y + Int(Number($ARRAY[5]) / 2)

EndIf

Return 1

EndFunc

 

 

Func _WAITFORIMAGESEARCH($FINDIMAGE, $WAITSECS, $RESULTPOSITION, ByRef $X, ByRef $Y, $TOLERANCE)

$WAITSECS = $WAITSECS * 1000

$STARTTIME = TimerInit()

While TimerDiff($STARTTIME) < $WAITSECS

Sleep(100)

$RESULT = _IMAGESEARCH($FINDIMAGE, $RESULTPOSITION, $X, $Y, $TOLERANCE)

If $RESULT > 0 Then

Return 1

EndIf

WEnd

Return 0

EndFunc

 

 

Func _WAITFORIMAGESSEARCH($FINDIMAGE, $WAITSECS, $RESULTPOSITION, ByRef $X, ByRef $Y, $TOLERANCE)

$WAITSECS = $WAITSECS * 1000

$STARTTIME = TimerInit()

While TimerDiff($STARTTIME) < $WAITSECS

For $I = 1 To $FINDIMAGE[0]

Sleep(100)

$RESULT = _IMAGESEARCH($FINDIMAGE[$I], $RESULTPOSITION, $X, $Y, $TOLERANCE)

If $RESULT > 0 Then

Return $I

EndIf

Next

WEnd

Return 0

EndFunc

 

Global $X, $Y

Global $A, $B

Global $C, $D

Global $E, $F

Global $G, $H

Global $I, $J

Global $K, $L

Global $M, $N

Global $O, $U

Global $P, $R

Global $S, $T

Global $Z, $C

HotKeySet("{F8}", "done")

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

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

 

Func DONE()

While 1

Sleep(500)

WEnd

EndFunc

 

 

Func EXT()

Exit

EndFunc

 

MsgBox(64, "Instrukcja", "Start - f7, Pauza - f8, Wyjście - f5")

$SERVER = "Gladiatus Server 15 - Mozilla Firefox"

While 1

Sleep(200)

WEnd

 

Func PRACA()

While 10

$RESULT = _IMAGESEARCH("files\hpstart.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\1.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $A, $B, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $C, $D, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $C, $D, $A, $B)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\10.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $E, $F, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $G, $H, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $G, $H, $E, $F)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\20.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $I, $J, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $K, $K, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $K, $L, $I, $J)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\30.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $I, $J, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $K, $K, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $K, $L, $I, $J)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\40.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $M, $N, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $O, $U, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $O, $U, $M, $N)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\50.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $P, $R, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $S, $T, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $S, $T, $P, $R)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\arena.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("edit\nick.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X - 22, $Y - 22)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("files\go.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 46)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 75)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 90)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

Sleep(300000)

WEnd

EndFunc

 

 

przerobiony

 

 

#include <ImageSearch.au3>

 

Global $X, $Y

Global $A, $B

Global $C, $D

Global $E, $F

Global $G, $H

Global $I, $J

Global $K, $L

Global $M, $N

Global $O, $U

Global $P, $R

Global $S, $T

Global $Z, $C

HotKeySet("{F8}", "done")

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

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

 

Func DONE()

While 1

Sleep(500)

WEnd

EndFunc

 

 

Func EXT()

Exit

EndFunc

 

MsgBox(64, "Instrukcja", "Start - f7, Pauza - f8, Wyjście - f5")

$SERVER = "Gladiatus Server 15 - Mozilla Firefox"

While 1

Sleep(200)

WEnd

 

Func PRACA()

While 10

$RESULT = _IMAGESEARCH("files\hpstart.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\1.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $A, $B, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $C, $D, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $C, $D, $A, $B)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\10.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $E, $F, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $G, $H, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $G, $H, $E, $F)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\20.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $I, $J, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $K, $K, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $K, $L, $I, $J)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\30.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $I, $J, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $K, $K, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $K, $L, $I, $J)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\40.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $M, $N, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $O, $U, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $O, $U, $M, $N)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(3000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\50.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$KLOP = _IMAGESEARCH("files\twarz.bmp", 1, $P, $R, 10)

$DUPA = _IMAGESEARCH("edit\banany.bmp", 1, $S, $T, 10)

If $DUPA = 1 Then

MouseClickDrag("left", $S, $T, $P, $R)

Sleep(3000)

EndIf

$RESULT = _IMAGESEARCH("files\refresh.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\arena.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("edit\nick.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X - 22, $Y - 22)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("files\go.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

MouseClick("left", $X, $Y)

Sleep(5000)

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 46)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 75)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

$RESULT = _IMAGESEARCH("files\stop.bmp", 1, $X, $Y, 10)

If $RESULT = 1 Then

$LOL = _IMAGESEARCH("files\arena.bmp", 1, $L, $I, 10)

If $LOL = 1 Then

MouseClick("left", $L, $I)

Sleep(5000)

$xD = _IMAGESEARCH("edit\nick.bmp", 1, $Z, $C, 10)

If $xD = 1 Then

MouseClick("left", $Z - 22, $C - 90)

Sleep(5000)

$100 = _IMAGESEARCH("files\go.bmp", 1, $K, $L, 10)

If $100 = 1 Then

MouseClick("left", $K, $L)

Sleep(5000)

EndIf

EndIf

EndIf

EndIf

Sleep(300000)

WEnd

EndFunc

 

 

tylko sie nie patrz na zmienne bo maja dziwne nazwy :P

6
RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

ciężko uwierzyć bo ten dekompilator nie obsługuje autoita od wersji 3

zresztą kod z dekompilatora jest inny a nie kod programu pomieszany z plikiem ImageSearch.au3.

jakbys nie wiedział na wynik składają się wszystkie pliki z których program korzysta , to zgubiłeś kilkanaście domyślnych

 

zresztą dekompilując byłbyś pierwszą osobą na świecie która to zrobiła, nawet sam autor programu nie potrafi zdekompilować swoim programem

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

daj log z dekompilacj a nie niedziałający program , pierwszy raz w życiu zobacze program co nie działa a zadziałał tylko i wyłacznie u ciebie, a na dodatek dający kod źródówy czytelny jak orginał

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

to ty nawet nie wiesz ze wynikiem dekompilacj jest kilka plików a nie plik źródłowy jak podałeś ?

 

wciskać kit możesz komuś innemu

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

@up

dobra niechce mi się z tobą kłucic bo nie mam nic do ciebie jednak ta wersja która używam nie robi żadnych plików

jest 12 wersji tego dekompilatora i jedna styknie

jak szukałem dobrego dekompilatora to przy dekompilacji zrobil sie plik co wazy az 2.6gb *.tok

4
Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
 Udostępnij
Tematy
×
×
  • Dodaj nową pozycję...