[VB6] การแก้ปัญหาเมื่อไม่สามารถใช้คำสั่ง SendKeys บน Windows 8/8.1/10

thongkorn

สำหรับ Windows 8 ขึ้นไป VB6 จะเกิดปัญหาเมื่อเราใช้คำสั่ง SendKeys ทำให้เกิดเอ้อเหรอ Run-time error 70:permission denied. เราแก้ปัญหาได้ด้วยการเขียนฟังค์ชั่นขึ้นมาใหม่ แต่ใช้ชื่อเดิมได้ทันที ดังนี้คือ

1. '/  แก้ปัญหาฟังค์ชั่น SendKeys ใน Windows 8 64 บิต
   
2. Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
   
3.     Dim WshShell As Object
   
4.     Set WshShell = CreateObject("Wscript.shell")
   
5.     WshShell.Sendkeys Text, Wait
   
6.     Set WshShell = Nothing
   
7. End Sub

คัดลอกไปที่คลิปบอร์ด

MrDen

ขอบคุณครับ