1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

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