vb.net网络助手 vb net

请问什么是VB，VBSCRIPT，VB。NET？三者的区别？

VB，VBSCRIPT，？

创新互联建站凭借在网站建设、网站推广领域领先的技术能力和多年的行业经验，为客户提供超值的营销型网站建设服务，我们始终认为：好的营销型网站就是好的业务员。我们已成功为企业单位、个人等客户提供了网站设计制作、网站设计服务，以良好的商业信誉，完善的服务及深厚的技术力量处于同行领先地位。

-------------

VB:

Microsoft Visual Basic

一种可视化的,面向对像的编程语言.

VBSCRIPT:

一种网页的脚本语言.用于编写脚本.

VB.NET

和VB差不多.但功能上有加强.语法上也有改变.

------------------------

什么是COM，什么是.NET

说起来很多.但我想你的意思是指在网络上的.所以我只说在网络上的不同.

引用别人的:

是用来划分国际互联网域名体系的,.net .com是其中的一类:

一、顶级域名

域名由两个或两个以上的词构成, 中间由点号分隔开。最右边的那个词称为顶级域名。下面是几个常见的顶级域名及其用法：

“.COM”--用于商业机构。它是最常见的顶级域名。任何人都可以注册.COM 形式的域名。

“.NET”--最初是用于网络组织，例如因特网服务商和维修商。现在任何人都可以注册以.NET结尾的域名。

“.ORG”--是为各种组织包括非盈利组织而定的。现在任何人都可以注册以.ORG 结尾的域名。

二、国家代码

由两个字母组成的顶级域名如.cn, .uk, .de等称为国家代码顶级域名(ccTLDs), 其中.cn是中国专用的顶级域名, 其注册归CNNIC管理, 以.cn结尾的二级域名我们我们称为中国国家顶级域名（俗称国内域名）。注册国家代码顶级域名下的二级域名的规则和政策与不同的国家的政策有关。

三、二级域名

顶级域名的下一级，就是我们所说的二级域名。如"sohu.com"是一个顶级域名，在此域名以下的域名，如"new.sohu.com","mail.sohu.com"等都是二级域名。在这种情况下，new、mail就被称为主名或分域名。

vb.net SerialPort控件接收数据问题，用串口调试助手发数据，只有第一次可以正常接收

你定义的委托需要带参数才行，DataReceived事件中没有接收数据代码，下面的代码经测试可用

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '将收到的数据入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

vb.net 获取指定网卡的网络连接状态

.net不能获得【指定】网卡的信息，给个思路，先遍历所有网卡，然后找到你需要的的那个网卡的信息。

用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