开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Telnet客户端 > 查看源码
CSWSOCK.BAS
资源名称：ImagicaTelnet.zip　[点击查看]
上传用户：ling1220
上传日期：2007-01-10
资源大小：313k
文件大小：12k
源码类别：

Telnet客户端

开发平台：

Visual Basic

CSWSOCK.BAS：源码内容
  1. Attribute VB_Name = "SocketWrench"
  2. '------------------------------------------------------------------------------
  3. '
  4. ' Catalyst SocketWrench 2.15
  5. ' Copyright 1995-1998, Catalyst Development Corp. All rights reserved.
  6. '
  7. ' This file contains the constants and function declarations used
  8. ' with the SocketWrench control for Visual Basic 4.0
  9. '
  10. '------------------------------------------------------------------------------
  12. '
  13. ' General constants used with most of the controls
  14. '
  15. Public Const INVALID_HANDLE = -1
  16. Public Const CONTROL_ERRIGNORE = 0
  17. Public Const CONTROL_ERRDISPLAY = 1
  19. '
  20. ' SocketWrench Control Actions
  21. '
  22. Public Const SOCKET_OPEN = 1
  23. Public Const SOCKET_CONNECT = 2
  24. Public Const SOCKET_LISTEN = 3
  25. Public Const SOCKET_ACCEPT = 4
  26. Public Const SOCKET_CANCEL = 5
  27. Public Const SOCKET_FLUSH = 6
  28. Public Const SOCKET_CLOSE = 7
  29. Public Const SOCKET_DISCONNECT = 7
  30. Public Const SOCKET_ABORT = 8
  31. '
  32. ' SocketWrench Control States
  33. '
  34. Public Const SOCKET_NONE = 0
  35. Public Const SOCKET_IDLE = 1
  36. Public Const SOCKET_LISTENING = 2
  37. Public Const SOCKET_CONNECTING = 3
  38. Public Const SOCKET_ACCEPTING = 4
  39. Public Const SOCKET_RECEIVING = 5
  40. Public Const SOCKET_SENDING = 6
  41. Public Const SOCKET_CLOSING = 7
  42. '
  43. ' Socket Address Families
  44. '
  45. Public Const AF_UNSPEC = 0
  46. Public Const AF_UNIX = 1
  47. Public Const AF_INET = 2
  48. '
  49. ' Socket Types
  50. '
  51. Public Const SOCK_STREAM = 1
  52. Public Const SOCK_DGRAM = 2
  53. Public Const SOCK_RAW = 3
  54. Public Const SOCK_RDM = 4
  55. Public Const SOCK_SEQPACKET = 5
  56. '
  57. ' Protocol Types
  58. '
  59. Public Const IPPROTO_IP = 0
  60. Public Const IPPROTO_ICMP = 1
  61. Public Const IPPROTO_GGP = 2
  62. Public Const IPPROTO_TCP = 6
  63. Public Const IPPROTO_PUP = 12
  64. Public Const IPPROTO_UDP = 17
  65. Public Const IPPROTO_IDP = 22
  66. Public Const IPPROTO_ND = 77
  67. Public Const IPPROTO_RAW = 255
  68. Public Const IPPROTO_MAX = 256
  69. '
  70. ' Well-Known Port Numbers
  71. '
  72. Public Const IPPORT_ANY = 0
  73. Public Const IPPORT_ECHO = 7
  74. Public Const IPPORT_DISCARD = 9
  75. Public Const IPPORT_SYSTAT = 11
  76. Public Const IPPORT_DAYTIME = 13
  77. Public Const IPPORT_NETSTAT = 15
  78. Public Const IPPORT_FTP = 21
  79. Public Const IPPORT_TELNET = 23
  80. Public Const IPPORT_SMTP = 25
  81. Public Const IPPORT_TIMESERVER = 37
  82. Public Const IPPORT_NAMESERVER = 42
  83. Public Const IPPORT_WHOIS = 43
  84. Public Const IPPORT_MTP = 57
  85. Public Const IPPORT_FINGER = 79
  86. Public Const IPPORT_HTTP = 80
  87. Public Const IPPORT_TFTP = 69
  88. Public Const IPPORT_RESERVED = 1024
  89. Public Const IPPORT_USERRESERVED = 5000
  90. '
  91. ' Network Addresses
  92. '
  93. Public Const INADDR_ANY = "0.0.0.0"
  94. Public Const INADDR_LOOPBACK = "127.0.0.1"
  95. Public Const INADDR_NONE = "255.255.255.255"
  96. '
  97. ' Shutdown Values
  98. '
  99. Public Const SOCKET_READ = 0
  100. Public Const SOCKET_WRITE = 1
  101. Public Const SOCKET_READWRITE = 2
  102. '
  103. ' SocketWrench Error Response
  104. '
  105. Public Const SOCKET_ERRIGNORE = 0
  106. Public Const SOCKET_ERRDISPLAY = 1
  107. '
  108. ' SocketWrench Error Codes
  109. '
  110. Public Const WSABASEERR = 24000
  111. Public Const WSAEINTR = 24004
  112. Public Const WSAEBADF = 24009
  113. Public Const WSAEACCES = 24013
  114. Public Const WSAEFAULT = 24014
  115. Public Const WSAEINVAL = 24022
  116. Public Const WSAEMFILE = 24024
  117. Public Const WSAEWOULDBLOCK = 24035
  118. Public Const WSAEINPROGRESS = 24036
  119. Public Const WSAEALREADY = 24037
  120. Public Const WSAENOTSOCK = 24038
  121. Public Const WSAEDESTADDRREQ = 24039
  122. Public Const WSAEMSGSIZE = 24040
  123. Public Const WSAEPROTOTYPE = 24041
  124. Public Const WSAENOPROTOOPT = 24042
  125. Public Const WSAEPROTONOSUPPORT = 24043
  126. Public Const WSAESOCKTNOSUPPORT = 24044
  127. Public Const WSAEOPNOTSUPP = 24045
  128. Public Const WSAEPFNOSUPPORT = 24046
  129. Public Const WSAEAFNOSUPPORT = 24047
  130. Public Const WSAEADDRINUSE = 24048
  131. Public Const WSAEADDRNOTAVAIL = 24049
  132. Public Const WSAENETDOWN = 24050
  133. Public Const WSAENETUNREACH = 24051
  134. Public Const WSAENETRESET = 24052
  135. Public Const WSAECONNABORTED = 24053
  136. Public Const WSAECONNRESET = 24054
  137. Public Const WSAENOBUFS = 24055
  138. Public Const WSAEISCONN = 24056
  139. Public Const WSAENOTCONN = 24057
  140. Public Const WSAESHUTDOWN = 24058
  141. Public Const WSAETOOMANYREFS = 24059
  142. Public Const WSAETIMEDOUT = 24060
  143. Public Const WSAECONNREFUSED = 24061
  144. Public Const WSAELOOP = 24062
  145. Public Const WSAENAMETOOLONG = 24063
  146. Public Const WSAEHOSTDOWN = 24064
  147. Public Const WSAEHOSTUNREACH = 24065
  148. Public Const WSAENOTEMPTY = 24066
  149. Public Const WSAEPROCLIM = 24067
  150. Public Const WSAEUSERS = 24068
  151. Public Const WSAEDQUOT = 24069
  152. Public Const WSAESTALE = 24070
  153. Public Const WSAEREMOTE = 24071
  154. Public Const WSASYSNOTREADY = 24091
  155. Public Const WSAVERNOTSUPPORTED = 24092
  156. Public Const WSANOTINITIALISED = 24093
  157. Public Const WSAHOST_NOT_FOUND = 25001
  158. Public Const WSATRY_AGAIN = 25002
  159. Public Const WSANO_RECOVERY = 25003
  160. Public Const WSANO_DATA = 25004
  161. Public Const WSANO_ADDRESS = 25004
  163. '
  164. ' RAS Control Actions
  165. '
  166. Public Const RAS_ACTION_CONNECT = 1
  167. Public Const RAS_ACTION_DISCONNECT = 2
  168. Public Const RAS_ACTION_RESET = 3
  169. '
  170. ' RAS Control States
  171. '
  172. Public Const RAS_UNUSED = -1
  173. Public Const RAS_OPENPORT = 0
  174. Public Const RAS_PORTOPENED = 1
  175. Public Const RAS_CONNECTDEV = 2
  176. Public Const RAS_DEVCONNECTED = 3
  177. Public Const RAS_ALLDEVCONNECTED = 4
  178. Public Const RAS_AUTHENTICATE = 5
  179. Public Const RAS_AUTHENTICATED = 14
  180. Public Const RAS_PREPCALLBACK = 15
  181. Public Const RAS_MODEMRESET = 16
  182. Public Const RAS_WAITFORCALL = 17
  183. Public Const RAS_PROJECTED = 18
  184. Public Const RAS_PAUSED = 4096
  185. Public Const RAS_RETRYAUTH = 4097
  186. Public Const RAS_CALLBACK = 4098
  187. Public Const RAS_PASSEXPIRED = 4099
  188. Public Const RAS_CONNECTED = 8192
  189. Public Const RAS_DISCONNECTED = 8193
  191. '
  192. ' RAS Control Error Codes
  193. '
  194. ' These error codes are returned by the LastError property and
  195. ' passed as an argument to the LastError event. These are the
  196. ' same codes returned by the RAS library, with 25000 added to the
  197. ' base value
  198. '
  199. Public Const ERROR_INVALID_PORT_HANDLE = 25601
  200. Public Const ERROR_PORT_ALREADY_OPEN = 25602
  201. Public Const ERROR_BUFFER_TOO_SMALL = 25603
  202. Public Const ERROR_WRONG_INFO_SPECIFIED = 25604
  203. Public Const ERROR_CANNOT_SET_PORT_INFO = 25605
  204. Public Const ERROR_PORT_NOT_CONNECTED = 25606
  205. Public Const ERROR_EVENT_INVALID = 25607
  206. Public Const ERROR_DEVICE_DOES_NOT_EXIST = 25608
  207. Public Const ERROR_DEVICETYPE_DOES_NOT_EXIST = 25609
  208. Public Const ERROR_INVALID_BUFFER = 25610
  209. Public Const ERROR_ROUTE_NOT_AVAILABLE = 25611
  210. Public Const ERROR_ROUTE_NOT_ALLOCATED = 25612
  211. Public Const ERROR_INVALID_COMPRESSION_SPECIFIED = 25613
  212. Public Const ERROR_OUT_OF_BUFFERS = 25614
  213. Public Const ERROR_PORT_NOT_FOUND = 25615
  214. Public Const ERROR_ASYNC_REQUEST_PENDING = 25616
  215. Public Const ERROR_ALREADY_DISCONNECTING = 25617
  216. Public Const ERROR_PORT_NOT_OPEN = 25618
  217. Public Const ERROR_PORT_DISCONNECTED = 25619
  218. Public Const ERROR_NO_ENDPOINTS = 25620
  219. Public Const ERROR_CANNOT_OPEN_PHONEBOOK = 25621
  220. Public Const ERROR_CANNOT_LOAD_PHONEBOOK = 25622
  221. Public Const ERROR_CANNOT_FIND_PHONEBOOK_ENTRY = 25623
  222. Public Const ERROR_CANNOT_WRITE_PHONEBOOK = 25624
  223. Public Const ERROR_CORRUPT_PHONEBOOK = 25625
  224. Public Const ERROR_CANNOT_LOAD_STRING = 25626
  225. Public Const ERROR_KEY_NOT_FOUND = 25627
  226. Public Const ERROR_DISCONNECTION = 25628
  227. Public Const ERROR_REMOTE_DISCONNECTION = 25629
  228. Public Const ERROR_HARDWARE_FAILURE = 25630
  229. Public Const ERROR_USER_DISCONNECTION = 25631
  230. Public Const ERROR_INVALID_SIZE = 25632
  231. Public Const ERROR_PORT_NOT_AVAILABLE = 25633
  232. Public Const ERROR_CANNOT_PROJECT_CLIENT = 25634
  233. Public Const ERROR_UNKNOWN = 25635
  234. Public Const ERROR_WRONG_DEVICE_ATTACHED = 25636
  235. Public Const ERROR_BAD_STRING = 25637
  236. Public Const ERROR_REQUEST_TIMEOUT = 25638
  237. Public Const ERROR_CANNOT_GET_LANA = 25639
  238. Public Const ERROR_NETBIOS_ERROR = 25640
  239. Public Const ERROR_SERVER_OUT_OF_RESOURCES = 25641
  240. Public Const ERROR_NAME_EXISTS_ON_NET = 25642
  241. Public Const ERROR_SERVER_GENERAL_NET_FAILURE = 25643
  242. Public Const ERROR_AUTH_INTERNAL = 25645
  243. Public Const ERROR_RESTRICTED_LOGON_HOURS = 25646
  244. Public Const ERROR_ACCT_DISABLED = 25647
  245. Public Const ERROR_PASSWD_EXPIRED = 25648
  246. Public Const ERROR_NO_DIALIN_PERMISSION = 25649
  247. Public Const ERROR_SERVER_NOT_RESPONDING = 25650
  248. Public Const ERROR_FROM_DEVICE = 25651
  249. Public Const ERROR_UNRECOGNIZED_RESPONSE = 25652
  250. Public Const ERROR_MACRO_NOT_FOUND = 25653
  251. Public Const ERROR_MACRO_NOT_DEFINED = 25654
  252. Public Const ERROR_MESSAGE_MACRO_NOT_FOUND = 25655
  253. Public Const ERROR_DEFAULTOFF_MACRO_NOT_FOUND = 25656
  254. Public Const ERROR_FILE_COULD_NOT_BE_OPENED = 25657
  255. Public Const ERROR_DEVICENAME_TOO_LONG = 25658
  256. Public Const ERROR_DEVICENAME_NOT_FOUND = 25659
  257. Public Const ERROR_NO_RESPONSES = 25660
  258. Public Const ERROR_NO_COMMAND_FOUND = 25661
  259. Public Const ERROR_WRONG_KEY_SPECIFIED = 25662
  260. Public Const ERROR_UNKNOWN_DEVICE_TYPE = 25663
  261. Public Const ERROR_ALLOCATING_MEMORY = 25664
  262. Public Const ERROR_PORT_NOT_CONFIGURED = 25665
  263. Public Const ERROR_DEVICE_NOT_READY = 25666
  264. Public Const ERROR_READING_INI_FILE = 25667
  265. Public Const ERROR_NO_CONNECTION = 25668
  266. Public Const ERROR_BAD_USAGE_IN_INI_FILE = 25669
  267. Public Const ERROR_READING_SECTIONNAME = 25670
  268. Public Const ERROR_READING_DEVICETYPE = 25671
  269. Public Const ERROR_READING_DEVICENAME = 25672
  270. Public Const ERROR_READING_USAGE = 25673
  271. Public Const ERROR_READING_MAXCONNECTBPS = 25674
  272. Public Const ERROR_READING_MAXCARRIERBPS = 25675
  273. Public Const ERROR_LINE_BUSY = 25676
  274. Public Const ERROR_VOICE_ANSWER = 25677
  275. Public Const ERROR_NO_ANSWER = 25678
  276. Public Const ERROR_NO_CARRIER = 25679
  277. Public Const ERROR_NO_DIALTONE = 25680
  278. Public Const ERROR_IN_COMMAND = 25681
  279. Public Const ERROR_WRITING_SECTIONNAME = 25682
  280. Public Const ERROR_WRITING_DEVICETYPE = 25683
  281. Public Const ERROR_WRITING_DEVICENAME = 25684
  282. Public Const ERROR_WRITING_MAXCONNECTBPS = 25685
  283. Public Const ERROR_WRITING_MAXCARRIERBPS = 25686
  284. Public Const ERROR_WRITING_USAGE = 25687
  285. Public Const ERROR_WRITING_DEFAULTOFF = 25688
  286. Public Const ERROR_READING_DEFAULTOFF = 25689
  287. Public Const ERROR_EMPTY_INI_FILE = 25690
  288. Public Const ERROR_AUTHENTICATION_FAILURE = 25691
  289. Public Const ERROR_PORT_OR_DEVICE = 25692
  290. Public Const ERROR_NOT_BINARY_MACRO = 25693
  291. Public Const ERROR_DCB_NOT_FOUND = 25694
  292. Public Const ERROR_STATE_MACHINES_NOT_STARTED = 25695
  293. Public Const ERROR_STATE_MACHINES_ALREADY_STARTED = 25696
  294. Public Const ERROR_PARTIAL_RESPONSE_LOOPING = 25697
  295. Public Const ERROR_UNKNOWN_RESPONSE_KEY = 25698
  296. Public Const ERROR_RECV_BUF_FULL = 25699
  297. Public Const ERROR_CMD_TOO_LONG = 25700
  298. Public Const ERROR_UNSUPPORTED_BPS = 25701
  299. Public Const ERROR_UNEXPECTED_RESPONSE = 25702
  300. Public Const ERROR_INTERACTIVE_MODE = 25703
  301. Public Const ERROR_BAD_CALLBACK_NUMBER = 25704
  302. Public Const ERROR_INVALID_AUTH_STATE = 25705
  303. Public Const ERROR_WRITING_INITBPS = 25706
  304. Public Const ERROR_INVALID_WIN_HANDLE = 25707
  305. Public Const ERROR_NO_PASSWORD = 25708
  306. Public Const ERROR_NO_USERNAME = 25709
  307. Public Const ERROR_CANNOT_START_STATE_MACHINE = 25710
  308. Public Const ERROR_GETTING_COMMSTATE = 25711
  309. Public Const ERROR_SETTING_COMMSTATE = 25712
  310. Public Const ERROR_COMM_FUNCTION = 25713
  311. Public Const ERROR_CONFIGURATION_PROBLEM = 25714
  312. Public Const ERROR_X25_DIAGNOSTIC = 25715
  313. Public Const ERROR_TOO_MANY_LINE_ERRORS = 25716
  314. Public Const ERROR_OVERRUN = 25717
  315. Public Const ERROR_ACCT_EXPIRED = 25718
  316. Public Const ERROR_CHANGING_PASSWORD = 25719
  317. Public Const ERROR_NO_ACTIVE_ISDN_LINES = 25720
  318. Public Const ERROR_NO_ISDN_CHANNELS_AVAILABLE = 25721
  320. '
  321. ' Declarations for functions to encode and decode files, typically
  322. ' used as with attachments to mail messages or news articles
  323. '
  324. #If Win32 Then
  325. Declare Function DecodeFile Lib "UUCODE32.DLL" Alias "DecodeFileA" (ByVal InputFile As String, ByVal OutputFile As String) As Long
  326. Declare Function EncodeFile Lib "UUCODE32.DLL" Alias "EncodeFileA" (ByVal InputFile As String, ByVal OutputFile As String) As Long
  327. Declare Function DecodeBase64File Lib "UUCODE32.DLL" Alias "DecodeBase64FileA" (ByVal InputFile As String, ByVal OutputFile As String) As Long
  328. Declare Function EncodeBase64File Lib "UUCODE32.DLL" Alias "EncodeBase64FileA" (ByVal InputFile As String, ByVal OutputFile As String) As Long
  329. #Else
  330. Declare Function DecodeFile Lib "UUCODE16.DLL" (ByVal InputFile As String, ByVal OutputFile As String) As Integer
  331. Declare Function EncodeFile Lib "UUCODE16.DLL" (ByVal InputFile As String, ByVal OutputFile As String) As Integer
  332. Declare Function DecodeBase64File Lib "UUCODE16.DLL" (ByVal InputFile As String, ByVal OutputFile As String) As Integer
  333. Declare Function EncodeBase64File Lib "UUCODE16.DLL" (ByVal InputFile As String, ByVal OutputFile As String) As Integer
  334. #End If