日記/2011-09-01
をテンプレートにして作成
ホーム
検索
最終更新
テスト
リンク
ヘルプ
新規
pukiwiki-official
pukiwiki-dev
ヘルプ
プラグインヘルプ
開始行:
**ID-91のリモート [#d9b35754]
9月に入り、ID-91をSkypeからコントロールする構想ができたの...
-VAIO(英語版)
Echolink+mmdtmf.vbs、DVAR HotSpot((このソフトが英語版OS...
→ DVAR HotSpot、Skype1
-Acer(日本語版)
WiRES-Ⅱ、WiRES-Chat、Skype2、Echolink-Proxy、LcwMessenge...
→ Echolink+mmdtmf.vbs、RS-91((D-STAR機 ID-91 コントロ...
+mmdtmf.vbs((以前作成したものにUWSC処理追加))
EcholinkAPIを利用し、DTMFデータ → RFのON/OFF、時報など...
'Instantiate EchoLink's Session component, and set up an...
Set oEchoLink = WScript.CreateObject("EchoLink.EchoLinkS...
Set SysEchoLink = oEchoLink.SysopConfig
Set ConfEchoLink = oEchoLink.SystemConfig
中略
case "xx"
CreateObject("Wscript.Shell").Run "C:\archive\emirate...
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...
以下省略
+dst_change.js
遠方よりSkypeChatでコマンドを送り、ID-91のメモリー操作を...
これを起動する前に、Skype4COMを組み込む&linkblank(http://...
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('REC...
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(日記)
終了行:
**ID-91のリモート [#d9b35754]
9月に入り、ID-91をSkypeからコントロールする構想ができたの...
-VAIO(英語版)
Echolink+mmdtmf.vbs、DVAR HotSpot((このソフトが英語版OS...
→ DVAR HotSpot、Skype1
-Acer(日本語版)
WiRES-Ⅱ、WiRES-Chat、Skype2、Echolink-Proxy、LcwMessenge...
→ Echolink+mmdtmf.vbs、RS-91((D-STAR機 ID-91 コントロ...
+mmdtmf.vbs((以前作成したものにUWSC処理追加))
EcholinkAPIを利用し、DTMFデータ → RFのON/OFF、時報など...
'Instantiate EchoLink's Session component, and set up an...
Set oEchoLink = WScript.CreateObject("EchoLink.EchoLinkS...
Set SysEchoLink = oEchoLink.SysopConfig
Set ConfEchoLink = oEchoLink.SystemConfig
中略
case "xx"
CreateObject("Wscript.Shell").Run "C:\archive\emirate...
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...
以下省略
+dst_change.js
遠方よりSkypeChatでコマンドを送り、ID-91のメモリー操作を...
これを起動する前に、Skype4COMを組み込む&linkblank(http://...
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('REC...
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(日記)
ページ名: