نوشته شده توسط
ATA_TABRIZ
سلام چناب آقای امیرزاده
قبلا توسط اساتید گروه تونستیم به وب سرویس تامین اجتماعی دسترسی پیدا کنیم و اطلاعات لازم را فرستاده و جواب اخذ نماییم الان تامین اجتماعی اقدام به الکترونیکی نمودن نسخه ها نموده است لذا جهت دسترسی به اطلاعات نسخ الکترونیک و ثبت انها در سایت نیاز به استفاده از API میباشد که بنده اطلاعات زیادی در این مورد ندارم لذا در صورت امکان راهنمایی بفرمایید
البته مساعدت شما و استاد mazoolag شامل حال بنده در حل مشکلات بوده است لذا از توجه شما نهایت تشکر را دارم
سلام
اگر دسترسی شما به محیط تست برقرار هست (یعنی شناسه نرم افزار و کد امنیتی رو دارید)اولین کاری که باید بکنید دریافت توکن از آدرس https://health-services-test.tamin.i...l/authenticate هست.
کد مورد استفاده جهت دریافت توکن:
Option Compare Database
'Const WSURL As String = "https://Authentication.tamin.ir/api/acl/authenticate"
Const WSURL As String = "https://health-services-test.tamin.ir:8585/api/acl/authenticate"
Public Function GetDailyToken()
Dim AuthJSON As String
AuthJSON = _
"{""username"":""" & Form_pass1.username & """" _
& ",""password"":""" & Form_pass1.password & """" _
& ",""SoftwareClientID"":""" & Form_pass1.SoftwareClientID & """" _
& ",""SoftwareClientSecret"":""" & Form_pass1.SoftwareClientSecret & """}"
Dim R As Object
Dim Request As New MSXML2.XMLHTTP60
With Request
.Open "POST", WSURL, False
.setRequestHeader "Content-Type", "application/json; charset=utf-8"
.send AuthJSON
If .status = 200 Then
MsgBox "Êæ˜ä ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÔÏ", vbInformation, ""
TempVars.Add "temptoken", Mid(.responseText, 2, Len(.responseText) - 2)
Else
MsgBox .responseText
End If
End With
End Function
Sub test()
GetDailyToken
End Sub
فعلا تا این مرحله کنترل کنید.
.......................
موفق باشید