หน้าแรก
 การบ้าน
  C/C++ new
  Java new
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะ...
2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลอ...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรื...
2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  มาส่อง...
2024-08-19 15:45:12
  ช่วยเขียนโปรเจค: การควบค...
2024-08-07 09:13:31
  เขียนโปรแกรมภาษาจาวา
1.โ...

2023-09-12 11:40:28
  ต้องลอง debug ดูเองครับ
ไล่...

2023-06-08 18:03:06
  ร้านค้าแห่งหนึ่ง จะต้องน...
2021-09-21 08:47:08
  จงเขียนโปรแกรมดำเนินการ...
2021-05-07 15:06:11
  จงเขียนโปรแกรมสำหรับคำน...
2021-03-09 14:21:45
  ขอดู...
2021-01-04 23:56:45
  ขอโค้ดเพื่อทำการเรียนกา...
2020-12-09 23:02:09
  แล้ว ?...
2020-12-09 10:56:34
  Homework comment
  เขียนโปรแกรมเพื่อรับค่า...
2022-02-24 10:45:17
  จากโค้ดนี้อะครับ พอดีลอง...
2021-03-22 01:22:39
  จากโค้ดนี้อะครับ พอดีลอง...
2021-03-22 01:22:39
  โจทย์การบ้าน c++ เขียนรูปแ...
2020-04-06 11:01:33
  แบบนี้ขอเป็น ภาษา php หน่อย...
2019-09-18 14:36:34
  ผมไม่อยากให้คุณได้คะแนน...
2019-04-27 01:29:07
  อาจารย์เขาบอกแนวข้อสอบม...
2019-04-27 00:44:29
  ขอสอบถามการเขียน c++ ครับ เ...
2018-04-02 12:19:21
  โค้ดตัวอย่างศึกษาให้เข้...
2017-11-26 14:50:05
  คำนวณค่าน้ำโดยรับค่ามิเ...
2017-11-20 23:15:26
  Article comment
  เท่าที่อ่าน error คือพื้นที่...
2022-03-23 13:56:48
  เรียน สอบถามปัญหา กับ อ.คร...
2022-01-24 17:39:49
  ต้องการ ให้เขียน โปรแกรม ...
2019-12-09 11:39:58
  รับเขียน arx จาก vc++ 2017 ล็อคโปร...
2019-09-19 09:48:09
  ทำการ register ไฟล์ที่ชื่อ mswinsck.oc...
2019-09-17 14:05:56
  ใน vb 6 ไม่มี component winsock เลยค่ะ ส...
2019-09-03 10:31:02
  รบกวนขอสอบถามหน่อยนะครั...
2019-03-04 05:31:04
  สามารถนำตัวหนังสือจากภา...
2018-12-25 08:54:32
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
...

2017-07-11 09:59:35
  9Mcode comment

Link Exchange

อัตราค่าโฆษณา
 
