我怎樣才能使Visual Basic中的網址縮短使用和URL縮短API？

-1

我想做一個URL Shortener，使用和在線URL縮短器API 我想在這裏使用這個API - > http：// cut2.tk/api-about.php 所以這個API代碼是這樣的 http://cut2.tk/api.php?url= LONG URL這裏我怎樣才能使Visual Basic中的網址縮短使用和URL縮短API？

我想使用的用戶表單與2個文本框和兩個按鈕第一個按鈕是短URL和第二到短URL從第二個文本框

第一個TextBox是複製哪裏，我要去粘貼長網址，第二個文本框是我即將獲得短網址後我按下短網址按鈕

像這樣：

image http://i49.tinypic.com/2ypj91z.jpg

任何人都可以通過我的項目或代碼嗎？在此先感謝即時通訊使用Microsoft Excel開發的Visual Basic

來源

2012-12-16 Andrew

這將使用爲你的API，這是什麼您最初問：

Sub getShortURL() 
    Dim objHTTP, URL 
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
    URL = "http://cut2.tk/api.php?url=" & Me.LongUrl.Value 
    objHTTP.Open "POST", URL, False 
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
    objHTTP.send ("") 
    Me.ShortURL.Value = objHTTP.responseText 
End Sub

來源

2012-12-16 17:44:33

我怎樣才能使Visual Basic中的網址縮短使用和URL縮短API？

回答

相關問題