T2FUKUOKA
旧サーバ
旧T2 FUKUOKA
旧 T3FUKUOKA
旧 T4FUKUOKA
japan.aprs2.net
IGate,Digi一覧
JG6YCL-*
Ketai Tracker
System
九州北部
JA4/5/6 サービスエリア
その他地域サービスエリア
移動軌跡(Static版)
APRS WX
APRS Tracker
TinyTrak4
TinyTrak3
技術資料
EchoLink
FWD-NET
Misc.
Blog
Software
test
KetaiTrackerの地図システムで生成される地図をUI-View32の地図として利用可能です。
注意:上記のUI-VIew32のスケジュールエディタを利用した方が確実かつ容易です。
UI-View32の起動からAPRS Serverに自動接続するまでの起動VbScriptです。
下記Scriptを適当なファイル名(拡張子は .vbs)で作成し、PC起動時に自動的に実行されるようにスタートアップなどに登録を行ってください。
rem rem rem Dim objWshShell Dim strCmdLine Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "C:\Program Files\Peak Systems\UI-View32\Uiview32.exe" Set objExecCmd = objWshShell.Exec(strCmdLine) If Err.Number = 0 Then WScript.Sleep(10000) ' UI-Viewの起動の所要時間により変更が必要 objWshShell.SendKeys "%c" ' ACTION WScript.Sleep(1000) ' objWshShell.SendKeys "A" ' Connect To APRS Server WScript.sleep(1000) objWshShell.SendKeys "{ldelim}ENTER{rdelim}" ' [OK] WScript.sleep(1000) objWshShell.SendKeys "%o" ' Options WScript.sleep(1000) objWshShell.SendKeys "o" 'show igate traffic Else WScript.Echo "Error:" & Err.Description End If Else WScript.Echo "Error:" & Err.Description End If
rem rem rem options Explicit Dim objWshShell Dim strCmdLine Dim objExecCmd Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "C:\Program Files\Peak Systems\UI-View32\Uiview32.exe" Set objExecCmd = objWshShell.exec(strCmdLine) If Err.Number = 0 Then WScript.Sleep(10000) ' objWshShell.AppActivate(objExecCmd.ProcessID) objWshShell.SendKeys "%c" ' ACTION WScript.Sleep(1000) ' objWshShell.AppActivate(objExecCmd.ProcessID) objWshShell.SendKeys "A" ' Connect To APRS Server WScript.sleep(1000) objWshShell.AppActivate(objExecCmd.ProcessID) objWshShell.SendKeys "{ldelim}ENTER{rdelim}" ' [OK] WScript.sleep(1000) objWshShell.AppActivate(objExecCmd.ProcessID) objWshShell.SendKeys "%o" ' Options WScript.sleep(1000) objWshShell.AppActivate(objExecCmd.ProcessID) objWshShell.SendKeys "o" 'show igate traffic Else WScript.Echo "Error:" & Err.Description End If Else WScript.Echo "Error:" & Err.Description End If