UWSCをLAN内のPCから遠隔操作

UWSCには通信を行う機能がありません。
ちょっと同一LAN内のPCから遠隔で操作をしたいことがあって方法を考えてみたのでメモ。

Windowsのファイル共有を使えばファイルの書き込み削除ができるので、UWSCにあるフォルダ内のファイル数を調べる関数を利用。
リモートのPCからファイル操作できるようにあらかじめWindowsの設定を変更しておきます。

===========
CONST DirControl = "RemoteControl" // 遠隔操作用フォルダ(共有フォルダ)
CONST FileStartStop = "StartStop.txt" // 遠隔操作用ファイル
PUBLIC Flag = FALSE

Thread RemoteControl()

//ここでメインの処理

Procedure RemoteControl()
　　While TRUE
　　　　Flag = (GETDIR(DirControl, FileStartStop) = 1)
　　SLEEP(1)
　　Wend
Fend
===========

あとはメインプログラムの中でFlagをみて動作を変更すればよさげ。
操作する側のPCにバッチファイルを置いておけば簡単に操作できるし、ファイル名によっていろいろ拡張もできそう。

ほかに簡単な方法はないかな。。。