นโยบายการจัดการความรู้ มหาวิทยาลัยสงขลานครินทร์ 1.ให้ใช้เครื่องมือการจัดการความรู้ผลักดัน คุณภาพคน และกระบวนทำงาน 2.ส่งเสริมการแลกเปลี่ยนประสบการณ์การทำงาน จากหน้างาน 3.ส่งเสริมให้มีเวทีเรียนรู้ร่วมกัน
อ่าน: 2629
ความเห็น: 0

สลับหน้าจออัตโนมัติ [C]

สลับหน้าจออัตโนมัติ

ปัญหา

   เนื่องจากต้อง Monitoring ข้อมูลหลายๆอย่าง แสดงไว้บนจอ LCD TV ขนาด 42"  แต่จะเอาทุกอย่างไว้ในหน้าจอเดียวกัน  ทำให้ดูยาก เพราะตัวอักษรมันเล็กมากๆ ดังภาพ

 

จึงหาวิธีการ เขียน VBScript เพื่อสลับหน้าจอ โดย M$ Windows ใช้ Key คือ Alt+ESC ในการสลับหน้าจอไปมา กี่หน้าจอก็ได้ (ไม่เหมือน Alt-TAB เพราะสลับได้แต่ 2 หน้าจอไปมา) ใช้วิธีการ SendKey โดยที่

   ALT แทนด้วย %

   Escape แทนด้วย {ESC}

แล้วเขียน VBScript ดังนี้

Option Explicit
Dim wshShell

Set wshShell= CreateObject("WScript.Shell")

Do While 0 = 0

  wshShell.SendKeys "%{ESC}"

'Wait a second before we do anything
  WScript.sleep 10000
Loop

'Quit
WScript.Quit

ผลที่ได้คือ ดูได้เต็มจอ พอครับเวลาที่กำหนด 10,000 msec (10 วินาที)  ก็จะสลับหน้าจอถัดไป ดังภาพ

 

หวังว่าคงเป็นประโยชน์นะครับ ;-)

หมวดหมู่บันทึก: เรื่องทั่วไป
คำสำคัญ (keywords): monitoring  sendkey  vbscript
สัญญาอนุญาต: สงวนสิทธิ์ทุกประการ Copyright
สร้าง: 29 กันยายน 2552 15:24 แก้ไข: 29 กันยายน 2552 15:25 [ แจ้งไม่เหมาะสม ]
ดอกไม้
สมาชิกที่ให้กำลังใจ
 
Facebook
Twitter
Google

บันทึกอื่นๆ

ความเห็น

ไม่มีความเห็น
คุณต้องทำการเข้าระบบก่อนแสดงความเห็น