Vb.Net Csh Bin Ve Tuşlu Obj Çekme

babasura61' Alıntı:

SA BEYLER BAYANLAR BEN BABASURA61 NEDEN BÖYLE BOK GİBİ BİR İSİM KULLANDIN DİYE SORACAKSANIZ NEDENİNİ BİLMİYORUM SURALARLA FANTEZİM VAR DİYEBİLİRİM.
İLK ÖNCE BEYLER ŞU KODU PUBLİC_CLASIN ALTINA YAZIN
BU KOD AYNI ZAMANDA BASE RETURN F1 BASMA KODU NEYSE

[font=Monaco, Consolas, Courier, monospace][/FONT]

PHP:

<Runtime.InteropServices.DllImport("user32.dll")> _
  Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
  End Function

[font=Monaco, Consolas, Courier, monospace][/FONT]

EVET BEYLER BU KODU YAPIŞTIRDIKTAN SONRA ŞU KODLARI FORM1_LOADIN ALTINA ŞU KODLARI YAPIŞTIRIYORUZ 
NOT: BAZILARI TİMERE YAPIŞTIRIP ENABLEDİ TRUE YAPIYOR BU ZATEN AYNI ŞEY ASLINDA BOŞUNA TİMER HARCIYORLAR

[font=Monaco, Consolas, Courier, monospace][/FONT]

PHP:

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


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


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

[font=Monaco, Consolas, Courier, monospace][/FONT]

BU ŞEKİLDE YAPTIĞIMIZ ZAMAN KESİNLİKLE OLACAKTIR BUNU LOADER ŞEKLİNDE YAPMANIZI TAVSİYE ETMİYORUM KESİNLİKLE ÇÜNKÜ READYMEMORY VE WRİTEPOİNTER TAM İŞLENMİYOR VE HİLE OLMUYOR TAVSİYEM HEM BYPASS HEM LOADER HEM HİLE YAPMAYIN BİR ARADA OLMUYOR.

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