飞扬围棋

标题: FoxGTP的不成功的东西，不知道错误在哪里，VB语言 [打印本页]

作者: stud3 时间: 2021-7-16 04:50
标题: FoxGTP的不成功的东西，不知道错误在哪里，VB语言

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 时间: 2021-7-17 23:47
楼主发的，太高深的东西！

欢迎光临飞扬围棋 (http://flygo.net/bbs/)