📄 frmnet.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form frmNet
BorderStyle = 0 'None
Caption = "Form4"
ClientHeight = 6450
ClientLeft = 8280
ClientTop = 3390
ClientWidth = 8145
LinkTopic = "Form4"
ScaleHeight = 6450
ScaleWidth = 8145
ShowInTaskbar = 0 'False
Begin VB.Timer Timer1
Interval = 3000
Left = 3480
Top = 4440
End
Begin SHDocVwCtl.WebBrowser webNet
Height = 3375
Left = 120
TabIndex = 0
Top = 360
Width = 5895
ExtentX = 10398
ExtentY = 5953
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.Image T1
Height = 165
Left = 1660
Picture = "frmNet.frx":0000
Top = 120
Width = 165
End
Begin VB.Image I1
Height = 165
Left = 1440
Picture = "frmNet.frx":01D0
Top = 120
Width = 165
End
Begin VB.Image bg
Height = 255
Left = 120
Picture = "frmNet.frx":03A0
Stretch = -1 'True
Top = 360
Width = 255
End
Begin VB.Image skins
Height = 360
Index = 3
Left = 0
Picture = "frmNet.frx":0584
Stretch = -1 'True
Top = 360
Width = 105
End
Begin VB.Image skins
Height = 120
Index = 4
Left = 1800
Picture = "frmNet.frx":0700
Stretch = -1 'True
Top = 360
Width = 120
End
Begin VB.Image skins
Height = 300
Index = 7
Left = 1920
Picture = "frmNet.frx":08AC
Top = 3960
Width = 255
End
Begin VB.Image skins
Height = 300
Index = 6
Left = 120
Picture = "frmNet.frx":0D00
Stretch = -1 'True
Top = 3960
Width = 1875
End
Begin VB.Image skins
Height = 300
Index = 5
Left = 0
Picture = "frmNet.frx":0D94
Top = 3960
Width = 105
End
Begin VB.Image skins
Height = 375
Index = 2
Left = 1320
Picture = "frmNet.frx":0FB8
Top = 0
Width = 600
End
Begin VB.Image skins
Height = 375
Index = 1
Left = 720
Picture = "frmNet.frx":1BB4
Stretch = -1 'True
Top = 0
Width = 615
End
Begin VB.Image skins
Height = 375
Index = 0
Left = 0
Picture = "frmNet.frx":1C5C
Top = 0
Width = 810
End
Begin VB.Image T2
Height = 165
Left = 2160
Picture = "frmNet.frx":2CA4
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image T3
Height = 165
Left = 2400
Picture = "frmNet.frx":2E74
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image T4
Height = 165
Left = 2640
Picture = "frmNet.frx":3044
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image I2
Height = 165
Left = 3000
Picture = "frmNet.frx":3214
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image I3
Height = 165
Left = 3240
Picture = "frmNet.frx":33E2
Top = 120
Visible = 0 'False
Width = 165
End
End
Attribute VB_Name = "frmNet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/03/15
'描 述：网页搜索音乐播放器 Ver 1.1.0
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
Me.Top = frmMain.Top + 20
Me.Left = frmMain.Left + frmMain.Width
MOVL(1) = True
webNet.Navigate "http://www.inodea.cn/imusic/search.html"
'开始监控是否有网页添加歌曲
Timer1.Enabled = True
End Sub
Private Sub Form_Resize()
'定义背景
skins(0).Move 0, 0, skins(0).Width, skins(0).Height
skins(1).Move skins(0).Width, 0, Me.Width - (skins(0).Width + skins(2).Width), skins(1).Height
skins(2).Move skins(1).Width + skins(0).Width, 0, skins(2).Width, skins(2).Height
skins(3).Move 0, skins(0).Height, skins(3).Width, Me.Height - (skins(0).Height + skins(5).Height)
skins(4).Move Me.Width - skins(4).Width, skins(0).Height, skins(4).Width, Me.Height - (skins(2).Height + skins(7).Height)
skins(5).Move 0, Me.Height - skins(5).Height, skins(5).Width, skins(5).Height
skins(6).Move skins(5).Width, Me.Height - skins(6).Height, Me.Width - (skins(5).Width + skins(7).Width), skins(6).Height
skins(7).Move Me.Width - skins(7).Width, Me.Height - skins(7).Height, skins(7).Width, skins(5).Height
T1.Left = skins(2).Left + 350
I1.Left = skins(2).Left + 100
webNet.Move skins(3).Width, skins(1).Height, Me.Width - (skins(3).Width + skins(5).Width), Me.Height - (skins(1).Height + skins(6).Height)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'结束监控
Timer1.Enabled = False
End Sub
Private Sub skins_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then X1 = X: Y1 = Y
End Sub
Private Sub skins_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'窗口大小
On Error Resume Next
If Button = 1 Then
Select Case Index
Case 0, 1, 2
Me.Top = Me.Top + Y - Y1: Me.Left = Me.Left + X - X1
' Case 7
' If Me.Height > 2880 Then
' Me.Height = Me.Height + Y
' Else
' Me.Height = 3000
' End If
' If Me.Width > 2880 Then
' Me.Width = Me.Width + X
'
' Else
' Me.Width = 3000
' End If
End Select
End If
T1.Picture = T2.Picture
End Sub
Private Sub skins_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Top < frmMain.Top + 300 And Me.Top > frmMain.Top - 300 And Me.Left > frmMain.Left + frmMain.Width - 300 And Me.Left < frmMain.Left + frmMain.Width + 300 Then
Me.Top = frmMain.Top + 20
Me.Left = frmMain.Left + frmMain.Width
MOVL(1) = True '播放列表 与 主窗体 移动
Else
MOVL(1) = False
End If
End Sub
Private Sub T1_Click()
Me.Hide
End Sub
Private Sub T1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
T1.Picture = T3.Picture
End Sub
Private Sub T1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
T1.Picture = T4.Picture
End Sub
'判断是否有添加歌曲
'DIV
'title=标题
'URL=路径
'Artist歌手
Private Sub Timer1_Timer()
If webNet.ReadyState = READYSTATE_COMPLETE Then
Dim vDoc
Dim tagCount, I As Integer
Dim tagTmp As String
Dim tagArr() As String
Dim toPlay As Boolean
Set vDoc = webNet.Document.All
tagCount = vDoc.Length
'搜索是否有添加,返回格式 title<>Artist<>url<>toPlay
For I = 0 To tagCount - 1
If UCase(vDoc.Item(I).tagName) = "DIV" Then
tagTmp = vDoc.Item(I).innerText
If tagTmp <> "" Then
tagArr = Split(tagTmp, "<>")
If tagArr(3) = "true" Then
toPlay = True
Else
toPlay = False
End If
'添加到播放列表
addMusic frmList.playlist.itemCount, tagArr(0), tagArr(1), "00:00", tagArr(2), toPlay
'添加完清空
vDoc.Item(I).innerText = ""
Exit For
End If
End If
Next
Set vDoc = Nothing
End If
End Sub
Private Sub webNet_DownloadBegin()
webNet.Silent = True
End Sub
Private Sub webNet_DownloadComplete()
webNet.Silent = True
End Sub
'去掉关闭软件出错
Private Sub webNet_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
Cancel = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -