Tuşlu hile kodlama Yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
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
 
No System Safe
Banlı Üye
Katılım
27 Ara 2015
Mesajlar
551
Tepki puanı
114
Yaş
26
10 HİZMET YILI
On kodunu Timer a yaz
 
No System Safe
Banlı Üye
Katılım
27 Ara 2015
Mesajlar
551
Tepki puanı
114
Yaş
26
10 HİZMET YILI
timeri aktif ettin mi ?
 
Banlı Üye
Katılım
8 Tem 2019
Mesajlar
192
Tepki puanı
58
Yaş
28
6 HİZMET YILI
C#:
[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();
        }
 
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
C#:
[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 ?
 
Seçkin Üye
Katılım
16 Ara 2015
Mesajlar
427
Tepki puanı
94
Ödüller
11
10 HİZMET YILI
hilenin on kodunu yine y tuşuyla kodla, ortadaki end if sil else yaz, off kodunu tuşsuz kodla tamam basit
 
Banlı Üye
Katılım
8 Tem 2019
Mesajlar
192
Tepki puanı
58
Yaş
28
6 HİZMET YILI
kardeşim ben vb.net kodluyorum onun içinde kodun yokmu ?
ha kusura bakma c# çevirmişim
Visual Basic:
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
 
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
ha kusura bakma c# çevirmişim
Visual Basic:
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:

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
 
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
yokmu beyler bi bilen allah aşkına
 
Are You Ready?
Onaylı Üye
Katılım
11 Nis 2018
Mesajlar
128
Tepki puanı
11
Ödüller
5
8 HİZMET YILI
Deneme bi projede vardı label yerine stringden de çekebilirsin o sana kalmış bişi

VB.Net:
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
 
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
Deneme bi projede vardı label yerine stringden de çekebilirsin o sana kalmış bişi

VB.Net:
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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst