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;
Unutmadanbu kodları VisualBasic 2010'de denedim..Diğer vb sürümlerinde uyumsuzluk olabilir!
Public Class Form1 kısmından sonra şu kodu ekleyim;
Kod:
İ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:
Buton 2'ye şu kodu yazalım;
Kod:
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:
Kolay Gelsin ..
Unutmadanbu kodları VisualBasic 2010'de denedim..Diğer vb sürümlerinde uyumsuzluk olabilir!
Public Class Form1 kısmından sonra şu kodu ekleyim;
Kod:
Kod:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16İ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:
Kod:
Shell("NET START DHCP")Buton 2'ye şu kodu yazalım;
Kod:
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:
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 IfKolay Gelsin ..
