Arkadaşlar eminimki bi çok kişi lag hack'in nasıl yapıldığını merak ediyordur.Şimdi meraklarınızı gidermenin vakti zamanı geldi Hemen geçelim;
Unutmadan,bu kodları VisualBasic 2008'de denedim..Diğer vb sürümlerinde uyumsuzluk olabilir!
32 Bit kullanıcılar bu kodu eklesin!
Public Class Form1 kısmından sonra şu kodu ekleyim;
64 Bit kullanıcılar bu kodu eklesin!
Public Class Form1 kısmından sonra şu kodu ekleyim;
İlk olarak forma 2 adet buton ekleyelim!
1. Butonun adını;"Aktif Et" 2. Butonun adını "Kapat" yapalım!
Buton 1'e şu kodu yazalım;
Buton 2'ye şu kodu yazalım;
Daha sonra formumuza 1 adet Timer ekleyelim.Enable değerini "True" ve Interval değerini "1" yapalım.
Timer1'e şu kodu yazalım;
Örnek Proje Dosyasını İndirmek İçin Tıklayın!.. 32 Bit Kullanıcılar İçin!!!
Örnek Proje Dosyasını İndirmek İçin Tıklayın!.. 64 Bit Kullanıcılar İçin!!!
Virüs Total Sonuçlarını Görmek İçin Tıklayın!..
Beyler 1 adet virüs buldu fakat bilgisayarınıza birşey olursa tamamen ben sorumluyum..PC'nize bişey olmayacağı için benlik sorun yok
Alıntı yapabilirsiniz,fakat yayınlayacağınız konuda ismimin yani "H4CK3RB0Y" nick'inin geçmesi lazım..Eğer bu şarta uymazsanız gerekeni fazlasıyla yaparım!
Okumadan geçmeyin! Bir teşekkür fazlasıyla yeter...!
Unutmadan,bu kodları VisualBasic 2008'de denedim..Diğer vb sürümlerinde uyumsuzluk olabilir!
32 Bit kullanıcılar bu kodu eklesin!
Public Class Form1 kısmından sonra şu kodu ekleyim;
Kod:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
64 Bit kullanıcılar bu kodu eklesin!
Public Class Form1 kısmından sonra şu kodu ekleyim;
Kod:
Private Declare Function GetAsyncKeyState Lib "user64.dll" (ByVal vKey As System.Int64) As Int64
İlk olarak forma 2 adet buton ekleyelim!
1. Butonun adını;"Aktif Et" 2. Butonun adını "Kapat" yapalım!
Buton 1'e şu kodu yazalım;
Kod:
Shell("NET START DHCP")
Buton 2'ye şu kodu yazalım;
Kod:
Shell("Net STOP DHCP")
Daha sonra formumuza 1 adet Timer ekleyelim.Enable değerini "True" ve Interval değerini "1" yapalım.
Timer1'e şu kodu yazalım;
Kod:
Dim StartHotkey As Integer
StartHotkey = GetAsyncKeyState(112)'F1 Tuşu aktif eder!
If StartHotkey <> 0 Then
Shell("Net STOP DHCP")
End If
Dim StopHotkey As Integer
StopHotkey = GetAsyncKeyState(113)'F2 Tuşu kapatır!
If StopHotkey <> 0 Then
Shell("NET START DHCP")
End If
DİKKAT!!!
Hileyi yaptıktan sonra sakın WolfTeam'de denemeyin,direk ban atıyor!Belki diğer online oyunlarda çalışır...
Örnek Proje Dosyasını İndirmek İçin Tıklayın!.. 32 Bit Kullanıcılar İçin!!!
Örnek Proje Dosyasını İndirmek İçin Tıklayın!.. 64 Bit Kullanıcılar İçin!!!
Virüs Total Sonuçlarını Görmek İçin Tıklayın!..
Beyler 1 adet virüs buldu fakat bilgisayarınıza birşey olursa tamamen ben sorumluyum..PC'nize bişey olmayacağı için benlik sorun yok
Video Eklenmiştir!
Alıntı yapabilirsiniz,fakat yayınlayacağınız konuda ismimin yani "H4CK3RB0Y" nick'inin geçmesi lazım..Eğer bu şarta uymazsanız gerekeni fazlasıyla yaparım!
Okumadan geçmeyin! Bir teşekkür fazlasıyla yeter...!
0 yorum:
Yorum Gönder