Home Upgrade Search Memberlist Extras Hacker Tools Award Goals Help Wiki Contact

.NET 

[Downloader] Using Proxy(s)

Here you go:
Code
Imports System.Net
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If TextBox1.Text.Contains("http://www.#.com/") Then
    Dim IP As String = "xxx.xx.xxx.xx" ' Proxy IP
    Dim Port As Integer = "80" ' Proxy Port
    Dim wc As New WebClient ' WebClient
    Dim Proxy As New WebProxy(IP & ":" & Port, True) ' Set Proxy as WebProxy
    wc.Proxy = Proxy ' WebClient(.Proxy) = WebProxy
    wc.DownloadFile("www.#.com", "AvastBlantiBierus") ' Download the file
  Else
    MsgBox("Must be a valid # link")
  End If
  If TextBox2.Text = "" Then ' If 2nd text (Link) is empty
    ' Nothing, because there isnt need for a seccond download
  Else ' if it is
    If TextBox2.Text.Contains("http://www.#.com/" then
    Dim IP1 As String = "xxx.xx.xxx.xx" ' New Proxy IP
    Dim Port1 As String = "80" ' New Proxy Port
    Dim wc1 As New WebClient ' New WebClient
    Dim Proxy1 As New WebProxy(IP1 & ":" & Port1, True) ' Set Proxy as WebProxy
    wc1.Proxy = Proxy1 ' WebClient(.Proxy) = WebProxy
    wc1.DownloadFile("www.#.com", "NortonBlantiBierus") 'Download the file
    Else
    MsgBox("Must be a valid # link")
    End If
  End If
    End Sub
End Class

You can easy make a function, to read out some proxys from .txt and use them, this whas just for testing.
FR1908
Thanks for this, should be useful :D
[Image: Xtddh8V.png]
(Apr 16, 2010 05:00 AM)Fake. Wrote:  Thanks for this, should be useful :D

Np. Glad i'd helped.
FR1908
Unique.
Thanks for sharing.
[Image: 9AHKvVX.png]
Thanks for this, I was planning on doing something with proxys ages ago, might try again.
(Apr 16, 2010 05:05 AM)Panagiota Wrote:  Unique.
Thanks for sharing.

No Problem.

(Apr 16, 2010 05:17 AM)TehShrink Wrote:  Thanks for this, I was planning on doing something with proxys ages ago, might try again.

No problem, good luck with it :)
FR1908
Awesome Keep it up :D
(Apr 16, 2010 05:42 AM)D.O.A Wrote:  Awesome Keep it up :D

No problem.

Spoiler (Click to View)
FR1908
:)) Hehe, I made a new POCMania banner. WIll show it in Graphic section!
thnx.. that is useful.. 🤝
very nice man...thanks
PHP & .NET Contributor.
Dim Port As String = "80" ' Proxy Port

The port is always an integer..

so:

Dim Port As Integer = 80 ' Proxy Port
Thank you, great post!

Spoiler (Click to View)
Great job mate..

This will definitely come in handy sometime..

Thanks for sharing.


Possibly Related Threads...
Thread / Author Replies Views Last Post
[.NET] by NextrumJun 28, 2013 09:12 AM 26 1,841 Jun 28, 2013 09:12 AM
Last Post: Nextrum
[.NET] by Jacob°Jul 30, 2012 07:54 AM 14 1,160 Jul 30, 2012 07:54 AM
Last Post: Snoepie1012
[.NET] by PenthosFeb 5, 2012 06:53 PM 9 433 Feb 5, 2012 06:53 PM
Last Post: Penthos