十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用 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
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)
'注意生成操作哪里要选择:嵌入的资源
楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!
ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..
第一,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是一种简单,现代,面向对象的计算机编程语言,它由微软开发,将NETFramework和公共语言运行库的强大功能相结合,其数组是包含别的数,可以通过Set集合也能判断数组中是否包含指定元素,“数组”是一组逻辑上相互关联的值。
我从来不加到Controls中也能用,大概这个不是从Control继承而来的,所有非可视部件(即组件)估计都不需要add。