用vb.net实现网络通信

用 vb.net socket通信

创新新互联，凭借十多年的成都网站设计、做网站经验，本着真心·诚心服务的企业理念服务于成都中小企业设计网站有上千案例。做网站建设，选成都创新互联。

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

VB.Net 2005 把ring.wav 附加到"解决方案资源管理器"后, api怎么播放

My.Computer.Audio.Play("文件路径及文件名")就可以了，vb.net没有必要用API

下面是读取嵌入式文件：

Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("ring.wav")

Dim bytes(res.Length - 1) As Byte

res.Read(bytes, 0, bytes.Length)

My.Computer.Audio.Play(bytes, AudioPlayMode.Background)

'注意生成操作哪里要选择：嵌入的资源

VB.NET 如何实现局域网内即时会话

楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!

ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..

VB和.net差别是什么啊

第一，VB什么时候都不是世界上使用人数最多的语言。其次，我真的不知道VB这东西有什么好的，如果说VB给当初困扰中的windows程序员们提供了一个所见即所得的UI开发环境，那么其实他们真的应该多关注Delphi、C++

Builder。第三，.NET跟微软的web

service也没有一毛钱的关系，微软第一个web

service的标准是SOAP，2000年左右出的。VB.NET与其说是VB，不如说是微软为了挽留VB程序员做的努力。拿VB去比C++更是令人发指。第四，.NET并非一个编程语言，C#、VB.NET、托管VC、Delphi

.NET都是.NET家族的。

vb.net数组是否包含别的数

是。VB.NET是一种简单，现代，面向对象的计算机编程语言，它由微软开发，将NETFramework和公共语言运行库的强大功能相结合，其数组是包含别的数，可以通过Set集合也能判断数组中是否包含指定元素，“数组”是一组逻辑上相互关联的值。

vb .net 动态创建Timer控件

我从来不加到Controls中也能用，大概这个不是从Control继承而来的，所有非可视部件（即组件）估计都不需要add。

当前题目：vb.net组播 c# 组播
文章地址：http://pwwzsj.com/article/dodjsdj.html