Tuşlu hile kodlama Yardım

Marvel-S' Alıntı:

On kodunu Timer a yaz

Genişletmek için tıklayın ...

Marvel-S' Alıntı:

timeri aktif ettin mi ?

Genişletmek için tıklayın ...

tarAFSIZ' Alıntı:

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();
        }

Genişletmek için tıklayın ...

KralHack21' Alıntı:

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

Genişletmek için tıklayın ...

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

tarAFSIZ' Alıntı:

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

Genişletmek için tıklayın ...

ARTHUR48' Alıntı:

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

Genişletmek için tıklayın ...

Sexual' Alıntı:

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

Genişletmek için tıklayın ...