수다닷컴

Dim winhttp As New winhttp.WinHttpRequestPrivate Sub Command1_Click()
List1.Clear
winhttp.Open POST, http://www.ipaddresslocation.org/ip-address-locator.php
winhttp.SetRequestHeader Referer, http://www.ipaddresslocation.org/ip-address-locator.php
winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
winhttp.Send ip= & Text1
Call Parsing2(winhttp.ResponseText, ip += , ;, List1)
End SubPrivate Sub Command2_Click()
Dim i&
For i = 0 To List1.ListCount
Label1 = Split(List1.List(1), :)(0)
Label2 = Split(List1.List(2), img)(0)
Next i
End SubFunction Parsing2(A$, B$, C$, List As ListBox)
Do While InStr(A, B)
A = Mid$(A, InStr(1, A, B) + Len(B))
List.AddItem Replace(Mid$(A, 1, InStr(1, A, C) - 1), : br /, vbNullString)
Loop
Call Command2_Click
End Function컴파일오류나는데;;뭐가문제인거죠?ㅜ사용자 정의형식이 정의되지않앗습니다. 뜸 ㅠ

신청하기