frmconfig.frm

Usb Key loock vb soucrse code. ocx not found

       Me.SSOption2.value = True
       Me.SSOption1.value = False
       Me.SSOption3.value = False
       Else
    End If
    
    If image_type = "type3" Or image_type = UCase("type3") Then '鸥涝捞 3老搁 敲饭浆
       Me.SSOption1.value = False
       Me.SSOption2.value = False
       Me.SSOption3.value = False
       Else
    End If
       
Dim flash_size As String
    flash_size = Readini("USB_LOCK_THEMA", "Teama_flash_size") '敲饭浆 荤捞令
    
    If flash_size = "" Then '汲沥颇老俊 蔼捞 绝栏搁
       Me.SSOption4.value = True
       Me.SSOption6.value = False
    End If
       '扁夯利栏肺 扁夯荤捞令肺 急琶凳
       
    If flash_size = "type1" Or flash_size = UCase("type1") Then 'type1 捞扼搁
       Me.SSOption4.value = True '扁夯 荤捞令
       Me.SSOption6.value = False '傈眉 荤捞令
    End If
    
    If flash_size = "type2" Or flash_size = UCase("type2") Then
       Me.SSOption4.value = False '扁夯 荤捞令
       Me.SSOption6.value = True  '傈眉 荤捞令
    End If
    
Dim music_bangsong_run_type As String '澜厩规价 鸥涝 急琶
    music_bangsong_run_type = Readini("MUSIC_CAST", "MUSIC_BANSONG_TYPE")
    If music_bangsong_run_type = "" Then '父距俊 澜厩规价 鸥涝捞 急琶救登绢乐促搁
       Me.Option1.value = False
       Me.Option2.value = True '焊救矫 澜厩规价捞 累悼救窍绰巴阑 defult 蔼栏肺 急琶
       Me.Option3.value = False
    Else
    End If
    
    If music_bangsong_run_type = "type1" Or music_bangsong_run_type = UCase("type1") Then
       Me.Option1.value = True
       Me.Option2.value = False
       Me.Option3.value = False
    Else
    End If
    
    If music_bangsong_run_type = "type2" Or music_bangsong_run_type = UCase("type2") Then
       Me.Option1.value = False
       Me.Option2.value = True
       Me.Option3.value = False
    Else
    End If
    
    If music_bangsong_run_type = "type3" Or music_bangsong_run_type = UCase("type3") Then
       Me.Option1.value = False
       Me.Option2.value = False
       Me.Option3.value = True
    Else
    End If
    
    
    
Set m_clsSubcls = New cSubclass
     m_clsSubcls.Subclass Me.hwnd, Me
     m_clsSubcls.AddMsg Me.hwnd, WM_DEVICECHANGE
'     '辑宏 努贰胶 积己茄促.
With Me
     .Top = (Screen.Height - .Height) / 2
     .Left = (Screen.Width - .Width) / 2
     EnableCloseButton Me.hwnd, False
End With
'//汽阑 拳搁 吝居俊 坷霸窍绊 辆丰 x 滚畔阑 荤侩给窍霸 茄促.

     
With Me.ShockwaveFlash1
       .Movie = App.Path & "\Graphics\Hanulsoft.swf"
       .Menu = False
       .Play
End With
'//敲饭浆 颇老阑 阂矾柯促. 皋春绰 救焊捞霸 茄促.
     
With Me.ShockwaveFlash2
    .Visible = False
End With

'//扁夯利栏肺 抛付 固府焊扁俊辑 敲饭浆 颇老阑 杭荐绝霸 窍绊
'// 敲饭浆 颇老阑 急琶沁阑锭 焊咯林霸 窍扁困秦辑 visible 汲沥阑 false 肺 窍看促.

Call road_xml_file

Call READ_BASS_DLL

End Sub

Public Sub road_xml_file()
'//肺拿俊辑 澜厩规价 沥焊啊 淬变 xml 颇老阑 阂矾可聪促.
Dim X As XmlLoader.XMLToTree 'xml 肺靛窍绰 dll 阑 急攫窍绊
Set X = New XmlLoader.XMLToTree '弊 按眉甫 劝己拳 矫诺聪促.

Me.TreeView1.Nodes.Clear

If Right$(App.Path, 1) = "\" Then '父距俊 风飘扼绊 窍搁
   If Dir(App.Path & "song.xml") <> "" Then
      X.PlantTree Me.TreeView1, App.Path & "song.xml", , True
    Else
      MsgBox "牢磐齿 澜厩规价 沥焊颇老阑 佬瘤 给沁嚼聪促.", vbCritical, Me.Caption
   End If
Else '父距俊 肺飘啊 酒囱 窍困 弃歹扼搁
   If Dir(App.Path & "\song.xml") <> "" Then
      X.PlantTree Me.TreeView1, App.Path & "\song.xml", , True
   Else
       MsgBox "牢磐齿 澜厩规价 沥焊颇老阑 佬瘤 给沁嚼聪促.", vbCritical, Me.Caption
   End If
