[Endax]

Before anyone bothers posting about how theres already been loads of programs such as this released I started making this the other week when someone requested one and I was off from college today so I thought I'd finish it and upload it. I'm just trying to contribute.

I programmed this from scratch, on my own.

Features:
[+]Visit a url without using proxies.
[+]Specify amount of views.
[+]Specify the delay between views.
[+]Visit a url using one selected proxy.
[+]Visit a url using a seperate proxy for each view.
[+]When using a different proxy per view, works it way through the proxy list, once it comes to the end it goes to the top of the list again.
[+]Add, remove and clear proxies.
[+]Import and export proxy lists.
[+]Status showing how many views have been completed.

I know that the code in some places is horrible and I could of done things a lot better, but most of this code was rushed and I'm still learning vb.net.

Screenshot:

[IMG]http://i51.[censored].com/j7q5uq.jpg[/IMG]

Download Links:
Program:
http://uppit.com/8a3itkpxngcv/URL_Viewer...cation.rar
http://www.#/?d=SUV2LPPP

Source:
http://uppit.com/gv0q0hz4eh82/URL_Viewer_Source.rar
http://www.#/?d=990Y2Y05

In the source I know that the project is called "WindowsApplication2" but when I was trying to save it as a new project and rename etc my laptop was f*cking up and lagging so I just left it as it was and uploaded it.

In the archive with the program I have included a proxy list however I don't know how many of them are actually working.

List of new proxies:
http://www.hidemyass.com/proxy-list/

Note: If you are using for youtube or something similiar your views may not get counted unless you put the delay quite high, this is due to the new security which youtube has.

Please don't complain about bugs or how bad the code is, i'm trying to help.

Incase for some reason you don't want to download it or haven't got vb 2010, heres the code for the main form.
Spoiler (Click to View)

Code

