分享一下程式碼

剛好用到這部份:-)    

這函數會回傳一個字串陣列

其中第二個元素就是經 第三個就是緯 丟到Googe MAP API後就可以運作了

  Function getxy() As String()       

         Dim address As String = "你的地址"

        Dim apikey = "你的API Key"

        Dim url = "http://maps.google.com/maps/geo?q=" & address & "&output=csv&key=" & apikey

        Dim myrequest As System.Net.HttpWebRequest = System.Net.WebRequest.Create(url)

        Dim mywebresponse As System.Net.WebResponse = myrequest.GetResponse()

        Dim mystream As IO.Stream = mywebresponse.GetResponseStream()

        Dim sr As IO.StreamReader = New IO.StreamReader(mystream, Encoding.Default)

        Return Split(sr.ReadToEnd, ",")

  End Function

但在前天的時候突然發現整個大小都被固定住了

查了一下才發現qrdoor.com 的API已經開始收費(免費版會有限制)

因為qrdoor.com的月租費居然要高達一萬六!

不爽花錢的情況下就換了一個API接口。

改換到Google Chart上。

分享一下Google QRcode 的API接口

API URL: http://chart.apis.google.com/chart?cht=qr

參數說明:

chs=大小 ex. 100×100

chl=內含資訊 ex. URL路徑(http://xxx.xxx.com)

請依照實際使用需求呼叫使用即可。

目前測試正常使用，且比QRDoor.com的更加好用!