以下内容为程序代码:

1 Dim url,appkey,appsecret As String
2 url="http://gw.api.tbsandbox.com/router/rest" \'沙箱环境调用地址 正式环境:http://gw.api.taobao.com/router/rest
3 appkey="test" \'淘宝开放平台颁发的唯一标识一个应用的ID号 appkey:test
4 appsecret ="test" \'应用密钥,不可对外公开,商家需注意保密 appSecrect:test
5
6 Dim client As Top.api.ITopClient = new Top.api.DefaultTopClient(url, appkey, appsecret ) \'实例化ITopClient类
7
8 Dim req As Top.api.Request.UserGetRequest = New Top.api.Request.UserGetRequest \'实例化具体API对应的Request类
9 req.Fields = "user_id,nick,created,buyer_credit,type,sex"
10 req.Nick = "sandbox_c_1"
11 Dim rsp As Top.api.Response.UserGetResponse = client.Execute(req) \'执行API请求并将该类转换为response对象
12 output.show(rsp.Body)
13