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||cmdserver||Serve as server|
|label||label2||Enter Text below|
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