Grazie per avermi risposto il codice e questo
Public Class Form
Dim richiesta As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.f4h.altervista.org/aggg.txt")
Dim Risposta As System.Net.HttpWebResponse = richiesta.GetResponse
Dim ag As System.IO.StreamReader = New System.IO.StreamReader(Risposta.GetResponseStream())
Dim versioneas As String = ag.ReadToEnd
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources._1, AudioPlayMode.Background)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.Audio.Play(My.Resources.Data_10, AudioPlayMode.Background)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Computer.Audio.Play(My.Resources.Data_11, AudioPlayMode.Background)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
My.Computer.Audio.Play(My.Resources.Data_6, AudioPlayMode.Background)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
My.Computer.Audio.Play(My.Resources.Data_9, AudioPlayMode.Background)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
My.Computer.Audio.Play(My.Resources.Data_8, AudioPlayMode.Background)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
My.Computer.Audio.Play(My.Resources.Data_2, AudioPlayMode.Background)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
My.Computer.Audio.Play(My.Resources.Data_13, AudioPlayMode.Background)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
My.Computer.Audio.Play(My.Resources.Data_14, AudioPlayMode.Background)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
My.Computer.Audio.Play(My.Resources.Data_15, AudioPlayMode.Background)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
My.Computer.Audio.Play(My.Resources.Data_12, AudioPlayMode.Background)
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
My.Computer.Audio.Play(My.Resources.Data_4, AudioPlayMode.Background)
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
My.Computer.Audio.Play(My.Resources.Data_3, AudioPlayMode.Background)
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
My.Computer.Audio.Play(My.Resources.Data_7, AudioPlayMode.Background)
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
My.Computer.Audio.Play(My.Resources.Data_6, AudioPlayMode.Background)
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
My.Computer.Audio.Play(My.Resources.notify, AudioPlayMode.Background)
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
My.Computer.Audio.Play(My.Resources.Windows_Shutdown, AudioPlayMode.Background)
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
My.Computer.Audio.Play(My.Resources.Windows_Critical_Stop, AudioPlayMode.Background)
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
My.Computer.Audio.Play(My.Resources.Windows_Ding, AudioPlayMode.Background)
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
My.Computer.Audio.Play(My.Resources.Windows_Hardware_Fail, AudioPlayMode.Background)
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
My.Computer.Audio.Play(My.Resources.Windows_Pop_up_Blocked, AudioPlayMode.Background)
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
My.Computer.Audio.Play(My.Resources.Windows_Recycle, AudioPlayMode.Background)
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
My.Computer.Audio.Play(My.Resources.chord, AudioPlayMode.Background)
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
My.Computer.Audio.Play(My.Resources.Windows_User_Account_Control, AudioPlayMode.Background)
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
My.Computer.Audio.Play(My.Resources.Windows_Navigation_Start, AudioPlayMode.Background)
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
My.Computer.Audio.Play(My.Resources._1a, AudioPlayMode.Background)
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
My.Computer.Audio.Play(My.Resources._2, AudioPlayMode.Background)
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
My.Computer.Audio.Play(My.Resources._3, AudioPlayMode.Background)
End Sub
Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
My.Computer.Audio.Play(My.Resources._7, AudioPlayMode.Background)
End Sub
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
My.Computer.Audio.Play(My.Resources._8, AudioPlayMode.Background)
End Sub
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
My.Computer.Audio.Play(My.Resources._9, AudioPlayMode.Background)
End Sub
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
My.Computer.Audio.Play(My.Resources._10, AudioPlayMode.Background)
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
My.Computer.Audio.Play(My.Resources._11, AudioPlayMode.Background)
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
My.Computer.Audio.Play(My.Resources._12, AudioPlayMode.Background)
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
My.Computer.Audio.Play(My.Resources.Camfrog__1_, AudioPlayMode.Background)
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
My.Computer.Audio.Play(My.Resources.Camfrog__2_, AudioPlayMode.Background)
End Sub
Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
My.Computer.Audio.Play(My.Resources.Camfrog__3_, AudioPlayMode.Background)
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
My.Computer.Audio.Play(My.Resources.Camfrog__4_, AudioPlayMode.Background)
End Sub
Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
My.Computer.Audio.Play(My.Resources.Camfrog__5_, AudioPlayMode.Background)
End Sub
Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
My.Computer.Audio.Play(My.Resources.Camfrog__6_, AudioPlayMode.Background)
End Sub
Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
My.Computer.Audio.Play(My.Resources.Camfrog__7_, AudioPlayMode.Background)
End Sub
Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
My.Computer.Audio.Play(My.Resources.Camfrog__8_, AudioPlayMode.Background)
End Sub
Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
My.Computer.Audio.Play(My.Resources.Camfrog__9_, AudioPlayMode.Background)
End Sub
Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
My.Computer.Audio.Play(My.Resources.Camfrog__10_, AudioPlayMode.Background)
End Sub
Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
My.Computer.Audio.Play(My.Resources.sound, AudioPlayMode.Background)
End Sub
Private Sub ImToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImToolStripMenuItem.Click
System.Diagnostics.Process.Start("camfrog:im:F4H")
End Sub
Private Sub ControllaAggiornamentiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControllaAggiornamentiToolStripMenuItem.Click
If versioneas.Contains("1") Then
MsgBox("Aggiornamento Disponibile", vbInformation)
Form3.Show()
Else
MsgBox("Nessun aggiornamento disponibile", vbInformation)
End If
End Sub
Private Sub SuggerimentiAudioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuggerimentiAudioToolStripMenuItem.Click
Modulo.Show()
End Sub
Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
My.Computer.Audio.Play(My.Resources.boing, AudioPlayMode.Background)
End Sub
Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
My.Computer.Audio.Play(My.Resources.bomba, AudioPlayMode.Background)
End Sub
Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
My.Computer.Audio.Play(My.Resources.Chiamata_alle_armi, AudioPlayMode.Background)
End Sub
Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
My.Computer.Audio.Play(My.Resources.esplosione, AudioPlayMode.Background)
End Sub
Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
My.Computer.Audio.Play(My.Resources.Fantasma, AudioPlayMode.Background)
End Sub
Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
My.Computer.Audio.Play(My.Resources.Hello_beby, AudioPlayMode.Background)
End Sub
Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
My.Computer.Audio.Play(My.Resources.jingle_bells, AudioPlayMode.Background)
End Sub
Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
My.Computer.Audio.Play(My.Resources.rullo_di_tamburi, AudioPlayMode.Background)
End Sub
Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
My.Computer.Audio.Play(My.Resources.Sirena, AudioPlayMode.Background)
End Sub
Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
My.Computer.Audio.Play(My.Resources.Spari, AudioPlayMode.Background)
End Sub
Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
My.Computer.Audio.Play(My.Resources.Frusta, AudioPlayMode.Background)
End Sub
Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
My.Computer.Audio.Play(My.Resources.wa_wa_waaa, AudioPlayMode.Background)
End Sub
Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
My.Computer.Audio.Play(My.Resources.VFC1, AudioPlayMode.Background)
End Sub
Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
My.Computer.Audio.Play(My.Resources.VFC2, AudioPlayMode.Background)
End Sub
Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click
My.Computer.Audio.Play(My.Resources.VFC3, AudioPlayMode.Background)
End Sub
Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
My.Computer.Audio.Play(My.Resources.VFC4, AudioPlayMode.Background)
End Sub
Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
My.Computer.Audio.Play(My.Resources.VFC5, AudioPlayMode.Background)
End Sub
Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
My.Computer.Audio.Play(My.Resources.VFC6, AudioPlayMode.Background)
End Sub
Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
My.Computer.Audio.Play(My.Resources.VFC7, AudioPlayMode.Background)
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
AboutBox1.Show()
End Sub
Private Sub Button74_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button74.Click
My.Computer.Audio.Play(My.Resources.Cane, AudioPlayMode.Background)
End Sub
Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
My.Computer.Audio.Play(My.Resources.Cavallo, AudioPlayMode.Background)
End Sub
Private Sub Button73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button73.Click
My.Computer.Audio.Play(My.Resources.Gatto, AudioPlayMode.Background)
End Sub
Private Sub Button69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button69.Click
My.Computer.Audio.Play(My.Resources.Jaguaro, AudioPlayMode.Background)
End Sub
Private Sub Button67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button67.Click
My.Computer.Audio.Play(My.Resources.Leone, AudioPlayMode.Background)
End Sub
Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
My.Computer.Audio.Play(My.Resources.Lupo, AudioPlayMode.Background)
End Sub
Private Sub Button70_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button70.Click
My.Computer.Audio.Play(My.Resources.maiale, AudioPlayMode.Background)
End Sub
Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
My.Computer.Audio.Play(My.Resources.Mucca, AudioPlayMode.Background)
End Sub
Private Sub Button71_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button71.Click
My.Computer.Audio.Play(My.Resources.pecora, AudioPlayMode.Background)
End Sub
Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click
My.Computer.Audio.Play(My.Resources.Pollo, AudioPlayMode.Background)
End Sub
Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click
My.Computer.Audio.Play(My.Resources.Rana, AudioPlayMode.Background)
End Sub
Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
My.Computer.Audio.Play(My.Resources.Scimmia, AudioPlayMode.Background)
End Sub
Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
My.Computer.Audio.Play(My.Resources.ucelli_cinguettano, AudioPlayMode.Background)
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Show()
Me.WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Dim f As Form = sender
If f.WindowState = FormWindowState.Minimized Then
Me.Hide()
NotifyIcon1.Visible = True
End If
End Sub
Private Sub ControllaAggiornamentiToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControllaAggiornamentiToolStripMenuItem1.Click
If versioneas.Contains("1") Then
MsgBox("Aggiornamento Disponibile", vbInformation)
Form3.Show()
Else
MsgBox("Nessun aggiornamento disponibile", vbInformation)
End If
End Sub
Private Sub SuggerimentiAudioToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuggerimentiAudioToolStripMenuItem1.Click
Modulo.Show()
End Sub
Private Sub ImF4HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImF4HToolStripMenuItem.Click
System.Diagnostics.Process.Start("camfrog:im:F4H")
End Sub
Private Sub AbautToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbautToolStripMenuItem.Click
AboutBox1.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub Button92_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button92.Click
My.Computer.Audio.Play(My.Resources.alien1, AudioPlayMode.Background)
End Sub
Private Sub Button95_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button95.Click
My.Computer.Audio.Play(My.Resources.band_intro, AudioPlayMode.Background)
End Sub
Private Sub Button91_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button91.Click
My.Computer.Audio.Play(My.Resources.cafe_in_paris, AudioPlayMode.Background)
End Sub
Private Sub Button87_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button87.Click
My.Computer.Audio.Play(My.Resources.driving_bass, AudioPlayMode.Background)
End Sub
Private Sub Button84_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button84.Click
My.Computer.Audio.Play(My.Resources.electric_guitar, AudioPlayMode.Background)
End Sub
Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button80.Click
My.Computer.Audio.Play(My.Resources.gong, AudioPlayMode.Background)
End Sub
Private Sub Button88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button88.Click
My.Computer.Audio.Play(My.Resources.Kiss, AudioPlayMode.Background)
End Sub
Private Sub Button85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button85.Click
My.Computer.Audio.Play(My.Resources.life_in_redmond, AudioPlayMode.Background)
End Sub
Private Sub Button93_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button93.Click
My.Computer.Audio.Play(My.Resources.newemail, AudioPlayMode.Background)
End Sub
Private Sub Button89_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button89.Click
My.Computer.Audio.Play(My.Resources.newalert, AudioPlayMode.Background)
End Sub
Private Sub Button94_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button94.Click
My.Computer.Audio.Play(My.Resources.nudge, AudioPlayMode.Background)
End Sub
Private Sub Button90_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button90.Click
My.Computer.Audio.Play(My.Resources.online, AudioPlayMode.Background)
End Sub
Private Sub Button86_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button86.Click
My.Computer.Audio.Play(My.Resources.outgoing, AudioPlayMode.Background)
End Sub
Private Sub Button83_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button83.Click
My.Computer.Audio.Play(My.Resources.phone, AudioPlayMode.Background)
End Sub
Private Sub Button81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button81.Click
My.Computer.Audio.Play(My.Resources.piano, AudioPlayMode.Background)
End Sub
Private Sub Button82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button82.Click
My.Computer.Audio.Play(My.Resources.smooth_sax, AudioPlayMode.Background)
End Sub
Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click
My.Computer.Audio.Play(My.Resources.type, AudioPlayMode.Background)
End Sub
Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click
My.Computer.Audio.Play(My.Resources.vimdone, AudioPlayMode.Background)
End Sub
End Class