VB.Net "BIN" Modülü

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Seçkin Üye
Katılım
12 Eki 2015
Mesajlar
357
Tepki puanı
25
Ödüller
7
10 HİZMET YILI
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Merhaba arkadaşlar, bu günkü konumda sizlere " Vb.Net " ' de " BIN " modülünü öğreteceğim. Umarım anlarsınız.
Lafı ağzımızda gevelemeden anlatıma geçelim ;
[/FONT]


[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]                                                                                     GEREKENLER          [/FONT]


[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]* 1 Adet ) Label[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]* 1 Adet ) Buton ( Onun yerine " Form Load " ' ıda olur. )[/FONT]


[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Şimdi öncelikle "[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] " ' in " [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Name[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] " kısmına dikkat edin. İlk koyduğunuz label zaten otomatik olarak "[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] Label1[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] " olarak adlandırılır. Biz, bu konu anlatımını ;[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]" [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Label1[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] " üzerinden değerlendireceğiz. Esasında bakarsanız [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]label[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] ile pek işimiz yok, koymamız yeterli.[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Buton[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] ' a geçelim ; [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Buton[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] ' da ki amaç ;[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] bin[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] kodunu alıp, [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Label1[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] ' e aktarmak ve bu sayede [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Label1[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] bileşenindeki işlevlerin çalışmasına olanak sağlamaktır.[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]PHP Kod:[/FONT]
Kod:
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 
Label1.text = moz.BaseAddress.ToString 
End If 
Next 

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Bu kadar kolay [/FONT]
wink.png
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][/FONT]


[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Yanlışlarım varsa [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]eleştirmekten[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] çekinmeyin lütfen.[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Not : Yazı tamamen bana aittir.[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Alıntı yapacak olursanız, Fufuker ' den alıntıdır yazmanız beni mutlu eder.[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]İşinize yaradıysa bir [/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]rep[/FONT][font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] ' i hor görmeyin lütfen ![/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst