[VB6] - เช็คสิทธิ์ จาก สปสช.

my2alee

ไม่ทราบว่าเพื่อนๆหรือ อ. เคยเขียนโปรแกรม เช็คสิทธิ์ จาก สปสช. หรือเปล่า
จากตัวอย่างเป็นโค้ดจาก Delphi

https://medium.com/dev2pro/%E0%B8%9E%E0%B8%B1%E0%B8%92%E0%B8%99%E0%B8%B2%E0%B8%A3%E0%B8%B0%E0%B8%9A%E0%B8%9A%E0%B9%80%E0%B8%8A%E0%B9%87%E0%B8%84%E0%B8%AA%E0%B8%B4%E0%B8%97%E0%B8%98%E0%B8%B4%E0%B9%8C-%E0%B9%82%E0%B8%94%E0%B8%A2%E0%B8%81%E0%B8%B2%E0%B8%A3-%E0%B9%80%E0%B8%8A%E0%B8%B7%E0%B9%88%E0%B8%AD%E0%B8%A1%E0%B8%95%E0%B9%88%E0%B8%AD-%E0%B8%81%E0%B8%B1%E0%B8%9A-webservice-%E0%B8%82%E0%B8%AD%E0%B8%87-%E0%B8%AA%E0%B8%9B%E0%B8%AA%E0%B8%8A-51886a7d5772

https://medium.com/dev2pro/%E0%B8%9E%E0%B8%B1%E0%B8%92%E0%B8%99%E0%B8%B2%E0%B8%A3%E0%B8%B0%E0%B8%9A%E0%B8%9A%E0%B9%80%E0%B8%8A%E0%B9%87%E0%B8%84%E0%B8%AA%E0%B8%B4%E0%B8%97%E0%B8%98%E0%B8%B4%E0%B9%8C-%E0%B9%82%E0%B8%94%E0%B8%A2%E0%B8%81%E0%B8%B2%E0%B8%A3-%E0%B9%80%E0%B8%8A%E0%B8%B7%E0%B9%88%E0%B8%AD%E0%B8%A1%E0%B8%95%E0%B9%88%E0%B8%AD-%E0%B8%81%E0%B8%B1%E0%B8%9A-webservice-%E0%B8%82%E0%B8%AD%E0%B8%87-%E0%B8%AA%E0%B8%9B%E0%B8%AA%E0%B8%8A-%E0%B8%94%E0%B9%89%E0%B8%A7%E0%B8%A2-delphi-607881bf175e

เพื่อเป็นแนวทางในการพัฒนาโปรแกรมให้ รพ. ได้ใช้งานในลำดับถัดไป
ขอบคุณมากครับ

thongkorn

สั้นๆง่ายๆ ... คุณหลอกดาว ... เพราะเราต้องทำเรื่องในการเข้าถึงข้อมูล และต้องเป็นคนในสายงานเขาครับ ... ทดสอบกับ VB .NET ...

my2alee

thongkorn ตอบกลับเมื่อ 2020-8-25 14:14
สั้นๆง่ายๆ ... คุณหลอกดาว ... เพราะเราต้องทำเรื่องในการ ...

ผมลงทะเบียนใช้งานโปรแกรมนี้เรียบร้อยแล้วครับ อ.พอเราเสียบบัตรมันจะได้ token เพื่อให้เราสามารถนำไปใช้งานได้ตามตัวอย่างของเดลไฟ ครับ
เพราะปกติผมก็ใช้ Software ตัวนี้อยู่แล้ว ในการเช็คสิทธให้ผู้มารับบริการที่โรงพยาบาลครับ
------
แต่พอดี ผู้ใหญ่เขาอยากได้ software ที่เขียนขึ้นมาให้เช็คสิทธิผู้ป่วยแล้วให้ระบบลงทะเบียนผู้ป่วย-เข้าระบบซักประวัติเลย
แต่ตอนนี้ติดตรงการเช็คสิทธิ์อยู่ครับ

thongkorn

ผมไม่มี Authen ครับ รู้สึกเขาจะให้เฉพาะหน่วยงานสาธารณสุข กับพวกโรงพยาบาลของรัฐ/เอกชน ผมติดต่อกับบัตรประชาชนได้แล้ว แต่ไม่มีสิทธิ์เข้าถึงครับ

my2alee

thongkorn ตอบกลับเมื่อ 2020-8-25 16:36
ผมไม่มี Authen ครับ รู้สึกเขาจะให้เฉพาะหน่วยงานสาธารณส ...

ผมมีรหัส authen ครับ แต่รหัสจะใช้ได้แค่ 1 วัน
ถ้าส่งให้ อ.test ได้ไหมครับ

ตอนนี้กำลังทดลองใช้ library ตัวนี้อยู่ครับ
แต่ไปต่อไม่เป็น
https://microsoft-soap-toolkit.software.informer.com/3.0/
และลองทำตามนี้E:\NIDCardPlusVB6.0\soap1.png
https://www.vbforums.com/showthr ... sual-Basic-amp-SOAP ผมลง add references เข้ามาแล้ว แต่ไม่รู้จะเรียกใช้ยังไง

ถ้าตามรูปของ อ. .net มันเรียกเข้ามาได้เลย
รูปที่แนบมาผมลองกับ soap ui

thongkorn

my2alee ตอบกลับเมื่อ 2020-8-26 12:12
ผมมีรหัส authen ครับ แต่รหัสจะใช้ได้แค่ 1 วัน
ถ้าส่งให้  ...

จัดมาทางกล่องข้อความได้เลยครับ UserID/Authen

my2alee

thongkorn ตอบกลับเมื่อ 2020-8-26 13:35
จัดมาทางกล่องข้อความได้เลยครับ UserID/Authen

ส่งให้แล้วครับ อ.

มันใช้ได้เป็น วันนะครับ
ถ้า อ. ทดสอบแล้ว หมดอายุ ผมจะส่ง token ไปให้ใหม่อีกทีครับ
ขอบคุณ อ.ล่วงหน้าครับ

thongkorn

my2alee ตอบกลับเมื่อ 2020-8-26 14:10
ส่งให้แล้วครับ อ.

มันใช้ได้เป็น วันนะครับ

ขอบคุณครับผม ... เรียบร้อยแล้วครับ แต่เป็น VB.NET น่ะครับผม

my2alee

thongkorn ตอบกลับเมื่อ 2020-8-26 14:25
ขอบคุณครับผม ... เรียบร้อยแล้วครับ แต่เป็น VB.NET น่ะครับผม

อยากได้เป็น VB6 ครับ อ. เพราะโปรแกรมผมเขียนไปเยอะแล้ว เหลือติดอยู่ตรงนี้อย่างเดียว

thongkorn

my2alee ตอบกลับเมื่อ 2020-8-26 16:17
อยากได้เป็น VB6 ครับ อ. เพราะโปรแกรมผมเขียนไปเยอะแล้ว เหลือติดอยู่ตรงนี้อย่างเดียว

ส่งโค้ดต้นฉบับเฉพาะในส่วนการติดต่อกับ Web Service และบีบไฟล์ส่งมาให้ผมได้มั้ยครับ ผมขี้เกียจพิมพ์ใหม่ ... อันที่จริงไม่ได้ยากเลยเพราะเราได้ข้อมูลแบบ XML มาแล้ว จากนั้นก็ทำการแยกแยะ (Parser) แต่ละ Element ออกมาใส่ TextBox เท่านั้นเองครับ