GÜNCEL VB BUTON KODLARI


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

Yazar: Blue Sky    0 Yorum    696 Görüntüleme
Konu Kapalı

Paylaşım Tarihi: 03.04.2016, 10:47:29 #1
Blue Sky Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:82 Konuları:16 Kayıt Tarihi:23.01.2016 Rep Puanı: 0

CSH İÇİN:
MsgBox("Wolftü CSH AKTİF", MsgBoxStyle.Information)

        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

                Label1000.Text = moz.BaseAddress.ToString

            End If
        Next

LABEL1000.TEXT YAZAN LABELİ CSH ÇEKMEK İSTEDİNİZ LABEL GİRİN

BİN İÇİN:
MsgBox("Wolftü BİN AKTİF!", MsgBoxStyle.Information)

        Dim p As Process = Process.GetProcessesByName("Wolftü.bin")(0)

        For Each moz As System.Diagnostics.ProcessModule In p.Modules

            If moz.FileName.IndexOf("bin") <> -1 Then

                Label1002.Text = moz.BaseAddress.ToString

            End If
        Next

Label1002.TEXT Kısmına BİN Çekmek İstediniz Label Girin

OBJ İÇİN:
MsgBox("Wolftü OBJ MODÜL AKTİF!", MsgBoxStyle.Information)

        Dim p As Process = Process.GetProcessesByName("Wolftü.bin")(0)

        For Each moz As System.Diagnostics.ProcessModule In p.Modules

            If moz.FileName.IndexOf("obj") <> -1 Then

                Label1001.Text = moz.BaseAddress.ToString

            End If
        Next

LABEL1001.TEXT KISMINA OBJ ÇEKMEK İSTEDİNİZ LABEL GİRİN




Önceki Konu Sonraki Konu

Konu Kapalı




Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi