更新した。
ただ、機能の習性部分だけなので
この質問の解決になるかどうかは別問題という事で。
チュートリアルにするつもりで作っておいたサーバサンプル
#include "Ask.as"
sdim recvBuf , 1024
handle = aCreateHandle( aAUTO )
ret = aServer( handle , "Server" , "59603" , aMSG_NONE )
if ret = aFALSE : end
*recvLoop
await 100
if aGetTextLine( handle ) <= 0 : goto *recvLoop
dpnid = aGetText( handle , 1024 , recvBuf )
mes "DPNID [" + strf("%06d" , dpnid ) + "]:" + recvBuf
if recvBuf = "やま!?" : ret = aSendTextTo( handle , dpnid , "皮!!" )
goto *recvLoop
同クライアントサンプル
#include "Ask.as"
sdim recvBuf , 1024
handle = aCreateHandle( aMANUAL )
ret = aConnect( handle , "localhost" , "59603" , aMSG_NONE )
if ret = aFALSE : end
ret = aSendText( handle , "やま!?" )
*recvLoop
await 100
if aGetTextLine( handle ) <= 0 : goto *recvLoop
dpnid = aGetText( handle , 1024 , recvBuf )
mes "DPNID [" + strf("%06d" , dpnid ) + "]:" + recvBuf
goto *recvLoop