Hay,
I showing you today my Fake lagger for S4 League.
1) Start my exe
2) Start S4 League
3) Click on the red Homepage !
4) Copy ur IP Address & Paste your address in the IP Box
5) pushing 1 - 10
6) Press Start
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text
Imports System.Threading
Public Class Form1
Dim List As New List(Of Threading.Thread)
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Label3.Text = "level : " & TrackBar1.Value
End Sub
Sub UDP()
Try
Dim GLOIP As IPAddress
Dim bytCommand As Byte() = New Byte() {}
GLOIP = IPAddress.Parse(TextBox1.Text)
bytCommand = Encoding.ASCII.GetBytes("$$$$$$$$$$$$$$$")
Do
Dim udpClient As New UdpClient
udpClient.Connect(GLOIP, TextBox2.Text)
udpClient.Send(bytCommand, bytCommand.Length)
udpClient.Close()
Label6.Text += 1
Loop
Catch ex As Exception
Label7.Text += 1
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
List.Clear()
For i = 0 To TrackBar1.Value - 1
Dim UDPFlood As New Threading.Thread(AddressOf UDP)
UDPFlood.Start()
List.Add(UDPFlood)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To List.Count - 1
List(i).Abort()
Next
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://www.whatismyip.com/")
End Sub
End Class
S4 Fake lagger
