wolftü İsim Değiştirme Kaynak Kodu :)

Public Class Form1




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

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim nickname As String = TextBox1.Text
        Dim nickname2 As Integer = Len(nickname)
        WriteLong("wolftü.bin", Label1.Text + &H60B950, nickname2)
    End Sub
End Class