สลับหน้าจออัตโนมัติ ^[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 วินาที)  ก็จะสลับหน้าจอถัดไป ดังภาพ

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