หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  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
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  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
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
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
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  ด่วน!!! ต้องการคนเขียน App โดย...
2016-01-25 10:56:34
  ผมได้ทำตามคำแนะนำจนสิ้นสุดแล้ว...
2016-01-20 23:30:25
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

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

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

 
 
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,721 ครั้ง)
 

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

สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

บันทึกภาพจาก 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
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

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

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