can download here
អ្នកអាចសាកល្បងដោយខ្លួនឯងបានដោយប្រើ 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