１）USBitの購入

今回は、ユーザーのWebブラウザ上で、方向のボタンをクリックすると、リモートのミニカーが動き、その様子をブラウザの画面にビデオ画像として表示させます。

システムとしては、
a)ユーザーインターフェイスとしてのFlashファイル(SWF)
b)ミニカーに命令を送るVisual Basic(VB)アプリケーション
c)a)からの命令をVBに伝える、仲介役のSWF
d)ビデオ画像を読み取る専門のSWF が要ります。
さらに、
e)WindowsのWebサーバー
f)Flash Communication Server が要ります。
e)は、VBアプリケーションをサーバー内で起動、動作させますので、いわゆるレンタルサーバーでなく、自前で立ち上げます。f)は、a)、b)、c)、d)の仲介役を果たすほか、ビデオ画像の配信、チャット掲示板の管理を行います。

付属のCD-ROMについているサンプルプログラムのVisual Basic 6版のソースファイルをVisual Vasic.NETで開き、中身を解読します。VB上でボタンのクリックで出される命令を、Flash側から出して、それをVBに伝えるようにします。
VBはSWFをActive Xというコンポーネントで読み込めるので、受信用のSWFを作成し、こいつにfscommand()でVBに命令を送るようにします。
＜VBにSWFを読み込む＞
Call ShockwaveFlash1.LoadMovie(0, "D:\Inetpub\wwwroot\flashcom\applications\usbit\rF.swf")
<SWFからのfscommandを実行するVBの関数>
Private Sub ShockwaveFlash1_FSCommand(ByVal sender As System.Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles ShockwaveFlash1.FSCommand
' MessageBox.Show(e.args)
'MessageBox.Show(e.command)
Select Case e.command
Case "goForward"
obj.Forward(Param:=BOOST)
CMD = 11
Case "goRight"
obj.Right(Param:=BOOST)
CMD = 14
以下略...

.SWFは、VBに読み込むSWF、ユーザーインターフェイスのSWF、カメラで画像を取りパブリッシュするSWFの３つを作成します。
インターフェイスSWFで出された命令（例えばgoForward）は、FCSを介して、VBに読み込んだSWFに伝えられ、そのSWFはfscommand()でVBに命令を送ります。

//VBに読み込まれるSWF
vb_nc = new NetConnection();
vb_nc.onStatus = function(info) {
if (info.code == "NetConnection.Connect.Success") {
textArea.text = "接続成功";
} else {
textArea.text = "接続失敗";
}
};
vb_nc.connect("rtmp:/usbit", "vb");
//sendSWFから送られてくるcommandとargsをVBに送る
//車が動きっぱなしになるので、0.3秒後に止める
vb_nc.goDir = function(dir) {
fscommand(dir, "");
stopTimerID = setInterval(doStop, 300);
textArea.text = dir;
};
インターフェイスSWFでは、

this.stop();
//receiveSWFへ命令を送るボタン
if (nc.isConnected) {
forward_btn.onPress = function() {
textArea.text = "go forward ! ";
nc.call("goDir", null, "goForward");
denpa_mc.play();
};
のようにして、FCSへ"goDir"関数をパラメータ"goForward"で実行するように送信しています。

今回のポイントの１つである、FCSではサーバーサイド･スクリプトが活躍しています。
アクセスしてきたユーザーの接続許可や、チャット掲示板機能などの管理のほか、SWF同士の通信の仲介を行っています。
＜VB内に読み込んだSWFに命令を伝えるサーバーサイド・スクリプト＞
Client.prototype.goDir=function(dir){
VBclient.call("goDir",null,dir)
};

８）までで開発段階は終了します。ここからは、インターネット上に公開するWebサーバーとFCSを設定していきます。
WindowsサーバーにはWindows2000Serverを使用し、FCSはパーソナル版を使用しています。
また、ダイナミックDNSを利用するために、ddo.jpに申し込みをします。
ルーターも、ポートフォワーディングが実行できるように設定します。