ขอแนวคิดการสร้างโปรแกรมในรูปแบบนี้หน่อยนะครับ

คือผมเองตั้งที่จะทำโปรแกรม Karaoke ขึ้นมาใช้งานเลยลองศึกษาหาข้อมูล
ทั้งไทยและเทศจนตอนนี้โปรแกรมเองก็ค่อยๆเดินหน้าไปเลยๆแต่ก็ยังไม่ใช่ที่ต้องการและยังขาดสิ่งสำคัญ
ในโปรแกรมอยู่หลายจุด เหอะเหอะ เลยอยากจะมาขอคำแนะนำจากท่านทั้งหลายหน่อยนะครับ
พอดีเจอโปรแกรมตามร้าน Karaoke เขามีรูปแบบการแสดงผล แบบนี้

คือหน้าทางคอมที่ให้ผู้ใช้ใช้งานในการเลือกเพลงนั้น 
จะมี หน้าจอของการแสดง Video เพลงที่เล่นอยู่ด้วยไปพร้อมกับ จอทางTV ที่ต่อการแสดงผลออกไปด้วย
 ลองทำมาได้แค่แสดงผลได้อันเดียว สองอันทำไม่ได้ ซะที ครับ 

ผมใช้ Picturebox ในการแสดงผล Video ผ่านทาง Function mciSendString Lib "winmm.dll" ครับ
 เลยอยากทราบว่าพอจะทำให้ การแสดงผลผ่าน Picturebox ทำแบบในรูปได้หรือเปล่าครับ

และอีกข้อที่ผมยังทำไม่ได้เลย คือการ ตัดเสียงครับ ไม่ทราบว่าพอจะแนะนำให้ได้ หรือเปล่าครับ
 ตัดแบบ Karaoke ที่แยก เสียงร้องออกได้ และกดให้เสียงร้องกลับมาได้ 
อันนี้ พยายามหามานานล่ะครับ ยังไม่เจอที่ต้องการเลย

ที่ปรึกษาของท่าน คือ ทุกๆคนที่มีความรู้ความสามารถ ไม่ใช่ผมคนเดียว ขอบคุณในความประทับใจของท่าน

ช่วยๆกันตอบนะครับ ไม่ใช่รอคำตอบจากผมเท่านั้น

PictureBox มีไว้ใช้แสดงผล Graphic Image ไม่สามารถแสดงผล Video ได้
เพราะไม่ซัพพอร์ท Type แต่อาจใช้แสดงผลตัวอักษรเนื้อร้องได้ (Draw Image)
ถ้าต้องการแสดงผล Video ต้องใช้ Media Player (Com.net) หรือ อื่นๆที่ซัพพอร์ท Video Type (สกุลไฟล์)
----------------------------------------------------------------------------------------------------------------
Download: Karaoke Cafe โปรดรอ..

Example: On TV

โค๊ด: [Select]

Public Class Form1
    Private fLeft, fTop, fWidth, fHeight As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fLeft = My.Computer.Screen.WorkingArea.X
        fTop = My.Computer.Screen.WorkingArea.Y
        fWidth = My.Computer.Screen.WorkingArea.Width
        fHeight = My.Computer.Screen.WorkingArea.Height
        Me.Bounds = New Rectangle(fLeft - 20, fTop - 30, fWidth + 50, fHeight + 50)
        'Label1.Location = New Point(fLeft + 945, fTop + 280)
        Label1.Location = New Point(fLeft + 945, fTop + 40)
        AxWindowsMediaPlayer1.Bounds = New Rectangle(fLeft + 715, fTop + 20, fWidth / 3 - 50, fHeight / 3 + 35)
        AxWindowsMediaPlayer1.Location = New Point(fLeft + 715, fTop - 220)
    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        OpenFileDialog1.FileName = Nothing
        OpenFileDialog1.Filter = "Media File(*.mp3;*.dat)|*.mp3;*.dat|All File(*.*)|*.*"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim mediaFile As String = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.URL = mediaFile
            OpenFileDialog1.FileName = Nothing
            AxWindowsMediaPlayer1.Bounds = New Rectangle(fLeft + 715, fTop + 20, fWidth / 3 - 50, fHeight / 3 + 35)
            Label1.Location = New Point(fLeft + 945, fTop + 280)
        End If
    End Sub
    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        ContextMenuStrip1.Items.Clear()
        ContextMenuStrip1.Items.Add("Exit")
        e.Cancel = False
    End Sub
    Private Sub ContextMenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuStrip1.ItemClicked
        If e.ClickedItem.Text = "Exit" Then
            Me.Close()
        End If
    End Sub
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim TextFont As New System.Drawing.Font("Arial", 24, FontStyle.Bold)
        Dim TextBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Red)
        e.Graphics.DrawString("RightClick to quit", TextFont, TextBrush, 300, 300)
        TextFont.Dispose()
        TextBrush.Dispose()
    End Sub
End Class

