Dim WinHttp As New WinHttpRequest
Dim A, B, C, DPrivate Sub Form_Load()WinHttp.Open GET, http://map.naver.com/WinHttp.SendA = StrConv(WinHttp.ResponseBody, vbUnicode)B = Split(Split(A, y:)(1), )(0)C = Split(Split(A, {x:)(1), )(0)WinHttp.Open GET, http://maps.google.com/maps?f=q&source=s_q&output=js&hl=ko&geocode=&abauth=5045fffa9g1H9AYtCLU0HggYIY52KN1oZZg&authuser=0&q= & B & %2C & CWinHttp.SendA = StrConv(WinHttp.ResponseBody, vbUnicode)D = Split(Split(A, laddr:)(1), )(0)MsgBox DEndEnd Sub
이런소스가 있는데 마지막에MsgBox D 통해 주소가 나타나게 되있는데 text1.text 박스로 나타나게는 못하나요?Text1.Text = D 이런식으로 하고 컴파일 하면 꺼짐현상이 나타나요 ㅠ
본인위치 보기질문!(수정질문)
채꽃 2026.06.23 댓글 4
놓아주세요 2026.06.23
감사해요 ㅎㅎ
솔관 2026.06.23
End 를 지우세요
Together 2026.06.23
이렇게 하고 컴파일 해보면 그냥 꺼지는데 ㅠ
횃눈썹 2026.06.23
Text1.Text = D