Tuşlu hile kodlama Yardım

[KHeJ]

Esselamün aleyküm arkadaşlar ben tuşlu hile kodlamayı biliyorum fakat mesela y açar u kapar tarzı kodliyabiliyorum shifte basılı tutunca çalışırı nasıl kodliyabilirim anlatabilcek varsa minnettar kalırım

 

[Marvel-S]

On kodunu Timer a yaz

 

[KHeJ]

On kodunu Timer a yaz

kardeşim öylede sadece shifte bi kere basılı tutunca açık kalio ve kapanmio

 

[Marvel-S]

timeri aktif ettin mi ?

 

[KHeJ]

timeri aktif ettin mi ?

timer true enabled interval 1 kardeşim

Post automatically merged: 27 Eyl 2019

yokmu arkadaşlar bi yardım etcek ?

 

[tarAFSIZ]

[DllImport("user32.dll")]
public static extern int GetAsyncKeyState(Keys vKeys);

    public Form1()
    {
    InitializeComponent();
    timer1.Enabled = false;
    }
        private void timer1_Tick(object sender, EventArgs e)
        {
            if (GetAsyncKeyState(Keys.ShiftKey) == -32767)
            {
                //hile
            }
        }

        private void checkBox1_CheckedChanged(object sender, EventArgs e)
        {
            timer1.Enabled = true;
            timer1.Start();
        }

 

[KHeJ]

[DllImport("user32.dll")]
public static extern int GetAsyncKeyState(Keys vKeys);

    public Form1()
    {
    InitializeComponent();
    timer1.Enabled = false;
    }
        private void timer1_Tick(object sender, EventArgs e)
        {
            if (GetAsyncKeyState(Keys.ShiftKey) == -32767)
            {
                //hile
            }
        }

        private void checkBox1_CheckedChanged(object sender, EventArgs e)
        {
            timer1.Enabled = true;
            timer1.Start();
        }

kardeşim ben vb.net kodluyorum onun içinde kodun yokmu ?

 

[ARTHUR48]

hilenin on kodunu yine y tuşuyla kodla, ortadaki end if sil else yaz, off kodunu tuşsuz kodla tamam basit

 

[tarAFSIZ]

kardeşim ben vb.net kodluyorum onun içinde kodun yokmu ?

ha kusura bakma c# çevirmişim

Imports System.Runtime.InteropServices

Public Class Form1

    Public Sub New()
        InitializeComponent()
        Timer1.Enabled = False
    End Sub

    <DllImport("user32.dll")>
    Public Shared Function GetAsyncKeyState(ByVal vKeys As Keys) As Integer

    End Function
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.ShiftKey) = -32767 Then
            'hile'
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Timer1.Enabled = True
        Timer1.Start()
    End Sub
End Class

 

[KHeJ]

ha kusura bakma c# çevirmişim

Imports System.Runtime.InteropServices

Public Class Form1

    Public Sub New()
        InitializeComponent()
        Timer1.Enabled = False
    End Sub

    <DllImport("user32.dll")>
    Public Shared Function GetAsyncKeyState(ByVal vKeys As Keys) As Integer

    End Function
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.ShiftKey) = -32767 Then
            'hile'
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Timer1.Enabled = True
        Timer1.Start()
    End Sub
End Class

bro bu kodu publicin üstüne giriyorum error 0 ama sonra form 1 e girince error çıkıyor formu bile açamıyorum değişik bişey

Post automatically merged: 27 Eyl 2019

hilenin on kodunu yine y tuşuyla kodla, ortadaki end if sil else yaz, off kodunu tuşsuz kodla tamam basit

konuyu daha fazla açarmısın bak böyle kodluyorum ben

On Error Resume Next
If GetAsyncKeyState(Keys.Y) Then
Dim obj As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In obj.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next
WriteLong("wolftü.bin", Label3.Text + &value, "1566441904") 'Headshout On
End If
If GetAsyncKeyState(Keys.U) Then
WriteLong("wolftü.bin", Label3.Text + &value, "1566490674") 'Headshout Off
End If




Ama bu headshot sadece shifte basılı tutunca çalıssın istiyorum

 

[BigHomie^]

timer bak derim.

 

[KHeJ]

yokmu beyler bi bilen allah aşkına

 

[Sexual]

Deneme bi projede vardı label yerine stringden de çekebilirsin o sana kalmış bişi

If GetAsyncKeyState(Keys.LShiftKey) Then
            Dim p As Process = Process.GetProcessesByName("Wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    Label1.Text = moz.BaseAddress.ToString
                End If
            Next
            On Error Resume Next
            WriteLong("Wolftü.bin", Label1.Text + &H84BD5, "1566441904") 'AlWays HeadShout On
        Else
            On Error Resume Next
            WriteLong("Wolftü.bin", Label1.Text + &H84BD5, "1566490674") 'AlWays HeadShout Off
        End If

 

[KHeJ]

Deneme bi projede vardı label yerine stringden de çekebilirsin o sana kalmış bişi

If GetAsyncKeyState(Keys.LShiftKey) Then
            Dim p As Process = Process.GetProcessesByName("Wolftü.bin")(0)
            For Each moz As System.Diagnostics.ProcessModule In p.Modules
                If moz.FileName.IndexOf("obj") <> -1 Then
                    Label1.Text = moz.BaseAddress.ToString
                End If
            Next
            On Error Resume Next
            WriteLong("Wolftü.bin", Label1.Text + &H84BD5, "1566441904") 'AlWays HeadShout On
        Else
            On Error Resume Next
            WriteLong("Wolftü.bin", Label1.Text + &H84BD5, "1566490674") 'AlWays HeadShout Off
        End If

İşte bunu yapınca ikinci el oyundan atio kardeşim