티스토링

해당 소스는 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