补齐命名空间，放到全局代码
public Sub SurroundingSub()
Dim client = New xxx命名空间.RestClient("/tool/open_api/api/goods/cat-detail?id=<id>")
client.Timeout = -1
Dim request = New xxx命名空间.RestRequest(xxx命名空间.Method.[GET])
request.AddHeader("X-Signature", "{{signature}}")
request.AddHeader("X-Timestamps", "{{timestamps}}")
request.AddHeader("X-Nonce", "{{nonce}}")
request.AddHeader("X-Apikey", "{{api_key}}")
client.UserAgent = "Apifox/1.0.0 (https://apifox.com)"
Dim response As xxx命名空间.IRestResponse = client.Execute(request)
output.show(response.Content)
End Sub
按钮事件直接调用即可
SurroundingSub()
加好友 
发短信
Post By：2024/1/4 14:12:00 [显示全部帖子]
