1.Label1 label2 label3 açın yada textlerini csh obj bin diye değiştirin size kalmış.
2.Labellerin Hepsini:
Yapalım.
3.2 tane timer açın isimlerini cshhhh ve binnnn yapın.
4.CSH ve BİNi oto çektircez.Forma gelip Şunu yazın:
5.Bunlar hile açılınca csh bin oto çekilecek.Xigncode dolarken hileyi açarsınız oto çeker.Yada loader yapıp hile oto açılsın oto çekilsin yani
6.Şimdi cshhh ye bunu yazıcaz(labellerin ismini değiştirmeyenler için):
7.binnnn ede bunu yazıcaz(labellerin ismini değiştirmeyenler için):
Label2 yi değiştirebilirsiniz ben bin diye kaydettim.
8.Sıra geldi oto objye aslında oto değil burda yalan gibi birşey var
9.Örneğin Team kill kodladınız ve obj gerekiyor objsiz team kill bulunmadı sanırsam
10.Şöyle birşey yapabilirsiniz:
2.Labellerin Hepsini:
Kod:
Visible = FalseYapalım.
3.2 tane timer açın isimlerini cshhhh ve binnnn yapın.
4.CSH ve BİNi oto çektircez.Forma gelip Şunu yazın:
Kod:
cshhhh.Enabled = True
binnnn.Enabled = True5.Bunlar hile açılınca csh bin oto çekilecek.Xigncode dolarken hileyi açarsınız oto çeker.Yada loader yapıp hile oto açılsın oto çekilsin yani
6.Şimdi cshhh ye bunu yazıcaz(labellerin ismini değiştirmeyenler için):
Kod:
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
Next7.binnnn ede bunu yazıcaz(labellerin ismini değiştirmeyenler için):
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
Label2.Text = moz.BaseAddress.ToString
End If
NextLabel2 yi değiştirebilirsiniz ben bin diye kaydettim.
8.Sıra geldi oto objye aslında oto değil burda yalan gibi birşey var
9.Örneğin Team kill kodladınız ve obj gerekiyor objsiz team kill bulunmadı sanırsam
10.Şöyle birşey yapabilirsiniz:
Kod:
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
WriteLong("wolftü.bin", Label1.Text + &H12345, "VALUE")