2010-12-13 3 views

ответ

4

я поинтересовался, чтобы увидеть, как это работает, это может заставить вас начать:

Option Infer On 

Imports System.Net 
Imports System.Web 

Module Module1 
    Sub Main() 
     Dim wc = New WebClient() 
     Dim login = "your_login" 
     Dim apiKey = "your_apikey" 
     Dim longUrl = HttpUtility.UrlEncode("http://stackoverflow.com/questions/4427104/vb-is-there-any-possibility-to-call-the-bit-ly-api") 
     Dim request = String.Format("http://api.bit.ly/v3/shorten?login={0}&apiKey={1}&longUrl={2}&format=txt", login, apiKey, longUrl) 
     Dim result = wc.DownloadString(request) 
    End Sub 

End Module 

Документация по API можно найти здесь: http://code.google.com/p/bitly-api/wiki/ApiDocumentation

+0

большое спасибо! Теперь я получил это;) –