creating network applications in vb6(using winsock control)

Hi friends,in this post I will show you how to create network apps in vb6,which will help you make chat programs and trojan like apps.

To interact with other computers vb provides a control called winsock.To add it to your vb toolbox press 'CTRL+T' and check the box before 'Microsoft Winsock Control 6.0(SP6)'

This will add winsock control to your toolbox

Now drag and drop this control to your form,name it ws.
Add these controls to your form
CONTROL                                NAME                                CAPTION
command button                    cmdconnect                                connect
command button                    cmddisconnect                            Disconnect
command button                    cmdsend                                      send
command button                    cmdclear                                     Clear
command button                    cmdserver                                   Serve as server
listbox                                       list1                                            chat window
textbox                                     txtip
textbox                                     txtdata                                           
label                                         label1                                          Remote IP
label                                         label2                                          Enter Text below




your form should now look like this

 

Add following code to code window

Private Sub cmdclear_Click()
List1.Clear
End Sub

Private Sub cmdconnect_Click()
ws.Close
  ws.RemoteHost = txtip.Text
  ws.RemotePort = 2011
  ws.Connect
End Sub

Private Sub cmddisconnect_Click()
ws.Close
End Sub

Private Sub cmdsend_Click()
ws.SendData txtdata.Text
List1.AddItem "Local : " + txtdata.Text
End Sub

Private Sub Command1_Click()
ws.LocalPort = 2011
ws.Listen
End Sub

Private Sub Form_Load()

End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
List1.AddItem "Remote : " + data
End Sub








save the project,make exe by ' FILE -> MAKE EXE ',run two instance of exe, on first one click on 'serve as server',from another connect to first one by providing ip address as '127.0.0.1' & now both programs can chat.


You can chat with remote computers by running the exe on two different computers,serving as server on one and connecting to this from another.


I am giving links to source files for ready code.
simple chat program
Here is a 'link to file transfer & remote file browser' program.
file transfer & remote file browser