알송의 가사 가져오는 코드

Programming/Visual Basic 2017. 5. 13. 20:31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
Imports System.Text
Imports System.Net
Imports System.IO
Imports System.Xml
Imports System.Security
 
Module ParseAlSong
    Private Const URL As String = "http://lyrics.alsong.co.kr/alsongwebservice/service1.asmx"
 
    Private Const SendXML As String =
        "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf &
        "<SOAP-ENV:Envelope " &
            "xmlns:SOAP-ENV=""http://www.w3.org/2003/05/soap-envelope"" " &
            "xmlns:SOAP-ENC=""http://www.w3.org/2003/05/soap-encoding"" " &
            "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " &
            "xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" " &
            "xmlns:ns2=""ALSongWebServer/Service1Soap"" " &
            "xmlns:ns1=""ALSongWebServer"" " &
            "xmlns:ns3=""ALSongWebServer/Service1Soap12"">" & vbCrLf &
        "  <SOAP-ENV:Body>" & vbCrLf &
        "    <ns1:GetLyric5><ns1:stQuery>" & vbCrLf &
        "    <ns1:strChecksum>{0}</ns1:strChecksum>" & vbCrLf &
        "    <ns1:strVersion></ns1:strVersion>" & vbCrLf &
        "    <ns1:strMACAddress></ns1:strMACAddress>" & vbCrLf &
        "    <ns1:strIPAddress></ns1:strIPAddress>" & vbCrLf &
        "    </ns1:stQuery></ns1:GetLyric5>" & vbCrLf &
        "  </SOAP-ENV:Body>" & vbCrLf &
        "</SOAP-ENV:Envelope>"
 
    Public Structure AlSongInfo
        Dim ID As Integer
        Dim RegistDate As Date
        Dim Title As String
        Dim Artist As String
        Dim Album As String
        Dim CGood As Integer
        Dim CBad As Integer
        Dim Lyric As String
        Dim FirstRegister As AlSongRegister
        Dim CurrentRegister As AlSongRegister
    End Structure
 
    Public Structure AlSongRegister
        Dim Name As String
        Dim eMail As String
        Dim URL As String
        Dim Phone As String
        Dim Comment As String
    End Structure
 
    Public Function GetMP3Info(FileName As StringAs AlSongInfo
        Using FS = New FileStream(FileName, FileMode.Open, FileAccess.Read)
            Return GetMP3Info(FS)
        End Using
    End Function
 
    Public Function GetMP3Info(Stream As Stream) As AlSongInfo
        '오디오 프레임에서 163840 바이트를 읽어 해시 값을 구함
        '해당 코드에서는 NuGet의 ID3를 사용함
        Const SampleSize As Integer = 163840
        Dim MD5 = Cryptography.MD5.Create()
        Dim Hash() As Byte
        Using MP3 As New Id3.Mp3Stream(Stream)
            Hash = MD5.ComputeHash(MP3.GetAudioStream(), 0, SampleSize)
        End Using
        Return GetInfo(BitConverter.ToString(Hash).Replace("-""").ToLower())
    End Function
 
    Public Function GetInfo(Checksum As StringAs AlSongInfo
        Dim Request = HttpWebRequest.CreateHttp(URL)
        Request.KeepAlive = False
        Request.Method = "POST"
        Request.UserAgent = "gSOAP/2.7"
        Request.ContentType = "application/soap+xml; charset=utf-8"
        Request.Headers.Add("SOAPAction""""ALSongWebServer/GetLyric5""")
        Using Stream = Request.GetRequestStream()
            WriteStream(Stream, Checksum)
        End Using
        Using Response = Request.GetResponse()
            Using Stream = Response.GetResponseStream()
                Return ParseStream(Stream)
            End Using
        End Using
    End Function
 
 
    Private Sub WriteStream(Stream As Stream, Checksum As String)
        Dim XML = Encoding.UTF8.GetBytes(String.Format(SendXML, Checksum))
        Stream.Write(XML, 0, XML.Length)
    End Sub
 
    Private Function ParseStream(Stream As Stream) As AlSongInfo
        Dim XML As New XmlDocument()
        XML.Load(Stream)
        Dim Node = XML.SelectSingleNode("*/*/*/*")
        If Node Is Nothing Then Return Nothing
        Dim Info As AlSongInfo
        With Info
            .ID = GetNodeValue(Node, "strInfoID")
            .RegistDate = GetNodeValue(Node, "strRegistDate")
            .Title = GetNodeValue(Node, "strTitle")
            .Artist = GetNodeValue(Node, "strArtist")
            .Album = GetNodeValue(Node, "strAlbum")
            .CGood = GetNodeValue(Node, "strCountGood")
            .CBad = GetNodeValue(Node, "strCountBad")
            .Lyric = GetNodeValue(Node, "strLyric").Replace("<br>", vbCrLf)
 
            .FirstRegister.Name = GetNodeValue(Node, "strRegisterFirstName")
            .FirstRegister.eMail = GetNodeValue(Node, "strRegisterFirstEMail")
            .FirstRegister.URL = GetNodeValue(Node, "strRegisterFirstURL")
            .FirstRegister.Phone = GetNodeValue(Node, "strRegisterFirstPhone")
            .FirstRegister.Comment = GetNodeValue(Node, "strRegisterFirstComment")
 
            .CurrentRegister.Name = GetNodeValue(Node, "strRegisterName")
            .CurrentRegister.eMail = GetNodeValue(Node, "strRegisterEMail")
            .CurrentRegister.URL = GetNodeValue(Node, "strRegisterURL")
            .CurrentRegister.Phone = GetNodeValue(Node, "strRegisterPhone")
            .CurrentRegister.Comment = GetNodeValue(Node, "strRegisterComment")
        End With
        Return Info
    End Function
 
    Private Function GetNodeValue(Node As XmlElement, Name As StringAs String
        Dim SubNode = Node.GetElementsByTagName(Name)
        If SubNode.Count = 0 Then Return ""
        Return SubNode(0).InnerText
    End Function
End Module
 
cs


Lyric이 가사임

posted by 자칭 프로그래머ㅡ ModMapper

스타크래프트 chk의 구조

Starcraft/scenario.chk 2016. 12. 16. 02:14
  • 저런 구조들을 어떻게 분석해서 뭐가 뭔지 알아내는게 참 신기하단말이죠.

    제온 2017.04.18 14:37

먼저 이 강좌는 프로그래밍을 약간이라도 아는 사람이라는 기준 하에 쓰여졌다는 점을 알린다.



스타크래프트 맵의 chk(이하 청크) 는 여러개의 구휙이 구조는 리스트와 비슷한 구조로 배치되어 있다.

그래서 리스트와 읽는 방법이 같으며. 현재 위치가 파일의 끝 이상이 될 시 읽기를 종료한다.

[스타크래프트 chk의 예]


각 구휙은 4바이트 문자열의 이름 그리고 4바이트 정수의 크기 그리고 내용 (가변 크기)로 이루어져 있다.

그것을 코드로 표현하면 아래와도 같은 모습을 보이게 된다.

0

1

2

3

4

5

typedef struct {

    /* 4바이트 문자 */ Char Name[4];

    /* 4바이트 정수 */ Int32 Size;

    Void* Data;

Section;

 

[chk 섹션의 구조]





그렇다면 이 구휙들을 읽는 방법은 간단하다.

단계적으로 읽어나가서 필요한 구휙을 찾고, 원하는 값을 가져오면 되는 것이다.

아래는 구휙을 읽어 원하는 구휙을 가져오는 코드이다.


0

1

2

3

4

5

6

7

8

9

10

Void* GetSection(VoidpvBufferInt32 cbBufferCharName) {

    Void* BufferEnd = (Byte*)pvBuffer + cbBuffer;

    Int32 Size;

    while (BufferEnd > pvBuffer) {

        if (*(Int32*)Name == *(Int32*)pvBufferreturn (Byte*)pvBuffer + 4;

        pvBuffer = (Byte*)pvBuffer + 4;

        pvBuffer = (Byte*)pvBuffer + 4 + *(Int32*)pvBuffer;

    }

    return nullptr;

}

 

[메모리에서 원하는 구휙을 코드]


허나 우리가 해야할 것은 읽기 뿐만이 아닌 작성 또한 해야한다는 점이다.

강좌를 작성하는 이유는 많은 사람들이 지식을 얻고 가기 하기 위함인데.

C++은 메모리를 직접 관리하는데 탁월하지만 난이도가 높다.

그러므로 이제부터 비교적 난이도가 낮은 VB .Net으로 코드를 사용해 보겠다.


추가로 여기서 VB .Net을 선택한 이유는 아래와도 같다.

1. 내가 VB .Net을 주력으로 사용한다. (중요)

2. VB는 다른 사람이(초보자가) 사용하기 쉬위 여러 간단한 프로그램에서 사용된다.

3. 닷넷 프레임워크의 자원 사용할 수 있다.


참고로 작성일 기준으로 C#보다 VB .Net의 점유율이 약간 우세하다


[참조 : http://www.tiobe.com/tiobe-index/]


너무 잡다한 소리가 많았나? 그렇다면 이제 본격적으로 시작해 보겠다.

우리가 알아두어야 할 것은 우리는 수시로 추가와 제거를 해야 할 것이라는 점이다.

그래서 List와 MemoryStream를 사용하기로 했다. 왜냐하면 배열은 확장을 시도하면 자원 낭비가 심해지기 때문이다.

무슨 소리인지 모르겠다면 그냥 넘어가도 좋다. 그렇게 읽기와 작성 코드는 아래와도 같다.


0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

'스타크래프트 chk의 구조 - Chunk의 읽기와 작성

'Code by ModMapper

 

Imports System.Collections.Generic

Imports System.Text

Imports System.IO

 

''' <summary>Chunk를 읽거나 작성하는 모듈입니다.</summary>

Module Chunk

    ''' <summary>Chunk 구휙 형식</summary>

    Public Structure Section

        Dim Name As String          '구휙 이름

        Dim Data As MemoryStream    '구휙 내용

    End Structure

 

    ''' <summary>파일에서 Chunk를 읽는 함수.</summary>

    ''' <param name="FileName">읽어들일 파일 이름.</param>

    ''' <returns>읽어들인 Chunk값</returns>

    Public Function Chunk_ReadFile(FileName As StringAs List(Of Section)

        '읽기 전용으로 파일 스트림을 연다.

        Dim FS As New FileStream(FileName, FileMode.Open, FileAccess.Read)

        Dim Chunk = Chunk_ReadStream(FS)

        FS.Close()  '사용한 파일 스트림을 닫음

        Return Chunk

    End Function

 

    ''' <summary>스트림에서 Chunk를 읽는 함수.</summary>

    ''' <param name="Stream">읽어들일 스트림.</param>

    ''' <returns>읽어들인 Chunk값</returns>

    Public Function Chunk_ReadStream(Stream As StreamAs List(Of Section)

        '스트림 읽기에 관련된 함수가 있는 BinaryReader를 생성한다.

        Dim Reader As New BinaryReader(Stream)

        Dim Chunk As New List(Of Section)

        '스트림이 끝날때 까지 반복

        While Stream.Position < Stream.Length

            Dim Section As Section

            Dim Size As Integer

            '스트림에서 구휙의 이름을 읽어들임 (4바이트 문자열)

            Section.Name = Encoding.Default.GetString(Reader.ReadBytes(4))

            '스트림에서 구휙의 크기를 읽어들임 (4바이트 정수)

            Size = Reader.ReadInt32()

            '메모리를 사용하기 위해 MemoryStream을 생성한다.

            Section.Data = New MemoryStream()

            If Size > 0 Then '만일 크기가 0이하면 할당 할 수 없기 때문에 예외 처리

                '스트림에서 내용을 읽어서 작성한다.

                Section.Data.Write(Reader.ReadBytes(Size), 0, Size)

            Else

                '스트림을 Size만큼 이동시킨다.

                Stream.Position += Size

            End If

            '읽어들인 구휙을 리스트에 넣는다

            Chunk.Add(Section)

        End While

        '읽어들인 Chunk를 반환

        Return Chunk

    End Function

 

    ''' <summary>파일에 Chunk를 작성하는 함수.</summary>

    ''' <param name="Chunk">작성할 Chunk 내용.</param>

    ''' <param name="FileName">Chunk를 작성할 파일 경로.</param>

    Public Sub Chunk_WriteFile(Chunk As List(Of Section), FileName As String)

        '쓰기 전용으로 파일 스트림을 연다. (이어서 작성하기를 원하면 Append를 사용해도 된다)

        Dim FS As New FileStream(FileName, FileMode.Create, FileAccess.Write)

        Chunk_WriteStream(Chunk, FS)

        FS.Close()  '사용한 파일 스트림을 닫음

    End Sub

 

    ''' <summary>스트림에 Chunk를 작성하는 함수.</summary>

    ''' <param name="Chunk">작성할 Chunk 내용.</param>

    ''' <param name="Stream">Chunk를 작성할 스트림.</param>

    Public Sub Chunk_WriteStream(Chunk As List(Of Section), Stream As Stream)

        '스트림 작성에 관련된 함수가 있는 BinaryWriter를 생성한다.

        Dim Writer As New BinaryWriter(Stream, Encoding.ASCII)

        '각 섹션을 반복

        For Each Section In Chunk

            '스트림의 이름을 바이트 값으로 변환

            Dim Name = Encoding.Default.GetBytes(Section.Name)

            '스트림 이름이 4바이트가 아녈 경우를 위한 예외 처리

            If Not Name.Length = 4 Then Array.Resize(Of Byte)(Name, 4)

            '스트림에 구휙 이름을 작성

            Writer.Write(Name)

            '스트림에 구휙 크기를 작성 (스트림의 Length는 8바이트이므로 변환)

            Writer.Write(CInt(Section.Data.Length))

            '스트림에 구휙 내용을 작성

            Section.Data.WriteTo(Stream)

        Next

    End Sub

End Module

 

[Chunk의 읽기와 작성]


주석 덕분에 코드가 길어보이지만 실제로는 그리 길지 않다.

파일 또한 올려놓을테니 가져가서 원하는 대로 사용해도 좋다.

Chunk.vb




'Starcraft > scenario.chk' 카테고리의 다른 글

스타크래프트 chk의 구조  (1) 2016.12.16
posted by 자칭 프로그래머ㅡ ModMapper

파일 확장자로부터 아이콘 가져오기

Programming/Visual Basic 2016. 11. 23. 22:04


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Imports Microsoft.Win32
 
''' <summary>확장자로부터 아이콘을 가져오는 모듈입니다.</summary>
Public Module IconModule
    'Win API
    Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtrByVal lpszExeFileName As StringByVal nIconIndex As IntegerAs Integer
    Private Declare Function DestroyIcon Lib "User32.dll" (hIcon As IntPtrAs Integer
 
    ''' <summary>확장자으로 부터 아이콘을 가져옵니다.</summary>
    ''' <param name="Ext">확장자 값 입니다.</param>
    ''' <returns>가져온 아이콘입니다. 실패시 Nothing(NULL)을 반환힙니다.</returns>
    Public Function GetIconFromExt(Ext As StringAs Icon
        Dim Reg = Registry.ClassesRoot, Icon As Icon
        Reg = Reg.OpenSubKey(Ext, False)
        If Reg Is Nothing Then Return Nothing
        Icon = GetDefaultIcon(Reg)
        If Icon IsNot Nothing Then Return Icon
        Icon = GetOpenIcon(Reg)
        Dim Value As String = Reg.GetValue(Nothing)
        If Value Is Nothing Then Return Nothing
        Return GetIconFromAppClass(Value)
    End Function
 
    ''' <summary>AppClass로 부터 아이콘을 가져옵니다.</summary>
    ''' <param name="AppClass">AppClass 스트링입니다.</param>
    ''' <returns>가져온 아이콘입니다. 실패시 Nothing(NULL)을 반환힙니다.</returns>
    Public Function GetIconFromAppClass(AppClass As StringAs Icon
        Dim Reg = Registry.ClassesRoot
        Reg = Reg.OpenSubKey(AppClass, False)
        If Reg Is Nothing Then Return Nothing
        Return If(GetDefaultIcon(Reg), GetOpenIcon(Reg))
    End Function
 
    Private Function GetDefaultIcon(Reg As RegistryKey) As Icon
        Reg = Reg.OpenSubKey("DefaultIcon")
        If Reg Is Nothing Then Return Nothing
        Dim Value As String = Reg.GetValue(Nothing)
        If Value Is Nothing Then Return Nothing
        Dim FilePath As String = ""
        Dim Index As Integer
        Try
            ParsePath(Value, FilePath, Index)
        Catch 'Parse Error
            Return Nothing
        End Try
        Return GetIcon(FilePath, Index)
    End Function
 
    Private Function GetOpenIcon(Reg As RegistryKey) As Icon
        Reg = Reg.OpenSubKey("shell/open/command")
        If Reg Is Nothing Then Return Nothing
        Dim Value As String = Reg.GetValue(Nothing)
        If Value Is Nothing Then Return Nothing
        If Value.Length = 0 Then Return Nothing
        Dim FilePath As String = ""
        Dim Spt As Integer
        If Value(0= """"Then
            Spt = Value.IndexOf(""""c)
            FilePath = If(Spt = -1, Value.Substring(1), Value.Substring(1, Spt - 1))
        Else
            Spt = Value.IndexOf(" ")
            If Spt = -1 Then Spt = Value.Length
            FilePath = Value.Substring(0, Spt)
        End If
        Try
            FilePath = IO.Path.GetFullPath(FilePath)
        Catch 'Parse Error
            Return Nothing
        End Try
        Return GetIcon(FilePath, 0)
    End Function
 
    ''' <summary>아이콘의 경로를 파싱하는 함수입니다.</summary>
    ''' <param name="Path">아이콘의 경로입니다.</param>
    ''' <param name="FilePath">반환되는 아이콘 파일의 경로입니다.</param>
    ''' <param name="Index">반환되는 아이콘의 인덱스입니다.</param>
    Private Sub ParsePath(Path As StringByRef FilePath As StringByRef Index As Integer)
        Dim Spt As Integer
        Path = Path.Trim(" "c)
        FilePath = ""
        Index = 0
        If Path.Length = 0 Then Return
        If Path(0= """"Then
            Spt = Path.IndexOf(""""c)
            If Spt = -1 Then
                Spt = Path.Length
                FilePath = Path.Substring(1)
            Else
                FilePath = Path.Substring(1, Spt - 1)
                Spt += 1
            End If
        Else
            Spt = Path.IndexOf(",")
            If Spt = -1 Then Spt = Path.Length
            FilePath = Path.Substring(0, Spt)
        End If
        If Spt = Path.Length Then Return
        Index = CInt(Path.Substring(Spt + 1))
        FilePath = IO.Path.GetFullPath(FilePath)
    End Sub
 
    ''' <summary>아이콘을 가져오는 함수입니다.</summary>
    ''' <param name="FilePath">아이콘 파일의 경로입니다.</param>
    ''' <param name="Index">아이콘의 인덱스입니다.</param>
    ''' <returns>가져온 아이콘입니다. 실패시 Nothing(NULL)을 반환힙니다.</returns>
    Private Function GetIcon(FilePath As String, Index As IntegerAs Icon
        Dim hIcon As IntPtr
        hIcon = ExtractIcon(0, FilePath, Index)
        If hIcon = 0 Then Return Nothing
        Dim eIcon = Icon.FromHandle(hIcon).Clone()
        Call DestroyIcon(hIcon)
        Return eIcon
    End Function
End Module
 
cs


사용법은 주석 참조


IconModule.vb


posted by 자칭 프로그래머ㅡ ModMapper