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