快来救命啊!关于winsock的问题!快来救命啊!!!!!!!!!
我写了一个聊天软件 出现了个很牛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"那就行了???怪不怪?救命啊!老师教的怎么不对啊!!!!!!大侠救命啊整了一晚了
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"那就行了???怪不怪?救命啊!老师教的怎么不对啊!!!!!!大侠救命啊整了一晚了
...全文
相关推荐
注册表winsock.reg和winsock2.reg
误删注册表winsock没有备份,导致无法上网时,导入这两个文件马上就可以解决。 正常上网的win10家庭版中导出的。 下载后可直接使用
NETSH WINSOCK RESET这条命令的含义和作用?
NETSH WINSOCK RESET这条命令的含义和作用?
win10 winsock.zip
文件为Windows10系统的winsock文件,可以在误删除winsock和QQ启动报initialization failure:0×0000000c错误及软件无法正常打开时使用
winsock,解决能上qq,不能打开网页的问题
解决能上qq,不能打开网页的问题,实在,好用
winsock和winsocket2注册表.zip
客户端卸载后上不网的解决方法,winsock和winsock2注册表,用于重新修复10的注册表


网络编程