Imports System.Runtime.InteropServices
Imports System.IO, System.Net, System.Net.Sockets
Public Class Proxy
    Dim AppLocation, CurLocation As New Point(0, 0)

    Sub Sync()
  AppLocation = Me.Location
  CurLocation = Cursor.Position
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Me.Location = AppLocation - CurLocation + Cursor.Position
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  Timer1.Enabled = True
  Timer1.Start()
  Sync()
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
  Timer1.Stop()
  Sync()
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  Me.Close()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  Me.WindowState = FormWindowState.Minimized
    End Sub

    Sub Delay(ByVal dblSecs As Double)
  Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
  Dim dblWaitTil As Date
  Now.AddSeconds(OneSec)
  dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
  Do Until Now > dblWaitTil
    Application.DoEvents()
  Loop
    End Sub

    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
  Public dwAccessType As Integer
  Public proxy As IntPtr
  Public proxyBypass As IntPtr
    End Structure

    Private Sub RefreshIESettings(ByVal strProxy As String)
  Const INTERNET_OPTION_PROXY As Integer = 38
  Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
  Dim struct_IPI As Struct_INTERNET_PROXY_INFO
  struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
  struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
  struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
  Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
  Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
  Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

    Public Sub NormalViewsBrowserOne()
  If (BrowserOneURL.Text <> "") And (BrowserOneViews.Text <> "") And (BrowserOneDelay.Text <> "") Then
    Dim BrowserOneNeededViews As Integer = Val(BrowserOneViews.Text)
    Dim BrowserOneDoneViews As Integer = 0

    If (BrowserOneNeededViews > 0) Then
    Status.ForeColor = Color.Orange
    ViewsDone.ForeColor = Color.Orange
    Status.Text = "Status: Viewing..."
    ViewsDone.Text = "Views Completed: 0"
    WebBrowserOne.Navigate(BrowserOneURL.Text)
    BrowserOneDoneViews = BrowserOneDoneViews + 1
    BrowserOneNeededViews = BrowserOneNeededViews - 1
    ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
    Delay(Val(BrowserOneDelay.Text))

    While (BrowserOneNeededViews > 0)
    WebBrowserOne.Refresh()
    BrowserOneDoneViews = BrowserOneDoneViews + 1
    BrowserOneNeededViews = BrowserOneNeededViews - 1
    ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
    Delay(Val(BrowserOneDelay.Text))
    End While

    Status.ForeColor = Color.LimeGreen
    ViewsDone.ForeColor = Color.LimeGreen
    Status.Text = "Status: Completed Requested Views"

    Else
    MsgBox("You must enter 1 or more views", 0, "Error: Requested Views")
    End If

  Else
    MsgBox("You must fill in all the forms on enabled browsers first.", 0, "Error: Empty Forms")
  End If
    End Sub

    Public Sub ProxyViewsBrowserOne()
  Dim AmountOfProxies As Integer = ProxyList.Items.Count
  If (BrowserOneURL.Text <> "") And (BrowserOneViews.Text <> "") And (BrowserOneDelay.Text <> "") Then
    Dim BrowserOneNeededViews As Integer = Val(BrowserOneViews.Text)
    Dim BrowserOneDoneViews As Integer = 0
    Dim CounterProxies As Integer = 1

    If (AmountOfProxies > 1) Then

    If (BrowserOneNeededViews > 0) Then
    Status.ForeColor = Color.Orange
    ViewsDone.ForeColor = Color.Orange
    Status.Text = "Status: Viewing..."
    ViewsDone.Text = "Views Completed: 0"
    RefreshIESettings(ProxyList.Items(0))
    WebBrowserOne.Navigate(BrowserOneURL.Text)
    BrowserOneDoneViews = BrowserOneDoneViews + 1
    BrowserOneNeededViews = BrowserOneNeededViews - 1
    ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
    Delay(Val(BrowserOneDelay.Text))

    While (BrowserOneNeededViews > 0)
    If (AmountOfProxies > CounterProxies) Then
    RefreshIESettings(ProxyList.Items(CounterProxies))
    WebBrowserOne.Refresh()
    BrowserOneDoneViews = BrowserOneDoneViews + 1
    BrowserOneNeededViews = BrowserOneNeededViews - 1
    CounterProxies = CounterProxies + 1
    ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
    Delay(Val(BrowserOneDelay.Text))

    Else
    CounterProxies = 0
    End If

    End While

    Status.ForeColor = Color.LimeGreen
    ViewsDone.ForeColor = Color.LimeGreen
    Status.Text = "Status: Completed Requested Views"

    Else
    MsgBox("You must enter 1 or more views", 0, "Error: Requested Views")
    End If

    Else
    MsgBox("You must have more than one proxy added.", 0, "Error: Not Enough Proxies")
    End If

  Else
    MsgBox("You must fill in all the forms on enabled browsers first.", 0, "Error: Empty Forms")
  End If
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
  If (BrowserOneProxies.SelectedIndex = 0) Then

    If (ProxyList.SelectedItem <> "") Then
    RefreshIESettings(ProxyList.SelectedItem)
    NormalViewsBrowserOne()
    Else
    MsgBox("No proxy is selected, please select a proxy", 0, "Error: No Proxy")
    End If

  ElseIf (BrowserOneProxies.SelectedIndex = 1) Then
    ProxyViewsBrowserOne()

  ElseIf (BrowserOneProxies.SelectedIndex = 2) Then
    NormalViewsBrowserOne()

  End If
    End Sub

    Private Sub AddProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddProxy.Click
  Dim NewProxy As String
  NewProxy = InputBox("Please enter a proxy you which to add in the format of - ip:port (0.0.0.0:8080)", "Add A New Proxy", "127.0.0.1:8080")
  If (NewProxy <> "") Then
    ProxyList.Items.Add(NewProxy)
  End If
    End Sub

    Private Sub DeleteProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteProxy.Click
  Dim Selected As Integer = ProxyList.SelectedIndex
  ProxyList.Items.RemoveAt(Selected)
    End Sub

    Private Sub ClearProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearProxy.Click
  ProxyList.Items.Clear()
    End Sub

    Private Sub Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Export.Click
  Dim AmountOfProxies = ProxyList.Items.Count - 1
  If AmountOfProxies = -1 Then
    MsgBox("You must have one proxy added.", 0, "Error: Not Enough Proxies")
  Else
    SaveFD.Title = "Save A Proxy List"
    SaveFD.Filter = "Txt Files | *.txt"
    SaveFD.ShowDialog()
    Dim FILE_NAME As String = SaveFD.FileName()

    If System.IO.File.Exists(FILE_NAME) = True Then
    Dim i As Integer
    Dim objwriter As New System.IO.StreamWriter(FILE_NAME, True)

    For i = 0 To AmountOfProxies
    objwriter.WriteLine(ProxyList.Items(i))
    Next i

    MsgBox("Proxies Saved", 0, "")
    objwriter.Close()
    End If
  End If
    End Sub

    Private Sub Import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Import.Click
  OpenFD.Title = "Open A Proxy List"
  OpenFD.Filter = "Txt Files | *.txt"
  OpenFD.ShowDialog()

  Dim FILE_NAME As String = OpenFD.FileName
  Dim TextLine As String

  If System.IO.File.Exists(FILE_NAME) = True Then
    Dim objReader As New System.IO.StreamReader(FILE_NAME)
    Do While objReader.Peek() <> -1
    TextLine = objReader.ReadLine
    ProxyList.Items.Add(TextLine)
    Loop
  End If
    End Sub

