Help please.

Discussion in 'Visual Basic .NET' started by killerexp, May 22, 2010.

  1. killerexp

    killerexp BANNED BANNED

    Joined:
    May 15, 2010
    Messages:
    32
    Likes Received:
    1
    Hello im completetly new to VB.net , i watched 47 tutorials of a guy called TeachMeComputer in Youtube.
    But still have lots of problems
    I want my Bot to Visit the Targeted URL , using Proxies , so it counts as unique visit.

    Program:

    http://www.freeimagehosting.net/image.php?9262a54a96.jpg


    thats how it looks like .
    so now what i want to do is make the start button to change from proxys to proxy every 100 views.
    So

    im new so idk the code but i guess it would be.
    if textbox1.text () = "http://" then
    webbrowser.navigate
    timer1.start ()
    if textbox1.text ()= " " then
    messagebox.show ("You Have to Enter a Valid URL")


    or something like that idk D:

    stop button:
    timer1.stop ()

    timer:
    webbrowser.refresh

    i guess thats all... i want to get a sht load of fake views to my website.
     
    Last edited: May 22, 2010
  2. kingofunivers

    kingofunivers Junior Member

    Joined:
    Apr 4, 2010
    Messages:
    129
    Likes Received:
    403
    Location:
    Italy
    Code:
    Public Class Form1
        ' Proxy Structure
        Public Structure Struct_INTERNET_PROXY_INFO
            Public dwAccessType As Integer
            Public proxy As IntPtr
            Public proxyBypass As IntPtr
        End Structure
        Private Declare Auto Function InternetSetOption Lib "wininet.dll" _
        (ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, _
         ByVal lpdwBufferLength As Integer) As Boolean
        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 = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi(strProxy)
            struct_IPI.proxyBypass = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi("local")
            Dim intptrStruct As IntPtr = System.Runtime.InteropServices.Marshal.AllocCoTaskMem(System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
            System.Runtime.InteropServices.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
    
        Dim I As Integer = 0
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox2.Text.Contains("http://") Then
                WebBrowser1.Navigate(TextBox2.Text)
                Timer1.Enabled = True
            Else
                MsgBox("You Have to Enter a Valid URL", MsgBoxStyle.Exclamation)
            End If
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Timer1.Enabled = False
            I = 0
        End Sub
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If I = 100 Then
                RefreshIESettings(TextBox1.Text) ' Set Proxy
                I = 0
            End If
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                WebBrowser1.Refresh()
                I = I + 1
            End If
        End Sub
    End Class
    
     
    • Thanks Thanks x 1
  3. israelt

    israelt Newbie

    Joined:
    Jun 20, 2010
    Messages:
    12
    Likes Received:
    1
    thx! it's working for me