home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14528242001.psc / Client / Chat.bas next >
Encoding:
BASIC Source File  |  2000-08-09  |  5.5 KB  |  211 lines
  1. Attribute VB_Name = "Constants"
  2. ' Catalyst SocketWrench 2.5
  3. ' Copyright 1995-2000, Catalyst Development Corporation
  4. ' All rights reserved
  5. '
  6. ' This product is licensed to you pursuant to the terms of the
  7. ' Catalyst license agreement included with the original software,
  8. ' and is protected by copyright law and international treaties.
  9. ' Unauthorized reproduction or distribution may result in severe
  10. ' criminal penalties.
  11. '
  12. Option Explicit
  13.  
  14. '
  15. ' General constants used with most of the controls
  16. '
  17. Public Const INVALID_HANDLE = -1
  18. Public Const CONTROL_ERRIGNORE = 0
  19. Public Const CONTROL_ERRDISPLAY = 1
  20.  
  21. '
  22. ' SocketWrench Control Actions
  23. '
  24. Public Const SOCKET_OPEN = 1
  25. Public Const SOCKET_CONNECT = 2
  26. Public Const SOCKET_LISTEN = 3
  27. Public Const SOCKET_ACCEPT = 4
  28. Public Const SOCKET_CANCEL = 5
  29. Public Const SOCKET_FLUSH = 6
  30. Public Const SOCKET_CLOSE = 7
  31. Public Const SOCKET_DISCONNECT = 7
  32. Public Const SOCKET_ABORT = 8
  33. Public Const SOCKET_STARTUP = 9
  34. Public Const SOCKET_CLEANUP = 10
  35.  
  36. '
  37. ' SocketWrench Control States
  38. '
  39. Public Const SOCKET_NONE = 0
  40. Public Const SOCKET_IDLE = 1
  41. Public Const SOCKET_LISTENING = 2
  42. Public Const SOCKET_CONNECTING = 3
  43. Public Const SOCKET_ACCEPTING = 4
  44. Public Const SOCKET_RECEIVING = 5
  45. Public Const SOCKET_SENDING = 6
  46. Public Const SOCKET_CLOSING = 7
  47.  
  48. '
  49. ' Socket Address Families
  50. '
  51. Public Const AF_UNSPEC = 0
  52. Public Const AF_UNIX = 1
  53. Public Const AF_INET = 2
  54.  
  55. '
  56. ' Socket Types
  57. '
  58. Public Const SOCK_STREAM = 1
  59. Public Const SOCK_DGRAM = 2
  60. Public Const SOCK_RAW = 3
  61. Public Const SOCK_RDM = 4
  62. Public Const SOCK_SEQPACKET = 5
  63.  
  64. '
  65. ' Protocol Types
  66. '
  67. Public Const IPPROTO_IP = 0
  68. Public Const IPPROTO_ICMP = 1
  69. Public Const IPPROTO_GGP = 2
  70. Public Const IPPROTO_TCP = 6
  71. Public Const IPPROTO_PUP = 12
  72. Public Const IPPROTO_UDP = 17
  73. Public Const IPPROTO_IDP = 22
  74. Public Const IPPROTO_ND = 77
  75. Public Const IPPROTO_RAW = 255
  76. Public Const IPPROTO_MAX = 256
  77.  
  78. '
  79. ' Well-Known Port Numbers
  80. '
  81. Public Const IPPORT_ANY = 0
  82. Public Const IPPORT_ECHO = 7
  83. Public Const IPPORT_DISCARD = 9
  84. Public Const IPPORT_SYSTAT = 11
  85. Public Const IPPORT_DAYTIME = 13
  86. Public Const IPPORT_NETSTAT = 15
  87. Public Const IPPORT_CHARGEN = 19
  88. Public Const IPPORT_FTP = 21
  89. Public Const IPPORT_TELNET = 23
  90. Public Const IPPORT_SMTP = 25
  91. Public Const IPPORT_TIMESERVER = 37
  92. Public Const IPPORT_NAMESERVER = 42
  93. Public Const IPPORT_WHOIS = 43
  94. Public Const IPPORT_MTP = 57
  95. Public Const IPPORT_TFTP = 69
  96. Public Const IPPORT_FINGER = 79
  97. Public Const IPPORT_HTTP = 80
  98. Public Const IPPORT_POP3 = 110
  99. Public Const IPPORT_NNTP = 119
  100. Public Const IPPORT_SNMP = 161
  101. Public Const IPPORT_EXEC = 512
  102. Public Const IPPORT_LOGIN = 513
  103. Public Const IPPORT_SHELL = 514
  104. Public Const IPPORT_RESERVED = 1024
  105. Public Const IPPORT_USERRESERVED = 5000
  106.  
  107. '
  108. ' Network Addresses
  109. '
  110. Public Const INADDR_ANY = "0.0.0.0"
  111. Public Const INADDR_LOOPBACK = "127.0.0.1"
  112. Public Const INADDR_NONE = "255.255.255.255"
  113.  
  114. '
  115. ' Shutdown Values
  116. '
  117. Public Const SOCKET_READ = 0
  118. Public Const SOCKET_WRITE = 1
  119. Public Const SOCKET_READWRITE = 2
  120.  
  121. '
  122. ' Byte Order
  123. '
  124. Public Const LOCAL_BYTE_ORDER = 0
  125. Public Const NETWORK_BYTE_ORDER = 1
  126.  
  127. '
  128. ' SocketWrench Error Response
  129. '
  130. Public Const SOCKET_ERRIGNORE = 0
  131. Public Const SOCKET_ERRDISPLAY = 1
  132.  
  133. '
  134. ' SocketWrench Error Codes
  135. '
  136. Public Const WSABASEERR = 24000
  137. Public Const WSAEINTR = 24004
  138. Public Const WSAEBADF = 24009
  139. Public Const WSAEACCES = 24013
  140. Public Const WSAEFAULT = 24014
  141. Public Const WSAEINVAL = 24022
  142. Public Const WSAEMFILE = 24024
  143. Public Const WSAEWOULDBLOCK = 24035
  144. Public Const WSAEINPROGRESS = 24036
  145. Public Const WSAEALREADY = 24037
  146. Public Const WSAENOTSOCK = 24038
  147. Public Const WSAEDESTADDRREQ = 24039
  148. Public Const WSAEMSGSIZE = 24040
  149. Public Const WSAEPROTOTYPE = 24041
  150. Public Const WSAENOPROTOOPT = 24042
  151. Public Const WSAEPROTONOSUPPORT = 24043
  152. Public Const WSAESOCKTNOSUPPORT = 24044
  153. Public Const WSAEOPNOTSUPP = 24045
  154. Public Const WSAEPFNOSUPPORT = 24046
  155. Public Const WSAEAFNOSUPPORT = 24047
  156. Public Const WSAEADDRINUSE = 24048
  157. Public Const WSAEADDRNOTAVAIL = 24049
  158. Public Const WSAENETDOWN = 24050
  159. Public Const WSAENETUNREACH = 24051
  160. Public Const WSAENETRESET = 24052
  161. Public Const WSAECONNABORTED = 24053
  162. Public Const WSAECONNRESET = 24054
  163. Public Const WSAENOBUFS = 24055
  164. Public Const WSAEISCONN = 24056
  165. Public Const WSAENOTCONN = 24057
  166. Public Const WSAESHUTDOWN = 24058
  167. Public Const WSAETOOMANYREFS = 24059
  168. Public Const WSAETIMEDOUT = 24060
  169. Public Const WSAECONNREFUSED = 24061
  170. Public Const WSAELOOP = 24062
  171. Public Const WSAENAMETOOLONG = 24063
  172. Public Const WSAEHOSTDOWN = 24064
  173. Public Const WSAEHOSTUNREACH = 24065
  174. Public Const WSAENOTEMPTY = 24066
  175. Public Const WSAEPROCLIM = 24067
  176. Public Const WSAEUSERS = 24068
  177. Public Const WSAEDQUOT = 24069
  178. Public Const WSAESTALE = 24070
  179. Public Const WSAEREMOTE = 24071
  180. Public Const WSASYSNOTREADY = 24091
  181. Public Const WSAVERNOTSUPPORTED = 24092
  182. Public Const WSANOTINITIALISED = 24093
  183. Public Const WSAHOST_NOT_FOUND = 25001
  184. Public Const WSATRY_AGAIN = 25002
  185. Public Const WSANO_RECOVERY = 25003
  186. Public Const WSANO_DATA = 25004
  187. Public Const WSANO_ADDRESS = 25004
  188.  
  189. Public Sub lvSortByColumn(theLV As ListView, theCol As MSComctlLib.ColumnHeader)
  190.  
  191.   Select Case theCol.Tag
  192.  
  193.     Case "Asc"
  194.     theLV.SortOrder = lvwDescending
  195.     theLV.SortKey = theCol.index - 1
  196.     theCol.Tag = "Dsc"
  197.  
  198.     Case "Dsc"
  199.     theLV.SortOrder = lvwAscending
  200.     theLV.SortKey = theCol.index - 1
  201.     theCol.Tag = "Asc"
  202.  
  203.     Case Else
  204.     theLV.SortOrder = lvwAscending
  205.     theLV.SortKey = theCol.index - 1
  206.     theCol.Tag = "Asc"
  207.  
  208.   End Select
  209.  
  210. End Sub
  211.