Craftrise cheat engine airjump

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
15 Şub 2023
Mesajlar
37
Tepki puanı
2
Ödüller
2
Yaş
24
3 HİZMET YILI
hazırladığım kod aşağıda mevcut ama eksiklik var galiba çalışmıyor cheat enginede de yaptığım işlem şu bu kodu array of byte olarak girip sonra alttan 2. yi ctrl +d yapıp sonra da replace ile başlayan yere tıklayıp ok demek ve air jump çalışıyor koda dökemedim anlayanlar yardım edebilirmi düzenleme (c#)


Kod:
Public Class Login_Form1
    Dim Scan As New DotNetScanMemory_SmoLL
    Dim Founds As IntPtr()

    Private Sub Buton_Start_Click(sender As Object, e As EventArgs) Handles Buton_Start.Click
        If (CInt(Process.GetProcessesByName("craftrise-x64").Length) <> 0) Then
            Buton_Start.Visible = False
            Picture_Loading.Visible = True

            '############################################

            '############################################
            ' If Check_Aralik.Checked = True Then
            ' Scan.InicioScan = Convert.ToUInt64(&H12000000)
            ' Scan.FimScan = Convert.ToUInt64(&H30000000)
            ' End If

            Founds = Scan.ScanArray(Scan.GetPID("craftrise-x64"), "C5 F3 59 C9 C4 C1 7B 10 50 18 * * * * 18 * * * * * * * * C5 FB 58 C1 C5")

            If (Founds.Count > 0) Then
                If Founds(0) = 0 Then
                    MsgBox("Sonuç kalmadı", MsgBoxStyle.Information, "")
                End If

                For i As Integer = 0 To Founds.Count - 1
                    Scan.WriteArray(Founds(i), "00 00 80 3F")

                    Buton_Start.Visible = True
                    Picture_Loading.Visible = False
                    'List_Pointer.Items.Clear()
                Next
            End If
            '############################################
        Else
            ' If Check_Aralik.Checked = True Then
            ' Scan.InicioScan = Convert.ToUInt64(&H12000000)
            ' Scan.FimScan = Convert.ToUInt64(&H30000000)
            ' End If

            Founds = Scan.ScanArray(Scan.GetPID("craftrise-x64"), "C5 F3 59 C9 C4 C1 7B 10 50 18 * * * * 18 * * * * * * * * C5 FB 58 C1 C5")

            If (Founds.Count > 0) Then
                If Founds(0) = 0 Then
                    MsgBox("Sonuç kalmadı", MsgBoxStyle.Information, "")
                End If

                For i As Integer = 0 To Founds.Count - 1

                    Buton_Start.Visible = True
                    Picture_Loading.Visible = False
                Next
            End If
        End If
        '############################################

        Buton_Start.Visible = False
        Picture_Loading.Visible = True

    End Sub

    Private Sub Radio_Scan_CheckedChanged(sender As Object)


    End Sub

    Private Sub Radio_Change_CheckedChanged(sender As Object)

    End Sub

    Private Sub Login_Form2_Click(sender As Object, e As EventArgs) Handles Login_Form2.Click

    End Sub

    Private Sub Reach_Click(sender As Object, e As EventArgs) Handles Reach.Click
        If (CInt(Process.GetProcessesByName("craftrise-x64").Length) <> 0) Then
            '############################################

            '############################################
            ' If Check_Aralik.Checked = True Then
            ' Scan.InicioScan = Convert.ToUInt64(&H12000000)
            ' Scan.FimScan = Convert.ToUInt64(&H30000000)
            ' End If

            Founds = Scan.ScanArray(Scan.GetPID("craftrise-x64"), "C5 F9 2E * 24 * * * * 7A")

            If (Founds.Count > 0) Then
                If Founds(0) = 0 Then
                    MsgBox("Sonuç kalmadı", MsgBoxStyle.Information, "")
                End If

                For i As Integer = 0 To Founds.Count - 1
                    Scan.WriteArray(Founds(i), "")

                    Buton_Start.Visible = True
                    Picture_Loading.Visible = False
                    'List_Pointer.Items.Clear()
                Next
            End If
            '############################################
        Else
            ' If Check_Aralik.Checked = True Then
            ' Scan.InicioScan = Convert.ToUInt64(&H12000000)
            ' Scan.FimScan = Convert.ToUInt64(&H30000000)
            ' End If

            Founds = Scan.ScanArray(Scan.GetPID("craftrise-x64"), "C5 F9 2E * 24 * * * * 7A")

            If (Founds.Count > 0) Then
                If Founds(0) = 0 Then
                    MsgBox("Sonuç kalmadı", MsgBoxStyle.Information, "")
                End If

                For i As Integer = 0 To Founds.Count - 1

                    Buton_Start.Visible = True
                    Picture_Loading.Visible = False
                Next
            End If
        End If

    End Sub
End Class
 
Ultra Üye
Katılım
29 Ağu 2017
Mesajlar
2,481
Çözümler
6
Tepki puanı
205
Ödüller
10
Yaş
22
8 HİZMET YILI
hocam bu method eskiden kullanılıyordu 5-6 ay önce fix daha doğrusu fix derken biraz çalışıyor biraz çalışmıyor bozuk stabil değil değmez uğraşmana
 
Üye
Katılım
15 Şub 2023
Mesajlar
37
Tepki puanı
2
Ödüller
2
Yaş
24
3 HİZMET YILI
hocam bu method eskiden kullanılıyordu 5-6 ay önce fix daha doğrusu fix derken biraz çalışıyor biraz çalışmıyor bozuk stabil değil değmez uğraşmana
hocam çalışıyo siz nasıl yapıcağımı biliyoesanız söylermisiniz elimde 1-2 kod daha var
 
Onaylı Üye
Katılım
29 May 2017
Mesajlar
58
Tepki puanı
2
Ödüller
6
Yaş
25
9 HİZMET YILI
bunun youtube da yapımı vardı adamın birisi direk program yapmıştı açıp kapatabiliyodun bu da aynısı olmuş sanırım ama ben beceremedim :D
 
Onaylı Üye
Katılım
27 Kas 2022
Mesajlar
56
Çözümler
1
Tepki puanı
19
Ödüller
1
Yaş
25
3 HİZMET YILI
bu kod doğru düzgün çalışmıyorki
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst