vb制作外网聊天？

用VB做一个实现互联网的连接聊天程序

这个很简单，一个服务端和一个客户端。 我们先画一个服务端界面，两个textbox，一个command，一个winsock,非别为:Text1,text2,command1 text1用于填写你需要发送的信息 text2用于显示接收的信息 command1用于发送信息 winsock1用于创建连接 客户端和服务端的界面一样。 接下来我们开始写代码： 服务端： Private Sub Command1_Click() Dim a As String Text2.Text = Text2.Text & vbCrLf & Text1.Text a = Text1.Text Winsock1.SendD

vb外网点对点聊天

'主机监听 sub form_load() winsock.localport=12345 winsock1.listen end sub sub winsock1_connectionrequest(byval requestid as long) if winsock1.state<>0 then winsock1.close winsock1.listen end if winsock1.accept requestid winsock1.senddata "自定义标识" end sub sub winsock1_dataarrival(byval bytestotal as long)

为什么我用VB制作的聊天器发给别人就不能用，但是我自己就能用。。。。。

我没看到你连接的ip，看不出你是公网还是局域网。所以有四种可能： 第一内网与内网连接。如果在本机测试通过，那么在内网相连应该可以通过，但由于你代码的写法我没见过也看不到你连接的目标ip，所以我不敢确定是不是代码问题。 第二内网与外网相连。一般的写法是客户端自动连接服务端，所以当你在内网而客户端在外网。在外网客户端向你的ip发出连接请求，由于你在内网所以这个请求是发向路由器的，路由器在接收到请求后就会将请求的端口在映射队列里查询，如果你没有设置映射端口，路由器就会将请求丢掉。所以这种情况你要在路由器里将连接端口映射到你的内网IP里。 第三种就是内网连接外网。也就是客户端在内网，服务端在外网。这种

VB中用winsock与外网连接，高手进！！

socket程序不存在内网外网的问题。 你内网能连通，那外网也能连通。问题是你的程序是怎么样的？ 比如你的程序是A,你同学的程序是B 那A连接B的时候你是怎么处理的，你能知道B的IP地址吗？ 如果双方都可以知道对方的IP地址，那能保证双方的防火墙允许通过吗？ 有个简单的方式可以试一试。 比如你同学的机器IP是 10.10.10.10 （这个IP必须保证是公网IP或者说是外网IP），他的程序在6666端口监听。 那你用telnet 10.10.10.10 6666 命令，看看能不能连接上，如果不能，那就是网络不通了。 当然，如果都在内网里，想要穿透NAT网关，这个技术就复杂了，你可以去找找资料。

VB编一个聊天工具

怎么都要这个东西，那天也看到一个要代码的 那我就再贴一个。我调试过 没问题的 只要你对winsock控件了解 其实没什么的 就是一些对接收到的和发送的信息做一些处理而已 你先吧程序做好，慢慢再按照功能看，会比较简单。如果不行 我再给你源程序。给你讲解下也行 一个server端 Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Winsockserver.SendData Text4.Text + ":" + textsend.Text textget.Text = textget.Text + vbCrL

标签：编程 vb 信息技术 聊天 电脑网络