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、跟别人下棋的命令为什么接收不到?
如能给些帮助,不胜感激!!!
楼主发的,太高深的东西!:)
页:
[1]