VB de hile kodlayan arkadaşlar bi bakın la 3. konu oldu bu....

Public Class Form1




    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            WriteLong("adventure-capitalist.exe", +&H2D920, "500")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("adventure-capitalist.exe", Label1.Text +&H2D920, "1")
        End If
    End Sub
End Class

Public Class Form1




    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Timer1.Start()
            If CheckBox1.Checked = False Then
                Timer1.Stop()
            End If
        End If
    End Sub




    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If CheckBox1.Checked = True Then
            WriteLong("adventure-capitalist.exe", Label1.Text + &H2D920, "500")




        End If
        If CheckBox1.Checked = False Then
            WriteLong("adventure-capitalist.exe", Label1.Text + &H2D920, "1")
        End If
    End Sub




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.GetProcessesByName("adventure-capitalist")(0)
        For Each moz As System.Diagnostics.ProcessModule In p.Modules
            If moz.FileName.IndexOf("exe") <> -1 Then
                Label1.Text = moz.BaseAddress.ToString
            End If
        Next
   
    End Sub
End Class