ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 2184|ตอบกลับ: 0

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

[คัดลอกลิงก์]

249

กระทู้

355

โพสต์

2967

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2967


สำหรับ 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
คัดลอกไปที่คลิปบอร์ด

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

52

โพสต์

231

เครดิต

Full Member

Rank: 3Rank: 3

เครดิต
231
โพสต์ 2017-12-23 19:15:44 | ดูโพสต์ทั้งหมด

ขอบคุณครับ
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-8-15 14:32 , Processed in 0.299059 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้