正文
vb.net网络应用教程 vbnet入门在线教程
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用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
相关问答
Q1: 怎样用VB.NET进行网络编程？
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止
Q2: 如何学习VB.NET？
Namespace
包含类似或相关功能vb.net网络应用教程的类的集合
Class
用来定义一个对象vb.net网络应用教程，包含对象的属性（包括变量）、方法（包括过程sub和函数）
Sub
子过程vb.net网络应用教程，可以把要使用的数据以参数形式传入，但不返回值
Function
函数，同样可以传参数，但要求有返回值
Property
属性过程，设置或返回对象的属性值
Return
结束当前sub或function，若是函数则返回一个函数值
Dim
声明或定义一个变量
New
创建一个新的实例对象
Nothing
表示一个变量没有值，与其他语言或数据库中的null等价
Me
当前类的实例对象的引用
Console
.NET
用于访问和操作命令窗口的类，主要用于命令行应用程序
Module
模块，定义一个不是类的代码块，但它同样可以包含变量和方法
运算符
算术运算符vb.net网络应用教程：/（除），\（整除）,Mod（取模）
串联运算符vb.net网络应用教程：，+亦可
逻辑/按位运算符：Not、And、Or、Xor、AndAlso、OrElse
赋值运算符：= ，^= ，*= ，/= ，\= ，+= ，-= ，=，=，=
比较运算符： ，= ， ，= ，= ， ，Is ，IsNot ，Like
移位运算符： ，
其他运算符：AddressOf 运算符 ，GetType 运算符 ，函数表达式，If 运算符 ，TypeOf 运算符，Await 运算符
DirectCast 运算符
TryCast 运算符
New 运算符
*运算优先级：算术连接比较逻辑运算（用括号可改变优先级）
详细：
如果表达式中出现几种运算，将按照预先确定的称为“运算符优先级”的顺序计算和解析各个部分。
算术运算符和串联运算符
求幂 (^)
一元标识和非（+、–）
乘法和浮点除法（*、/）
整数除法 (\)
取模 (Mod)
加法和减法（+、–），字符串连接 (+)
字符串连接 ()
算术移位（、）
比较运算符
所有比较运算符（=、、、=、、=、Is、IsNot、Like、TypeOf...Is）
逻辑运算符和位运算符
非 (Not)
与 (And、AndAlso)
或 (Or、OrElse)
异或 (Xor)
关于vb.net网络应用教程和vbnet入门在线教程的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
