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    546 Görüntüleme
  • 0 Oy - 0 Yüzde
Konu Kapalı

Paylaşım Tarihi: 03.04.2016, 10:47:29 #1
Blue Sky Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:79 Konu Sayısı:15 Üyelik Tarihi:23.01.2016 Rep Puanı: 0

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

        Dim p As Process = Process.GetProcessesByName("Wolfteam.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("Wolfteam BİN AKTİF!", MsgBoxStyle.Information)

        Dim p As Process = Process.GetProcessesByName("Wolfteam.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("Wolfteam OBJ MODÜL AKTİF!", MsgBoxStyle.Information)

        Dim p As Process = Process.GetProcessesByName("Wolfteam.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



Konu Kapalı






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

Konuyu görüntüleyenler:
1 Misafir