แจกฟรีโค้ดในการดู Flash Video On line ผ่าน Web Browser (VB6+HTML)

Option Explicit

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    
    ' เปิดหน้าว่างเปล่า (Blank Page) ที่เก็บเอาไว้ใน Folder ของโปรเจคนี้
    ' ประโยชน์ คือ
    ' 1. เปิดโปรแกรมขึ้นมาแล้ว มันจะไม่แสดง Error ให้เห็น
    ' 2. ใช้กับการสร้างเอกสาร HTML แบบ Run Time (ดูที่ปุ่ม cmdUCFlashPage)
    WB.Navigate App.Path & "\Blank.html"
    
End Sub

'---------------------------------------------------------------------------------------------------------
' เป็นการอ่านเอกสาร HTML จาก Server โดยตรง จึงไม่จำเป็นต้องมีไฟล์ HTML มารองรับ
'---------------------------------------------------------------------------------------------------------
Private Sub cmdUCFlashHTML_Click()
    
    ' การอ่านไฟล์เอกสาร HTML จาก Path และ ชื่อไฟล์ที่กำหนดไว้ในเครื่องของเราเอง
    ' นั่นคือ ... นำไปประยุกต์ใช้งานรูปแบบการทำงานในลักษณะ Off Line
    WB.Navigate App.Path & "\TestFlashWeb.html"
    
    ' การจำลอง Server
    'WB.Navigate "http://localhost/g2gnet/UCFlashWeb.html"
    
    ' กรณีที่ไม่ได้จำลอง Server เอาไว้ ให้อ่านข้อมูลจากเว็บไซต์โดยตรง (ทดลองได้เลย)
    'WB.Navigate "http://www.g2gnet.com/UCFlashWeb.html"

End Sub

'---------------------------------------------------------------------------------------------------------
' ก่อนจะใช้งานส่วนนี้ได้ เราจะต้องมีเอกสาร HTML มารองรับก่อน นั่นคือ
' ตรง Form_Load ได้เปิดไฟล์ Blank.html เอาไว้ก่อนล่วงหน้าแล้ว
' (เราสามารถใช้งาน HTML Object Library แทนก็ได้ครับ แต่วิธีการจะยุ่งยาก)
'---------------------------------------------------------------------------------------------------------
Private Sub cmdUCFlashPage_Click()
    Dim HTML As String
    
    ' เคลียร์ค่า HTML
    HTML = ""
    
    ' เวลาที่เราคัดลอก Tag มาใช้งานในกรณีนี้ อย่าลืมต้องเอาเครื่องหมาย Double Quote (")
    ' ที่อยู่ภายในออกไปให้หมดก่อนด้วยล่ะครับ ... อีกทั้งยังต้องเชื่อมต่อ Tag ให้ดีๆด้วย
    ' มันไม่สะดวกเหมือนใช้ HTML โดยตรง แต่จะใช้งานจริงๆในกรณีที่เราเก็บไว้ในระบบฐานข้อมูล
    ' ขอแนะแนวทางล่วงหน้า ... ใช้คำสั่ง (หรือ ฟังค์ชั่น) Replace เข้าช่วยก็ได้ครับ อิอิอิอิอิ
    HTML = _
    "<object classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 " & _
    "codebase=http://fpdownload.macromedia.com/pub/shockwave/" & _
    "cabs/flash/swflash.cab" & _
    "#version=10,0,0,0 width=315 height=300>" & _
    "<param name=movie " & _
    "value=http://tv2.truelife.com/assets/flash/bestplayer.swf?stream_url=" & _
    "http://services.truelife.com/contentEngine/contents/mobile/utf-8/" & _
    "091013160948005.xml&config=" & _
    "http://tv2.truelife.com/assets/flash/config2.xml&contentType=" & _
    "truemusic&smooth=true&playerType=tv&" & _
    "scope=truelife&autoStart=true&e=true></param>" & _
    "<param name=wmode " & _
    "value=transparent>" & _
    "</param>" & _
    "<param name=allowFullScreen " & _
    "value=true>" & _
    "</param></object>"
    
    ' เขียนเอกสาร HTML ลงใน WebBrowser
    WB.Document.write HTML
    
End Sub

Private Sub Form_Resize()
    WB.Move 0, 0, Me.ScaleWidth - cmdUCFlashHTML.Width - 300, Me.ScaleHeight
End Sub

Private Sub cmdExit_Click()
    Set frmUCFlashWeb = Nothing
    End
End Sub