2015-10-30 126 views
-2

我试图将此Curl转换为vb.net代码。 这是访问Gumroad许可证API。 任何帮助将不胜感激。将Curl转换为vb.net

curl https://api.gumroad.com/v2/licenses/verify 
    \ -d "product_permalink=QMGY" 
    \ -d "license_key=YOUR_CUSTOMERS_LICENSE_KEY" 
    \ -X POST 

反应是

{ 
    "success": true, 
    "uses": 3, 
    "purchase": { 
    "id": "OmyG5dPleDsByKGHsneuDQ==", 
    "product_name": "licenses demo product", 
    "created_at": "2014-04-05T00:21:56Z", 
    "full_name": "Maxwell Elliott", 
    "variants": "", 
    "refunded": false, 
    # purchase was refunded, non-subscription product only 
    "chargebacked": false, 
    # purchase was refunded, non-subscription product only 
    "subscription_cancelled_at": null, 
    # subscription was cancelled, 
    subscription product only 
    "subscription_failed_at": null, 
    # we were unable to charge the subscriber's card 
    "custom_fields": [], 
    "email": "[email protected]" 
    } 
} 

但我需要软件来运行,如果响应“成功”是真的

回答

1
Dim web As New Net.WebClient 
web.Headers.Add(Net.HttpRequestHeader.ContentType, "application/x-www-form-urlencoded") 
Dim data = "product_permalink=fTbz&license_key=11BB81E6-762G4853-967A7CD1-20630734" 
Dim response = web.UploadString("https://api.gumroad.com/v2/licenses/verify", data) 
+0

人知道如何来响应反应? – Bluezap

+0

请解释您的代码如何解决OP的问题。 – Haris