Bvural41 1
Bvural41
noisiv 1
noisiv
Manwe Work 1
Manwe Work
shrpnl 1
shrpnl
YusufŞimşek14 1
YusufŞimşek14
berzahx 2
berzahx
xranzei 1
xranzei
Agora Metin2 1
Agora Metin2
Hikaye Ekle
Reklam vermek için turkmmo@gmail.com

Kontrol Ediliyor Vb.net VS-2022 mobile2 global hile kodlama yardım

  • Konuyu başlatan Konuyu başlatan PatroeN
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 9
  • Görüntüleme Görüntüleme 4K
Tarihe Göre Sırala Reaksiyona göre sırala
PatroeN

PatroeN

𝙔𝙖 𝙪𝙢𝙪𝙩𝙡𝙖𝙧 𝙙𝙖 𝙗𝙞𝙩𝙚𝙧𝙨𝙚 ?
Telefon Numarası Onaylanmış Üye
Fahri Üye
TM Üye
Katılım
18 May 2016
Konular
77
Mesajlar
421
Online süresi
13d 21h
Reaksiyon Skoru
111
Altın Konu
0
Başarım Puanı
144
MmoLira
5,760
DevLira
9
Ticaret - 0%
0   0   0

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

merhaba arkadaşlar kolay gelsin herkese bir konuda yardıma ihtiyacım vardı mobile2 global oyunu var yeni çıkmış metin2nin mobil versiyonu ve ayrıca pc sürümü de var unreal engine ile hazırlanmış bir oyun bir iki ufak saldırı hızı hızlı koşma gibi pointer buldum visual basic ile kodlamaya döktüm fakat hiçbir işlevi olmadı yada ben eksik birşeyler yaptım bu konuda bana yardımcı olabilecek birileri varmıdır acaba içerikleri aşağıda vermişim

bu kod formdaki kod 2 adet textbox bir adet button çalışma stili 1ci textbox clientad isminde burda client ismi yazılıyor 2ci textbox değiştirilecek saldırı hızı değeri giriliyor butonda ise bunları aktif etmek için işlev yapıyor herşey açık haliyle ortadadır
Kod: 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WritePointerInteger(
            Clientad.Text, Value.Text, &H3C03DA8, &H2F8, &H8A8)
    End Sub
End Class


