Full Library

SimpleYandexLocation.vbproj

@@ -47,6 +47,10 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="Newtonsoft.Json, Version=9.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>packages\Newtonsoft.Json.9.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
@@ -104,6 +108,7 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <None Include="App.config" />
+    <None Include="packages.config" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 

YandexLocation.vb

@@ -1,7 +1,49 @@
-Module YandexLocation
+Imports System.Net
+Imports Newtonsoft
+Imports Newtonsoft.Json.Linq
 
-    Sub Main()
+Module YandexLocation
 
-    End Sub
+    Public Class YandexLocatin
+
+        Dim adres As String
+        Dim respone As String
+        Dim Coordinates As String
+
+        Sub New(adres As String)
+            Me.adres = adres
+            Using WebClient = New WebClient
+                WebClient.Encoding = System.Text.Encoding.UTF8
+                Me.respone = WebClient.DownloadString("https://geocode-maps.yandex.ru/1.x/?format=json&geocode=" + Replace_Adres())
+            End Using
+            JSONDECODE()
+        End Sub
+
+        Private Function Replace_Adres()
+            Dim url_adres As String = Replace(adres, " ", "+")
+            Return url_adres
+        End Function
+        Private Sub JSONDECODE()
+            Dim MyJson As JObject = Json.JsonConvert.DeserializeObject(respone)
+            '[JSON].response.GeoObjectCollection.featureMember.[0].GeoObject.Point.pos
+            Coordinates = MyJson("response")("GeoObjectCollection")("featureMember")(0)("GeoObject")("Point")("pos")
+        End Sub
 
+        Public Function lat()
+            Dim cord As Array = Split(Coordinates, " ")
+            Dim l1 As Double = Convert.ToDouble(cord(1))
+            Return l1
+        End Function
+
+        Public Function lng()
+            Dim cord As Array = Split(Coordinates, " ")
+            Dim l1 As Double = Convert.ToDouble(cord(0))
+            Return l1
+        End Function
+    End Class
+
+
+    Sub Main()
+        Dim loc As YandexLocatin = New YandexLocatin("4-ый Загородный переулок, дом 20, Минск, Беларусь")
+    End Sub
 End Module

packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Newtonsoft.Json" version="9.0.1" targetFramework="net452" />
+</packages>