<div>
Use the Winsock control in VB6. 
 
see <a href="http://www.15seconds.com/Issue/010820.htm" rel="ugc">http://www.15seconds.com/Issue/010820.htm</a> 
 
If you still need help, just ask additional questions. 
 
When you say &quot;the Complete Network&quot;, what do you mean exactly? 
 
Do you want to write your own program to talk to another program you write using the internet? If so, the answer is you can do it using the Winsock control in VB6. 

</div>

<div>
if you want to send some data to all computers in network i suggest you use UDP not TCP. 
 
and if you open visual basic and create a new project and press Ctrl + T and select 'Micrsoft Winsock Control 6.0' and press ok. in the toolbar (left) one new icon will be add. that is winsock. add a winsock to your form y double clicking on last item in the left toolbar. so, you can write these lines of code for form_load (for example) 
winsock1.localport = 343 'randomly 
winsock1.connect &quot;192.168.0.33&quot; 
winsock1.senddata &quot;test&quot; 
 
you see, it's so easy! 
regards 

<pre><code class="code-10 nolinks" id="code-274571">Private Sub Form_Load()
Winsock1.LocalPort = 222
Winsock1.Connect &quot;192.168.0.223&quot;
Winsock1.SendData &quot;text for send&quot;
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
MsgBox data
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
w.Close
MsgBox Description
End Sub
</code></pre>
</div>

<div>
Dear it is giving me error.Any suggestionz please 
<a href="https://filedb.experts-exchange.com/incoming/2009/03_w12/117382/Error.jpg" target="_blank" class="file-inline" title="Error (108 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Error.jpg</a>
</div>

Error.jpg

<div>
oh, sorry! my bad 
you should send data when connection established like this : [code snippet] 
 
this works but i think there is no 192.168.0.223 on your network listening on 222 port! 
so i suggest you use this (this is more real test): 
 
'add a textbox (text1) and set its multiline property to true 
Private Sub Form_Load() 
Text1.Text = &quot;&quot; 
Winsock1.Connect &quot;<a href="http://www.google.com" rel="ugc">www.google.com</a>&quot;, 80 
End Sub 
&nbsp; 
Private Sub Winsock1_Connect() 
Winsock1.SendData &quot;GET / HTTP/1.1&quot; &amp;&nbsp;vbCrLf &amp;&nbsp;&quot;Host: <a href="http://www.google.com" rel="ugc">www.google.com</a>&quot;&nbsp;&amp; vbCrLf &amp;&nbsp;vbCrLf 
Me.Caption = &quot;data sent&quot; 
End Sub 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim data As String 
Winsock1.GetData data 
Text1.Text = Text1.Text &amp;&nbsp;data 
End Sub 
&nbsp; 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) 
Winsock1.Close 
MsgBox Description 
End Sub 
 
 
 
regards... 

<pre><code class="code-10 nolinks" id="code-276426">Private Sub Form_Load()
Winsock1.LocalPort = 222
Winsock1.Connect &quot;192.168.0.223&quot;
End Sub
 
Private Sub Winsock1_Connect()
Winsock1.SendData &quot;text for send&quot;
Me.Caption = &quot;data sent&quot;
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
MsgBox data
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
MsgBox Description
End Sub
</code></pre>
</div>

<div>
Dear, 
 
Actually i m System Administrator by Profession and right now i m facing few issues in my network. To solve that issue what i need is to check that there is no computer on in the night, means before leaving office every one shuts down his computer. I cant do it manually on 300+ computers. 
So I need to send data packets to all computers in the network not only to a specific &nbsp;computer, to get this specific information. 
Is there any way around??? 
Send the packet to Network in the mid of night using my computer and see which computer is replying to my ping. 
Hope i get appropriate solution 
Thank you and regards
</div>

<div>
well, I suggest you two ways: 
1- you can develop an application that listen on specific port and waits for connection request. this application should be run on every computer at night at least. then, you should develop another simple application that try to connect to computers on specific port. if succeed, it's on or else it's off. but this method has a bad point. your first application should be run. 
 
2- this way is so easy to implement and hope you like it :) 
you can ping to computers. so, you should develop an application that pings. but this is hard. so, I have a easy way: 
you can use windows' ping by visual basic and store it's result in file. look: 
IP &nbsp;= &quot;192.168.0.1&quot; 
Call Shell(&quot;c:\pinger.bat &quot;&nbsp;&amp; IP, vbHide) 
 
what is pinger.bat? you should create a pinger.bat that contains this line: 
ping %1 -n 1 &gt;&nbsp;c:\%1.txt 
 
so, you should develop an application that has a listbox that contains all IPs and in a for loop, you should set IP and call shell 
 
after execution of the application, you will have a lot of text files that their names are IP. so, you should use windows search that search in text files that the application created for &quot;Request timed out&quot; 
all of text files that contain &quot;Request timed out&quot; string, are IP of off computers. 
 
hope you understand 
regards
</div>

<div>
But how can i generate ip address using for loop in vb6
</div>

<div>
no sir! you should add all IPs in a listbox or example 
absolutely you should have IP's of computers 
regards
</div>

<div>
something like this i mean 
regards 

<pre><code class="code-1 nolinks" id="code-289501">for i= 0 to list1.listcount
IP = list1.list(i)
Call Shell(&quot;c:\pinger.bat &quot; &amp; IP, vbHide)
next i
</code></pre>
</div>

<div>
Dear CSecurity, 
 
First of all thank you for you comments. 
I tried the way guided me but could not generate ips in for loop. Still i m trying to do it. 
but if any idea your good self have, please let me know 
Regards
</div>

<div>
I think you didn't understand. well, first of all you should have all IPs. so, I assume that you have IPs in a text file (I mean assume that you have a text file that contains 300+ IP addresses). well, now you should add all IP addresses from text file to listbox (add a listbox to your project called List1). well, when your listbox (List1) has all IP addresses, should execute my code (I mean for i =0 ....). 
 
again: you should ask them to told their IP address and save them in a text file. 
 
hope help you 
regards 

<pre><code class="code-10 nolinks" id="code-290194">Private Sub Form_Load()
'c:\IPs.txt contains all IP addresses in the network
Open &quot;c:\IPs.txt&quot; For Input As #1
Dim str As String
Do While Not EOF(1)
Input #1, str
List1.AddItem str
Loop
Close #1
 
For i = 0 To List1.ListCount
IP = List1.List(i)
Call Shell(&quot;c:\pinger.bat &quot; &amp; IP, vbHide)
Next i
 
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
Is there any way to Write a Programe in VB 6, which could send data packets to the Complete Network and get the desired Information from the Network.
</div>
</div>

Is there any way to Write a Programe in VB 6, which could send data packets to the Complete Network and get the desired Information from the Network.

VB 6 Code To Send Packet To Network

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

C is a general-purpose, imperative computer programming language, supporting structured programming, lexical variable scope and recursion, while a static type system prevents many unintended operations. By design, C provides constructs that map efficiently to typical machine instructions, so it has found lasting use in applications that had formerly been coded in assembly language, including operating systems as well as various application software for computers ranging from supercomputers to embedded systems. It is distinct from C++ (which has its roots in C) and C#, and many later languages have borrowed directly or indirectly from C.