**ID-91のリモート [#d9b35754] 9月に入り、ID-91をSkypeからコントロールする構想ができたので、一時WiRES-Ⅱを停止させて、PCと常駐ソフトも以下のとおり変更した。 -VAIO(英語版) Echolink+mmdtmf.vbs、DVAR HotSpot((このソフトが英語版OSでないと動かないため、VAIOを簡易的に英語版にした)) → DVAR HotSpot、Skype1 -Acer(日本語版) WiRES-Ⅱ、WiRES-Chat、Skype2、Echolink-Proxy、LcwMessenger((Echolinkと連携できるのだが、日本語版OSじゃないとNGだったため、この変更で復活)) → Echolink+mmdtmf.vbs、RS-91((D-STAR機 ID-91 コントロールソフト))、Skype2+dst_change.js((SkypeChatでID-91のメモリー操作を行うJScriptでSkype4COM.dllを利用したもの)) +mmdtmf.vbs((以前作成したものにUWSC処理追加)) EcholinkAPIを利用し、DTMFデータ → RFのON/OFF、時報など。また今回は同じPC上にRS-91が起動しているので、あまり効果は無いが、dst_change.jsと同じ操作ができるようにした。 'Instantiate EchoLink's Session component, and set up an event connection Set oEchoLink = WScript.CreateObject("EchoLink.EchoLinkSession", "EchoLink_") Set SysEchoLink = oEchoLink.SysopConfig Set ConfEchoLink = oEchoLink.SystemConfig 中略 case "xx" CreateObject("Wscript.Shell").Run "C:\archive\emirate\uwsc\\txon.uws" Wscript.Sleep 1000 oEchoLink.SayPhrase 4 'Online case "xx" oEchoLink.PTTActivation 1 oEchoLink.SayString "OK OFF" Wscript.Sleep 1000 CreateObject("Wscript.Shell").Run "C:\archive\emirate\uwsc\txoff.uws" 以下省略 +dst_change.js 遠方よりSkypeChatでコマンドを送り、ID-91のメモリー操作を行う。 これを起動する前に、Skype4COMを組み込む&linkblank(http://www.rhein-strasse.de/blog/2006/12/05/dotnet2_and_skype4com/){参照→};((コマンドラインから、”regsvr32 Skype4COM.dll” と入力する。ただし、Windows7の場合は別な方法あり)) var skype = new ActiveXObject('Skype4COM.Skype'); WScript.ConnectObject(skype, 'Skype_'); skype.Attach(); while(true){ WScript.Sleep(1000); } function Skype_MessageStatus(msg, status){ if(status == skype.Convert.TextToChatMessageStatus('RECEIVED')){ var sh = new ActiveXObject( "WScript.Shell" ); var user = msg.FromDisplayName; var body = msg.Body; var chat = msg.Chat; switch (body){ case "#cq": sh.Run( "C:/archive/emirate/uwsc/p20.uws"); chat.SendMessage(user + '\n' + 'Your:CQCQCQ'); beak; case "#u": sh.Run( "C:/archive/emirate/uwsc/p21.uws"); chat.SendMessage(user + '\n' + 'Your: ______U'); beak; 以下省略 +p20.uws [[UWSC]]により画面操作を記録したもの((これは絶対位置。本来は相対位置で記録した方がベター)) ACW(GETID("RS-91","TForm"),987,542,283,382,0) BTN(LEFT,CLICK,1103,555,300) BTN(LEFT,CLICK,1096,660,300) KBD(VK_CTRL,DOWN,50) KBD(VK_CTRL,DOWN,50) KBD(VK_RETURN,DOWN,50) KBD(VK_CTRL,UP,50) +デスクトップ画面 UWSCを利用しているため、RS-91ダイヤログボップクの位置、大きさは固定しておかなくてはならない。((相対位置で指定するのであれば、不要と思う) #ref(desktop0901B.jpg,center,,70%) #clear #comment #navi(日記) |