Public Class Form1
Private Sub Back_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back_button.Click
Navigator.GoBack()
End Sub
Private Sub Forward_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forward_button.Click
Navigator.GoForward()
End Sub
Private Sub Refresh_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresh_button.Click
Navigator.Refresh()
End Sub
Private Sub Stop_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_button.Click
Navigator.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Navigator.Navigate("http://www.google.it")
VAI_button.Visible = False
'Timer1.Start()
Red_Lime.Start()
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
CloseForm.Show()
End Sub
Private Sub WindowsLiveMessengerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsLiveMessengerToolStripMenuItem.Click
MsgBox("Attenzione: è vivamente sconsigliato salvare il proprio contatto/password di Messenger", MsgBoxStyle.Information, "Internet Point info")
MsgBox("Per visualizzare meglio la finestra di Messenger spostare il più in basso possibile la finestra di Internet Point", MsgBoxStyle.Information, "Internet Point info")
Process.Start("C:/Program Files/Windows Live/Messenger/msnmsgr.exe")
End Sub
Private Sub YahooMessengerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YahooMessengerToolStripMenuItem.Click
MsgBox("Attenzione: è vivamente sconsigliato salvare il proprio contatto/password di Messenger", MsgBoxStyle.Information, "Internet Point info")
MsgBox("Per visualizzare meglio la finestra di Messenger spostare il più in basso possibile la finestra di Internet Point", MsgBoxStyle.Information, "Internet Point info")
Process.Start("C:/Program Files/Yahoo!/Messenger/YahooMessenger.exe")
End Sub
Private Sub GoogleTalkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoogleTalkToolStripMenuItem.Click
MsgBox("Attenzione: è vivamente sconsigliato salvare il proprio contatto/password di Messenger", MsgBoxStyle.Information, "Internet Point info")
MsgBox("Per visualizzare meglio la finestra di Messenger spostare il più in basso possibile la finestra di Internet Point", MsgBoxStyle.Information, "Internet Point info")
Process.Start("C:/Program Files/Google/Google Talk/googletalk.exe")
End Sub
Private Sub AIMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AIMToolStripMenuItem.Click
MsgBox("Attenzione: è vivamente sconsigliato salvare il proprio contatto/password di Messenger", MsgBoxStyle.Information, "Internet Point info")
MsgBox("Per visualizzare meglio la finestra di Messenger spostare il più in basso possibile la finestra di Internet Point", MsgBoxStyle.Information, "Internet Point info")
Process.Start("C:/Program Files/AIM6/aim6.exe")
End Sub
Private Sub GoogleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoogleToolStripMenuItem.Click
Navigator.Navigate("http://www.google.it")
End Sub
Private Sub YahooToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YahooToolStripMenuItem.Click
Navigator.Navigate("http://www.yahoo.it")
End Sub
Private Sub MSNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSNToolStripMenuItem.Click
Navigator.Navigate("http://www.msn.it")
End Sub
Private Sub BingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BingToolStripMenuItem.Click
Navigator.Navigate("http://www.bing.com")
End Sub
Private Sub VirgilioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VirgilioToolStripMenuItem.Click
Navigator.Navigate("http://www.virgilio.it")
End Sub
Private Sub LiberoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LiberoToolStripMenuItem.Click
Navigator.Navigate("http://www.libero.it")
End Sub
Private Sub YouTubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YouTubeToolStripMenuItem.Click
Navigator.Navigate("http://it.youtube.com")
End Sub
Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
Navigator.Navigate("http://www.facebook.com")
End Sub
Private Sub MicrosoftToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MicrosoftToolStripMenuItem.Click
Navigator.Navigate("http://www.microsoft.it")
End Sub
Private Sub AppleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppleToolStripMenuItem.Click
Navigator.Navigate("http://www.apple.com")
End Sub
Private Sub MegavideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MegavideoToolStripMenuItem.Click
Navigator.Navigate("http://www.megavideo.com")
End Sub
Private Sub Navigator_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Navigator.DocumentCompleted
URL_TextBox.Text = Navigator.Document.Url.AbsoluteUri
If URL_TextBox.Text = "http://www.google.it/" Then
Site_label.Text = "Google"
End If
If URL_TextBox.Text = "http://www.yahoo.it/" Then
Site_label.Text = "Yahoo!"
End If
If URL_TextBox.Text = "about:blank" Then
Site_label.Text = "Pagina vuota"
End If
If URL_TextBox.Text = "http://www.forumfree.net/" Then
Site_label.Text = "Forumfree"
End If
If URL_TextBox.Text = "http://www.facebook.com/" Then
Site_label.Text = "Facebook"
End If
If URL_TextBox.Text = "http://it.facebook.com/" Then
Site_label.Text = "Facebook"
End If
If URL_TextBox.Text = "http://www.netlog.com/" Then
Site_label.Text = "Netlog"
End If
If URL_TextBox.Text = "http://it.netlog.com/" Then
Site_label.Text = "Netlog"
End If
If URL_TextBox.Text = "http://www.youtube.com/" Then
Site_label.Text = "YouTube"
End If
If URL_TextBox.Text = "http://it.youtube.com/" Then
Site_label.Text = "YouTube"
End If
If URL_TextBox.Text = "http://www.msn.it/" Then
Site_label.Text = "MSN"
End If
If URL_TextBox.Text = "http://it.msn.com/" Then
Site_label.Text = "MSN"
End If
If URL_TextBox.Text = "http://www.virgilio.it/" Then
Site_label.Text = "Virgilio"
End If
If URL_TextBox.Text = "http://www.libero.it/" Then
Site_label.Text = "Libero"
End If
If URL_TextBox.Text = "http://www.microsoft.com/" Then
Site_label.Text = "Microsoft"
End If
If URL_TextBox.Text = "http://www.microsoft.it/" Then
Site_label.Text = "Microsoft"
End If
If URL_TextBox.Text = "http://www.apple.com/" Then
Site_label.Text = "Apple"
End If
If URL_TextBox.Text = "http://www.pierotofy.it/" Then
Site_label.Text = "Pierotofy"
End If
If URL_TextBox.Text = "http://www.bing.com/" Then
Site_label.Text = "Bing"
End If
If URL_TextBox.Text = "http://www.wikipedia.org/" Then
Site_label.Text = "Wikipedia"
End If
If URL_TextBox.Text = "http://it.wikipedia.org/" Then
Site_label.Text = "Wikipedia"
End If
If URL_TextBox.Text = "http://www.altervista.org/" Then
Site_label.Text = "Altervista"
End If
If URL_TextBox.Text = "http://it.altervista.org/" Then
Site_label.Text = "Altervista"
End If
If URL_TextBox.Text = "http://www.fabriziorocca.tk/" Then
Site_label.Text = "Il sito di Fabrizio Rocca"
End If
If URL_TextBox.Text = "http://www.calzavara.it/" Then
Site_label.Text = "Calzavara"
End If
If URL_TextBox.Text = "http://www.eset.com/" Then
Site_label.Text = "Eset"
End If
If URL_TextBox.Text = "http://www.piriform.com/" Then
Site_label.Text = "Piriform"
End If
If URL_TextBox.Text = "http://www.ccleaner.com/" Then
Site_label.Text = "CCleaner"
End If
If URL_TextBox.Text = "http://www.defraggler.com/" Then
Site_label.Text = "Defraggler"
End If
If URL_TextBox.Text = "http://www.recuva.com/" Then
Site_label.Text = "Recuva"
End If
If URL_TextBox.Text = "http://www.adobe.com/" Then
Site_label.Text = "Adobe"
End If
If URL_TextBox.Text = "http://cdburnerxp.se/" Then
Site_label.Text = "CDburnerXP"
End If
If URL_TextBox.Text = "http://www.logitech.com/" Then
Site_label.Text = "Logitech"
End If
If URL_TextBox.Text = "http://www.nokia.com/" Then
Site_label.Text = "Nokia"
End If
If URL_TextBox.Text = "http://www.winrar.com/" Then
Site_label.Text = "WinRar"
End If
If URL_TextBox.Text = "http://www.openoffice.org/" Then
Site_label.Text = "Openoffice.org"
End If
If URL_TextBox.Text = "http://www.aria.it/" Then
Site_label.Text = "Aria"
End If
If URL_TextBox.Text = "http://www.megaupload.com/" Then
Site_label.Text = "Megaupload"
End If
If URL_TextBox.Text = "http://www.megavideo.com/" Then
Site_label.Text = "Megavideo"
End If
If URL_TextBox.Text = "http://www.megaclick.com/" Then
Site_label.Text = "Megaclick"
End If
If URL_TextBox.Text = "http://www.aruba.it/" Then
Site_label.Text = "Aruba"
End If
If URL_TextBox.Text = "http://www.messenger.it/" Then
Site_label.Text = "Messenger download"
End If
If URL_TextBox.Text = "http://www.pinnaclesys.com/" Then
Site_label.Text = "Pinnacle"
End If
End Sub
Private Sub Fake_button_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fake_button.MouseEnter
Fake_button.Visible = False
VAI_button.Visible = True
End Sub
Private Sub Form1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.MouseEnter
Fake_button.Visible = True
VAI_button.Visible = False
End Sub
Private Sub VAI_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VAI_button.Click
Navigator.Navigate(URL_TextBox.Text)
End Sub
Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
MsgBox("Questo programma è stato creato da: Fabrizio Rocca" + vbCrLf + "Sito web: www.fabriziorocca.tk" + vbCrLf + "Email: fabrizio@rocca.tk" + vbCrLf + "Forum: www.pcexpert.forumfree.net" + vbCrLf + vbCrLf + " 2009")
End Sub
Private Sub Navigator_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles Navigator.ProgressChanged
Bar.Visible = True
Bar.Value = e.CurrentProgress * 100 / e.MaximumProgress
If e.CurrentProgress = e.MaximumProgress Or e.CurrentProgress = 0 Then
Bar.Visible = False
End If
End Sub
Private Sub GroupBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.MouseEnter
Fake_button.Visible = True
VAI_button.Visible = False
End Sub
Private Sub SpegniInternetPointToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpegniInternetPointToolStripMenuItem.Click
Me.Navigator.ShowPropertiesDialog()
End Sub
Private Sub SorgentiPaginaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SorgentiPaginaToolStripMenuItem.Click
Sorgenti.Show()
End Sub
Private Sub Red_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Red_Lime.Tick
ListaSitiToolStripMenuItem.BackColor = Color.Red
ListaSitiToolStripMenuItem.ForeColor = Color.Lime
ListaProgrammiToolStripMenuItem.BackColor = Color.Lime
ListaProgrammiToolStripMenuItem.ForeColor = Color.Red
tmp1.Increment(1)
If tmp1.Value = "100" Then
tmp3.Value += 10
tmp1.Value = 0
Red_Lime.Stop()
Lime_Red.Start()
End If
If tmp3.Value = "100" Then
ListaProgrammiToolStripMenuItem.ForeColor = Color.Black
ListaProgrammiToolStripMenuItem.BackColor = Color.Transparent
ListaSitiToolStripMenuItem.ForeColor = Color.Black
ListaSitiToolStripMenuItem.BackColor = Color.Transparent
Lime_Red.Stop()
Red_Lime.Stop()
End If
End Sub
Private Sub Lime_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lime_Red.Tick
ListaSitiToolStripMenuItem.BackColor = Color.Lime
ListaSitiToolStripMenuItem.ForeColor = Color.Red
ListaProgrammiToolStripMenuItem.BackColor = Color.Red
ListaProgrammiToolStripMenuItem.ForeColor = Color.Lime
tmp2.Increment(1)
If tmp2.Value = "100" Then
tmp2.Value = 0
Lime_Red.Stop()
Red_Lime.Start()
End If
End Sub
Private Sub ListaSitiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListaSitiToolStripMenuItem.Click
End Sub
Private Sub ListaProgrammiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListaProgrammiToolStripMenuItem.Click
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
End Class
