目录 /appsc
windvr3.vbs ****基于框架式样的控制脚本,控制Windvr3。
DScaler.vbs ****基于框架式样的控制脚本,控制DScaler。
flytv2k.vbs ****自由式样的控制脚本,控制FlyTV2000
mpc.vbs ****控制 Media Player Classic
winamp.vbs ****控制winamp
wmp9.vbs ****控制Window Media Player 8,9,10
刚才终于搞清楚了(因为我根本不懂编程,只能对比脚本,不断地试)
DScaler的脚本中有点小错误所以不能正常控制音量:
Sub DoRight()
Dim wp
wp = iState - 1
If iState < 0 Then
'PostMessage gHWND, WM_CHAR, Asc("+"), 0
PostMessage gHWND, WM_COMMAND, 374, 0
Else
PostMessage gHWND, WM_COMMAND, 600+3*wp, 0
End If
End Sub
Sub DoLeft()
Dim wp
wp = iState - 1
If iState < 0 Then
'PostMessage gHWND, WM_CHAR, Asc("-"), 0
PostMessage gHWND, WM_COMMAND, 375, 0
Else
PostMessage gHWND, WM_COMMAND, 601+3*wp, 0
End If
End Sub
把按键脚本第l四行的iState改为wp就可以正常控制音量和亮度等参数了!
修改后为:
Sub DoRight()
Dim wp
wp = iState -1
If wp < 0 Then
PostMessage gHWND, WM_CHAR, Asc("+"), 0
Else
PostMessage gHWND, WM_COMMAND, 600+3*wp, 0
End If
End Sub
Sub DoLeft()
Dim wp
wp = iState -1
If wp < 0 Then
PostMessage gHWND, WM_CHAR, Asc("-"), 0
Else
PostMessage gHWND, WM_COMMAND, 601+3*wp, 0
End If
End Sub