Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'création de l'élément WebRequest Dim test As Net.WebRequest = Net.WebRequest.Create("http://monsite.com") Try 'tentative de lecture Dim r As Net.WebResponse = test.GetResponse Catch ex As Net.WebException 'erreur de lecture --> le site n'existe pas (on sors de la procédure) MsgBox("Le site n'existe pas!") Exit Sub End Try 'le site existe (on affiche Form5) Dim nouvellefenetre As Form5 = New Form5 nouvellefenetre.Show() nouvellefenetre.BringToFront() End Sub
Dim test As Net.WebRequest = Net.WebRequest.Create("http://www.vbfranceerreur.fr") Try Dim r As Net.WebResponse = test.GetResponse Catch ex As Net.WebException MsgBox(ex.Message) End Try
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form_Load() Label1 = App.Major & "." & App.Minor & "." & App.Revision Label2 = GetStringSourceFromOnlineFile("http://monsite.com/Logiciels/Dossier/Version.txt") If Label1 < Label2 Then MsgBox "Votre version de logiciel n'est pas à jour." Bouton1.Enabled = True Else MsgBox "Votre installation est à jour" Bouton1.Enabled = False End If End Sub
If form5.Label2 > Form5.Label1 Then Form5.show Else 'Rien End If