OBJ, CSH , Bin Kodları Yazarmısınız

OBJ, CSH  , Bin Kodları Yazarmısınız 

Lütfen Doğru OLsun 

valla bende bilmiyorum kardesim

BU CSH
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
BUDA OBJ
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
Label2.Text = moz.BaseAddress.ToString
End If
Next
BU BİN
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
Label3.Text = moz.BaseAddress.ToString
End If
Next




+ 1 rep verirsiniz artık

BUYUR KARDEŞİM +REP VERİRMİSİN

CSH Kodu

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

OBJ Kodu

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
Label3.Text = moz.BaseAddress.ToString
End If
Next

.Bin Kodu

Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next

largepion' Alıntı:

valla bende bilmiyorum kardesim

Genişletmek için tıklayın ...

saol  

İLK BEN YAZDIM İKİMİZİDE VER