- 追加された行はこの色です。
- 削除された行はこの色です。
#freeze
**SkyWiRES Clientの活用 [#x06f3bc3]
#ref(DV_PTT.JPG,right,around30%)
JM7MUU本田さん作のBlueToothヘッドセットのインターフェースを持つSkyWiRES_ClientのPTTボタンの色の変化を読み取り、UWSCでDVToolのPTTボタンをON/OFFできるものを作ってみた。
#ref(DV_PTT.JPG,right,around,30%)
JM7MUU本田さん作のBlueToothヘッドセットのインターフェースを持つSkyWiRES_ClientのPTTボタンの色の変化を読み取り、[[UWSC]]で[[DVTool]]のPTTボタンをON/OFFできるものを作ってみた。
''&color(Maroon){(注意)SkyWiRES((本田さんに掲載の承認は頂きましたが))と本スクリプトの関係について、本田さんへの質問などは、一切行わないで下さいネ。};'' (^_-
---- dv_ptt2.uws ----
ACW(GETID("SkyWiRES 2010 Ver0.94 (Powered by
JM7MUU)","#32770"),-5,19,434,477,0)
MOUSEORG(GETID("SkyWiRES 2010 Ver0.94 (Powered by JM7MUU)","#32770"))
BTN(LEFT,DOWN,180,13,343)
MMV(180,13,10)
BTN(LEFT,UP,180,13,141)
MMV(180,13,374)
MMV(153,200,10)
MMV(153,200,499)
ct = 0
While True
// x = G_MOUSE_X; y = G_MOUSE_Y
x = 150; y = 210
c = PeekColor(x, y)
ifb blue(c) > 200 then
ifb ct = 1 then
ct = 0;
print blue(c) + ",CT=" + ct ;
app = exec("D:\Appli\Emirate\UWSC\uwsc.exe D:\Appli\Emirate\UWSC\dvptt.UWS");
endif
endif
Sleep(0.5)
x = 150; y = 210
c = PeekColor(x, y)
ifb bule(c) < 200 then
ifb ct = 0 then
ct = 1;
print blue(c) + ",CT=" + ct ;
app = exec("D:\Appli\Emirate\UWSC\uwsc.exe D:\Appli\Emirate\UWSC\dvptt.UWS");
endif
endif
Sleep(0.5)
Wend
function blue(c)
Result = (c and $FF0000) / $10000
fend
---- dvptt.uws ----
ACW(GETID("DVTool 2.0beta4","QWidget"),0,492,643,545,0)
MOUSEORG(GETID("DVTool 2.0beta4","QWidget"))
BTN(LEFT,CLICK,250,15,281)
BTN(LEFT,CLICK,453,510,281)
#clear
#comment
#navi(日記)