Full width home advertisement

728+3

Post Page Advertisement [Top]

share-internet
ចង់ដឹងថាកុំព្យូទ៍ររបស់អ្មក ភ្ជាប់ Internet ឫអត់?
guideinternet_large

can download here
0000000755685
អ្នកអាចសាកល្បងដោយខ្លួន​​​​​​​​ឯងបានដោយប្រើ vb.net

interface
Capture


Public Class Form1
    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        If InternetConnection() = False Then
            MessageBox.Show("No Internet Conncetion!", "Internet Conncetion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("Internet Connceted.", "Internet Conncetion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
    Private Function InternetConnection() As Boolean
        Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://khmersharingu.blogspot.com")
        Dim resp As System.Net.WebResponse
        Try
            resp = req.GetResponse
            resp.Close()
            req = Nothing
            Return True
        Catch ex As Exception
            req = Nothing
            Return False
        End Try
    End Function
End Class

Bottom Ad [Post Page]

| KhmerSharing