[سعود]

PHP كود :

Imports System.Net

Public Class Form1
    Private Function LoadUrl(url As String) As Boolean
        Using wc As New WebClient
            Try
                wc.OpenRead(url)
                Return True
            Catch ex As WebException When ex.Message.Contains("تعذر تحليل الاسم") Or ex.Message.Contains("تعذر الاتصال ")
                Return False
            End Try
        End Using
    End Function
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If LoadUrl("http://saudvb.somee.com/Default.aspx") = False Then
            Timer2.Start()
            Timer1.Stop()
            MsgBox("Bye ----- no Internet")
            Close()
            Hide()
            End
        Else
            Label1.Text = "OK ..... Full"
        End If
    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        SendKeys.Send("{Enter}")
        Timer2.Stop()
    End Sub
End Class