End If


Dim treeview_count As Long
For treeview_count = 1 To Me.TreeView1.Nodes.Count
    With Me.TreeView1
                     .Nodes.Item(treeview_count).Expanded = True
                     .Nodes.Item(1).Image = Me.ImageList1.ListImages(12).Key
                    ' .Nodes.Item(treeview_count).Child .Nodes.ExpandedImage = Me.ImageList1.ListImages(3).Key
    End With
Next treeview_count
End Sub



Public Sub READ_BASS_DLL()
 If (Not FileExists(RPP(App.Path) & "bass.dll")) Then '泅 叼泛配府俊 bass.dll 颇老捞 粮犁窍瘤 臼绰促搁
        Call MsgBox("BASS.DLL 颇老捞 绝嚼聪促. 牢磐齿 澜厩规价阑 没秒窍瘤 给钦聪促.", vbCritical, Me.Caption)
 End If
    
 '荤款靛 叼官捞胶甫 茫嚼聪促.
    If (BASS_Init(-1, 44100, 0, Me.hwnd, 0) = 0) Then
        Call Error_("Device 甫 茫阑荐绝嚼聪促.")
    End If

'海捞胶狼 扁夯畸泼蔼 阂矾咳
   Call BASS_SetConfig(BASS_CONFIG_NET_PREBUF, 0)
    cthread = 0
    specpos = 1
    specmode = 1 '胶棋飘烦 葛靛 1
    
    SPECWIDTH = 300
    SPECHEIGHT = 127

    With bH.bmiHeader
        .biSize = Len(bH.bmiHeader)
        .biWidth = SPECWIDTH
        .biHeight = SPECHEIGHT
        .biPlanes = 1
        .biBitCount = 8
        .biClrUsed = 256
        .biClrImportant = 256
    End With

    Dim a As Byte

    '胶棋飘烦 狐房飘甫 汲沥钦聪促.
    For a = 1 To 127
        bH.bmiColors(a).rgbGreen = 255 - 2 * a
        bH.bmiColors(a).rgbRed = 2 * a
    Next a
    For a = 0 To 31
        bH.bmiColors(128 + a).rgbBlue = 8 * a
        bH.bmiColors(128 + 32 + a).rgbBlue = 255
        bH.bmiColors(128 + 32 + a).rgbRed = 8 * a
        bH.bmiColors(128 + 64 + a).rgbRed = 255
        bH.bmiColors(128 + 64 + a).rgbBlue = 8 * (31 - a)
        bH.bmiColors(128 + 64 + a).rgbGreen = 8 * a
        bH.bmiColors(128 + 96 + a).rgbRed = 255
        bH.bmiColors(128 + 96 + a).rgbGreen = 255
        bH.bmiColors(128 + 96 + a).rgbBlue = 8 * a
    Next a
    
    
'胶棋飘烦 官房飘狼 劝己拳甫 困茄 鸥捞赣甫 累悼矫糯
    frmconfig.tmrLiveSpec.Enabled = True

'海捞胶狼 扁夯畸泼蔼 阂矾咳
   Call BASS_SetConfig(BASS_CONFIG_NET_PREBUF, 0)
    cthread = 0
End Sub

