[VB6] การแก้ปัญหาเมื่อไม่สามารถใช้คำสั่ง SendKeys บน Windows 8/8.1/10
http://www.g2gnet.com/webboard/images/vb6/SendKeys.pngสำหรับ Windows 8 ขึ้นไป VB6 จะเกิดปัญหาเมื่อเราใช้คำสั่ง SendKeys ทำให้เกิดเอ้อเหรอ Run-time error 70:permission denied. เราแก้ปัญหาได้ด้วยการเขียนฟังค์ชั่นขึ้นมาใหม่ แต่ใช้ชื่อเดิมได้ทันที ดังนี้คือ
'/แก้ปัญหาฟังค์ชั่น SendKeys ใน Windows 8 64 บิต
Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.shell")
WshShell.Sendkeys Text, Wait
Set WshShell = Nothing
End Sub
ขอบคุณครับ :loveliness:
หน้า:
[1]