I want to Fetch a particular location from google map of 5 km distance using zip code basis I am using Google Web service.It is showing the error of Invalid key . The code as follows: Dim ProxyHost As String = "192.168.0.100" Dim ProxyPort As Integer = 8080 Dim ProxyUser As String = "" Dim ProxyPassword As String = "" Dim ProxyDomain As String = "http://api.google.com/search/beta2" Dim oWebProxy As System.Net.WebProxy = New System.Net.WebProxy(ProxyHost, ProxyPort) oWebProxy.Credentials = New System.Net.NetworkCredential(ProxyUser, ProxyPassword, ProxyDomain) ' obj_wrr.Proxy = oWebProxy 'obj_wrr.Credentials = New System.Net.NetworkCredential(feedid, password) Dim s As localhost.GoogleSearchService = New localhost.GoogleSearchService s.Proxy = oWebProxy Dim r As localhost.GoogleSearchResult r = s.doGoogleSearch("", TextBox1.Text, 0, 10, False, "", False, "", "", "") Dim strFile As String = "C:\\result.html" Dim sw As StreamWriter = File.CreateText(strFile) sw.WriteLine("" & Microsoft.VisualBasic.Chr(9) & "BODY { font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 9pt; color : #000000; SCROLLBAR-FACE-COLOR: white; SCROLLBAR-HIGHLIGHT-COLOR: #003366; SCROLLBAR-SHADOW-COLOR: #003366; SCROLLBAR-3DLIGHT-COLOR: #f9f9f9; SCROLLBAR-ARROW-COLOR: #003366; SCROLLBAR-TRACK-COLOR: white; SCROLLBAR-DARKSHADOW-COLOR: #f9f9f9 }") For Each dc As localhost.DirectoryCategory In r.directoryCategories sw.Write("Category : ") sw.WriteLine(dc.fullViewableName) sw.WriteLine(" ") Next For Each re As localhost.ResultElement In r.resultElements Dim strTitle As String = "" + re.title + " " sw.WriteLine(strTitle) Dim strSnippet As String = re.snippet + " " sw.WriteLine(strSnippet) Dim strLink As String = "" + re.URL + " - " + re.cachedSize + " " sw.WriteLine(strLink) sw.WriteLine(" ") Next sw.Close() Label1.Text = TextBox1.Text + " 's web search" Dim estResults As Integer = r.estimatedTotalResultsCount Dim ldTime As Double = r.searchTime Label1.Text = "Total " + Convert.ToString(estResults) + " " + "1 - 10 seach result Total time:" + Convert.ToString(ldTime) Dim obj As Object = Nothing Dim di As DirectoryInfo = New DirectoryInfo(Environment.CurrentDirectory) Dim strFilePath As String = di.FullName + "\" + strFile WebBrowser.Navigate(strFilePath, obj, obj, obj, obj)

Yes I sign up for a Google Maps API key for local host .But Same Error . Is there any other option to fetch a particular location from Map using zip code of 5 km Distance