buda trainer dosyasındaki kodlar
Kod: 
Module Trainer
    Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
    Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
    Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single
    Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

    Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
    Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
    Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single
    Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

    Public Function ReadByte(ByVal PID As Integer, ByVal Address As Integer) As Byte
        Dim Value As Byte
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryByte(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadInteger(ByVal PID As Integer, ByVal Address As Integer) As Integer
        Dim Value As Integer
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryInteger(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadFloat(ByVal PID As Integer, ByVal Address As Integer) As Single
        Dim Value As Single
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryFloat(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadDouble(ByVal PID As Integer, ByVal Address As Integer) As Double
        Dim Value As Double
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryByte(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerByte(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte
        Dim Value As Byte
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryByte(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerInteger(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
        Dim Value As Integer
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryInteger(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerFloat(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single
        Dim Value As Single
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryFloat(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerDouble(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double
        Dim Value As Double
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryDouble(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Sub WriteByte(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Byte)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryByte(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteInteger(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Integer)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryInteger(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteFloat(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Single)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryFloat(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteDouble(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Double)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryDouble(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerByte(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryByte(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerInteger(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryInteger(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerFloat(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryFloat(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerDouble(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryDouble(Handle, Pointer, Value)
            End If
        End If
    End Sub

End Module

test amaçlı yaptım bunu ilim sahibi kişiler yardımcı olablirmi bana lütfen
 
[CODE lang="csharp" title="kod"]
private LunaValerie Read;
private Process[] GameName = Process.GetProcessesByName(Game.GameName);
try
{
Read = new LunaValerie(GameName[0]);
foreach (object obj in GameName[0].Modules)
{
ProcessModule processModule = (ProcessModule)obj;
if (processModule.ModuleName == Game.GameName + Game.GameModuleExe)
{
Game.GetModuleHandleA = processModule.BaseAddress.ToInt64();
NameARGB.Enabled = true;
}
}
}
catch(Exception ex)
{
MessageBox.Show("Oyun Bulunamadı Lütfen Oyunu Calıstırıp Tekrar Deneyiniz" + " \n " + " \n Hile Kullanımında Sorumluluk Kabul Edilmemektedir " + ex.ToString() ,"Luna Valerie");
}

// Attack Speed
Read.REAL_MEM(Game.GetModuleHandleA + Game.LocalPlayer.dwLocalPlayer,Game.LocalPlayer.dwLocalPointer+Game.Netwars.m_iAttackSpeed, gunaMetroTrackBar1.Value.ToString());[/CODE]
Capture.PNG


image_2023-08-27_090355669.png
 
Patroen' Alıntı:
merhaba arkadaşlar kolay gelsin herkese bir konuda yardıma ihtiyacım vardı mobile2 global oyunu var yeni çıkmış metin2nin mobil versiyonu ve ayrıca pc sürümü de var unreal engine ile hazırlanmış bir oyun bir iki ufak saldırı hızı hızlı koşma gibi pointer buldum visual basic ile kodlamaya döktüm fakat hiçbir işlevi olmadı yada ben eksik birşeyler yaptım bu konuda bana yardımcı olabilecek birileri varmıdır acaba içerikleri aşağıda vermişim

bu kod formdaki kod 2 adet textbox bir adet button çalışma stili 1ci textbox clientad isminde burda client ismi yazılıyor 2ci textbox değiştirilecek saldırı hızı değeri giriliyor butonda ise bunları aktif etmek için işlev yapıyor herşey açık haliyle ortadadır
Kod: 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WritePointerInteger(
            Clientad.Text, Value.Text, &H3C03DA8, &H2F8, &H8A8)
    End Sub
End Class


buda trainer dosyasındaki kodlar
Kod: 
Module Trainer
    Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
    Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
    Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single
    Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

    Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
    Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
    Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single
    Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

    Public Function ReadByte(ByVal PID As Integer, ByVal Address As Integer) As Byte
        Dim Value As Byte
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryByte(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadInteger(ByVal PID As Integer, ByVal Address As Integer) As Integer
        Dim Value As Integer
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryInteger(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadFloat(ByVal PID As Integer, ByVal Address As Integer) As Single
        Dim Value As Single
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryFloat(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadDouble(ByVal PID As Integer, ByVal Address As Integer) As Double
        Dim Value As Double
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                ReadMemoryByte(Handle, Address, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerByte(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte
        Dim Value As Byte
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryByte(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerInteger(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
        Dim Value As Integer
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryInteger(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerFloat(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single
        Dim Value As Single
        If Process.GetProcessById(PID).ToString().Length <> 0 Then

            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryFloat(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Function ReadPointerDouble(ByVal PID As Integer, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double
        Dim Value As Double
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                ReadMemoryDouble(Handle, Pointer, Value)
            End If
        End If
        Return Value
    End Function

    Public Sub WriteByte(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Byte)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryByte(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteInteger(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Integer)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryInteger(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteFloat(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Single)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryFloat(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WriteDouble(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Double)
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                WriteMemoryDouble(Handle, Address, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerByte(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryByte(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerInteger(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryInteger(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerFloat(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryFloat(Handle, Pointer, Value)
            End If
        End If
    End Sub

    Public Sub WritePointerDouble(ByVal PID As Integer, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())
        If Process.GetProcessById(PID).ToString().Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessById(PID).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryDouble(Handle, Pointer, Value)
            End If
        End If
    End Sub

End Module

test amaçlı yaptım bunu ilim sahibi kişiler yardımcı olablirmi bana lütfen
Genişletmek için tıkla
C# ile memory.dll kütüphanesini kullanarak daha kolay ve stabil olarak çalışacağını düşünmekteyim.
memory.dll github:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Github içerisinde kullanım hakkında bilgi ve Trainer kodları mevcut.
 
XARSENICX' Alıntı:
C# ile memory.dll kütüphanesini kullanarak daha kolay ve stabil olarak çalışacağını düşünmekteyim.
memory.dll github:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Github içerisinde kullanım hakkında bilgi ve Trainer kodları mevcut.
Genişletmek için tıkla
Evet bu yöntemle yaptım sıfırdan bir arayüz yazıldı bunun için yorucu oldu arkadaşın yardımıyla herşey yapıldı auto atak fonksiyonunu yok bunun için extradan Python ile metin etine gibi birşeyler yapmayı düşünüyorum
 
LunaUI' Alıntı:
[CODE lang="csharp" title="kod"]
private LunaValerie Read;
private Process[] GameName = Process.GetProcessesByName(Game.GameName);
try
{
Read = new LunaValerie(GameName[0]);
foreach (object obj in GameName[0].Modules)
{
ProcessModule processModule = (ProcessModule)obj;
if (processModule.ModuleName == Game.GameName + Game.GameModuleExe)
{
Game.GetModuleHandleA = processModule.BaseAddress.ToInt64();
NameARGB.Enabled = true;
}
}
}
catch(Exception ex)
{
MessageBox.Show("Oyun Bulunamadı Lütfen Oyunu Calıstırıp Tekrar Deneyiniz" + " \n " + " \n Hile Kullanımında Sorumluluk Kabul Edilmemektedir " + ex.ToString() ,"Luna Valerie");
}

// Attack Speed
Read.REAL_MEM(Game.GetModuleHandleA + Game.LocalPlayer.dwLocalPlayer,Game.LocalPlayer.dwLocalPointer+Game.Netwars.m_iAttackSpeed, gunaMetroTrackBar1.Value.ToString());[/CODE]
Ekli dosyayı görüntüle 99682

Ekli dosyayı görüntüle 99683
Genişletmek için tıkla
Kaç gundur sna ulaşmaya çalışıyorum hemen hemen sorunumu çözdüm gibi bir iki ufak değerim kaldı auto atak pointerini bulamadım maalesef çok geç gördüm bu yanitinı bu işlem üzerinden gidebilirdim ama sıfırdan bir arayüz yapmam gerekiyordu 64bit olduğu için yordu biraz
 
Cevap yazmak için giriş yap yada kayıt ol.

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Benzer konular

mistikaptal
Kontrol Ediliyor hile yapacakların işine yarayacak paylaşım
Cevaplar
2
Görüntüleme
613
tekyol65
kaya4572
  • Kilitli
Source ITJA - (Veda) OPENGL (Android-İOS-Pc) "Client" Server Files
2
Cevaplar
7
Görüntüleme
1K
JinHu
kaya4572
  • Kilitli
Source ITJA - (Veda) OPENGL (Android-İOS-Pc) "Client" Server Files
Cevaplar
1
Görüntüleme
354
JinHu
Replicant
  • Sabit
Altın Konu Visual Basic - Temel Kavram ve Tüm Detaylar
2
Cevaplar
5
Görüntüleme
2K
mum
qwer212tr
  • Soru Soru
Cevaplanmadı Metin2-Official-Party-Update-master
Cevaplar
1
Görüntüleme
2K
qwer212tr
Geri
Üst