扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:wjgaw 来源:论坛 2007年10月14日
关键字:
tcpserver(0).RemoteHostIP = 202.114.102.135 tcpserver(0).LocalPort = 1001 'tcpserver(0)专用于侦听 tcpserver(0).Listen |
tcpserver(Index).SendData Text1.Text |
Private Sub TCPServer_ConnectionRequest(Index As Integer, ByVal requestID As Long) Load tcpserver(Index) tcpserver(Index).Accept requestID End Sub |
Private Sub TCPServer_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim RD As String tcpserver(Index).GetData RD, vbString txtRD.text=RD tcpserver(Index).SendData RD End Sub |
Private Sub TCPServer_Close(Index As Integer) tcpserver(Index).Close Unload tcpserver(Index) End Sub |
Private ConnectFlag As Boolean '设置判断是否连接标志 |
TCPClient.RemoteHost IP= 202.114.102.134 '远程计算机IP地址 TCPClient.RemotePort = 1001 '远程计算机端口 ConnectFlag = False |
If Not ConnectFlag Then TCPClient.Close TCPClient.Connect Do DoEvents Loop Until TCPClient.State = sckConnected ConnectFlag = True End Sub |
Private Sub TCPClient_DataArrival(ByVal bytesTotal As Long) Dim RD As String TCPClient.GetData RD, vbString txtRD.text = RD End Sub |
TCPClient.SendData txtSD.Text |
Private Sub TCPClient_Close() TCPClient.Close Do DoEvents Loop Until TCPClient.State = sckClosed ConnectFlag = False End Sub |
婵″倹鐏夐幃銊╂姜鐢瓕鎻╅崚鍥╂畱閹厖绨$憴顤廡妫板棗鐓欓張鈧弬棰侀獓閸濅椒绗岄幎鈧張顖欎繆閹垽绱濋柇锝勭疄鐠併垽妲勯懛鎶姐€婄純鎴炲Η閺堫垶鍋栨禒璺虹殺閺勵垱鍋嶉惃鍕付娴f娊鈧柨绶炴稊瀣╃閵嗭拷
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者