Üye
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