請問什么是VB，VBSCRIPT，VB。NET？三者的區(qū)別？

VB，VBSCRIPT，？

創(chuàng)新互聯(lián)建站憑借在網站建設、網站推廣領域領先的技術能力和多年的行業(yè)經驗，為客戶提供超值的營銷型網站建設服務，我們始終認為：好的營銷型網站就是好的業(yè)務員。我們已成功為企業(yè)單位、個人等客戶提供了網站設計制作、網站設計服務，以良好的商業(yè)信譽，完善的服務及深厚的技術力量處于同行領先地位。

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

VB:

Microsoft Visual Basic

一種可視化的,面向對像的編程語言.

VBSCRIPT:

一種網頁的腳本語言.用于編寫腳本.

VB.NET

和VB差不多.但功能上有加強.語法上也有改變.

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

什么是COM，什么是.NET

說起來很多.但我想你的意思是指在網絡上的.所以我只說在網絡上的不同.

引用別人的:

是用來劃分國際互聯(lián)網域名體系的,.net .com是其中的一類:

一、頂級域名

域名由兩個或兩個以上的詞構成, 中間由點號分隔開。最右邊的那個詞稱為頂級域名。下面是幾個常見的頂級域名及其用法：

“.COM”--用于商業(yè)機構。它是最常見的頂級域名。任何人都可以注冊.COM 形式的域名。

“.NET”--最初是用于網絡組織，例如因特網服務商和維修商。現(xiàn)在任何人都可以注冊以.NET結尾的域名。

“.ORG”--是為各種組織包括非盈利組織而定的?，F(xiàn)在任何人都可以注冊以.ORG 結尾的域名。

二、國家代碼

由兩個字母組成的頂級域名如.cn, .uk, .de等稱為國家代碼頂級域名(ccTLDs), 其中.cn是中國專用的頂級域名, 其注冊歸CNNIC管理, 以.cn結尾的二級域名我們我們稱為中國國家頂級域名（俗稱國內域名）。注冊國家代碼頂級域名下的二級域名的規(guī)則和政策與不同的國家的政策有關。

三、二級域名

頂級域名的下一級，就是我們所說的二級域名。如"sohu.com"是一個頂級域名，在此域名以下的域名，如"new.sohu.com","mail.sohu.com"等都是二級域名。在這種情況下，new、mail就被稱為主名或分域名。

vb.net SerialPort控件接收數(shù)據(jù)問題，用串口調試助手發(fā)數(shù)據(jù)，只有第一次可以正常接收

你定義的委托需要帶參數(shù)才行，DataReceived事件中沒有接收數(shù)據(jù)代碼，下面的代碼經測試可用

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '將收到的數(shù)據(jù)入接收文字框中

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 獲取指定網卡的網絡連接狀態(tài)

.net不能獲得【指定】網卡的信息，給個思路，先遍歷所有網卡，然后找到你需要的的那個網卡的信息。

用vb.net實現(xiàn)網絡通信

用 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