ส่ง Broadcast ข้อมูล ด้วย VB (อ่าน 35,866)
ศุภกิจ ทองดี (9'M) บทความโดย: นาย ศุภกิจ ทองดี (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 5,790 ครั้ง)

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
Freelanceรับพัฒนาโปรแกรม และเว็บ โดย 9'M 

สวัสดีกันอีกครั้งอีกหน สำหรับบทความที่เกี่ยวกับ Visual Basic สำหรับแฟนๆ VB ก็คงพอจะจำกันได้ กับบทความในครั้งที่แล้ว ที่เกี่ยวข้องกับ MS Winsock Control กลับมาครั้งนี้ ก็เป็นอีกครั้งนะครับสำหรับบทความแนวเดิม เพราะโดนเขียน e-mail ขอกันมาแยะ พอสมควร แต่ก็คงไม่อาจเขียนให้ออกมาเป็นโปรแกรมซะทีเดียวเลยอย่างที่ต้องการ คงได้ประมาณแนวทาง และวิธีการเท่านั้นหละครับ นอกจากนี้คุณจำเป็นจะต้องต่อยอด(ความรู้) ศึกษาเพิ่มเติมเอากันเองนะครับ

การ Broadcast เป็นวิธีการที่ใช้กันมากบนระบบ Lan (Local area networks) ซึ่งถ้าคุณต้องการที่จะส่งข้อมูล ถึงเครื่องทุกๆ เครื่องที่อยู่บนระบบเดียวกัน คุณก็สามารถที่จะใช้วิธี Broadcast ข้อมูลไปได้ พูดให้ง่ายๆ Broadcast ก็คือ การส่งข้อมูล แบบกระจาย ไปสู่เครื่องทุกเครื่อง ซึ่งจะเห็นได้ว่ามันมีประโยชน์มาก

ยกตัวอย่างเช่น ถ้าคุณต้องการค้นหาไฟล์อะไรสักอย่างที่อยู่บนเครื่องใดเครื่องนึง หรือ ทุกเครื่อง ที่อยู่บนระบบ Network คุณก็สามารถใช้วิธีการ Broadcast ส่งข้อมูลที่ระบุชื่อไฟล์ไป หากเครื่องใดที่ได้รับ และมีไฟล์ที่ระบุมากับข้อมูล เครื่องนั้นจะ ทำการตอบกลับมายังคุณ (ทั้งหมดนี้ที่กล่าว คุณจำเป็นจะต้องเขียนเป็นโปรแกรมขึ้นมาเองนะครับ)

วิธีการส่ง Broadcast สามารถทำได้เพียงแค่คุณใช้ UDP Protocol (การส่งข้อมูล แบบไม่มีการยืนยันการติดต่อ) แล้วทำการส่ง Package (ข้อมูล) ไปยัง IP หมายเลข 255.255.255.255 และ ทำการเลือกหมายเลขพอร์ตหมายเลขใดๆ ก็ได้ (ผมอยากแนะนำให้ใช้หมายเลขพอร์ต ตั้งแต่ 1024 ขึ้นมา นะครับ จนถึง 65535 , ส่วนหมายเลขก่อนหน้านี้ เค้าสงวนไว้สำหรับ Protocol ต่างๆ ที่เป็นมาตรฐาน)

การส่งและรับ UDP Broadcast สามารถทำได้ง่ายโดยที่เราไม่จำเป็น จะต้องทำการติดต่อกับปลายทางก่อน ทำการส่งข้อมูล ซึ่งจะต่างกับการส่ง แบบ TCP ที่จะต้องมีการยืนยันตัวตนของทั้งสองเครื่อง ก่อนทำการส่งข้อมูลใดๆ สำหรับขนาดของข้อมูล ที่สามารถส่งไปได้นั้น จะขึ้นอยู่กับอุปกรณ์ Network ที่คุณต่อใช้อยู่ แต่โดยทั่วไปจะอยู่ที่ 256 bytes ต่อการส่งหนึ่งครั้ง

เอาละครับ กล่าวกันมาซะยาวยืด (กลัวว่าจะหลับกันซะก่อน) ตอนนี้ก็มาถึงช่วงที่จะได้ลองกันแล้ว มาเริ่มกันเลยดีกว่า

1. เปิด VB แล้วสร้างโปรเจค Standard EXE

2.เลือกเมนู Project->Components แล้วทำการเลือก Microsoft Winsock Control 6.0 ดังแสดงในรูปด้านล่าง

3. ออกแบบหน้าตาโปรแกรมดังรูป

ทำการกำหนด Property ต่างๆ ของ Control ดังนี้

Name Property Value
Text1 Text [ว่าง]
Text1 Multiline True
Text2 Text [ว่าง]
Command1 Caption Send
Winsock1 Protocol 1-sckUDPProtocol

4. คัดลอกโค้ดต่อไปนี้ ลงไปวางในส่วนของ Code

Private Sub Form_Load()
 Winsock1.Bind 20202
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Winsock1.Close
End Sub

Private Sub Command1_Click()
 Dim str As String
 str = CStr(Text2.Text)
 Winsock1.RemoteHost = "255.255.255.255"
 Winsock1.RemotePort = 20202
 Winsock1.SendData str
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
 Winsock1.GetData str, vbString
 Text1.Text = Text1.Text & str & Chr(13) & Chr(10)
End Sub

5. คราวนี้ก็มาถึงขั้นตอนของการทดสอบโปรแกรม เมื่อ Run ดูแล้วจะได้ผลดังรูป แต่ถ้าอยากให้เห็นผลชัดๆ เราจำเป็นจะต้องทำตัวติดตั้งโปรแกรมนี้ ไปลงบนเครื่องอื่นๆ ที่อยู่บน Lan วงเดียวกัน โดยใช้โปรแกรม Package & Deployment Wizard เพราะว่าเราไม่สามารถนำไฟล์ exe ที่สร้างขึ้นด้วย vb ไปใช้บนเครื่องที่ปราศจาก vb Runtime และโดยเฉพาะตัวอย่างนี้ ได้ใช้ MS Winsock Control ซึ่งจะเป็นจะต้องลงไปบนเครื่องที่ต้องการ run โปรแกรมด้วยครับ หากได้ทดสอบแล้วจะเห็นว่า เครื่องทุกเครื่องที่ลงโปรแกรมจะสามารถรับข้อความที่ส่งแบบกระจายภายในเครือข่าย

ปิดท้าย

สำหรับบางท่านที่ Run แล้วไม่เป็นดังรูป ก็ให้ทำการตรวจสอบ Property ของ Winsock Control ว่าเลือก Protocol เป็น UDP หรือไม่ ส่วนของ โค้ดก็สั้นนิดเดียวเองนะครับ เอาไปประยุกต์ใช้งานกันเองนะครับ เช่น ทำเป็นระบบส่งข้อความภายในองค์กร ถ้าสนใจ หรือ จ้างผมเขียนผมก็ยินดีนะฮะ แล้วพบกันใหม่ กับ 9'M :-P

: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 5,790 ครั้ง)
 

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -


223.205.235.149 ความคิดเห็น #102 (จาก IP: 223.205.235.149)
ใน vb 6 ไม่มี component winsock เลยค่ะ สามารถแอดเพิมยังไงคะ
จากคุณ : ting / akaratp9@gmail.com [2019-09-03 10:31:02]

184.22.213.176 ความคิดเห็น #104 (จาก IP: 184.22.213.176)
ทำการ register ไฟล์ที่ชื่อ mswinsck.ocx วิธีการลองหาจาก google เอานะครับ
มันเก่ามากจำไม่ได้แล้ว
จากคุณ : maddog [2019-09-17 14:05:56]
สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

บันทึกภาพจาก WebCam

เขียนโปรแกรม visual basic 6 แสดงภาพจาก กล้อง WebCam ของคุณ

การ Ping หมายเลข IP

View Source ของเว็บด้วย Inet (Microsoft Internet Tranfer Control)

การเข้าถึงเอกสาร HTML ผ่านทาง WebBrowser Control

Client/Server โดยใช้ UDP ผ่านทาง MS Winsock

โปรแกรม Daytime (ตัวอย่างการใช้ Winsock Control)

การใช้งาน Winsock Control

แสดงสถานะการดาวน์โหลดเว็บเพจ
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th