طريقة عرض أجهزة الشبكة في الفورم على شكل ايقونات في Vb.net 2005

Imports System.[color= #66cc66;]IO

   Imports System.[color= #66cc66;]Collections.[color= #66cc66;]Specialized

 

  [color= #800000;]Public [color= #800000;]Function GetNames[color= #66cc66;]([color= #66cc66;]) [color= #800000;]As StringCollection

          [color= #800000;]Dim _startInfo [color= #800000;]As ProcessStartInfo = [color= #800000;]New ProcessStartInfo[color= #66cc66;]([color= #ff0000;]"net", [color= #ff0000;]"view"[color= #66cc66;])

          _startInfo.[color= #66cc66;]CreateNoWindow = [color= #800000;]True

          _startInfo.[color= #66cc66;]UseShellExecute = [color= #800000;]False

          _startInfo.[color= #66cc66;]RedirectStandardOutput = [color= #800000;]True

          [color= #800000;]Dim _process [color= #800000;]As Process = Process.[color= #66cc66;]Start[color= #66cc66;](_startInfo[color= #66cc66;])

          [color= #800000;]Dim _reader [color= #800000;]As StreamReader = _process.[color= #66cc66;]StandardOutput

          [color= #800000;]Dim _machineNames [color= #800000;]As StringCollection = getMachineNameFromProcessOutput[color= #66cc66;](_reader.[color= #66cc66;]ReadT
oEnd[color= #66cc66;]([color= #66cc66;])[color= #66cc66;])

          [color= #800000;]Return _machineNames

      [color= #800000;]End [color= #800000;]Function

      [color= #800000;]Public [color= #800000;]Function getMachineNameFromProcessOutput[color= #66cc66;](ByVal processOutput [color= #800000;]As [color= #800000;]String[color= #66cc66;]) [color= #800000;]As StringC
ollection

          [color= #800000;]Dim _AllMachine [color= #800000;]As [color= #800000;]String = processOutput.[color= #66cc66;]Substring[color= #66cc66;](processOutput.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;])[color= #66cc66;])

          [color= #800000;]Dim _machine [color= #800000;]As StringCollection = [color= #800000;]New StringCollection[color= #66cc66;]([color= #66cc66;])

          [color= #800000;]Do [color= #800000;]While _AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;]) <> [color= #cc66cc;]-1

              _machine.[color= #66cc66;]Add[color= #66cc66;](_AllMachine.[color= #66cc66;]Substring[color= #66cc66;](_AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;]), _AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;](
[color= #ff0000;]" ", _AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;])[color= #66cc66;]) - _AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]""[color= #66cc66;])[color= #66cc66;]).[color= #66cc66;]Replace[color= #66cc66;]([color= #ff0000;]"", [color= #800000;]String.[color= #66cc66;]Empty[color= #66cc66;])[color= #66cc66;])

              _AllMachine = _AllMachine.[color= #66cc66;]Substring[color= #66cc66;](_AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]"", _AllMachine.[color= #66cc66;]IndexOf[color= #66cc66;]([color= #ff0000;]"
"[color= #66cc66;]) + [color= #cc66cc;]2[color= #66cc66;])[color= #66cc66;])

          [color= #800000;]Loop

          [color= #800000;]Return _machine

  [color= #800000;]End [color= #800000;]Function

 

  [color= #800000;]Dim machine [color= #800000;]As [color= #800000;]String

  [color= #800000;]Dim machineNames [color= #800000;]As StringCollection = GetNames[color= #66cc66;]([color= #66cc66;])

  [color= #800000;]For Each machine In machineNames

     ListView1.[color= #66cc66;]Items.[color= #66cc66;]Add[color= #66cc66;](machine, [color= #cc66cc;]0[color= #66cc66;])

  [color= #800000;]Next

[color= #800000;]Dim machinesClass [color= #800000;]As [color= #800000;]New Class1

[color= #800000;]Dim machineNames [color= #800000;]As StringCollection = machinesClass.[color= #66cc66;]GetNames[color= #66cc66;]([color= #66cc66;])