- Yasaklandı
- #1
Banlı Üye
[font=Roboto, sans-serif]GEREKENLER
1 Label
1 Textbox
2 Button
----------------------------------
KOD
PHP Kod:
Kod:
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 'Zeno
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) 'Tek Yapacaginiz Pointeri Guncellemek
End Sub
End Class [/FONT]
1 Label
1 Textbox
2 Button
----------------------------------
KOD
PHP Kod:
Kod:
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 'Zeno
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) 'Tek Yapacaginiz Pointeri Guncellemek
End Sub
End Class [/FONT]
