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

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

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

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

307

กระทู้

496

โพสต์

5904

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5904


สำหรับ 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

กระทู้

51

โพสต์

233

เครดิต

Full Member

Rank: 3Rank: 3

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

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

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

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

GMT+7, 2024-3-3 14:07 , Processed in 0.085446 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

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