Full width home advertisement

Post Page Advertisement [Top]

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

can download here
https://userscloud.com/j0uv0izpkcve
អ្នកអាចសាកល្បងដោយខ្លួន​​​​​​​​ឯងបានដោយប្រើ vb.net

interface


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

No comments:

Post a Comment

Bottom Ad [Post Page]

| KhmerSharing