#Region "Imports"
Option Explicit On
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Net
Imports Un4seen.Bass
#End Region
Public Class Form2
 
    Public Stream As Integer
    Public fx(19) As Integer
    Private S As New AudioMixerHelper
 
#Region "' benötigte API-Deklarationen"
    Private Property hWnd As Long
    ' benötigte API-Deklarationen
    Private Declare Function GetAsyncKeyState Lib "user32" ( _
      ByVal vKey As Integer) As Short
    Private Declare Sub keybd_event Lib "user32" ( _
      ByVal bVk As Byte, _
      ByVal bScan As Byte, _
      ByVal dwFlags As Integer, _
      ByVal dwExtraInfo As Integer)
 
    Const KEYEVENTF_KEYUP As Integer = &H2
    Const VK_ESCAPE As Integer = &H1B
    Const VK_LWIN As Integer = &H5B
    Const VK_RWIN As Integer = &H5C
    Public peak(2) As Single
 
#End Region
 
#Region "Equalizer_Load"
    Private Sub Equalizer_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Bass.BASS_Init(-1, 192000, BASSInit.BASS_DEVICE_CPSPEAKERS, _
          IntPtr.Zero, Nothing)
 
        Dim eq As New EqualizerClass
 
        eq.EQ_Int()
        eq.EQ_Load()
 
    End Sub
#End Region
 
#Region "TrackBar1_Scroll"
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
 
        TrackBar1.Text = IIf(0 < 3, 10 - TrackBar1.Value, 20 - TrackBar1.Value)
        Dim p As New BASS_DX8_PARAMEQ
        Bass.BASS_FXGetParameters(fx(0), p)
        p.fGain = TrackBar1.Value
        Bass.BASS_FXSetParameters(fx(0), p)
 
    End Sub
 
 
    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar2.Scroll
 
        TrackBar2.Text = IIf(0 < 3, 10 - TrackBar2.Value, 20 - TrackBar2.Value)
        Dim p As New BASS_DX8_PARAMEQ
        Bass.BASS_FXGetParameters(fx(1), p)
        p.fGain = TrackBar2.Value
        Bass.BASS_FXSetParameters(fx(1), p)
 
    End Sub
 
 
#Region "Button1_Click"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim instance As New Form1
        instance.Show(Me)
        Close()
    End Sub
#End Region
 
#Region "Public Class AudioMixerHelper"
    Public Class AudioMixerHelper
        Private Const MMSYSERR_NOERROR As Integer = 0
        Private Const MAXPNAMELEN As Integer = 32
        Private Const MIXER_LONG_NAME_CHARS As Integer = 64
        Private Const MIXER_SHORT_NAME_CHARS As Integer = 16
        Private Const MIXER_GETLINEINFOF_COMPONENTTYPE As Integer = &H3
        Private Const MIXER_GETCONTROLDETAILSF_VALUE As Integer = &H0
        Private Const MIXER_GETLINECONTROLSF_ONEBYTYPE As Integer = &H2
        Private Const MIXER_SETCONTROLDETAILSF_VALUE As Integer = &H0
        Private Const MIXERLINE_COMPONENTTYPE_DST_FIRST As Integer = &H0
        Private Const MIXERLINE_COMPONENTTYPE_SRC_FIRST As Integer = &H1000
        Private Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS As Integer = _
          MIXERLINE_COMPONENTTYPE_DST_FIRST + 4
            Private Structure MIXERCONTROL
            Public cbStruct As Integer
            Public dwControlID As Integer
            Public dwControlType As Integer
            Public fdwControl As Integer
            Public cMultipleItems As Integer
            <MarshalAs(UnmanagedType.ByValTStr, _
              SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String
            <MarshalAs(UnmanagedType.ByValTStr, _
            SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String
            Public lMinimum As Integer
            Public lMaximum As Integer
            <MarshalAs(UnmanagedType.U4, SizeConst:=10)> Public reserved As _
              Integer
        End Structure 'MIXERCONTROL
 
            End If
 
            mixerClose(mixer)
 
        End Sub 'SetVolume
 
    End Class 'AudioMixerHelper
 
#End Region
 
 
End Class