Function RPP(ByVal fp As String) As String
On Error Resume Next

    RPP = IIf(Mid(fp, Len(fp), 1) <> "\", fp & "\", fp)
End Function

Public Function FileExists(ByVal fp As String) As Boolean
On Error Resume Next

    FileExists = (Dir(fp) <> "")
End Function




Private Sub SSCommand5_Click() '飘府轰狼 犬厘
On Error Resume Next

Dim i As Integer
For i = 1 To Me.TreeView1.Nodes.Count
        Me.TreeView1.Nodes.Item(i).Expanded = True
    Next i
End Sub

Private Sub SSCommand7_Click() '飘府轰狼 厚犬厘
On Error Resume Next

Dim i As Integer
For i = 1 To Me.TreeView1.Nodes.Count
        Me.TreeView1.Nodes.Item(i).Expanded = False
    Next i
End Sub

Private Sub SSCommand8_Click() '风飘叼泛配府狼 澜厩规价 府胶飘甫 阂矾柯促.
Call road_xml_file
End Sub

Private Sub tmrLiveSpec_Timer() '胶蒲飘抚 鸥捞赣
On Error Resume Next
'Picture1.Visible = False '肺绊拳搁阑 绝局绊
Call UpdateSpectrum '胶蒲飘抚阑 亲惑 诀单捞飘 矫挪促.
End Sub

Private Sub HScroll1_Change()
On Error Resume Next
    picMain.Left = 0 - HScroll1.value
End Sub

Private Sub iSubclass_WndProc(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, ByVal lng_hWnd As Long, ByVal uMsg As eMsg, ByVal wParam As Long, ByVal lParam As Long, lParamUser As Long)
    If uMsg = WM_DEVICECHANGE Then RefreshDriveList
   ' 辑宏努贰胶 - 叼官捞胶 靛扼捞宏狼 蔼捞 函版瞪锭 弊蔼甸阑 府胶飘轰俊 府敲饭浆 秦林扁困茄
   '辑宏 努贰胶捞促.'
End Sub

Private Sub List1_Click()
On Error Resume Next
Dim fn As String
Dim expand_com As String
expand_com = Right(List1.List(List1.ListIndex), 3)
fn = Dir1.Path + "\" + List1.List(List1.ListIndex)
If List1.ListCount = 0 Then
   Else
  '府胶飘冠胶狼 颇老疙阑 努腐窍搁 捞甫 拳搁俊 焊咯淋(弊覆颇老)
  If expand_com = "gif" Or expand_com = UCase("gif") Then
     Picture3.Visible = True
     VScroll1.Visible = True
     HScroll1.Visible = True
     Display_Picture (fn)
    
    VScroll1.min = 0
    VScroll1.max = picMain.Height \ 2
    VScroll1.SmallChange = 10
    VScroll1.LargeChange = picMain.Picture.Height / 10
    
    HScroll1.min = 0
    HScroll1.max = picMain.Width \ 2
    HScroll1.SmallChange = 10
    HScroll1.LargeChange = picMain.Picture.Width / 10
  End If
  
  If expand_com = "swf" Or expand_com = UCase("swf") Then
     Picture3.Visible = False
     VScroll1.Visible = False
     HScroll1.Visible = False
     ShockwaveFlash2.Visible = True
     ShockwaveFlash2.Movie = fn
     ShockwaveFlash2.Play
  End If
End If
End Sub
Private Sub Display_Picture(fn As String)
On Error Resume Next
    picMain.Picture = LoadPicture(fn)
End Sub

Private Sub Option1_Click() '焊救矫 澜厩 累悼
With Option1
     If .value = True Then
        Me.Option2.value = False
        Me.Option3.value = False
        Writeini "music_cast", "Music_bansong_type", "type1"
     Else
     End If
End With
End Sub

Private Sub Option2_Click() '焊救矫 澜厩 固累悼
With Me.Option2
     If .value = True Then
        Me.Option1.value = False
        Me.Option3.value = False
        Writeini "music_cast", "Music_bansong_type", "type2"
     Else
     End If
End With
End Sub

Private Sub Option3_Click() '焊救矫 澜厩磊悼 + 澜厩踌澜
With Me.Option3
     If .value = True Then
        Me.Option1.value = False
        Me.Option2.value = False
        Writeini "music_cast", "Music_bansong_type", "type3"
     Else
     End If
End With
End Sub

Private Sub SSCommand1_Click() '辆丰滚畔
With Me
     .Timer1.Enabled = False
     Unload Me
End With
'//鸥捞赣甫 辆丰秦辑 府家胶甫 酒尝绊. 汽阑 皋葛府俊辑 昏力矫难 府家胶 肚茄 犬焊茄促.
End Sub

Private Sub SSCommand3_Click() '角矫埃 usb 靛扼捞宏 八祸 滚畔
With Me.SSCommand3
     If .Caption = "八祸 橇肺技胶 掺扁" Then '父距俊 母记捞 捞犯促搁
        Me.Timer1.Enabled = False '鸥捞赣甫 辆丰窍绊
        .Caption = "八祸 橇肺技胶 难扁" '母记阑 捞犯霸 官槽饶
        .Picture = Me.ImageList1.ListImages.Item(10).Picture '滚畔狼 捞固瘤甫 阂矾柯促.
     Else '滚畔狼 母记捞 '八祸 橇肺技胶 掺扁啊 酒聪促搁
        Me.Timer1.Enabled = True '鸥捞赣甫 角青窍绊
        .Caption = "八祸 橇肺技胶 掺扁" '母记阑 捞犯霸 官槽饶
        .Picture = Me.ImageList1.ListImages.Item(9).Picture '滚畔狼 捞固瘤甫 阂矾柯促.
    End If
End With
End Sub

Private Sub SSCommand4_Click() '历厘且 叼泛配府甫 急琶钦聪促.
On Error Resume Next
    Dim ReturnValue As String '急琶且 叼泛配府蔼
    ReturnValue = BrowseForFolder(Me.hwnd, "(MP3 饭内爹 颇老 历厘) 叼泛配府 急琶", BIF_DONTGOBELOWDOMAIN) '窃荐 龋免
    If ReturnValue <> "" Then '府畔蔼捞 乐促搁
       If Right$(ReturnValue, 1) = "\" Then '叼泛配府 其摹俊 蝶弗 "\" 瘤沥
              ReturnValue = ReturnValue
       Else
              ReturnValue = ReturnValue + "\"
       End If
    SSPanel6.Caption = ReturnValue  '府畔蔼阑 咆胶飘 冠胶俊 肺爹
    Writeini "m