try
Dim client As DingTalk.Api.DefaultDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/gettoken")
Dim request As DingTalk.Api.Request.OapiGettokenRequest = New DingTalk.Api.Request.OapiGettokenRequest()
request.Appkey = "XXXXX"
request.Appsecret = "XXXXXXXXX"
request.SetHttpMethod("GET")
Dim rsp As DingTalk.Api.Response.OapiGettokenResponse = client.Execute(request)
Dim result As String = rsp.AccessToken
Output.Show(result)
client =nothing
request=nothing
Catch ex As Exception
End Try
不行的话考虑到项目beforecloseproject事件用kill杀进程吧
加好友 
发短信
Post By：2022/12/21 18:44:00 [只看该作者]
