カテゴリー別アーカイブ: 未分類

httpd.confのディレクティブの入れ子設定

コメントをどうぞ

通常はPHP7(モジュール)で動かしているサイトの、特定ディレクトリだけPHP5(CGI)で動かしたくて試行錯誤。

もともと、PHP7のほうは、
SetHandler application/x-httpd-php

PHP5のほうは
AddHandler fcgid-script .php

で、設定していた。

DirectoryMatchとか、FilesMatchでうまいことできないか試してみてもうまくいかず。

結局、まず最初にPHP7の設定を、
AddHandler application/x-httpd-php .php

で、設定して、特定ディレクトリのほうを、
SetHandler fcgid-script

で、上書きすることで対応した。

なんか、あんまスマートじゃない。

電卓ボタンから電卓の複数起動を回避する試行錯誤

コメントをどうぞ

マイクロソフトのエルゴノミック系のキーボードを使っている。
テンキーに電卓ボタンがついていて便利なのだが、押すたびに電卓が立ち上がる。
複数起動を避けるために試行錯誤したメモ。

system32/calc.exeがランチャーの様子。
これをいじりたかったけど、権限がうんたらでうまくいかず。

batかvbsで、電卓を立ち上げる、立ち上がっていればフォーカスを与えるようにする。

いろいろ試したけど、vbsのWscript.ShellのAppActivateで電卓にフォーカスを与えることができず。
メモ帳とかはOK。UWPだから？
仕方ないので、適当な電卓ソフトを探してきて、設置。

VBSを準備

Const strCalcExe = "BunCalc.exe" 'プロセス名
 
call ActiveCalc
 
sub ActiveCalc()
    Dim objWshShell
    Dim calcID
    
    calcID=GetProcID(strCalcExe)
 
 
    'MsgBox calcID
 
    Set objWshShell = CreateObject("Wscript.Shell")
 
    IF calcID = 0 Then
       strCmdLine = "D:\nonInstallPrograms\BunCalc\BunCalc.exe"
       Set objExecCmd = objWshShell.Exec(strCmdLine)
    Else
       objWshShell.AppActivate calcID
    End If
 
 
    Set objWshShell = Nothing
End Sub
 
Function GetProcID(ProcessName)
    Dim Service
    Dim QfeSet
    Dim Qfe
    Dim RetInt
 
    Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer
    Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='"& ProcessName &"'")
 
    RetInt = 0
    
    For Each Qfe in QfeSet
        RetInt =  Qfe.ProcessId
        Exit For
    Next
 
    GetProcID = RetInt
End Function

Const strCalcExe = "BunCalc.exe" 'プロセス名

call ActiveCalc
 
sub ActiveCalc()
    Dim objWshShell
    Dim calcID
    
    calcID=GetProcID(strCalcExe)


    'MsgBox calcID

    Set objWshShell = CreateObject("Wscript.Shell")

    IF calcID = 0 Then
       strCmdLine = "D:\nonInstallPrograms\BunCalc\BunCalc.exe"
       Set objExecCmd = objWshShell.Exec(strCmdLine)
    Else
       objWshShell.AppActivate calcID
    End If


    Set objWshShell = Nothing
End Sub
 
Function GetProcID(ProcessName)
    Dim Service
    Dim QfeSet
    Dim Qfe
    Dim RetInt
 
    Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer
    Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='"& ProcessName &"'")

    RetInt = 0
    
    For Each Qfe in QfeSet
        RetInt =  Qfe.ProcessId
        Exit For
    Next
 
    GetProcID = RetInt
End Function

キーの割り当ては、レジストリ。
電卓ボタンは18番らしい。
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AppKey\18
文字列値を新規で追加する

名前 ShellExecute
値 VBSファイルの絶対パス