Html소스 받아오기

새모듈을 추가하고 다음과같이 작성합니다.

Imports System.Net

Public Module Module1

Public Function httpdown(Optional ByVal 주소 As String = "http://blog.daum.net/pootbar/")

        Dim wReq As WebRequest = WebRequest.Create(주소)

        Dim wResp As WebResponse = wReq.GetResponse

        Dim RespStream As System.IO.Stream = wResp.GetResponseStream

        Dim Reader As System.IO.StreamReader = New System.IO.StreamReader(RespStream, System.Text.Encoding.UTF8)

        Dim RespHTML As String = Reader.ReadToEnd

        Return RespHTML

    End Function

End Module

폼으로 돌아와서 이런식으로 작성

 

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Module1.httpdown("http://blog.daum.net/pootbar/") End Sub End Class