(舊) 네이버 뮤직핵

예전 Naver Music Player 핵입니다.

현재는 네이버가 웹플레이(Flash)방법으로 바꿔 이방법은 먹히지 않네요..

WriteINIValue App.Path & "\NaverPlayer.ini", "PATH", "SONGINFOPATH", "http://localhost:8280/$SONGID$"

Dim PBI As String


Private Sub Form_Load()
Shell "explorer http://music.naver.com/", vbNormalFocus


Wsk.LocalPort = 8280
Wsk.Listen

WriteINIValue App.Path & "\NaverPlayer.ini", "PATH", "SONGINFOPATH", "http://localhost:8280/$SONGID$"
End Sub

Private Sub Image1_Click()
frmInfor.Show

End Sub

Private Sub Wsk_ConnectionRequest(ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID

End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim rtVal As String, SongInfor As String
Wsk.GetData rtVal '  GET /176038_1_01 HTTP/1.1

rtVal = Mid(rtVal, 6, Len(rtVal))
rtVal = Left(rtVal, InStr(rtVal, " ") - 1)

Dim nHt As New WinHttp.WinHttpRequest

nHt.Option(WinHttpRequestOption_URLCodePage) = 949
nHt.Open "GET", "http://npis.mnet.com/ISZone/PlayBackInfo_Lst.asp?sid=" & rtVal, "true"
nHt.Send
nHt.WaitForResponse

SongInfor = nHt.ResponseText


SongInfor = Replace(SongInfor, "free=" & Chr(34) & "0" & Chr(34), "free=" & Chr(34) & "1" & Chr(34))
SongInfor = Replace(SongInfor, "title=" & Chr(34), "title=" & Chr(34) & "[하앍]")


Wsk.SendData SongInfor

'http://npis.mnet.com/ISZone/PlayBackInfo_Lst.asp?sid=

End Sub

Private Sub Wsk_SendComplete()
Wsk.Close
Wsk.Listen

End Sub