thongkorn โพสต์ 2017-12-22 10:50:44

[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

MrDen โพสต์ 2017-12-23 19:15:44

ขอบคุณครับ :loveliness:
หน้า: [1]
ดูในรูปแบบกติ: [VB6] การแก้ปัญหาเมื่อไม่สามารถใช้คำสั่ง SendKeys บน Windows 8/8.1/10