04/05/09 17:10
swet
Ho un problema con questo codice:
praticamente il codice funziona solo due volte ( una volta è verde e un' altra rossa) e poi si blocca il programma. Il codice non mi pare abbia errori, mi date una mano?
Imports System.Net Public Class Form1 Dim verde As New Bitmap("luceverde.jpg") Dim rossa As New Bitmap("lucerossa.jpg") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim request As WebRequest = WebRequest.Create("http://www.google.it") Try Dim response As HttpWebResponse = request.GetResponse() 'Il pc è connesso PictureBox1.Image = verde Catch 'Il pc non è connesso PictureBox1.Image = rossa End Try End Sub End Class
praticamente il codice funziona solo due volte ( una volta è verde e un' altra rossa) e poi si blocca il programma. Il codice non mi pare abbia errori, mi date una mano?
aaa