VB Source CODE [ Web Browser and etc ]

Hello ..This is Source Code for beginner to create a simple Web Browser or Spam application

ok Go

Progress Bar Code

1. Inject Load
Requirement

= Timer =
= Button =

START Code

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 1
        ProgressBar1.Increment(+80)
        ProgressBar1.Increment(+100)
        Timer1.Start()
        Timer1.Enabled = True
    End Sub

STOP CODE ( Clear )

Code:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 0
        Timer1.Stop()
        Timer1.Enabled = False
    End Sub

Timer code

Code:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(+1)
        On Error Resume Next
        SendKeys.Send(TextBox1.Text)
        On Error Resume Next
        SendKeys.Send("{Enter}")
    End Sub

MessangeBox

Code:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Welcome")
    End Sub

*Note : you also can change the Msg Box item , just delete WELCOME and change what you want

Close application using Button

Code:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Thanks for using this tools")
        Application.Exit()
    End Sub

================================================== ================================================== ================

Web Browser CODE

Forward Button for WebBrowser

Code:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Forward(Button)
        WebBrowser1.GoForward()
    End Sub

Backward Button for Webbrowser

Code:

    Private Sub Backward_Click( _
        ByVal sender As Object, ByVal e As EventArgs)


        ' Backward if about:blank is loaded  
        ' content specified by the DocumentText property. 
        If Not WebBrowser1.Url.Equals("about:blank") Then
            WebBrowser1.GoBack()
        End If

    End Sub

Refresh Button for WebBrowser

Code:

    Private Sub RefreshButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs) _
        Handles ToolStripButton3.Click

        WebBrowser1.Refresh()

    End Sub

ProgressBar on WebBrowser

Code:

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged, WebBrowser1.ProgressChanged
        Try
            ProgressBar1.Maximum = e.MaximumProgress
            ProgressBar1.Value = e.CurrentProgress
        Catch ex As Exception
        End Try
    End Sub

Cancel Button for WebBrowser

Code:

    Private Sub stopButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs) _
        Handles ToolStripButton1.Click

        WebBrowser1.Stop()

    End Sub

Navigate for WebBrowser

Code:

    ' Navigates to the given URL if it is valid. 
    Private Sub Navigate(ByVal address As String)

        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And _
            Not address.StartsWith("https://") Then
            address = "http://" & address
        End If

        Try
            webBrowser1.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Return
        End Try

    End Sub

Search Button for WebBrowser

Code:

    ' Navigates to the URL in the address box when  
    ' the Go button is clicked. 
    Private Sub goButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs)


        Navigate(ToolStripTextBox1.Text)

    End Sub

PLEASE LEAVE A COMMENT BELOW and tell your PROBLEM/ERROR message with SCREENSHOT Provide

Mind Sticky??? i ask only.... @Psychotic ..

Nice but did you put that if someone writes in textbox mpgh (not mpgh.net) and then webbrowser search it with google

Sorry man, this isn't really.. "Sticky" worthy kind of a thread. Nonetheless, it's a great tutorial and source, but it's not something that would get stickied. Sorry bud.