स्थानीय नेटवर्क आरेख के सॉफ्टवेयर विज़ुअलाइज़ेशन

विभिन्न सबनेट के साथ एक जटिल स्थानीय नेटवर्क एक ब्रंचयुक्त संरचना है जिसे ग्राफ के लिए जिम्मेदार ठहराया जा सकता है। कंप्यूटर और राउटर को ग्राफ के नोड्स के रूप में दर्शाया जाता है, और उनके बीच के कनेक्शन ग्राफ के किनारों होते हैं।







यह ज्ञान हमें स्थानीय नेटवर्क प्रदर्शित करने में कैसे मदद करता है?

QuickGraph

रेखांकन के साथ काम करने के लिए एक उत्कृष्ट मुफ्त पुस्तकालय है - क्विकग्राफ। इस पुस्तकालय में रेखांकन के साथ काम करना बहुत सरलता से लागू किया जाता है।



नाम स्थान आयात करें:

Imports QuickGraph







एक ग्राफ घोषित करें:

Dim graph As New BidirectionalGraph(Of Object, IEdge(Of Object))







जैसा कि पहले कहा गया था, कंप्यूटर हमारे ग्राफ के नोड हैं। नोड जोड़ें:

graph.AddVertex("")







हम सक्रिय निर्देशिका से कंप्यूटरों की सूची लेंगे:

Dim de As New DirectoryServices.DirectoryEntry

Dim search As New DirectorySearcher(de)

search.Filter = "(objectCategory=computer)"

Dim results As SearchResultCollection = search.FindAll()

For i As Integer = 0 To results.Count - 1

Dim de2 As DirectoryEntry = results(i).GetDirectoryEntry

Dim ComputerName As String = CType(de2.InvokeGet("cn"), String)

graph.AddVertex(ComputerName)

Next







महान, लेकिन परिणाम एक ग्राफ की तरह थोड़ा सा है। नोड्स के बीच हमारा कोई संबंध नहीं है।



जैसा कि आप जानते हैं, सभी कंप्यूटरों में सामान्य बिंदु होते हैं जिनके साथ वे जुड़े होते हैं - राउटर (राउटर)। यह संभव है कि स्थानीय नेटवर्क में एक राउटर न हो, लेकिन इस मामले में इसका दृश्य काफी सरल है।



नेटवर्क में प्रत्येक कंप्यूटर सीधे एक राउटर से जुड़ा होता है जिसका पता कंप्यूटर के नेटवर्क बोर्ड के गुणों में गेटवे के रूप में पंजीकृत होता है।



WMI का उपयोग कर कंप्यूटर के माध्यम से चलना ...

Private Function GetGateway(ByVal ComputerName As String) As String

Dim s As String = String.Empty

Dim query As ManagementObjectSearcher

Dim queryCollection As ManagementObjectCollection

Dim msc As ManagementScope = New ManagementScope("\\" + ComputerName + "\root\cimv2")

query = New ManagementObjectSearcher(msc, New SelectQuery("SELECT * FROM Win32_NetworkAdapterConfiguration"))

queryCollection = query.Get()

For Each mObject As ManagementObject In queryCollection

Try

If mObject("DefaultIPGateway").ToString <> "" Then

s = mObject("DefaultIPGateway")(0).ToString

End If

Catch

End Try

Next

Return s

End Function







... सभी गेटवे की एक सूची प्राप्त करें। उन्हें ग्राफ़, साथ ही कंप्यूटर में जोड़ें:

graph.AddVertex("")







नोड्स के अलावा के साथ, कंप्यूटर और गेटवे के बीच कनेक्शन जोड़ें:

graph.AddEdge(New Edge(Of Object)("", ""))







अब हमारे पास एक ग्राफ है, लेकिन एक दृश्य नहीं है।

ग्राफ #

क्विकग्राफ ग्राफ़ विज़ुअलाइज़ेशन के लिए MSAGL, GLEE और ग्राफविज़ का समर्थन करता है, लेकिन हम ग्राफ # का उपयोग करेंगे। इस ढांचे में WPF अनुप्रयोगों में ग्राफ़ विज़ुअलाइज़ेशन के लिए विभिन्न एल्गोरिदम शामिल हैं।



हम ग्राफलेयॉट फॉर्म पर दिए गए ढांचे से नियंत्रण रखते हैं और पहले बनाए गए ग्राफ को प्रदर्शित करने के लिए एक सरल रेखा लिखते हैं:

GraphLayout.Graph = graph







और हम सभी की जरूरत है ग्राफ # बाकी का ख्याल रखेगा।







संदर्भ:

QuickGraph

ग्राफ #