Imports System
Imports System.IO
Imports System.Net
Public Class Form1
Public HomePageFile As String = Application.StartupPath & "\Impostazioni.dat"
Public HomePage As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim ReadH As New IO.StreamReader(Application.StartupPath & "\Impostazioni.dat")
Me.ToolStripComboBox1.Text = ReadH.ReadLine
ReadH.Close()
ReadH = Nothing
Me.WebBrowser1.Navigate(New Uri(ToolStripComboBox1.Text))
HomePage = ToolStripComboBox1.Text
Catch ex As IO.FileNotFoundException
Dim NewReadH As New IO.StreamWriter(HomePageFile)
NewReadH.WriteLine("http://www.pierotofy.it/")
NewReadH.Close()
NewReadH = Nothing
Me.WebBrowser1.Navigate(New Uri("http://www.pierotofy.it/"))
End Try
End Sub
Private Sub Time_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Stato.Text = Me.WebBrowser1.StatusText
End Sub
Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Me.WebBrowser1.Navigate(ToolStripComboBox1.Text)
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Me.WebBrowser1.Navigate(My.Settings.homepage)
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Me.WebBrowser1.GoBack()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
Me.WebBrowser1.GoForward()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
Me.Stato.Text = "Aggiorna pagina"
Me.WebBrowser1.Refresh()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Me.Stato.Text = "Interrompi pagina"
Me.WebBrowser1.Stop()
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
WebBrowser1.Navigate(My.Settings.newspage)
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
Me.WebBrowser1.ShowPropertiesDialog()
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
If ToolStripTextBox2.Text = Nothing Then
MessageBox.Show("Impossibile ricercare una chiave di ricerca vuota", "Ricerca", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Me.WebBrowser1.Navigate("http://www.google.it/search?hl=it&q=" & ToolStripTextBox2.Text.ToString)
End Sub
Private Sub ToolStripComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ToolStripComboBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
e.Handled = True
Me.WebBrowser1.Navigate(ToolStripComboBox1.Text)
End If
Me.ToolStripComboBox1.Items.Add(WebBrowser1.Url.ToString)
End Sub
Private Sub AvantiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvantiToolStripMenuItem.Click
Me.WebBrowser1.GoForward()
End Sub
Private Sub IndietroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndietroToolStripMenuItem.Click
Me.WebBrowser1.GoBack()
End Sub
Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
Me.Stato.Text = "Interrompi pagina"
Me.WebBrowser1.Stop()
End Sub
Private Sub AggiornaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AggiornaToolStripMenuItem.Click
Me.Stato.Text = "Aggiornamento pagina"
Me.WebBrowser1.Refresh()
End Sub
Private Sub SalvaConNomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaConNomeToolStripMenuItem.Click
Me.WebBrowser1.ShowSaveAsDialog()
End Sub
Private Sub AggiungiQuestaPaginaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.ToolStripProgressBar2.Value = ToolStripProgressBar2.Maximum
Dim titolo = Me.WebBrowser1.DocumentTitle.ToString & " - "
Me.Text = titolo + "Browser Internet"
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Me.Stato.Text = Me.ToolStripComboBox1.Text
Me.ToolStripComboBox1.Text = Me.WebBrowser1.Document.Url.AbsoluteUri
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
Me.Stato.Text = "Navigazione in corso....."
Me.Stato.Text = "Apertura pagina " & e.Url.AbsoluteUri & " in corso....."
Me.ToolStripComboBox1.Text = Me.WebBrowser1.Url.ToString()
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
Me.ToolStripProgressBar2.Minimum = 0
Me.ToolStripProgressBar2.Maximum = e.MaximumProgress
Me.ToolStripProgressBar2.Value = e.CurrentProgress
Me.Stato.Text = Me.WebBrowser1.Url.ToString
End Sub
Private Sub SalvaConNomeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaConNomeToolStripMenuItem1.Click
WebBrowser1.ShowSaveAsDialog()
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Close()
End Sub
Private Sub NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NToolStripMenuItem.Click
WebBrowser1.Navigate(My.Settings.newspage)
End Sub
Private Sub HomePageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HomePageToolStripMenuItem.Click
WebBrowser1.Navigate(My.Settings.homepage)
End Sub
Private Sub ProprietaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProprietaToolStripMenuItem.Click
WebBrowser1.ShowPropertiesDialog()
End Sub
Private Sub StampaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StampaToolStripMenuItem.Click
WebBrowser1.ShowPrintDialog()
End Sub
Private Sub AnteprimaStampaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnteprimaStampaToolStripMenuItem.Click
WebBrowser1.ShowPrintPreviewDialog()
End Sub
Private Sub IToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IToolStripMenuItem.Click
WebBrowser1.ShowPageSetupDialog()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
WebBrowser1.Navigate(My.Settings.homepage)
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
WebBrowser1.Navigate(My.Settings.newspage)
End Sub
Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
WebBrowser1.ShowPropertiesDialog()
End Sub
Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
WebBrowser1.ShowPageSetupDialog()
End Sub
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
WebBrowser1.ShowPrintPreviewDialog()
End Sub
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
WebBrowser1.ShowPrintDialog()
End Sub
Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
Stato.Text = "visualizza sorgente"
Dim b As String = WebBrowser1.DocumentText.ToString
Dim c As String = WebBrowser1.Document.Title.ToString
Dim patc As String = Application.StartupPath + "\Visualizza sorgente.txt"
Dim WTemp As New IO.StreamWriter(patc)
Dim Processo As Process = New Process
WTemp.WriteLine(b)
Process.Start(patc)
WTemp.Close()
End Sub
Private Sub VisualizzaSorgenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzaSorgenteToolStripMenuItem.Click
Stato.Text = "visualizza sorgente"
Dim b As String = WebBrowser1.DocumentText.ToString
Dim c As String = WebBrowser1.Document.Title.ToString
Dim patc As String = Application.StartupPath + "\Visualizza sorgente.txt"
Dim WTemp As New IO.StreamWriter(patc)
Dim Processo As Process = New Process
WTemp.WriteLine(b)
Process.Start(patc)
WTemp.Close()
End Sub
Private Sub VisualizzaSorgenteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzaSorgenteToolStripMenuItem1.Click
Stato.Text = "visualizza sorgente"
Dim b As String = WebBrowser1.DocumentText.ToString
Dim c As String = WebBrowser1.Document.Title.ToString
Dim patc As String = Application.StartupPath + "\Visualizza sorgente.txt"
Dim WTemp As New IO.StreamWriter(patc)
Dim Processo As Process = New Process
WTemp.WriteLine(b)
Process.Start(patc)
WTemp.Close()
End Sub
Private Sub ToolStripTextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ToolStripTextBox2.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
e.Handled = True
WebBrowser1.Navigate(ToolStripTextBox2.Text)
End If
End Sub
Private Sub InfoSuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoSuToolStripMenuItem.Click
Form2.Show()
End Sub
End Class
