vb net 웹 브라우져 연결

해당 소스는 www.juso.co.kr api를 가져온것으로 하였다.

중요한점은 웹브라우저 안에 url 속성값을 줘야한다.(api 주소)

Imports System.Xml

Imports System.Net

Imports System.IO

Imports System.Text.RegularExpressions

Imports System.Text

Public Class Form1

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

// 웹브라우져 타이틀이 결과 리턴값을 뿌려줄때만 해당함

        If sender.DocumentTitle = "address_ok" Then

            Dim jsonstring As String = Replace(sender.DocumentText, "<title>address_ok</title>", "")

            Dim json_results As New System.Net.Json.JsonTextParser

            Dim j_result As System.Net.Json.JsonObjectCollection

            j_result = json_results.Parse(jsonstring)

            TextBox3.Text = " 신주소 : " & j_result(1).GetValue & " " & j_result(2).GetValue

            WebBrowser1.Dispose()

        End If

    End Sub

End Class