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

สวัสดีครับ เพื่อนๆพี่ๆน้องๆ ทุกท่านที่เป็นแฟนประจำ ของทางเว็บ Sourcecode in Thailand และท่านอื่นๆที่ผ่านเข้ามา เป็นครั้งแรก ตัวผมมีความยินดีเป็นอันมากครับ ที่เห็นว่ายอดของผู้ที่เข้ามาอ่านบทความ มี การเพิ่มขึ้นเป็นลำดับ พร้อมทั้ง มีการ ให้การสนับสนุน Sponser ของทางเว็บเราด้วยดี ซึ่งสิ่งนี้หละครับ เป็นกำลังให้ตัวกระผม ในการนำเรื่องต่างๆ ที่เคยศึกษา มาบอกเล่าเก้าสิบ กับทุกท่าน หวังว่าทุกท่านคงจะช่วยให้ทางเว็บเราอยู่ได้ต่อไป เพราะมิฉะนั้น ตัวกระผมคงหมดกำลังใจ ในการพัฒนาเว็บต่อเป็นแน่แท้

เรื่องบทความต่างๆ ที่กระผมมีอยู่ก็มากพอสมควรครับ แต่ที่ออกมาเดือนละ 2-5 บทความ ก็เป็นเพราะต้องหาเวลาว่าง จากงานประจำ ใช้เวลาที่นั่งรถ พนักงานเดินทางไปกลับในการเขียน โดยมีเจ้า Presario 700 คู่ชีพ ที่ถอยออกมา เป็นเครื่องมือในการถ่ายทอด ออกมาเป็นบทความให้ท่านได้อ่านกัน

เอาละครับผมว่าเรามาเริ่มกันในเรื่อง Inet (Microsoft Internet Transfer Control) ที่เราจะใช้กันดีกว่าครับ , Inet เป็น Control นึง ที่มีความสามารถทางด้าน Internet ซึ่งตัวมันจะติดต่อกับ Protocol (ถ้ายังไม่ทราบเรื่อง Protocol ให้กลับไปอ่าน บทความแรกๆ ของผม) ต่างๆ อันได้แก่ HTTP, FTP และ Gopher ซึ่งที่ผมจะกล่าวและใช้ในบทความนี้คือ HTTP (HyperText Tranfer Protocol) ที่เราใช้ในการเปิดเว็บต่างๆ โดยผ่านทาง Web Browser ต่างๆ(เช่น IE, Netscape, Opera และอื่นๆ)

ในความเป็นจริงแล้ว เมื่อเราทำการพิมพ์ URL ของเว็บที่ต้องการ และทำการกด Enter ตัวของ WebBrowser จะทำการร้องขอข้อมูล จาก Web Server และ รับข้อมูลจาก Web Server ดังกล่าว โดยใช้ HTTP ครับ

งานนี้ก็มาถึงตัวอย่างที่เราจะสร้างกันนะครับ โปรแกรมตัวอย่างนี้จะใช้ Inet เพื่อดึงข้อมูล มาแสดงโดยมี Textbox เป็นตัวแสดงผล เริ่มต้นด้วยการเปิด Visual basic แล้วเลือกสร้าง โปรเจ็คแบบ Standart EXE และทำการเพิ่ม Inet Component โดยเลือกกจากเมนู Project->Components จะปรากฎหน้าต่าง Components ให้ทำการคลิกเลือก Microsoft Internet Transfer Components ดังรูป

ให้สังเกตุที่ ToolBox จะมี Inet Component เพิ่มเข้ามา ดังรูป

ต่อไปให้คุณทำการเลือก Component ต่างๆ วางบน Form1อันได้แก่ Textbox 2 อัน, Command 1 อัน และ Inet 1 อัน พร้อมกับกำหนด MultiLine Property ของ Textbox1 ให้เป็น True ,ทำการวางตำแหน่ง Component ดังรูป

ทำการกำหนด Text Property ของ Textbox1 และ Textbox2 เป็นค่าว่าง, กำหนด Caption Property ของ Command1 ให้เป็นคำว่า Send หลังจากนั้น ให้คุณทำการหน้าต่าง Code แล้วทำการคัดลอก Code ต่อไปนี้ ใส่ลงไป

'*****
'Sourcecode writen by 9M
'*****


Private Sub Command1_Click()
  Dim b() As Byte
  Dim txt As String

  On Error GoTo ErrorHandler
  Text1.Text = Inet1.OpenURL(Text2.Text, icString)
  Exit Sub

ErrorHandler:
   MsgBox "The document you requested could not be found.", vbCritical

End Sub

ให้ทดสอบการรันโปรแกรม โดยกดปุ่ม F5 แล้วทำการป้อน URL ของเว็บที่คุณต้องการ , กด ปุ่ม Send แล้วรอดูผลการทำงาน

ทิ้งท้าย

ความสามาถของ Inet Control ไม่ได้มีเพียงเท่าที่ผมนำเสนอไปนะครับ มันยังมีความสามารถด้าน FTP(File Transfer Protocol) และ Gopher รวมทั้ง HTTPS ซึ่งมีความน่าสนใจ ซึ่งผมจะได้นำเสนอในโอกาส หน้า แล้วพบกันใหม่กับ 9M

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