Question

vb如何实现两台计算机通信

实现当计算机收到另一台计算机通过串口发来的数据是触发相对应的操作！例如：两台计算机串口连接起来，当在一台计算机vb的text1中收到的数据为: FF A0 的时候回复发送出数据：C1给另一PC机，当受到的数据为:FF A1的时候回复数据C2给另一PC机。
请大虾指教，应该如何写代码，谢谢！
要用VB的MSCOMM控件实现，尼欧赵给的程序运行有错误（OXHC1未定义）不过还是要谢谢你，我要是当计算机收到指定数据时能自动回复对应的数据，一定要自动回复。在线等...谢谢了

Answer 1

winscok 串口发消息 上网看看 esay 就两个主要方法 send 和 receive 记不住了 当年用过

Answer 2

用网络控件

Answer 3

用VB的MSCOMM控件：

MSCOMM1.COMMPORT1=1 '设置端口号为1
MSCOMM1.SETTINGS="19200,N,8,1" '设置波特率等通信协议
MSCOMM1.INPUTLEN=2 '设置一次从串口读取2个字节
MSCOMM1.PORTOPEN=TRUE '打开串行口
MSCOMM1.INPUTMODE=COMINPUTMODEBINARY '从串行口读取二进制数据
MSCOMM1.OUTPUT=SENDDAT '发送数据
DO UNTIL MSCOMM1.INBUFFERCOUNT>=2 '查询方式，等待收到2个字节
DOEVENTS
LOOP
DATTEMP=MSCOMM1.INPUT '从串口读取数据至变体变量
RCVDAT=DATTEMP '数据送至接收二进制数组
TXTRCV.TEXT=""
FOR I=0 TO 1 '接收数据送至接收文本框TXTRCV显示
TXTRCV.TEXT=TXTRCV.TEXT&RIGHT("0"&HEX(RCVDAT(I)),2)
NEXT I
DIM SD AS BYTE
IF UCASE(TXTRCV.TEXT)="FFA0" THEN SD=0XHC1
IF UCASE(TXTRCV.TEXT)="FFA1" THEN SD=0XHC2
MSCOMM1.SEND SD
MSCOMM1.PORTOPEN=FALSE '关闭串行口
CMDCOMM.ENABLED=TRUE '使能CMDCOMM按钮
END SUB

Answer 4

我这有winsock做的tcp聊天器源码 要的话 发我QQ邮件 （514108363@qq.com）