VB Source CODE [ Web Browser and etc ]

**Faris Hadzir** · 12-23-2012

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("https://") And _
            Not address.StartsWith("https://") Then
            address = "https://" & 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.... @Retard ..

**tynab** · 12-23-2012

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

**[MPGH]Psychotic** · 12-23-2012

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.