快来救命啊!关于winsock的问题!快来救命啊!!!!!!!!!

qq4157657 qq4157657 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我写了一个聊天软件 出现了个很牛X的问题!先看代码
Private Sub Command1_Click()
Winsock1.SendData txtSend.Text
txtSend.Text = ""
End Sub

Private Sub Command2_Click()
txtMess.Text = ""
End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 10
Winsock1.RemotePort = 10
Winsock1.RemoteHost = "192.168.1.5" 这里!!!注意看这行
Text1.Text = Winsock1.LocalIP
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tmp As String
Winsock1.GetData Tmp, vbsting
Tmp = "¶Ô·½Î»Ö·->" + Winsock1.RemoteHostIP + "·¢ÑÔÄÚÈÝΪ->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

我想把winsock1.remotehost=???改成text1.text 但是居然不行!好象10049错误 但是如果我写"192.168.1.5"那就行了???怪不怪?救命啊!老师教的怎么不对啊!!!!!!大侠救命啊整了一晚了
...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部
qq4157657
网络编程 1,502 成员 18,427 内容