SkyWiRES Clientの活用JM7MUU本田さん作のBlueToothヘッドセットのインターフェースを持つSkyWiRES_ClientのPTTボタンの色の変化を読み取り、UWSCでDVToolのPTTボタンをON/OFFできるものを作ってみた。 ---- 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) |