FTP Client in VBasic with source
Submitted By:
WEBMASTER
Rating:
Not rated (
Rate It)
'
' SocketWrench Visual Basic Module
'
' This module contains the constants used with the SocketWrench
' Windows Sockets custom control.
'
'
' Socket actions
'
Global CONST SOCKET_OPEN = 1
Global CONST SOCKET_CONNECT = 2
Global CONST SOCKET_LISTEN = 3
Global CONST SOCKET_ACCEPT = 4
Global CONST SOCKET_CANCEL = 5
Global CONST SOCKET_FLUSH = 6
Global CONST SOCKET_CLOSE = 7
Global CONST SOCKET_ABORT = 8
'
' Socket states
'
Global CONST SOCKET_NONE = 0
Global CONST SOCKET_IDLE = 1
Global CONST SOCKET_LISTENING = 2
Global CONST SOCKET_CONNECTING = 3
Global CONST SOCKET_ACCEPTING = 4
Global CONST SOCKET_RECEIVING = 5
Global CONST SOCKET_SENDING = 6
Global CONST SOCKET_CLOSING = 7
'
' Address families
'
Global CONST AF_UNSPEC = 0
Global CONST AF_UNIX = 1
Global CONST AF_INET = 2
'
' Socket types
'
Global CONST SOCK_STREAM = 1
Global CONST SOCK_DGRAM = 2
Global CONST SOCK_RAW = 3
Global CONST SOCK_RDM = 4
Global CONST SOCK_SEQPACKET = 5
'
' Protocol types
'
Global CONST IPPROTO_IP = 0
Global CONST IPPROTO_ICMP = 1
Global CONST IPPROTO_GGP = 2
Global CONST IPPROTO_TCP = 6
Global CONST IPPROTO_PUP = 12
Global CONST IPPROTO_UDP = 17
Global CONST IPPROTO_IDP = 22
Global CONST IPPROTO_ND = 77
Global CONST IPPROTO_RAW = 255
Global CONST IPPROTO_MAX = 256
'
' Common ports
'
Global CONST IPPORT_ANY = 0
Global CONST IPPORT_ECHO = 7
Global CONST IPPORT_DISCARD = 9
Global CONST IPPORT_SYSTAT = 11
Global CONST IPPORT_DAYTIME = 13
Global CONST IPPORT_NETSTAT = 15
Global CONST IPPORT_FTP = 21
Global CONST IPPORT_TELNET = 23
Global CONST IPPORT_SMTP = 25
Global CONST IPPORT_TIMESERVER = 37
Global CONST IPPORT_NAMESERVER = 42
Global CONST IPPORT_WHOIS = 43
Global CONST IPPORT_MTP = 57
Global CONST IPPORT_FINGER = 79
Global CONST IPPORT_TFTP = 69
Global CONST IPPORT_RESERVED = 1024
Global CONST IPPORT_USERRESERVED = 5000
'
' Network addresses
'
Global CONST INADDR_ANY = "0.0.0.0"
Global CONST INADDR_LOOPBACK = "127.0.0.1"
Global CONST INADDR_NONE = "255.255.255.255"
'
' Shutdown values
'
Global CONST SOCKET_READ = 0
Global CONST SOCKET_WRITE = 1
Global CONST SOCKET_READWRITE = 2
'
' Error response values
'
Global CONST SOCKET_ERRIGNORE = 0
Global CONST SOCKET_ERRDISPLAY = 1
'
' Socket errors
'
Global CONST WSABASEERR = 24000
Global CONST WSAEINTR = 24004
Global CONST WSAEBADF = 24009
Global CONST WSAEACCES = 24013
Global CONST WSAEFAULT = 24014
Global CONST WSAEINVAL = 24022
Global CONST WSAEMFILE = 24024
Global CONST WSAEWOULDBLOCK = 24035
Global CONST WSAEINPROGRESS = 24036
Global CONST WSAEALREADY = 24037
Global CONST WSAENOTSOCK = 24038
Global CONST WSAEDESTADDRREQ = 24039
Global CONST WSAEMSGSIZE = 24040
Global CONST WSAEPROTOTYPE = 24041
Global CONST WSAENOPROTOOPT = 24042
Global CONST WSAEPROTONOSUPPORT = 24043
Global CONST WSAESOCKTNOSUPPORT = 24044
Global CONST WSAEOPNOTSUPP = 24045
Global CONST WSAEPFNOSUPPORT = 24046
Global CONST WSAEAFNOSUPPORT = 24047
Global CONST WSAEADDRINUSE = 24048
Global CONST WSAEADDRNOTAVAIL = 24049
Global CONST WSAENETDOWN = 24050
Global CONST WSAENETUNREACH = 24051
Global CONST WSAENETRESET = 24052
Global CONST WSAECONNABORTED = 24053
Global CONST WSAECONNRESET = 24054
Global CONST WSAENOBUFS = 24055
Global CONST WSAEISCONN = 24056
Global CONST WSAENOTCONN = 24057
Global CONST WSAESHUTDOWN = 24058
Global CONST WSAETOOMANYREFS = 24059
Global CONST WSAETIMEDOUT = 24060
Global CONST WSAECONNREFUSED = 24061
Global CONST WSAELOOP = 24062
Global CONST WSAENAMETOOLONG = 24063
Global CONST WSAEHOSTDOWN = 24064
Global CONST WSAEHOSTUNREACH = 24065
Global CONST WSAENOTEMPTY = 24066
Global CONST WSAEPROCLIM = 24067
Global CONST WSAEUSERS = 24068
Global CONST WSAEDQUOT = 24069
Global CONST WSAESTALE = 24070
Global CONST WSAEREMOTE = 24071
Global CONST WSASYSNOTREADY = 24091
Global CONST WSAVERNOTSUPPORTED = 24092
Global CONST WSANOTINITIALISED = 24093
Global CONST WSAHOST_NOT_FOUND = 25001
Global CONST WSATRY_AGAIN = 25002
Global CONST WSANO_RECOVERY = 25003
Global CONST WSANO_DATA = 25004
Global CONST WSANO_ADDRESS = 25004