وب سرویس

[amirzazadeh]

با سلام و عرض ادب
برای مرحله دوم که ایجاد نشست کاری هست من با بهره گیری از تجارب دوستان عزیز از این کد ها استفاده کردم ولی با وجود ارسال اطلاعات پیام خطای ذیل دریافت میشه:

{

  "resMessage" : "توکن نامعتبر می باشد.",

  "resCode" : -12111,

  "info" : null

}

کد هایی که استفاده شده:

Option Compare Database



Option Explicit

 

'Const WSURL As String = "http://webapi.ihio.gov.ir/erx-core/v1/service/auth/token/fetch"

Const WSURL As String = "http://test.ihio.gov.ir/erx-core/v3/service/auth/session/cparty/open"

Const AuthJSON2 As String = "{""cpartyUsername"": ""test"",""cpartyPassword"": ""test123""}"

Const terminalId As Long = 112164

Const token As String = "Wo2xs1IyKV6z/lqbVPR9m++IBU4="

Const clientIPAddress As String = "90.110.180.171"

Const clientAgentinfo As String = "80.191.203.92"

Public ds2 As String

Public Type DailySession

    resCode As Long

    resMessage As String

    sessionId As String

End Type

Public Function GetDailySession() As DailySession



Dim P As String



Dim Request As New MSXML2.XMLHTTP60



With Request

.Open "post", WSURL, False

    .setRequestHeader "Host", "webapi.ihio.gov.ir"

    .setRequestHeader "Content-Type", "application/json; charset=utf-8"

    .setRequestHeader "terminalId", terminalId

    .setRequestHeader "token", token

    .setRequestHeader "clientIPAddress", clientIPAddress

    .setRequestHeader "clientAgentinfo", clientAgentinfo

    .send AuthJSON2

    

      End With

  ds2 = Request.responseText



End Function

ضمنا استاتوس دریافتی 400 هست.
.................................
ممنون میشم اگر دوستان راهکار اصلاحی ارائه کنند