ขอบคุณครับกลับแนวทางนี้ ผมจะลองนำไปเป็นแนวทางในการพัฒนาโปรแกรมต่อไปครับ

เข้าใจว่า BASS.dll ถูกเขียนขึ้นด้วยภาษา C++ ซึ่งจะไม่สามารถถอดรหัสไฟล์ได้

เลยไม่รู้ว่าเขียนขึ้นด้วยพื้นฐานคำสั่งใดของวินโดว์

ก็ได้แต่เรียกใช้งานฟังก์ชั่นคำสั่งที่เขียนไว้ให้ใช้เท่านั้น

ถ้าเขียนหรือสร้างไฟล์ dll ด้วยภาษา VB.net หรือ C# จะสามารถถอดรหัสไฟล์ได้

=======================================================================
=======================================================================

How to use libZPlay with Visual Basic .NET

=======================================================================
=======================================================================

1. Add libZPlay.vb to your solution/project.

   Add->Existing Item... ->libZPlay.vb

=======================================================================


2. Add reference to System.Drawing if not included yet.
   
   Add Reference-> .NET ->System.Drawing

=======================================================================


3. Include libZPlay namespace into your source code

   Imports MyApplication.libZPlay

=======================================================================


4. Create ZPlay class.

   Dim player As New ZPlay()

=======================================================================


5. Open file.

   If player.OpenFile("test.mp3", TStreamFormat.sfAutodetect) = False Then
     '' error
   End If

=======================================================================


6. Start playing

   player.StartPlayback()

=======================================================================


7. At the end destroy ZPlay class (by garbage collector or manually).


=======================================================================
NOTE:
=======================================================================

You must distribute libzplay.dll with your application.

1. เขาบอกว่าให้นำคำสั่งที่เขียนเป็น Class.vb ไว้แล้ว เข้ามาใน Project (Form Application) ของท่านที่กำลังเริ่มต้นสร้าง

หมายถึง ให้ท่านสร้างฟอร์มขึ้นมาก่อน จากนั้นให้ท่านนำเข้าหรือติดตั้ง Class.vb ที่เขียนเตรียมไว้แล้วเข้าไป (ไม่ใช่สร้างคลาสใหม่)

2. ถ้าใน Referents ไม่มีคำสั่ง System Drawing ก็ให้นำคำสั่งนี้ออกมาใช้งาน

3. ที่หัว Class Form ให้อ้างคำสั่ง  Imports MyApplication.libZPlay ด้วย

ไม่งั้น จะไม่สามารถเชื่อมต่อคำสั่งระหว่าง ClassForm และ ClassLip ได้

4 ,5, 6. เขียนคำสั่งเรียกใช้งาน ClassLip

อย่าลืมนำไฟล์ Dll เข้าไปวางไว้ใน debug folder ด้วยนะครับ หรือ referents ได้ก็ referents เข้าไป

เท่าที่เห็น เขามักจะเขียน Class.vb เรียกใช้งาน ไฟล์ wmp.dll ที่อยู่ใน System32 ออกมาใช้งาน

ถ้าท่านรู้โครงสร้างคำสั่งที่อยู่ในไฟล์  wmp.dll ท่านจะสามารถสร้างโปรแกรม เลียนแบบอินเทอร์เฟส Windows Media Player ได้สบาย

เสียดายที่โปรแกรม Media Player ต่างๆ มักเขียนขึ้นด้วยภาษา C# ซึ่งค่อนข้างเขียนและทำความเข้าใจยาก

เวลาที่ผม Decompile เป็น VB.net มักจะมี Error! ให้ต้องแก้ไขมากมาย แก้ได้บ้าง ไม่ได้บ้าง

อันนี้ผมถอดรหัสไฟล์ WMPLib.dll นำฟังก์ชั่นคำสั่งออกมาใช้บางส่วน
และใช้เวลาเขียนออกมาเป็นโปรแกรมสำหรับฟังเพลง ในเวลาไม่นานนัก
ท่านลองนำไปศึกษาดู ติดขัดตรงไหนก็โฟสท์ถาม

WMP Player

โค๊ด: [Select]

