home.lib: files in $HOME/lib: disp/toggle

     1 Dim action

     2 action = "asis"

     4 If WScript.Arguments.Count <> 1 then

     5    WScript.quit

     6 End If

     8 If WScript.Arguments.item(0) = "on" Then

     9     action = "on"

    10 Else

    11     action = "off"

    12 End If

    15 ' Dim Locator

    16 ' Dim Service

    17 ' Dim QfeSet

    18 ' Dim Qfe

    20 ' Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")

    21 ' Set Service = Locator.ConnectServer

    22 ' Set QfeSet = Service.ExecQuery("Select * From Win32_DesktopMonitor")

    24 ' Dim accum

    25 ' accum = 0

    27 ' If Qfeset.Count = 2 Then

    28 '     For Each Qfe In QfeSet

    29 '         accum = accum * 10

    30 '         accum = accum + Qfe.Availability

    31 '     Next

    32 '     If accum = 38 Or accum = 83 Then

    33 '         action = "on"

    34 '     ElseIf accum = 33 Then

    35 '         action = "off"

    36 '     End If

    37 ' End If

    39 Dim objWsh

    40 Set objWsh = WScript.CreateObject("WScript.Shell")

    41 objWsh.Run "control.exe desk.cpl ,4"

    42 Do Until objWsh.AppActivate("画面のプロパティ")

    43     WScript.Sleep 100

    44 Loop

    46 If action = "on" Then

    47     objWsh.SendKeys "{TAB}"

    48     objWsh.SendKeys "2"

    49     objWsh.SendKeys "{TAB 4}"

    50     objWsh.SendKeys " "

    51     objWsh.SendKeys "{UP 19}"

    52     objWsh.SendKeys "{LEFT 29}"

    53     objWsh.SendKeys "{DOWN 7}"

    54     objWsh.SendKeys "{TAB 9}"

    55     'objWsh.SendKeys "{ENTER}"

    56 ElseIf action = "off" Then

    57     objWsh.SendKeys "{TAB}"

    58     objWsh.SendKeys "2"

    59     objWsh.SendKeys "{TAB 5}"

    60     objWsh.SendKeys " "

    61     objWsh.SendKeys "{TAB 8}"

    62     'objWsh.SendKeys "{ENTER}"

    63 End If

author	Shingo W. Kagami
	Sun, 19 Sep 2010 05:55:48 +0900
changeset 5	105778ace30a
permissions	-rw-r--r--