令牌JWT EXEMPLOS EM VBNET
代码示例
JASON WEB令牌EM VBNET COM WINDOWS窗体
{
"iss": "JwtServer",
"sub": "hrmanager",
"email": "[email protected]",
"jti": "e971bd9c-7655-41d5-9c49-fabc054dc466",
"iat": 1503922683,
"http://schemas.microsoft.com/ws/2008/06/identity/claims/role": [
"Employee",
"HR-Worker",
"HR-Manager"
],
"Department": [
"HR",
"HR"
],
"nbf": 1503922683,
"exp": 1503924483
}令牌JWT EXEMPLOS EM VBNET
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Net;
using System.IO;
using JWT;
using Newtonsoft.Json.Linq;
namespace TimeworksAPI2
{
class Program
{
const string AUTHSERVICE = "https://workingURL/";
const string twpAIPURL = "https://workingURL/";
static void Main(string[] args)
{
int PartnerID = 222;
string SiteID = "XXXXX";
string StartDate = "2017-04-11";
string EndDate = "2017-04-11";
string Category = "vacation";
string key = "XXXXXXXXXXX";
Dictionary<string, decimal> Results = GetAccrualData(
StartDate,EndDate,Category, SiteID, key, PartnerID);
}
static public Dictionary<string, decimal> GetAccrualData(string StartDate, string EndDate, string Category, string SiteID, int PartnerID, string key)
{
var apptoken = "";
var token = new
{
iss = PartnerID,
product = "twppartner",
sub = "partner",
siteInfo = new
{
type = "id",
id = SiteID
},
exp = (Int32)DateTime.UtcNow.Add(new TimeSpan(0, 4, 30)).Subtract(new DateTime(1970, 1, 1)).TotalSeconds
};
var jwt = JsonWebToken.Encode(token, key, JwtHashAlgorithm.HS256);
WebRequest request = WebRequest.Create(AUTHSERVICE);
request.ContentType = "application/json";
request.Method = "POST";
request.Headers.Set("Authorization", string.Format("Bearer {0}", jwt));
HttpWebResponse response = (HttpWebResponse)request.GetResponse();
if (response.StatusCode == HttpStatusCode.Created)
'QUALQUER COISA
'_________________________EM VB NET____________________________
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Net
Imports System.IO
Imports JWT
Imports Newtonsoft.Json.Linq
Namespace TimeworksAPI2
Class Program
Const AUTHSERVICE As String = "https://workingURL/"
Const twpAIPURL As String = "https://workingURL/"
Private Shared Sub Main(ByVal args As String())
Dim PartnerID As Integer = 222
Dim SiteID As String = "XXXXX"
Dim StartDate As String = "2017-04-11"
Dim EndDate As String = "2017-04-11"
Dim Category As String = "vacation"
Dim key As String = "XXXXXXXXXXX"
Dim Results As Dictionary(Of String, Decimal) = GetAccrualData(StartDate, EndDate, Category, SiteID, key, PartnerID)
End Sub
Shared Public Function GetAccrualData(ByVal StartDate As String, ByVal EndDate As String, ByVal Category As String, ByVal SiteID As String, ByVal PartnerID As Integer, ByVal key As String) As Dictionary(Of String, Decimal)
Dim apptoken = ""
Dim token = New With {Key
.iss = PartnerID, Key
.product = "twppartner", Key
.[sub] = "partner", Key
.siteInfo = New With {Key
.type = "id", Key
.id = SiteID
}, Key
.exp = CInt(DateTime.UtcNow.Add(New TimeSpan(0, 4, 30)).Subtract(New DateTime(1970, 1, 1)).TotalSeconds)
}
Dim jwt = JsonWebToken.Encode(token, key, JwtHashAlgorithm.HS256)
Dim request As WebRequest = WebRequest.Create(AUTHSERVICE)
request.ContentType = "application/json"
request.Method = "POST"
request.Headers.[Set]("Authorization", String.Format("Bearer {0}", jwt))
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
If response.StatusCode = HttpStatusCode.Created Then
'qualquer coisa
End If
End Function
End Class
End Namespace
类似页面
带有示例的类似页面
其他语言
此页面有其他语言版本
empty row
Русский
..................................................................................................................
English
..................................................................................................................
Italiano
..................................................................................................................
Polski
..................................................................................................................
Română
..................................................................................................................
한국어
..................................................................................................................
हिन्दी
..................................................................................................................
Français
..................................................................................................................
Türk
..................................................................................................................
Česk
..................................................................................................................
Português
..................................................................................................................
ไทย
..................................................................................................................
Español
..................................................................................................................
Slovenský
..................................................................................................................
Балгарскі
..................................................................................................................
Íslensk
..................................................................................................................
受欢迎的此类别
标籤的相关热门网页
empty row