FoxGTP的不成功的东西，不知道错误在哪里，VB语言

stud3

FoxGTP中的各项填写，，，命令行参数，不知道怎么填写


这个图中看，我自己写的GTP，能正常跟FoxGTP连接，在野狐中，也能通过。也得到了控制台命令“#FASTATUS,O*OF”，说明通信正常。
但是下棋的过程中，收不到下棋的信息，发送“$AFSTATUS,W*hh<CR><LF>”命令无效果。

程序用的VB（或EXCEL的VBA）语言，Winsock控件
Private Sub Form_Load()
    Winsock1.LocalPort = 8423 '设置侦听端口
    Winsock1.Listen           '侦听
End Sub

Private Sub Winsock1_connectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then
        Winsock1.Close
        Winsock1.Accept requestID
    End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Winsock1.GetData strData     '接收到信息后在文本框显示
    Text2.Text = strData
End Sub

Private Sub Command1_Click()
    Winsock1.SendData "$AFSTATUS,W*hh" & vbCrLf '发送$AFSTATUS,W*hh<CR><LF>命令，，，回车换行的字符串在VB中是VBCRLF
End Sub


问题出在哪里？
1、发送的命令没带ID?
2、跟别人下棋的命令为什么接收不到？
如能给些帮助，不胜感激！！！

zjh889

楼主发的，太高深的东西！