VB数据收发
求一个可以用VB进行数据包收发的程序,要求在指定的IP之间进行
帮顶
UP
我在网上看到一个聊天的简单程序,执行后没有反应,Winsock1_DataArrival事件没有发生,不知道是什么问题,大家帮忙看看吧:
Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub
Private Sub Command1_Click() '发送信息
Winsock1.SendData txtSend.Text
End Sub
我试了下， 这个事件是有发生的 ，不知道你有没有添加Winsock1控件上去
.BIND Winsock1.LocalPort
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
我是一个新手，请问怎么样将一个VB的网页改成C#的？网站的界面，功能都不需要改变，只需要把后台代码换成C#的，但是我只有已编译好的界面代码。时间比较紧，怎么样用比较简单的方法实现？谢谢！
vs2008不是自带一个 ......
