Çalışmıyor Wolftü İsim Değiştirme Kaynak Kodu :)


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: BeratMH    0 Yorum    1236 Görüntüleme
Konu Kapalı

Paylaşım Tarihi: 31.01.2016, 20:30:30 #1
BeratMH Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:29 Konuları:6 Kayıt Tarihi:31.01.2016

GEREKENLER
1 Label
1 Textbox
2 Button


Public Class Form1




    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Button2.Click
        Dim nickname 
As String TextBox1.Text
        Dim nickname2 
As Integer Len(nickname)
 
       WriteLong("Wolftü.bin"Label1.Text + &H60B950nickname2)
 
   End Sub
End 
Class   




Önceki Konu Sonraki Konu

Konu Kapalı




Konuyu Okuyanlar:
1 Ziyaretçi