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

[Problem]Brakuje mi jednej funkcji na zmiane value adresu w grze


Tieru

Rekomendowane odpowiedzi

Opublikowano

Witam,

Mam taki problem.

To mój kod (tzn. innego uzytkownika z mpc "jackraymund")

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
Global $PID = ProcessExists("ChameleonGems.exe")

$Form1 = GUICreate("ChameleonGems Trainer", 164, 131, 192, 124)
GUISetBkColor(0x808080)
$Button1 = GUICtrlCreateButton("Ilosc zyc", 16, 16, 57, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Start", 16, 56, 57, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 104, 20, 55, 17)
$Label2 = GUICtrlCreateLabel("2200", 104, 60, 55, 17)

HotKeySet("{F1}", "Koniec")
GUISetState(@SW_SHOW)


global $kutas
Global $dupeczka
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
xx()
Case $Button2
lecz()
EndSwitch


WEnd

Func xx()
While 2
$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryRead(0x004CD50C, $memarray)
$Label1 = GUICtrlCreateLabel($dupeczka, 104, 20, 55, 17)
sleep(500)
WEnd
EndFunc
Func lecz()
$kutas = guictrlread($label2)

while 3
If $dupeczka < $kutas Then
send("{f12}")
Sleep(1000)
EndIf
WEnd
EndFunc


Func Koniec() ;f1 konczy prace programu
MsgBox(0, "", "Zakonczono prace", 6)
Exit
EndFunc

Gdy w tej gierce trace lub zyskam zycie to i w programie widze zmiany ale chce jeszcze dodac do buttona Start taka funkcje, zeby zycie sie zmnienilo na np. 50.

Mam nadzieje ze rozumiecie o co mi chodzi.

A tu filmik

http://www.youtube.com/watch?v=YWqGtKyuCkY

 

 

Za pomoc leca Like

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Opublikowano
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
	If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1
	Switch BitAND($wParam, 0xFFFF)
			Case $Button2
						 funkcja()
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc
func funkcja()

$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryWrite(0x004CD50C, $memarray,"50")
endfunc

Opublikowano

Hmm zrobilem taki kod

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
Global $PID = ProcessExists("ChameleonGems.exe")

$Form1 = GUICreate("ChameleonGems Trainer", 164, 131, 192, 124)
GUISetBkColor(0x808080)
$Button1 = GUICtrlCreateButton("Ilosc zyc", 16, 16, 57, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Start", 16, 56, 57, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 104, 20, 55, 17)
$Label2 = GUICtrlCreateLabel("2200", 104, 60, 55, 17)

HotKeySet("{F1}", "Koniec")
GUISetState(@SW_SHOW)


global $kutas
Global $dupeczka
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
xx()
Case $Button2
lecz()
EndSwitch


WEnd

Func xx()
While 2
$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryRead(0x004CD50C, $memarray)
$Label1 = GUICtrlCreateLabel($dupeczka, 104, 20, 55, 17)
sleep(500)
WEnd
EndFunc
Func lecz()
$kutas = guictrlread($label2)

while 3
If $dupeczka < $kutas Then
send("{f12}")
Sleep(1000)
EndIf
WEnd
EndFunc


GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1
Switch BitAND($wParam, 0xFFFF)
Case $Button2
funkcja()
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
func funkcja()

$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryWrite(0x004CD50C, $memarray,"50")
EndFunc

Func Koniec() ;f1 konczy prace programu
MsgBox(0, "", "Zakonczono prace", 6)
Exit
EndFunc

I po kliknieciu butona 2 nic sie nie dzieje w grze, czyzby zle kod wklepany?

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Opublikowano

skoro użyłeś adresu z przykładu to jak ma działać, znajdź sobie adres właściwy

 

zresztą naucz się najpierw pisać skrypty bo twój jest bezsensowy i nie ma prawa działać

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Opublikowano

skoro użyłeś adresu z przykładu to jak ma działać, znajdź sobie adres właściwy

 

zresztą naucz się najpierw pisać skrypty bo twój jest bezsensowy i nie ma prawa działać

O jaki adres Ci chodzi? Bo ten 004CD50C jest wlasciwy...

 

Tutaj

If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1

Tez trzeba zmienic? Czy to jest adres jakiegos koloru czy jak to tam bylo...?

Wszystkie poradniki w "O mnie" i na moim profilu YouTube.


51dd70965ae71.png


!!!HIT!!! -- Pełno klientów na DT nawet na najstarszym kompie bez zamuły!


!!!HIT!!! -- Nowa modyfikacja do Metina FastKill


World of Metin2


Opublikowano

jack... bez nerwów bo cię zjedzą ;)

 

masakra, ja mu o adresie komórki pamięci a on mi o kolorach wyskakuje , za niedługo to będą szukać adresów w tablicach tęczowych :/

 

bez komentarza...

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...