• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

GÜNCEL VB BUTON KODLARI

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Blue Sky

Onaylı Üye
Katılım
23 Ocak 2016
Mesajlar
111
Beğeni Puanı
2
Yaş
21
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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt