vb.net枚舉網絡中一切的SQL 2000服務器。本站提示廣大學習愛好者：（vb.net枚舉網絡中一切的SQL 2000服務器）文章只能為提供參考，不一定能成為您想要的結果。以下是vb.net枚舉網絡中一切的SQL 2000服務器正文
關於SQL Server2000來說，翻開SQL Server客戶端預備銜接，當拉開服務器列表的時分，整個局域網一切的SQL Server服務器都被列出來了。於是我發現，從我自己的機器(192.168.0.1)上從1434端口播送(192.168.0.255)了這個UDP包，然後，整個局域網中的SQL Server服務器都開端呼應這個UDP數據包，這時，我的客戶端可以失掉一切服務器信息。
這就是客戶端停止銜接的進程：當客戶端銜接到服務器時，使用順序懇求銜接遠端計算機，Dbnetlib.dll 將翻開到銜接中所指定的計算機網絡名上的 UDP 端口 1434 的銜接。一切運轉 SQL Server 2000 的計算機都監聽此端口。當一個客戶端 Dbnetlib.dll 銜接到該端口時，服務器將前往一個監聽服務器上運轉的一切實例的數據包。關於每個實例，該數據包報告該實例正在監聽的服務器 Net-Library 和網絡地址。使用順序計算機上的 Dbnetlib.dll 收到該數據包後，選擇在使用順序計算機和 SQL Server 實例上都啟用的 Net-Library，然後銜接為此數據包中的 Net-Library 列出的地址。
經過1434端口傳輸特定的UDP數據包，然後服務器開端回應，一切這些都是明文傳輸的，我們可以很容易探測一個IP地址的1434端口，取得該IP地址上運轉的SQL Server的相關信息。這些信息包括：主機稱號、實例稱號、版本、管道稱號以及運用的端口等。這個端口是微軟自己運用，而且不象默許的1433端口那樣可以改動，1434是不能改動的，呵呵，那麼我們為了平安，去改動這個1433端口能起什麼作用呢？
我們可以來捕捉這些數據報，可以發現，經過1434端口的數據十分復雜，客戶端僅僅復雜地發送了02一個字節出去。不過屢次捕捉，發現有時分發送的是 03。於是我就用上面順序一個一個測試，發送其他數據。不過最後只要02、03、04有回應。看來這三種字節用來做SQL Server探測的。而且你可以發送 02 00 00，也可以發送 02 00 00 00 00等等都可以失掉SQL Server的回應，但是發送 02 03就不可以了。
詳細代碼：
Imports System.Net
Imports System.Net.Sockets
Imports System.Net.Sockets.Socket
Imports System.Collections.Specialized
Public Class GetServers
'采用udp協議
Private m_Client As Sockets.UdpClient
'播送地址，表示整個網絡
Private StrHost As String = "255.255.255.255"
'播送端口
Private IntPort As Integer = 1434
'要發送的數據,發送這個數據一切的sqlserver就會呼應了
Private B() As Byte = New Byte() {&H2}
'由於 send 外面有個死循環，這裡用個定時器來處置超時間
Private WithEvents t As New Timers.Timer
'發送數據出去
Function Send() As ArrayList
m_Client = New UdpClient
'用來存儲獲取的sql列表
Dim atemp As New ArrayList
'發送的目的，播送地址
Dim host As New IPEndPoint(IPAddress.Parse(Me.StrHost), Me.IntPort)
Try
'這裡發送數據
m_Client.Send(B, 1, host)
'上面開端讀取，由於網絡內sql server數量眾多,數據包一個一個的前往
'所以這裡循環處置了。
While True
'開定時器
t.Interval = 1000
t.Enabled = True
'接納的字節數組
Dim BR As Byte() = m_Client.Receive(host)
Dim A As System.Text.Encoding = System.Text.Encoding.Default
'用來存儲以後字符串
Dim S As String = ""
'從第4個數字開端，前三個字符為非打印字符
S = A.GetString(BR, 3, BR.Length - 3)
Console.WriteLine(S)
'這裡解析獲取的文本
atemp.Add(New SqlServer(S))
'封閉
t.Enabled = False
End While
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
m_Client.Close()
End Try
Return atemp
'Console.WriteLine("反省終了。。")
End Function
'超時後強迫完畢網絡等候。
Private Sub t_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles t.Elapsed
'Console.WriteLine("封閉。。")
m_Client.Close()
t.Dispose()
End Sub
End Class
Public Class SqlServer
'sql server解析類
'
'由於前往的字符串相似 name1;value1;name2;value2;name3;value3; ....
'而且不固定長度
'所以這裡用NameValueCollection前往。
Private Nv As NameValueCollection
Sub New(ByVal Str As String)
Nv = New NameValueCollection
Dim a As String() = Str.Split(";")
For i As Integer = 0 To a.Length - 1 Step 2
Dim t As Integer = i
Nv(a(t)) = a(t + 1)
Next
End Sub
'由於要添加到combobox，這裡重載了一下tostring以顯示文本
Overrides Function tostring() As String
Return Nv("ServerName")
End Function
End Class
調用代碼
Sub GetSqlServers()
Me.Cursor = Cursors.WaitCursor
Dim a As ArrayList
Dim g As New GetServers
a = g.Send()
For Each c As SqlServer In a
Me.cb_Server.Items.Add(c)
Next
Me.Cursor = Cursors.Default
End Sub
