네이버 웹툰 다운

Imports System.Text.Regularｅxpressions
Module Module1
    Sub Main()
        Dim winhttp As New WinHttp.WinHttpRequest
        Dim strURL As String = "http://m.comic.naver.com/webtoon/detail.nhn?titleId=358422&no="
        Dim regex1 As New Regex("lazy-src=""(.*?)"" id=""toon_")
        Dim matches As MatchCollection

        For page = 1 To 140                                     ' 게시물 한계
            winhttp.Open("GET", strURL & page)
            winhttp.Send()
            matches = regex1.Matches(winhttp.ResponseText)
            For i = 1 To matches.Count                          ' 게시물내의 이미지갯수

                '다운로드 저장 D:\MyWebToon\
                My.Computer.Network.DownloadFile(matches.Item(i).Groups(1).Value, "D:\MyWebToon\image" & Format(CInt(page), "00#") & "_" & Format(CInt(i), "0#") & ".jpg")
                '저장형태 image002_15.jpg (2회분 15번째 이미지)

            Next
        Next
        Console.WriteLine("Download Complete!")
        Console.Read()
    End Sub

End Module