- Yasaklandı
- #1
[font='Source Sans Pro', Tahoma, 'Helvetica Neue', Arial, sans-serif][font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]GEREKENLER[/FONT][/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]1 Label
1 Textbox
2 Button[/FONT][/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]----------------------------------
[/FONT][/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]KOD[/FONT][/FONT]
PHP Kod:
[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]1 Label
1 Textbox
2 Button[/FONT][/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]----------------------------------
[/FONT][/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif][font=Verdana, Arial, sans-serif]KOD[/FONT][/FONT]
PHP Kod:
[/FONT]
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
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