Skip to content
Simple and thin WinSock API wrappers for VB6
Branch: master
Clone or download
Latest commit 7203f88 Apr 1, 2019
Type Name Latest commit message Commit time
Failed to load latest commit information.
contrib [ctxWinsock] Detach and close temp socket explicitly on accept Mar 29, 2019
src Update MST Apr 1, 2019
test [ctxWinsock] Detach and close temp socket explicitly on accept Mar 29, 2019
.gitattributes Initial commit Mar 7, 2018
LICENSE Update years Mar 22, 2019 Update README Mar 27, 2019


Simple and thin WinSock API wrappers for VB6 loosly based on the original CAsyncSocket wrapper in MFC.


Base class cAsyncSocket wraps OS non-blocking sockets that can be used to implement various network components in VB6 -- clients and servers -- and supports both async and blocking network communications.

Additionally in contrib folder there are helper classes that build-up on cAsyncSocket base to provide familiar interfaces for completing common tasks.

For instance class cWinSockRequest exposes same-named methods, properties and events as the OS provided WinHttpRequest object but can be used to easily access generic TCP/UDP servers instead.

Then class cTlsClient provides streaming support (familiar Read/Write methods) for accessing both plain-text TCP servers (e.g. http) and SSL/TLS secured ones (e.g. https) using OS provided SSPI/Schannel implementation w/o any additional dependency (e.g. OpenSSL library).

For simple demo TCP/UDP client/server implementation take a look at test\Chat folder. Same client and server sides are capable of communicating over reliable TCP channels and fast UDP datagrams.

For sample clients to various network services (https, SMTP over SSL, etc.) open sample project in test\Basic folder.


Start by including src\cAsyncSocket.cls in your project to have a convenient wrapper to most WinSock API functions.

Optionally you can add contrib\cTlsClient.cls to your project for SSL/TLS secured channels and/or contrib\cWinSockRequest.cls for familiar class methods when accessing TCP/UDP network services.


A working sample with error checking omitted for brevity for accessing over port 587.

At first the communication goes over unencrypted plain-text socket, then later its switched to TLS secured one before issuing last QUIT command.

With New cTlsClient
    .SetTimeouts 0, 5000, 5000, 5000
    .Connect "", 587
    Debug.Print .ReadText();
    .WriteText "HELO" & vbCrLf
    Debug.Print .ReadText();
    .WriteText "STARTTLS" & vbCrLf
    Debug.Print .ReadText();
    .StartTls ""
    Debug.Print "TLS handshake complete: " & .TlsHostAddress
    .WriteText "QUIT" & vbCrLf
    Debug.Print .ReadText();
End With

Produces debug output in Immediate Window similar to this:

220 ESMTP l8sm10315047wmf.39 - gsmtp
250 at your service
220 2.0.0 Ready to start TLS
TLS handshake complete:
221 2.0.0 closing connection l8sm10315047wmf.39 - gsmtp


  • Allow client to perform TLS server certificate check
  • Allow client to assign client certificate for connection
  • Provide UI for end-user to choose suitable certificates from Personal certificate store
  • Add wrappers for http and ftp protocols
  • Add WinSock control replacement
  • Add more samples (incl. vbcurl.exe utility)
  • Refactor subclassing thunk to use msg queue not to re-enter IDE in debug mode
You can’t perform that action at this time.