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

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

สอบถาม เรื่องการ Ping IP หน่อยครับ ติดไฟล์วอ VB.NET

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

4

กระทู้

11

โพสต์

184

เครดิต

Member

Rank: 2

เครดิต
184

คือ ผม Ping ไปเครื่องที่เปิด ไฟล์วอ แล้ว มันปิงหาไม่เจอ เลยอยากรู้ว่า มีวิธีเขียนให้มันปิงทะลุไฟล์วอ หรือ ไม่ครับ
123.png

245

กระทู้

348

โพสต์

2881

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2881
โพสต์ 2019-3-4 14:12:53 | ดูโพสต์ทั้งหมด

ลองทดสอบการเชื่อมต่อดูก่อนครับ ...


  1.     ''' <summary>
  2.     ''' check for a existing internet connection to some url.
  3.     ''' </summary>
  4.     ''' <returns>True if it's exist</returns>
  5.     Public Shared Function isConnected(ByVal strURL As String) As Boolean
  6.         Try
  7.             Dim addresslist As IPAddress() = Dns.GetHostAddresses(strURL)
  8.             ' | ' addresslist holds a list of ipadresses to google
  9.             ' | ' e.g  173.194.40.112                                       |
  10.             ' | '                .116                                       |
  11.             If addresslist(0).ToString().Length > 6 Then
  12.                 Return True
  13.             Else
  14.                 Return False
  15.             End If
  16.         Catch ex As Sockets.SocketException
  17.             ' | ' You are offline                   |
  18.             ' | ' the host is unkonwn               |
  19.             Return False
  20.         Catch ex As Exception
  21.             Return False
  22.         End Try
  23.     End Function
คัดลอกไปที่คลิปบอร์ด

  1.         If isConnected(TextBox1.Text) Then
  2.             MessageBox.Show("Connect OK", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
  3.         Else
  4.             MessageBox.Show("Can't connect.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  5.         End If
คัดลอกไปที่คลิปบอร์ด




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

4

กระทู้

11

โพสต์

184

เครดิต

Member

Rank: 2

เครดิต
184
 เจ้าของ| โพสต์ 2019-3-4 15:20:54 | ดูโพสต์ทั้งหมด

thongkorn ตอบกลับเมื่อ 2019-3-4 14:12
ลองทดสอบการเชื่อมต่อดูก่อนครับ ...

ขอบพระคุณมากๆครับ   ได้แล้วครับ

4

กระทู้

11

โพสต์

184

เครดิต

Member

Rank: 2

เครดิต
184
 เจ้าของ| โพสต์ 2019-3-5 21:47:23 | ดูโพสต์ทั้งหมด

thongkorn ตอบกลับเมื่อ 2019-3-4 14:12
ลองทดสอบการเชื่อมต่อดูก่อนครับ ...

คือผมต้องการ ทำโปรแกรม ปิิง หาเครื่อง client ภายใน vlan อ่ะคับ ปัญหาตอนนีี้คือมันติดไฟล์วอ ถ้าเครื่องที่อยู่ ภายใน vlan เปิิดไฟล์วอไว้ เราปิงจาก โปรแกรม มันจะไม่เจอ ถ้าปิิดไฟล์วอ ถึงจะเจอ อ่ะคับ

245

กระทู้

348

โพสต์

2881

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2881
โพสต์ 2019-3-6 13:24:14 | ดูโพสต์ทั้งหมด

dreamkarifha ตอบกลับเมื่อ 2019-3-5 21:47
คือผมต้องการ ทำโปรแกรม ปิิง หาเครื่อง client ภายใน vlan อ ...

อันนี้เป็นประโยคคำถาม หรือประโยคบอกเล่าครับ 5555+ ... คือถ้าหากถูกกั้นด้วยไฟร์วอลล์ ยังไงเราก็ต้องเปิดมันออกอยู่แล้วนี่ครับ หรือถามหาโค้ดที่ใช้ในการ Ping ด้วย VB.NET ก็ดูที่นี่ได้เลยครับ [VB.NET] การใช้คำสั่ง Ping เพื่อตรวจสอบการเชื่อมต่ออุปกรณ์เครือข่าย ...
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

4

กระทู้

11

โพสต์

184

เครดิต

Member

Rank: 2

เครดิต
184
 เจ้าของ| โพสต์ 2019-3-6 15:25:10 | ดูโพสต์ทั้งหมด

thongkorn ตอบกลับเมื่อ 2019-3-6 13:24
อันนี้เป็นประโยคคำถาม หรือประโยคบอกเล่าครับ 5555+ ... ค ...

555 ประโยคบอกเล่าครับ  พอจะมีวิธีทำให้มันปิง ผ่านไฟล์วอได้ไหมครับ ไม่อยากปิดไฟล์ วอ

245

กระทู้

348

โพสต์

2881

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2881
โพสต์ 2019-3-6 15:50:28 | ดูโพสต์ทั้งหมด

dreamkarifha ตอบกลับเมื่อ 2019-3-6 15:25
555 ประโยคบอกเล่าครับ  พอจะมีวิธีทำให้มันปิง ผ่านไฟล์วอได้ไหมครับ ไม่อยากปิดไฟล์ วอ

ต่อวง LAN เป็นแบบไหนครับ ใช้ IP Address ใน Class ไหน Bridge เข้าหากันยังไง ต้องแจกแจงรายละเอียด + ผังมาด้วยครับ
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

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

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

GMT+7, 2020-7-12 15:59 , Processed in 0.517039 second(s), 5 queries , File On.

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

© 2001-2017 Comsenz Inc.

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