I want to Fetch a particular location from google map of 5 km distance using zip code basis I am using Google Web service.It is showing the error of Invalid key . The code as follows: Dim ProxyHost As String = "192.168.0.100" Dim ProxyPort As Integer = 8080 Dim ProxyUser As String = "" Dim ProxyPassword As String = "" Dim ProxyDomain As String = "http://api.google.com/search/beta2" Dim oWebProxy As System.Net.WebProxy = New System.Net.WebProxy(ProxyHost, ProxyPort) oWebProxy.Credentials = New System.Net.NetworkCredential(ProxyUser, ProxyPassword, ProxyDomain) ' obj_wrr.Proxy = oWebProxy 'obj_wrr.Credentials = New System.Net.NetworkCredential(feedid, password) Dim s As localhost.GoogleSearchService = New localhost.GoogleSearchService s.Proxy = oWebProxy Dim r As localhost.GoogleSearchResult r = s.doGoogleSearch("", TextBox1.Text, 0, 10, False, "", False, "", "", "") Dim strFile As String = "C:\\result.html" Dim sw As StreamWriter = File.CreateText(strFile) sw.WriteLine("" & Microsoft.VisualBasic.Chr(9) & "BODY { font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 9pt; color : #000000; SCROLLBAR-FACE-COLOR: white; SCROLLBAR-HIGHLIGHT-COLOR: #003366; SCROLLBAR-SHADOW-COLOR: #003366; SCROLLBAR-3DLIGHT-COLOR: #f9f9f9; SCROLLBAR-ARROW-COLOR: #003366; SCROLLBAR-TRACK-COLOR: white; SCROLLBAR-DARKSHADOW-COLOR: #f9f9f9 }") For Each dc As localhost.DirectoryCategory In r.directoryCategories sw.Write("Category : ") sw.WriteLine(dc.fullViewableName) sw.WriteLine(" ") Next For Each re As localhost.ResultElement In r.resultElements Dim strTitle As String = "" + re.title + " " sw.WriteLine(strTitle) Dim strSnippet As String = re.snippet + " " sw.WriteLine(strSnippet) Dim strLink As String = "" + re.URL + " - " + re.cachedSize + " " sw.WriteLine(strLink) sw.WriteLine(" ") Next sw.Close() Label1.Text = TextBox1.Text + " 's web search" Dim estResults As Integer = r.estimatedTotalResultsCount Dim ldTime As Double = r.searchTime Label1.Text = "Total " + Convert.ToString(estResults) + " " + "1 - 10 seach result Total time:" + Convert.ToString(ldTime) Dim obj As Object = Nothing Dim di As DirectoryInfo = New DirectoryInfo(Environment.CurrentDirectory) Dim strFilePath As String = di.FullName + "\" + strFile WebBrowser.Navigate(strFilePath, obj, obj, obj, obj)

Fetching location of 5 Km Distance from google map based on zip code or pin code and retriving the value back to the web form. I am using Google Web service.It is showing the error of Invalid key . The code as follows: Dim ProxyHost As String = "192.168.0.100" Dim ProxyPort As Integer = 8080 Dim ProxyUser As String = "" Dim ProxyPassword As String = "" Dim ProxyDomain As String = "http://api.google.com/search/beta2" Dim oWebProxy As System.Net.WebProxy = New System.Net.WebProxy(ProxyHost, ProxyPort) oWebProxy.Credentials = New System.Net.NetworkCredential(ProxyUser, ProxyPassword, ProxyDomain) ' obj_wrr.Proxy = oWebProxy 'obj_wrr.Credentials = New System.Net.NetworkCredential(feedid, password) Dim s As localhost.GoogleSearchService = New localhost.GoogleSearchService s.Proxy = oWebProxy Dim r As localhost.GoogleSearchResult r = s.doGoogleSearch("", TextBox1.Text, 0, 10, False, "", False, "", "", "") Dim strFile As String = "C:\\result.html" Dim sw As StreamWriter = File.CreateText(strFile) sw.WriteLine("" & Microsoft.VisualBasic.Chr(9) & "BODY { font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; font-size : 9pt; color : #000000; SCROLLBAR-FACE-COLOR: white; SCROLLBAR-HIGHLIGHT-COLOR: #003366; SCROLLBAR-SHADOW-COLOR: #003366; SCROLLBAR-3DLIGHT-COLOR: #f9f9f9; SCROLLBAR-ARROW-COLOR: #003366; SCROLLBAR-TRACK-COLOR: white; SCROLLBAR-DARKSHADOW-COLOR: #f9f9f9 }") For Each dc As localhost.DirectoryCategory In r.directoryCategories sw.Write("Category : ") sw.WriteLine(dc.fullViewableName) sw.WriteLine("

") Next For Each re As localhost.ResultElement In r.resultElements Dim strTitle As String = "" + re.title + "
" sw.WriteLine(strTitle) Dim strSnippet As String = re.snippet + "
" sw.WriteLine(strSnippet) Dim strLink As String = "" + re.URL + " - " + re.cachedSize + "

" sw.WriteLine(strLink) sw.WriteLine("

") Next sw.Close() Label1.Text = TextBox1.Text + " 's web search" Dim estResults As Integer = r.estimatedTotalResultsCount Dim ldTime As Double = r.searchTime Label1.Text = "Total " + Convert.ToString(estResults) + " " +