Printable View
با سلام به اساتید محترم
آیا امکان استفاده از یک browser در فرم اکسس که بشه با کد نویبسی لاگین کرد و از اطلاعات موجود در آن ، در فرم های اکسس کپی و یا برعکس اطلاعاتی به آن وارد نمود وجود دارد ؟
قبلا از لطف و همکاری دوستان و اساتید محترم نهایت تشکر را دارم
سلام
فقط باید این نکته در نظر داشته باشید که سایت مد نظر شما برای ورود کد کنترلی یا همون کپچا رو نداشته باشه وگرنه باید از وب سرویس یا API استفاده کنید.
سلام جناب امیرزادهنقل قول:
نوشته شده توسط amirzazadeh
طبق معمول همیشه از توجه شما و اساتید محترم گروه نهایت تشکر را دارم
آیا در اکسس میتوان از API استفاده نمود اگر امکانش است میشه نحوه استفاده را توضیح دهید
سلام از توجه شما دوست عزیز متشکرم
اگر امکان داشته باشه یک پروژه کوچک با توضیح ارسال نمایید
قبلا از مساعدت شما نهایت تشکر را دارم
سلامنقل قول:
نوشته شده توسط ATA_TABRIZ
میشه کامل توضیح بدید که چه کاری رو می خواهید انجام بدید؟
سلام چناب آقای امیرزادهنقل قول:
نوشته شده توسط amirzazadeh
قبلا توسط اساتید گروه تونستیم به وب سرویس تامین اجتماعی دسترسی پیدا کنیم و اطلاعات لازم را فرستاده و جواب اخذ نماییم الان تامین اجتماعی اقدام به الکترونیکی نمودن نسخه ها نموده است لذا جهت دسترسی به اطلاعات نسخ الکترونیک و ثبت انها در سایت نیاز به استفاده از API میباشد که بنده اطلاعات زیادی در این مورد ندارم لذا در صورت امکان راهنمایی بفرمایید
البته مساعدت شما و استاد mazoolag شامل حال بنده در حل مشکلات بوده است لذا از توجه شما نهایت تشکر را دارم
سلامنقل قول:
نوشته شده توسط ATA_TABRIZ
اگر دسترسی شما به محیط تست برقرار هست (یعنی شناسه نرم افزار و کد امنیتی رو دارید)اولین کاری که باید بکنید دریافت توکن از آدرس 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
فعلا تا این مرحله کنترل کنید.
.......................
موفق باشید
سلام و روز خوشنقل قول:
نوشته شده توسط ATA_TABRIZ
روش کار عوض شده وگرنه هنوز هم مبتنی بر وب سرویس هست.
پیشنهاد میکنم از همین روش استاندارد آقای میرزازاده استفاده کنین چون به احتمال زیاد با کنترل وب بروزر به مشکل میخورین.
اول اینکه این کنترل قدیمی هست و خیلی از سایت ها رو نمیتونه درست نشون بده یا کدهای جاوااسکریپت اونها رو اجرا کنه.
دوم اینکه بعضی از طراحای ایرانی دچار این بیماری هستن که کاربر رو مجبور به استفاده از مرورگر خاصی میکنن و به احتمال زیاد سایت تامین اجتماعی هم همینجور هست.
البته هنوز هم میشه برنامه ای بسازین که از یک کنترل مرورگر در فرم استفاده کنه و این مشکلات رو هم نداشته باشه ولی این برنامه اکسس نمیتونه باشه و باید windows forms app یا wpf کار کنین.
باید از کنترل مرورگر webview2 که بر مبنای edge هست استفاده کنین ولی کار با اون راحت نیست.