creating network applications in vb6(using winsock control)

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

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


Add following code to code window 

Private Sub cmdclear_Click()
End Sub

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

Private Sub cmddisconnect_Click()
End Sub

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

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

Private Sub Form_Load()

End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
    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 '' & 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