End Class

[Kink]

Thanks for sharing this with us! :)

[S!rk0]

Thank's for sharing ^^ Need Visual Studio 2010 to start it :p

[mapleanton]

Thx ! was been looking for proxy support !

[Endax]

Thank's for sharing ^^ Need Visual Studio 2010 to start it :p

Yes you will need 2010, if anyone hasn't got it and wants to look at a specific bit of code or something I've put the code for the main form in the first post.

[darkkiler95]

dont work for yourtube views :( Q.Q

[My Life]

Thanks for the share . I was also looking for a proxy support .

[Greed™]

On Youtube the delay must be 20 sec for it to be counted

[Endax]

dont work for yourtube views :( Q.Q

As rasenshurikenn said, on youtube views only get counted after watching the video for several seconds, if you think that when using proxies it loads slower you have to put the delay quite high to allow time for the page to load, video to play for several seconds and then refresh. Also views may not show up until several hours after.

[Hackzable]

Thanks for it, works great
But could i give you an advice?
please don't use web browsers, use web requests instead

[Mr. Anderson]

Thank's for sharing ^^ Need Visual Studio 2010 to start it :p

you could also use the converter I made.

and thanks for sharing the source code.

[APTO]

Awesome! Deffenitly going to be using that! will it work on adf.ly or do you have to press skid add?

---

Downloaded! Thanks alot for this man! Really appreciate it.

[Volve]

Thanks for sharing , Good Work.

[ident]

One of the better GUI i have seen so well done.

Few things i have quickly noticed (Not viewed code) but i will say in case you are continuing the project. What the point is i am not quite sure? (Youtube views?)

1: Any URL or TEXT entered into gets a statistics view of n (number)
2: Amount of views any char can be entered
3: Delay and char can be entered
4: (Functionality) Since we can not proceed with 0 views. 1 would be more suitable.
5: ArgumentOutOfRangeException is not handled on delete
6: OpenFileDialog1 should not be left as default
7: Use English : Txt Files on Openfiledialog.
8: Statistics update regardless of anything viewed
9: Not one comment :(

Oh one thing i did notice at the code. FILE_NAME looks like a C++ constant. It should be filePath, You got the i because it's the traditional name for a loop index variable; a better name you might considered. aryText uses Hungarian notation to indicate it's an array of text;

[compunerd3]

Thanks for sharing, any chance can you upload to another hosting site also?
I always have had problems using uppit
thanks :)