แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - sjs

หน้า: [1]
1
ห้องสนทนาทั่วไป / ไปเจอมา Merry Christmas on Tableau Visualization
« เมื่อ: 25 ธ.ค. 63 , 11:27:02 »
&feature=youtu.be

2
ห้อง Ms Access อื่นๆ / MS Access ส่ง Line notify ข้อความ รูปภาพ
« เมื่อ: 05 มี.ค. 62 , 09:28:11 »
ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

ขอขอบคุณแหล่งที่มา :
http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.XHvsT4gzbIV

3
ห้องสนทนาทั่วไป / malware analysis ตัวอย่างการค้นหาสิ่งผิดปกติที่แอบมาในไฟล์เอกสาร
« เมื่อ: 25 ม.ค. 62 , 10:10:20 »
วิเคราะห์เหตุการณ์โจรไซเบอร์ปล้นเงิน 10 ล้านบาทด้วยมัลแวร์

https://www.catcyfence.com/it-security/article/analysis-of-cyber-crooks-use-malware-robbing-10-mb/?fbclid=IwAR3ykbcbvMGVDz73pVAARPoOdvGwO5X7yzAFEBN_EzrR8bZm6HE6tXvyNEI

4
ห้อง Ms Access อื่นๆ / นาฬิการแบบเข็มจาก MS Access ครับ
« เมื่อ: 14 พ.ย. 61 , 16:32:04 »


นาฬิการแบบเข็มจาก MS Access ครับ

ต้องขออภัยผู้จัดทำผมโหลดมานานจำไม่ได้ครับ

5
ห้อง MS Access / ตัวอย่างMS Access เสียงเรียกคิว ของอ.สุภาพ
« เมื่อ: 07 พ.ค. 61 , 11:06:05 »
เป็นตัวอย่างของอ.สุภาพ เขียนไว้ โปรแกรม MS Access  เสียงเรียกคิว

https://drive.google.com/file/d/1HQuSBEj0aaePrM-jpw-f64rqXSctLwTf/view?usp=sharing

6
ห้อง MS Access / MS Access ส่งข้อความเข้า line notify
« เมื่อ: 23 เม.ย. 61 , 14:27:52 »
https://notify-bot.line.me/th/

ทดลองส่ง ข้อความจาก ms access เข้า line

สมัคการใช้และเอา token ไปใส่ในฟอร์มด้วยนะครับ
ที่มา : http://snasui.com/viewtopic.php?t=12785

โค๊ด: [Select]
Option Compare Database
Sub SendMessageToLineNotify()
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim URL As String


'Line Notify Token
strToken = "ใส่ Token line ตรงนี้ " 'สมัคได้ที่ https://notify-api.line.me/

URL = "https://notify-api.line.me/api/notify"


strDate = Format(Now, "DD/MM/YYYY - HH:MM:SS")


'Line Message
strMessage = "message=MS Access "

'Ajax
Set oXML = CreateObject("Microsoft.XMLHTTP")
With oXML
'Line Post
.Open "POST", URL, 0

'Header
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & strToken

'Ajax
.send (strMessage)

'Line Check Print
Debug.Print oXML.responseText
End With

'Line
Set oXML = Nothing
End Sub

Private Sub Command0_Click()
Call SendMessageToLineNotify
End Sub

7
ห้อง MS Access / update การเขียนโปรแกรม vb.net ติดต่อ PLC Mitsubichi นิดหน่อยครับ
« เมื่อ: 12 ม.ค. 61 , 16:43:03 »


พอดีได้ทำอีกครั้ง เลยเอามาแชร์สำหรับเพื่อนที่สนใจครับ

ตอนนี้มีโปรแกรมในการเชื่อมต่อที่ง่ายขึ้นด้วย MX Component ของ Mitsubishi
link ตัวอย่างการใช้งาน

แหล่งที่มา ตัวอย่าง

และสามารถเขียนส่งข้อความเข้าโปรแกรม line ได้

http://www.silverlight.in.th/?p=380

ความเดิมจากกระทู้เก่าที่

https://www.thai-access.com/yeadram_view.php?topic_id=627&PagePosition=1



หน้า: [1]