日記/2011-09-01 のバックアップ差分(No.3)

バックアップ一覧
現在との差分を表示
現在との差分 - Visual を表示
ソースを表示
バックアップを表示
日記/2011-09-01 へ行く。
- 1 (2011-09-02 (金) 09:51:26)
- 2 (2011-09-02 (金) 11:03:18)
- 3 (2017-11-11 (土) 13:02:43)

追加された行はこの色です。
削除された行はこの色です。

**D-STAR(ID-91)のコントロール [#d9b35754]
**ID-91のリモート [#d9b35754]
9月に入り、ID-91をSkypeからコントロールする構想ができたので、一時WiRES-Ⅱを停止させて、ＰＣと常駐ソフトも以下のとおり変更した。
-VAIO（英語版）
Echolink＋mmdtmf.vbs、DVAR HotSpot((このソフトが英語版OSでないと動かないため、VAIOを簡易的に英語版にした))
　→　DVAR HotSpot、Skype１
-Acer（日本語版）
WiRES-Ⅱ、WiRES-Chat、Skype２、Echolink-Proxy、LcwMessenger
WiRES-Ⅱ、WiRES-Chat、Skype２、Echolink-Proxy、LcwMessenger((Echolinkと連携できるのだが、日本語版OSじゃないとＮＧだったため、この変更で復活))
　→　Echolink＋mmdtmf.vbs、RS-91((D-STAR機 ID-91 コントロールソフト))、Skype２＋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();
 &nbsp;
 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(日記)