Cheat engine - Znaki zapytania przy tworzeniu pointera

[dadajszen]

Witam, chcialem zrobic pointer do sapera i wywala mi takie coś : http://iv.pl/images/75367906432909238558.png

 

Jaki jest błąd?

[Gość]

Taki, że wpisałeś offset ale nie wpisałeś adresu.

[MistrzMaster]

Brak adresu bazowego, coś mam wrażenie że rzuciłeś się od razu na głęboką wodę nie przerabiając poprzednich (albo żadnych) tutoriali. :P

[dadajszen]

@MistrzMaster

 

Robie tak samo jak w filmikach na yt a u mnie wyrzuca znaki zapytania

[MistrzMaster]

@dadajszen

Na 100% nie robisz tak samo, musisz mieć jakiś adres bazowy, zobacz sobie co to jest offset. To tak jakbym powiedział ci że jeśli chcesz dojść do sklepu to musisz iść 120 metrów ale... nie wiesz od jakiego punktu.

[dadajszen]

@MistrzMaster

 

No okej, łatwiej jest tak znaleźć pointera, czy przez "pointer scan for this address" , jak robie przez tą metodę to mi wywala po 20 tys. wyników i prawie każdy jest taki sam :P wyłączam grę robie tak samo i ciągle po 20k wyników

[MistrzMaster]

@dadajszen

Sam sobie odpowiedz, skoro jedną metodą nie potrafisz go znaleźć a drugą tak, to przecież sam wiesz którą jest łatwiej ;o. Wyniki nie są takie same bo pointerscan nie pokazuje takich samych wyników, mogą jedynie wskazywać na ten sam obszar pamięci, i zapewne wskazują. Inna sprawa to taka że część tych pointerów zmieni się po wyłączeniu gry i lepiej szukać jednolevelowych bo mniej kodzenia, i łatwiej przeglądać struktury (takie jest moje zdanie). Proponuje najpierw zrozumieć jak to działa bo co z tego ze wszystko będziesz miał na pointerscanie jak przy kodzeniu będziesz miał milion pytań bo nie będziesz wiedział jak coś działa (co wnioskuje po pierwszym poście w temacie)

[dadajszen]

@MistrzMaster

 

Okej, pooglądałem filmiki i myślę że już ogarniam pointery. Mam pytanie jak zrobić trainer? Ten D3D z Cheat Engine jest lipny, oglądałem różne filmiki jak zrobić trainer w c++ to nie o takie trainery mi chodzi. Znajdę gdzieś w sieci jakiś sourcecode żeby zamrażało adres albo zmieniało wartość? 

[MistrzMaster]

@dadajszen

Najpierw naucz się podstaw programowania w jakimś języku, wtedy sam napiszesz taki "zamrażacz".

[dadajszen]

Jak mogę znaleźć adres bazowy?

 

Mam na zielono taki adres : FFEAAA38 ( on się zmienia jak wyłącze gre ) 

 

Oraz taki pointer : minesweeper.exe+AAA38 + offset 120

 

Mam kod do stworzenia trainera w VB

WriteDMAInteger("MineSweeper", &HFFEAAA38, {&H120}, TextBox1.Text, 1)

I nie wiem jak mam znaleźć ten adres 

[MistrzMaster]

@dadajszen

 

Okej, pooglądałem filmiki i myślę że już ogarniam pointery.

Chyba jednak nie za bardzo

 

Poszukaj funkcji na pobieranie adresu modułu, albo sprawdź czy jest stały. (ok zobaczyłem i chyba jednak nie jest ale nie jestem pewny, bo z niewiadomych powodow olly nie wykrywa mi sapera)

 

Wpisz w google: vb get module baes adress, i jeśli przez "mam kod do stworzenia trainera" mam rozumieć że skądś to skopiowałeś to trochę słabo.

[dadajszen]

Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim p As Process = Process.GetProcessesByName("MineSweeper")(0)
            For Each MOZ As System.Diagnostics.ProcessModule In p.Modules
                If MOZ.FileName.IndexOf("minesweeper.exe+AAA38") <> -1 Then
                    MessageBox.Show(MOZ.BaseAddress.ToString)
                End If
            Next
        Catch


        End Try
    End Sub
End Class

Mam taki mój kod, jak do tego dorzucić funkcję aby po kliknięciu Przycisku zmieniało wartość ? Byłbym bardzo, ale to bardzo wdzięczny gdybyś mi @MistrzMaster pomógł

 

 

@mam coś takiego

 

Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim p As Process = Process.GetProcessesByName("MineSweeper")(0)
            For Each MOZ As System.Diagnostics.ProcessModule In p.Modules
                Dim asd As String = TextBox1.Text
                If MOZ.FileName.IndexOf("minesweeper.exe+AAA38") <> -1 Then , asd) 
                MessageBox.Show(MOZ.BaseAddress.ToString)
                End If
            Next
        Catch


        End Try
    End Sub
End Class

Ale wywala 2 errory i 6 warningsów :/

[MistrzMaster]

@dadajszen

Nigdy nie bawiłem się w vb, ale w dalszym ciągu nie widzę tu funkcji która pobiera baseadress modułu.

Tak jak mówiłem, naucz się podstaw jakiegoś języka i dopiero później baw się w takie coś. Poza tym nic mi z tego że masz 2 errory jak nawet nie wiem o jakiej one są treści

[dadajszen]

Error 8 'End If' must be preceded by a matching 'If'. 

Error 7 Syntax error. C:\Users\Damian\Documents\Visual Studio 2012\Projects\Saper Trainer\Saper Trainer\Trainer v.20.vb 8 77 Saper Trainer

[MistrzMaster]

@dadajszen

No to po tym pierwszym errorze widzę, że raczej nie miałeś styczności z programowaniem w ogóle. :P

Poczytaj sobie co to instrukcja warunkowa i dodaj kod na pobieranie base adresu modułu. Moim zdaniem na serio teraz nie opłaca ci się tego robić. Z kopiowania nie ma żadnej satysfakcji a tylko marnujesz swój czas, zamiast uczyć się podstaw i rozumieć co robisz.

[dadajszen]

Czego tam brakuje?

[MistrzMaster]

@dadajszen

Ifa

[dadajszen]

Ma być If Dim asd ?

[MistrzMaster]

@dadajszen

https://pl.wikibooks.org/wiki/Visual_Basic/P%C4%99tle_i_instrukcje_warunkowe#Instrukcje_warunkowe

[dadajszen]

Okej jak z tego minesweeper.exe+AAA38 mogę odczytać adres? 

[MistrzMaster]

@dadajszen

Adres bazowy modułu + AAA38 i masz wartość na którą wskazuje ten pointer

[dadajszen]

@MistrzMaster

 

Czyli jak mogę obliczyć adres tego modułu ? 

[MistrzMaster]

@dadajszen

Wystarczy poszukać w google, pierwszy link:

http://www.cheatengine.org/forum/viewtopic.php?p=5293308&sid=99fb840d8b20fd741295657388b1ec6c

[dadajszen]

@MistrzMaster

 

mam taki kod :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim GothicBase = Process.GetProcessesByName("MineSweeper.exe")(0).Modules(0).BaseAddress
        Dim czytaj = ReadInteger("MineSweeper", GothicBase + &HAAA38)
        Dim wartosc = "43"
        Try
            WriteInteger("MineSweeper", (czytaj + &H120), wartosc)
        Catch ex As Exception
        End Try


    End Sub
End Class

Wywala mi taki błąd : http://iv.pl/images/14918498510159463071.png

 

Jak dodać do tego kodu funkcje zeby dodalo 100 wartości?