+#End Region
+
+#Region "UrlShortener"
+ ' http://code.google.com/intl/ja/apis/urlshortener/v1/getting_started.html
+ ' Google URL Shortener API
+
+ <DataContract()>
+ Private Class UrlShortenerParameter
+ <DataMember(Name:="longUrl")> Dim LongUrl As String
+ End Class
+
+ <DataContract()>
+ Private Class UrlShortenerResponse
+
+ End Class
+
+ Public Function Shorten(ByVal source As String) As String
+ Dim http As New HttpVarious
+ Dim apiurl As String = "https://www.googleapis.com/urlshortener/v1/url"
+ Dim headers As New Dictionary(Of String, String)
+ headers.Add("User-Agent", GetUserAgentString())
+ headers.Add("Content-Type", "application/json")
+
+ http.PostData(apiurl, headers)
+ Return ""
+ End Function
+#End Region