Public Class Form1
    Private button1 As New System.Windows.Forms.Button
    Private button2 As New System.Windows.Forms.Button
    Private button3 As New System.Windows.Forms.Button
    Private fdlg As New System.Windows.Forms.OpenFileDialog
    Private label1 As New System.Windows.Forms.Label
    Private label2 As New System.Windows.Forms.Label
    Private label3 As New System.Windows.Forms.Label
    Private label4 As New System.Windows.Forms.Label
    Private label5 As New System.Windows.Forms.Label
    Private media As New WMPLib.WindowsMediaPlayer
    Private timer1 As New System.Windows.Forms.Timer
    Private fileName As String
    Public Sub New()
        InitializeComponent()
        Me.CenterToScreen()
        Me.Size = New Size(300, 170)
        Me.Text = "WMP Player"
        Me.MaximizeBox = False
        Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
        button1.Text = "Open"
        button2.Text = "Pause"
        button3.Text = "Stop"
        button1.Cursor = Cursors.Hand
        button2.Cursor = Cursors.Hand
        button3.Cursor = Cursors.Hand
        label1.Text = "00:00"
        label2.Text = "00:00"
        label3.Text = "No Song"
        label4.Text = "Stopped"
        label5.Text = "0%"
        button1.Location = New System.Drawing.Point(27, 100)
        button2.Location = New System.Drawing.Point(107, 100)
        button3.Location = New System.Drawing.Point(187, 100)
        label1.Location = New System.Drawing.Point(30, 10)
        label2.Location = New System.Drawing.Point(225, 10)
        label3.Location = New System.Drawing.Point(90, 43)
        label4.Location = New System.Drawing.Point(110, 68)
        label5.Location = New System.Drawing.Point(130, 10)
        Me.Controls.AddRange(New Control() _
                            {button1, button2, button3, _
                             label1, label2, label3, label4, label5})
        AddHandler button1.Click, AddressOf Button1_Click
        AddHandler Button2.Click, AddressOf Button2_Click
        AddHandler button3.Click, AddressOf Button3_Click
        AddHandler timer1.Tick, AddressOf Timer1_Tick
        timer1.Enabled = False
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Button2.Text = "Resume" Then Button2.Text = "Pause"
        LoadPlaySound()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SoundPause()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If button2.Text = "Resume" Then button2.Text = "Pause"
        SoundStop()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        label1.Text = media.currentMedia.durationString
        label2.Text = media.controls.currentPositionString
        label5.Text = Math.Round((media.controls.currentPosition / media.currentMedia.duration) * 100, 0) & "%"
        Select Case media.playState
            Case WMPLib.WMPPlayState.wmppsPlaying
                label4.Text = "Playing.."
            Case WMPLib.WMPPlayState.wmppsPaused
                label4.Text = "Paused"
            Case WMPLib.WMPPlayState.wmppsStopped
                label2.Text = "00:00"
                label4.Text = "Song end"
                label5.Text = "0%"
        End Select
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If timer1.Enabled = True Then timer1.Enabled = False
        media.close()
    End Sub
    Public Sub LoadPlaySound()
        Select Case button1.Text
            Case "Open"
                fdlg.FileName = ""
                fdlg.Filter = "Media Files(*.mp3;*.wav)|*.mp3;*.wav|All files(*.*)|*.*"
                If fdlg.ShowDialog = Windows.Forms.DialogResult.OK Then
                    fileName = fdlg.FileName
                    button1.Text = "Play"
                    label3.Text = My.Computer.FileSystem.GetName(fileName)
                End If
            Case "Play"
                media.URL = fileName
                timer1.Enabled = True
        End Select
    End Sub
   Public Sub SoundPause()
        Select Case button2.Text
            Case "Pause"
                If media.playState = WMPLib.WMPPlayState.wmppsPlaying Then
                    media.controls.pause()
                    button2.Text = "Resume"
                End If
            Case "Resume"
                If media.playState = WMPLib.WMPPlayState.wmppsPaused Then
                    media.controls.play()
                    button2.Text = "Pause"
                End If
        End Select
    End Sub
    Public Sub SoundStop()
        Select Case media.playState
            Case WMPLib.WMPPlayState.wmppsPaused
                label2.Text = "00:00"
                label4.Text = "Stopped"
                label5.Text = "0%"
                button1.Text = "Open"
                timer1.Enabled = False
            Case WMPLib.WMPPlayState.wmppsPlaying
                media.controls.stop()
                label2.Text = "00:00"
                label4.Text = "Stopped"
                label5.Text = "0%"
                button1.Text = "Open"
                timer1.Enabled = False
            Case WMPLib.WMPPlayState.wmppsStopped
                If label4.Text = "Stopped" Then
                    label2.Text = "00:00"
                    label5.Text = "0%"
                    timer1.Enabled = False
                End If
        End Select
    End Sub
End Class

เดี๋ยวจะถอดรหัสไฟล์สกุล *.exe หาสกิน template สวยๆมาฝาก ตอนนี้อยู่ในระหว่างการทดลองถอด-ประกอบชิ้นส่วนต่างๆ

ถอด ประกอบรถชัดๆเลยงานนี้  อิอิ ผมเองเคยลองใช้พวกโปรแกรม VB RezQ โปรแกรมดู code .exe อะไรประมาณนี้ล่ะครับ แต่ไม่รู้เรื่องเอาซะเลยครับ งง มากไม่รู้ว่าที่ได้มามันคืออะไร
ได้ form ได้ โครงสร้างนั้นโน้นนี้แต่แต่ Code ที่ได้ เหมือนไม่ใช่ภาษา vb เอาซะเลย เหอะเหอะ ใช้เกือบได้บอกขาดนั้นเดียวว่าขาดนี้ รันได้ทำงานได้บ้างไม่ได้บ้าง เหอะเหอะ