ActiveBasic インターネットを通じてソフト間で通信する

質問

AB 4.23.00を使用しています。

今回、ネットワークのプログラムの勉強を始め、とりあえず、
ネットワークを通して、ソフト間で簡単なチャットが出来るものを作ってみようと思い、作り始めました。

以前、CreateMailslot関数などで出来ると思い、探し回ったのですが、どうしても出来ないので、質問させていただいたところ、『それでは出来ない』とのこと（http://oshiete1.goo.ne.jp/qa5833366.html）だったので、
新たな方法を探していたところ、ソケットというものを使えば出来るというようなことが書かれているページを見つけ、早速参考にさせていただいています。

ですが、どうも、構造というか、その辺がよく分かっていないので、
どこにどの値をどう入れればいいのか・・・などがよく分かりません。

送信用のプログラムは、おそらく書けていると思いますが（一応貼らせていただきます）、
受信用のプログラムでちょっとつまずいています。
connect関数の接続先はどう指定すればいいのか、ということです。

ご存知の方、いらっしゃいましたら、ご教授の方、お願いします。

【送信用】
#console
#include <api_winsock2.sbp>

Declare Function bind Lib "wsock32.dll" (s As Long,ByRef sName As sockaddr,namelen As Long) As Long
Declare Function listen Lib "wsock32.dll" (s As Long,backlog As Long) As Long
Declare Function accept Lib "wsock32.dll" (s As Long,ByRef addr As sockaddr,ByRef addrlen As Long) As Long

Dim wsaData As WSADATA
WSAStartup(MAKELONG(2,0),wsaData)
Print "WSAStartup--->"+Date$()+" "+Time$()

Dim s As DWord
s=socket(AF_INET,SOCK_STREAM,0)

If s=0 Then
Print "Error-------->Cannot Socket Create"
Sleep(-1)
End If

Dim sar As SOCKADDR

With sar
.sa_family=AF_INET
End With

If bind(s,sar,Len(sar))<>0 Then
Print "Error-------->BIND ERROR"
Sleep(-1)
End If

Dim sarlen As Long
Dim news As DWord

listen(s,128)
news=accept(s,sar,sarlen)

Dim buf[256] As Byte
recv(news,buf,256,0)

send(news,"HELLO",lstrlen("HELLO"),0)

closesocket(s)
closesocket(news)

Print "SENDED"
Sleep(-1)

-----------------------------------------------------------------

【受信用（途中まで）】
#console
#include <api_winsock2.sbp>

Declare Function bind Lib "wsock32.dll" (s As Long,ByRef sName As sockaddr,namelen As Long) As Long
Declare Function listen Lib "wsock32.dll" (s As Long,backlog As Long) As Long
Declare Function accept Lib "wsock32.dll" (s As Long,ByRef addr As sockaddr,ByRef addrlen As Long) As Long

Dim wsaData As WSADATA
WSAStartup(MAKELONG(2,0),wsaData)
Print "WSAStartup--->"+Date$()+" "+Time$()

Dim s As DWord
s=socket(AF_INET,SOCK_STREAM,0)

If s=0 Then
Print "Error-------->Cannot Socket Create"
Sleep(-1)
End If

Dim sar As SOCKADDR

With sar
.sa_family=AF_INET
End With

If bind(s,sar,Len(sar))<>0 Then
Print "Error-------->BIND ERROR"
Sleep(-1)
End If

Dim sock_sin As SOCKADDR_IN
With sock_sin
.sin_family=AF_INET
End With

If connect(s,sock_sin,Len(sock_sin))<>0 Then
Print "Error-------->connect ERROR"
Sleep(-1)
End If

回答No.3

koi1234

>結局listenで接続待ちになっていないようで、すぐにacceptの方に移ってしまい、
>acceptでエラーを返してきます。

動きとしてはそれであっています（実際此方でも同じです）
私が確認したのも listen 関数で該当ポート接続待ちにした状態で Sleep(-1) 関数コールして
その時にツールから接続が出来るか確認しただけです
（動いていない時接続エラー・動かしてる時接続OKの確認しただけ）
その後の動作（プログラミング）はActiveBasicでどのようにやればいいのかわからなかったので・・・・

> Do　Loopで抑えておかないといけないのでしょうか？

普通は（かどうか知りませんが大抵の書籍などでは）
その後は SelectSocket 関数などを使ってイベント待ち状態として
イベントがコールされた時そちらの関数から　Accept/Read/Write 等の関数を
コールしていると思います
（実際私もそのような使い方しかしたことがありませんが　やり方によってコールバック関数でもいいかもしれません）

これは基本的には 永久ループで accept 呼び続けるのと同じことになるのではないかと思います
（いかんせんやったこと無いので自信なし）

あくまでCとしてのサンプルになりますが
（以下VCで作ったソケット部分の切り貼り 単純に切り貼りしてるので大文字小文字入り乱れてます）

メイン側で
　　Listen();
　　WSAAsyncSelect(SockSrv, hwnd_maindlg, WM_USERSOCKET_OFFSET, FD_ACCEPT | FD_READ | FD_WRITE | FD_CONNECT | FD_CLOSE); // 非ブロッキング型

上記 hwnd_maindlg 側で

ON_MESSAGE(WM_USERSOCKET_OFFSET, OnSocketEvent)

void C***::OnSocketEvent(WPARAM wParam, LPARAM lParam)
{
　　switch (WSAGETSELECTEVENT(lParam)){
　　case FD_ACCEPT:
　　　　Accept();
　　　　break;
　　case FD_READ: break;
　　case FD_WRITE: break;
　　case FD_CONNECT: break;
　　case FD_CLOSE: break;
　　default: break;
　　}
}

といったような感じです

でもって今改めてみたけど質問者さんが書いたコードでポート開放できてるみたいでした