Private Sub SystemLoad()
        Try
            Log(Prefix & " Resolving target...")

            Using req As New HttpRequest
                req.IgnoreProtocolErrors = True
                req.Cookies = New CookieStorage(False)
                req.UserAgent = Http.RandomUserAgent

                If Main.ComboBox1.SelectedIndex = 0 Then
                    Dim P As String = Main.Proxies(New Random().Next(Main.ProxiesCount)).ToString
                    req.Proxy = New HttpProxyClient(P.Split(":")(0), P.Split(":")(1))

                    Log(Prefix & " Using proxy " & P)
                ElseIf Main.ComboBox1.SelectedIndex = 1 Then
                    Dim P As String = Main.Proxies(New Random().Next(Main.ProxiesCount)).ToString
                    req.Proxy = New Socks4ProxyClient(P.Split(":")(0), P.Split(":")(1))

                    Log(Prefix & " Using proxy " & P)
                ElseIf Main.ComboBox1.SelectedIndex = 2 Then
                    Dim P As String = Main.Proxies(New Random().Next(Main.ProxiesCount)).ToString
                    req.Proxy = New Socks5ProxyClient(P.Split(":")(0), P.Split(":")(1))

                    Log(Prefix & " Using proxy " & P)
                End If

                req.ConnectTimeout = Convert.ToInt32(Link.Split("|")(2))
                req.KeepAliveTimeout = Convert.ToInt32(Link.Split("|")(2))
                req.ReadWriteTimeout = Convert.ToInt32(Link.Split("|")(2))

                Dim Respo As String = req.Post(Link.Split("|")(1)).ToString
                ResolveTarget(Respo)
            End Using
        Catch ex As Exception
            LogError(ex)
        End Try
    End Sub