ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 474|ตอบกลับ: 2

[VB.NET] โค้ดตรวจสอบการเชื่อมต่ออินเทอร์เน็ต พร้อมกับแสดงหมายเลขไอพีแอดเดรส

[คัดลอกลิงก์]

213

กระทู้

301

โพสต์

2407

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2407




สำหรับโค้ดชุดนี้ก็ไม่ได้มีความยุ่งยากในการทำความเข้าใจมากมาย แต่แอดมินใส่เทคนิคการเขียนโปรแกรมลงไปอยู่ 2 เรื่อง คือ การให้ ComboBox แสดงผลรายการ (Items) ตามจำนวนที่เรากำหนด และอีกเรื่องที่สำคัญคือ การส่งค่าคืนกลับจากฟังค์ชั่น สามารถคืนค่า (Return) ได้มากกว่า 1 ค่า ...



มาดูโค้ดฉบับเต็มกันเถอะ ...
  1. Imports System.Net

  2. Public Class frmCheckInternet

  3.     ''' <summary>
  4.     ''' check for a existing internet connection to some url.
  5.     ''' </summary>
  6.     ''' <returns>True if it's exist and return IP Address.</returns>
  7.     Public Shared Function isConnected(ByVal strURL As String) As Tuple(Of Boolean, String)
  8.         Try
  9.             Dim addresslist As IPAddress() = Dns.GetHostAddresses(strURL)
  10.             ' | ' addresslist holds a list of ipadresses to google.
  11.             ' | ' e.g  173.194.40.112
  12.             If addresslist(0).ToString().Length > 6 Then
  13.                 Return Tuple.Create(True, addresslist(0).ToString())
  14.             Else
  15.                 Return Tuple.Create(False, addresslist(0).ToString())
  16.             End If
  17.         Catch ex As Sockets.SocketException
  18.             ' | ' You are offline
  19.             ' | ' the host is unkonwn
  20.             Return Tuple.Create(False, "")
  21.         Catch ex As Exception
  22.             Return Tuple.Create(False, "")
  23.         End Try
  24.     End Function

  25.     Private Sub frmCheckInternet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  26.         txtUrl.Text = "www.remotemysql.com"
  27.         With cmbTimer
  28.             For i = 1 To 60
  29.                 .Items.Add(i)
  30.             Next
  31.             .SelectedIndex = 0
  32.             .IntegralHeight = False
  33.             .MaxDropDownItems = 10
  34.         End With
  35.         '// TIMER
  36.         With Timer1
  37.             .Interval = 1000 * Val(cmbTimer.Text)
  38.             .Enabled = True
  39.         End With
  40.         '// Initialize
  41.         Me.ToolStripStatusLabel1.Text = ""
  42.     End Sub

  43.     Private Sub frmCheckInternet_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  44.         Me.Dispose()
  45.         Application.Exit()
  46.     End Sub

  47.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
  48.         Me.Close()
  49.     End Sub

  50.     Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
  51.         Call CheckInternet()
  52.     End Sub

  53.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  54.         Call CheckInternet()
  55.     End Sub

  56.     Private Sub CheckInternet()
  57.         If Trim(txtUrl.Text) = "" Then Exit Sub
  58.         '// Declare 2 variables for multiple return value.
  59.         Dim Connecting As Boolean
  60.         Dim IP As String
  61.         With isConnected(Trim(txtUrl.Text))
  62.             Connecting = .Item1
  63.             IP = .Item2
  64.         End With
  65.         If Connecting Then
  66.             txtIPAddress.Text = IP
  67.             Me.ToolStripStatusLabel1.Text = "IP: " & txtIPAddress.Text
  68.         Else
  69.             Me.ToolStripStatusLabel1.Text = "Can't Connect URL : " & txtUrl.Text
  70.         End If
  71.     End Sub
  72. End Class
คัดลอกไปที่คลิปบอร์ด



ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

41

โพสต์

193

เครดิต

Member

Rank: 2

เครดิต
193
โพสต์ 2019-7-29 08:43:59 | ดูโพสต์ทั้งหมด

ขอบคุณครับ

1

กระทู้

6

โพสต์

81

เครดิต

Member

Rank: 2

เครดิต
81
โพสต์ 2019-7-29 19:38:32 | ดูโพสต์ทั้งหมด

ขอบพระคุณมากครับ
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-21 18:47 , Processed in 0.392764 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้