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

楼主发的，太高深的东西！:)
页: [1]
查看完整版本: FoxGTP的不成功的东西，不知道错误在哪里，VB语言