سلام. لطفا کدهاتون رو توی تگ کد قرار بدین از این به بعد.
کدهاتونو من تست کردم هیچ مشکلی نداره. شما اومدین و متغیرهای key و q و بقیه رو توی هدر فرستادین در صورتی که باید به عنوان پارامتر بفرستین به صورت زیر کدهاتونو تغییر بدین البته من مقادیر رو ثابت نوشتم شما با متغیرهای خودتون جایگزین کنید در ضمن به جای + هم باید کاما (,) بزارید
Dim persianfastnet As PersianFastNetwork
Dim getquery As GetRequest
getquery= persianfastnet.BuildGetQuery("https://api.opencagedata.com/geocode/v1/json","gettag")
getquery.addParametrs ("key", "0361ced2474b4fe8bebcfeb8eb6894ad")
getquery.addParametrs ("q","35.84091434113259,50.96591748297214")
getquery.addParametrs ("pretty", "1")
getquery.addParametrs("language","fa")
getquery.addParametrs ("no_annotations", "1")
getquery.executRequest
Private Sub prf_onSucsess(Result As String , Tag As String)
Log("OK: "&Result)
End Sub
Private Sub prf_onError(Error As ResponseError , Tag As String)
Log("ERR: "&Error.ErrorBody)
End Sub