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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 查看源码
Wsock32.cpp
资源名称：网络封包拦截C++原程序.rar　[点击查看]
上传用户：hulike2009
上传日期：2013-02-02
资源大小：72k
文件大小：19k
源码类别：

源码/资料

开发平台：

C++ Builder

Wsock32.cpp：源码内容
  1. //****************************************************************
  2. //
  3. //      本文是在已发表的另一文章略加修改而成，
  4. //      先感谢前任怍者。
  5. //
  6. //      程序通过替换wsock32.dll 来监测winsock调用
  7. //      原wsock32.dll 该名为 wsock32.aaa        
  8. //      谁有兴趣修改得更好，请给我也送一份
  9. //      hjx321@21cn.com
  10. //      vchelp ID : 283 
  11. //
  12. //***************************************************************
  13. #include <windows.h>
  14. #include <stdio.h>
  15. #include "wsock32.h"
  16. #define Max_Data_Len 400
  17. #define DataFile  "c:\popsocket.txt"
  19. void SaveRecord(char *p)
  20. {
  21. FILE *fp=fopen(DataFile,"a+");
  22. if(fp!=NULL) {
  23. fprintf(fp,"%sn",p);
  24. fclose(fp);
  25. }
  26. //日志文件
  27. }
  29. void PrintData(FILE *pf, BYTE FAR *pdata,int len)
  30. {
  31. int i;
  32.     int size;
  33. size = len;
  34. if(size>Max_Data_Len) size=Max_Data_Len;
  35. for(i=0;i<size;i++) {
  36. if(pdata[i]<' ') {
  37. switch (pdata[i]){
  38. case 'n':
  39.             case 'r' :
  40.                 fprintf(pf,"%c",pdata[i]);
  41.     break;
  42. default:
  43.      fprintf(pf,"\%03d",pdata[i]);
  44. }
  45. }
  46. else fprintf(pf,"%c",pdata[i]);
  47. }
  48. fprintf(pf,"n");
  49. }
  51. int SaveRecvData(int socket, char FAR *p, int size)
  52. {
  53. FILE *fp;
  54. if(size<0) return size;
  55. fp=fopen(DataFile,"a+");
  56. if(fp!=NULL) {
  57. fprintf(fp,"call recv,  used socket=%d,len:%dn",socket,size);
  58. PrintData(fp,(BYTE *)p,size);
  59. fclose(fp);
  60. }
  61. return size;
  62. }
  64. void SaveSendData(int socket, char *p, int size)
  65. {
  66. FILE *fp=fopen(DataFile,"a+");
  67. if(fp!=NULL) {
  68. fprintf(fp,"call send, used socket=%d,len:%dn",socket,size);
  69. PrintData(fp,(BYTE *)p,size);
  70. fclose(fp);
  71. }
  72. }
  74. void SaveRecvfromData(char *addr,int port, char FAR * p, int size)
  75. {
  76. FILE *fp=fopen(DataFile,"a+");
  77. if(fp!=NULL) {
  78. fprintf(fp,"call recvfrom, recvice data from %s port:%d,len:%dn",addr,port,size);
  79. PrintData(fp,(BYTE *)p,size);
  80. fclose(fp);
  81. }
  82. //日志文件
  83. }
  85. void SaveSendtoData(char *addr,int port, BYTE *p, int size)
  86. {
  87. FILE *fp=fopen(DataFile,"a+");
  88. if(fp!=NULL) {
  89. fprintf(fp,"call sendto, send data to %s port:%d,len:%dn",addr,port,size);
  90. PrintData(fp,(BYTE *)p,size);
  91. fclose(fp);
  92. }
  93. //日志文件
  94. }
  96. //必须输出与原WSOCK32.DLL库同样的函数。
  97. //************
  98. BOOL WINAPI DllMain (HANDLE hInst,
  99.  ULONG ul_reason_for_call,
  100.                      LPVOID lpReserved)
  101. {
  102. SaveRecord("begin");
  104. //装载原动态库
  105. if(i==NULL){
  106. i=LoadLibrary("c:\windows\system\wsock32.aaa");
  107. SaveRecord("reload old wsock32.dll");
  108. }
  109. else
  110. return 1;
  112. if(i!=NULL){
  113. //取得原同名函数地址
  114. a=GetProcAddress(i,"WSAStartup");
  115. WSAStartup1=(int (_stdcall *)(WORD,LPWSADATA))a;
  117. a=GetProcAddress(i,"WSACleanup");
  118. //取得原同名函数地址
  119. WSACleanup1=(int (_stdcall *)())a;
  121. a=GetProcAddress(i,"htons");
  122. htons1=(u_short (_stdcall *)(u_short))a;
  124. a=GetProcAddress(i,"socket");
  125. socket1=(SOCKET (_stdcall *)(int ,int,int))a;
  127. a=GetProcAddress(i,"WSAAsyncSelect");
  128. WSAAsyncSelect1=(int (_stdcall *)(SOCKET,HWND ,u_int,long ))a;
  130. a=GetProcAddress(i,"setsockopt");
  131. setsockopt1=(int (_stdcall *)(SOCKET ,int ,int ,const char * ,int ))a;
  133. a=GetProcAddress(i,"ioctlsocket");
  134. ioctlsocket1=(int (_stdcall *)(SOCKET ,long ,u_long FAR *))a;
  136. a=GetProcAddress(i,"WSAAsyncGetHostByName");
  137. WSAAsyncGetHostByName1=(HANDLE (_stdcall *)(HWND ,u_int ,const char FAR * , char FAR * ,int ))a;
  139. a=GetProcAddress(i,"closesocket");
  140. closesocket1=(int (_stdcall *)(SOCKET ))a;
  142. a=GetProcAddress(i,"select");
  143. select1=(int (_stdcall *)(int ,fd_set FAR *,fd_set FAR *,fd_set FAR *,const struct timeval FAR *))a;
  145. a=GetProcAddress(i,"NPLoadNameSpaces");
  146. NPLoadNameSpaces1=(int (_stdcall *)(int ,int ,int ))a;
  149. a=GetProcAddress(i,"connect");
  150. connect1=(int (_stdcall *)(SOCKET ,const struct sockaddr *,int ))a;
  152. a=GetProcAddress(i,"closesockinfo");
  153. closesockinfo1=(int (_stdcall *)(int))a;
  155. a=GetProcAddress(i,"WSAGetLastError");
  156. WSAGetLastError1=(int (_stdcall *)())a;
  158. a=GetProcAddress(i,"send");
  159. send1=(int (_stdcall *)(SOCKET ,const char * ,int ,int ))a;
  161. a=GetProcAddress(i,"recv");
  162. recv1=(int (_stdcall *)(SOCKET ,char FAR * ,int ,int ))a;
  164. a=GetProcAddress(i,"__WSAFDIsSet");
  165. __WSAFDIsSet1=(int (_stdcall *)(SOCKET,fd_set FAR *))a;
  167. a=GetProcAddress(i,"inet_addr");
  168. inet_addr1=(unsigned long (_stdcall *)(const char FAR * ))a;
  170. a=GetProcAddress(i,"WsControl");
  171. WsControl1=(int (_stdcall *)(int ,int ,int ,int ,int ,int ))a;
  173. a=GetProcAddress(i,"inet_ntoa");
  174. inet_ntoa1=(char *  (_stdcall *)(struct in_addr))a;
  176. a=GetProcAddress(i,"htonl");
  177. htonl1=(u_long  (_stdcall *)(u_long))a;
  179. a=GetProcAddress(i,"bind");
  180. bind1=(int (_stdcall *)(SOCKET ,const struct sockaddr *,int ))a;
  182. a=GetProcAddress(i,"getsockname");
  183. getsockname1=(int (_stdcall *)(SOCKET ,struct sockaddr *,int * ))a;
  185. a=GetProcAddress(i,"gethostbyname");
  186. gethostbyname1=(struct hostent * (_stdcall *)(const char FAR * ))a;
  188. a=GetProcAddress(i,"ntohs");
  189. ntohs1=(u_short (_stdcall *)(u_short))a;
  191. a=GetProcAddress(i,"getsockopt");
  192. getsockopt1=(int (_stdcall *)(SOCKET ,int ,int ,char * , int *))a;
  194. a=GetProcAddress(i,"gethostname");
  195. gethostname1=(int (_stdcall *)(char FAR *, int))a;
  197. a=GetProcAddress(i,"WSHEnumProtocols");
  198. WSHEnumProtocols1=(int (_stdcall *)(void))a;
  201. a=GetProcAddress(i,"getprotobyname");
  202. getprotobyname1=(getprotobyname0)a;
  204. a=GetProcAddress(i,"accept");
  205. accept1 =(accept0)a;
  207. a=GetProcAddress(i,"shutdown");
  208. shutdown1 =(shutdown0)a;
  210. a=GetProcAddress(i,"getservbyname");
  211. getservbyname1 =(getservbyname0)a;
  213. a=GetProcAddress(i,"getservbyport");
  214. getservbyport1 =(getservbyport0)a;
  216. a=GetProcAddress(i,"getprotobynumber");
  217. getprotobynumber1=(getprotobynumber0)a;
  219. a=GetProcAddress(i,"sendto");
  220. sendto1 =(sendto0)a;
  222. a=GetProcAddress(i,"recvfrom");
  223. recvfrom1 =(recvfrom0)a;
  225. a=GetProcAddress(i,"ntohl");
  226. ntohl1 =(ntohl0)a;
  228. a=GetProcAddress(i,"listen");
  229. listen1=(listen0)a;
  231. a=GetProcAddress(i,"getpeername");
  232. getpeername1 =(getpeername0)a;
  234. }else return 0;
  236. return 1;
  237. }
  239. int PASCAL FAR WSAStartup(WORD wVersionRequired, LPWSADATA lpWSAData)
  240. {
  241. SaveRecord("WSAStartup");
  242. //记日志，当然也可以是您的模块
  244. return WSAStartup1(wVersionRequired,lpWSAData);
  245. //执行真正的处理
  246. }
  248. int PASCAL FAR WSACleanup(void)
  249. {
  250. SaveRecord("WSACleanup");
  251. //记日志
  252. return WSACleanup1();
  253. //执行真正的处理
  254. }
  255. u_short PASCAL FAR htons (u_short hostshort)
  256. {
  257. SaveRecord("htons");
  258. return htons1(hostshort);
  259. //执行真正的处理
  261. }
  262. SOCKET PASCAL FAR socket (int af, int type, int protocol)
  263. {
  264. char disp[64];
  265. SOCKET rc;
  266. rc = socket1(af,type,protocol);
  267. wsprintf(disp,"socket(af:%d,type:%d,proto:%d) rc=%d",af,type,protocol,rc);
  268. SaveRecord(disp);
  269. return rc;
  270. }
  271. int PASCAL FAR WSAAsyncSelect(SOCKET s, HWND hWnd, u_int wMsg,long lEvent)
  272. {
  273. char disp[128];
  274. int rc;
  275. rc = WSAAsyncSelect1(s,hWnd,wMsg,lEvent);
  276. wsprintf(disp,"WSAAsyncSelect(s=%d,hWnd,wMsg=%d,lEvent=%ld),rc=%d",s,wMsg,lEvent,rc);
  277. SaveRecord(disp);
  278. return rc;
  279. }
  280. int PASCAL FAR setsockopt(SOCKET s,int level,int optname,const char * optval,int optlen)
  281. {
  282. SaveRecord("setsockopt");
  283. return setsockopt1(s,level,optname,optval,optlen);
  284. //执行真正的处理
  286. }
  287. int PASCAL FAR ioctlsocket(SOCKET s, long cmd, u_long FAR *argp)
  288. {
  289. SaveRecord("ioctlsocket");
  290. return ioctlsocket1(s,cmd,argp);
  291. //执行真正的处理
  293. }
  294. HANDLE PASCAL FAR WSAAsyncGetHostByName(HWND hWnd, u_int wMsg,const char FAR * name, char FAR * buf,int buflen)
  295. {
  296. SaveRecord("WSAAsyncGetHostByName");
  297. return WSAAsyncGetHostByName1(hWnd,wMsg,name,buf,buflen);
  298. //执行真正的处理
  300. }
  301. int PASCAL FAR select(int nfds, fd_set FAR *readfds, fd_set FAR *writefds,fd_set FAR *exceptfds, const struct timeval FAR *timeout)
  302. {
  303. SaveRecord("select");
  304. return select1(nfds,readfds,writefds,exceptfds,timeout);
  305. //执行真正的处理
  307. }
  308. int PASCAL FAR closesocket(SOCKET s)
  309. {
  310. SaveRecord("closesocket");
  311. return closesocket1(s);
  312. //执行真正的处理
  314. }
  315. int PASCAL FAR NPLoadNameSpaces(int p,int q,int r)
  316. {
  317. SaveRecord("NPLoadNameSpaces");
  318. return NPLoadNameSpaces1(p,q,r);
  319. //执行真正的处理
  321. }
  322. int PASCAL FAR closesockinfo(int p)
  323. {
  324. SaveRecord("closesockinfo");
  325. return closesockinfo1(p);
  326. //执行真正的处理
  328. }
  329. int PASCAL FAR connect(SOCKET s,const struct sockaddr *name, int namelen)
  330. {
  331. int rc;
  332. sin =(sockaddr_in *)name;
  333. LPCSTR psz=inet_ntoa1(sin->sin_addr);
  334. wsprintf(msg,"connect,ip=%s:%d socket=%d",psz,ntohs1(sin->sin_port),s);
  335. SaveRecord(msg);
  336. rc = connect1(s,name,namelen);
  337. return rc;
  339. //执行真正的处理
  341. }
  342. int PASCAL FAR WSAGetLastError(void)
  343. {
  344. d=WSAGetLastError1();
  345. sprintf(aa,"WSAGetLastError %d",d);
  346. SaveRecord(aa);
  347. return d;
  348. //取得原同名函数地址
  349. //执行真正的处理
  351. }
  352. int PASCAL FAR send(SOCKET s,const char * buf,int len,int flags)
  353. {
  354. int rc;
  355. rc = send1(s,buf,len,flags);
  356. SaveSendData((int)s, (char *)buf, rc);
  357. return rc;
  359. }
  362. int PASCAL FAR recv(SOCKET s, char FAR * buf, int len, int flags)
  363. {
  365. int rc;
  366. SaveRecord("recv() ");
  367. rc = recv1(s,  buf,  len,  flags);
  368. if(rc<0)  return rc;
  369. //SaveRecvData((int)s, buf, rc);
  370. //
  371. //
  372. //   用上述SaveRecvData有时会死机 不知何故，
  373. //   解决者请告述我，谢谢！
  374. //
  375. return rc;
  376. }
  378. int PASCAL FAR __WSAFDIsSet(SOCKET p,fd_set FAR *q)
  379. {
  380. SaveRecord("__WSAFDIsSet");
  381. return __WSAFDIsSet1(p,q);
  382. }
  384. unsigned long PASCAL inet_addr(const char FAR * cp)
  385. {
  386. unsigned long rc;
  387. char disp[64];
  388. rc = inet_addr1(cp);
  389. wsprintf(disp,"inet_addr(%s)",cp);
  390. SaveRecord(disp);
  391. return rc;
  392. //执行真正的处理
  394. }
  395. int PASCAL WsControl(int p,int q,int r,int s,int t,int u)
  396. {
  397. SaveRecord("WsControl");
  398. return WsControl1(p,q,r,s,t,u);
  399. //取得原同名函数地址
  400. //执行真正的处理
  402. }
  403. char * PASCAL inet_ntoa (struct in_addr in)
  404. {
  405. SaveRecord("inet_ntoa");
  406. return inet_ntoa1(in);
  407. //取得原同名函数地址
  408. //执行真正的处理
  410. }
  411. u_long PASCAL FAR htonl(u_long hostlong)
  412. {
  413. SaveRecord("htonl");
  414. return htonl1(hostlong);
  415. //取得原同名函数地址
  416. //执行真正的处理
  418. }
  419. int PASCAL bind(SOCKET s, const struct sockaddr FAR *addr, int namelen)
  420. {
  421. SaveRecord("bind");
  422. return bind1(s,addr,namelen);
  423. //取得原同名函数地址
  424. //执行真正的处理
  426. }
  427. int PASCAL getsockname(SOCKET s, struct sockaddr *name,int * namelen)
  428. {
  429. int rc;
  430. char disp[512];
  431. sockaddr_in *sin;
  432. rc = getsockname1(s,name,namelen);
  433. sin =(sockaddr_in *)name;
  434. LPCSTR psz=inet_ntoa1(sin->sin_addr);
  435. wsprintf(disp,"getsockname(addr:%s,port:%d)",psz,ntohs1(sin->sin_port));
  436. SaveRecord(disp);
  437. return rc;
  438. }
  439. struct hostent * PASCAL FAR gethostbyname(const char FAR * name)
  440. {
  441. char disp[512];
  442. PHOSTENT hostinfo;
  443. if((hostinfo = gethostbyname1(name)) != NULL){
  444. LPCSTR ip = inet_ntoa1 (*(struct in_addr *)*hostinfo->h_addr_list);
  445. wsprintf(disp,"gethostbyname(hostname:%s,addr:%s)",name,ip);
  446. }
  447. else
  448. wsprintf(disp,"gethostbyname(hostname:%s)",name);
  450. SaveRecord(disp);
  451. return hostinfo;
  452. }
  454. u_short PASCAL ntohs(u_short netshort)
  455. {
  456. SaveRecord("ntohs");
  457. return ntohs1(netshort);
  458. //取得原同名函数地址
  459. //执行真正的处理
  461. }
  462. int PASCAL getsockopt(SOCKET s,int level,int optname,char * optval, int *optlen)
  463. {
  464. SaveRecord("getsockopt");
  465. return getsockopt1(s,level,optname,optval,optlen);
  466. //取得原同名函数地址
  467. //执行真正的处理
  469. }
  471. int PASCAL FAR gethostname (char FAR * name, int namelen)
  472. {
  473. int rc;
  474. char disp[256];
  475. rc = gethostname1 (name, namelen);
  476. if(rc==0){
  477. wsprintf(disp,"gethostname(hostname:%s)",name);
  478. SaveRecord(disp);
  479. }else
  480. SaveRecord("gethostname(return error)"); 
  481. return rc; 
  482. }
  484. int PASCAL FAR WSHEnumProtocols()
  485. {
  486. SaveRecord("WSHEnumProtocols");
  487. return WSHEnumProtocols1();
  488. }
  490. SOCKET PASCAL FAR accept (SOCKET s, struct sockaddr FAR *addr,int FAR *addrlen)
  491. {
  492. char disp[64];
  493. SOCKET rc;
  494. sockaddr_in *sin;
  495. rc = accept1(s, addr,addrlen);
  496. sin =(sockaddr_in *)addr;
  497. LPCSTR psz=inet_ntoa1(sin->sin_addr);
  498. wsprintf(disp,"accept,ip=%s:%d socket=%d",psz,ntohs1(sin->sin_port),rc);
  499. SaveRecord(disp);
  500. return rc;
  501. }
  503. int PASCAL FAR getpeername (SOCKET s, struct sockaddr FAR *name,int FAR * namelen)
  504. {
  505. SaveRecord("getpeername");
  506. return getpeername1(s,name,namelen);
  507. }
  509. int PASCAL FAR listen (SOCKET s, int backlog)
  510. {
  511. SaveRecord("listen");
  512. return listen1(s, backlog);
  513. }
  515. u_long PASCAL FAR ntohl (u_long netlong)
  516. {
  517. SaveRecord("ntohl");
  518. return ntohl1 (netlong);
  519. }
  521. int PASCAL FAR recvfrom (SOCKET s, char FAR * buf, int len, int flags,struct sockaddr FAR *from, int FAR * fromlen)
  522. {
  524. int rc;
  525. sockaddr_in *sin;
  526. rc = recvfrom1(s,  buf,  len,  flags, from, fromlen);
  527. sin =(sockaddr_in *)from;
  528. LPCSTR psz=inet_ntoa1(sin->sin_addr);
  529. SaveRecvfromData((char *)psz,ntohs1(sin->sin_port),buf, rc);
  530. return rc;
  532. }
  534. int PASCAL FAR sendto (SOCKET s, const char FAR * buf, int len, int flags,const struct sockaddr FAR *to, int tolen)
  535. {
  536. int rc;
  537. sockaddr_in *sin;
  538. rc = sendto1 (s, buf,  len, flags,to, tolen);
  539. sin =(sockaddr_in *)to;
  540. LPCSTR psz=inet_ntoa1(sin->sin_addr);
  541. SaveSendtoData((char *)psz,ntohs1(sin->sin_port),(unsigned char *)buf, rc);
  543. return rc;
  544. }
  546. int PASCAL FAR shutdown (SOCKET s, int how)
  547. {
  548. SaveRecord("shutdown");
  549. return shutdown1( s, how);
  550. }
  552. struct hostent FAR * PASCAL FAR gethostbyaddr(const char FAR * addr,int len, int type)
  553. {
  554. SaveRecord("gethostbyaddr");
  555. return gethostbyaddr1(addr, len, type);
  556. }
  558. struct protoent FAR * PASCAL FAR getprotobynumber(int proto)
  559. {
  560. SaveRecord("getprotobynumber");
  561. return getprotobynumber1(proto);
  562. }
  564. struct protoent FAR * PASCAL FAR getprotobyname(const char FAR * name)
  565. {
  566. SaveRecord("getprotobyname");
  567. return getprotobyname1(name);
  568. }
  570. struct servent FAR * PASCAL FAR getservbyport(int port, const char FAR * proto)
  571. {
  572. SaveRecord("getservbyport");
  573. return getservbyport1(port,  proto);
  574. }
  575. struct servent FAR * PASCAL FAR getservbyname(const char FAR * name,const char FAR * proto)
  576. {
  577. SaveRecord("getservbyname");
  578. return getservbyname1( name, proto);;
  579. }
  581. HANDLE PASCAL FAR WSAAsyncGetServByName(HWND hWnd, u_int wMsg,const char FAR * name,const char FAR * proto,char FAR * buf, int buflen)
  582. {
  583. SaveRecord("WSAAsyncGetServByName");
  584. return WSAAsyncGetServByName1( hWnd,  wMsg, name, proto, buf,  buflen);
  585. }
  587. HANDLE PASCAL FAR WSAAsyncGetServByPort(HWND hWnd, u_int wMsg, int port,const char FAR * proto, char FAR * buf,int buflen)
  588. {
  589. SaveRecord("WSAAsyncGetServByPort");
  590. return WSAAsyncGetServByPort1( hWnd,  wMsg,  port, proto, buf, buflen);
  591. }
  593. HANDLE PASCAL FAR WSAAsyncGetProtoByName(HWND hWnd, u_int wMsg,const char FAR * name, char FAR * buf,int buflen)
  594. {
  595. SaveRecord("WSAAsyncGetProtoByName");
  596. return WSAAsyncGetProtoByName1(hWnd, wMsg, name,  buf, buflen);
  597. }
  599. HANDLE PASCAL FAR WSAAsyncGetProtoByNumber(HWND hWnd, u_int wMsg,int number, char FAR * buf,int buflen)
  600. {
  601. SaveRecord("WSAAsyncGetProtoByNumber");
  602. return WSAAsyncGetProtoByNumber1( hWnd,  wMsg, number,  buf, buflen);
  603. }
  605. HANDLE PASCAL FAR WSAAsyncGetHostByAddr(HWND hWnd, u_int wMsg,const char FAR * addr, int len, int type,char FAR * buf, int buflen)
  606. {
  607. SaveRecord("WSAAsyncGetHostByAddr");
  608. return WSAAsyncGetHostByAddr1( hWnd,  wMsg, addr, len, type,  buf, buflen);
  609. }
  610. int PASCAL FAR WSACancelAsyncRequest(HANDLE hAsyncTaskHandle)
  611. {
  612. SaveRecord("WSACancelAsyncRequest");
  613. return WSACancelAsyncRequest1(hAsyncTaskHandle);
  614. }
  616. FARPROC PASCAL FAR WSASetBlockingHook(FARPROC lpBlockFunc)
  617. {
  618. SaveRecord("WSASetBlockingHook");
  619. return WSASetBlockingHook1(lpBlockFunc);
  620. }
  622. int PASCAL FAR WSAUnhookBlockingHook(void)
  623. {
  624. SaveRecord("WSAUnhookBlockingHook");
  625. return WSAUnhookBlockingHook1();
  626. }
  628. void PASCAL FAR WSASetLastError(int iError)
  629. {
  630. char disp[64];
  631. wsprintf(disp,"WSASetLastError(%d)",iError);
  632. SaveRecord(disp);
  633. WSASetLastError1(iError);
  634. }
  636. int PASCAL FAR WSACancelBlockingCall(void)
  637. {
  638. SaveRecord("WSACancelBlockingCall");
  639. return WSACancelBlockingCall1();
  640. }
  642. BOOL PASCAL FAR WSAIsBlocking(void)
  643. {
  644. SaveRecord("WSAIsBlocking");
  645. return WSAIsBlocking1();
  646. }
  648. int PASCAL FAR WSARecvEx (SOCKET s, char FAR * buf, int len, int FAR *flags)
  649. {
  650. int rc;
  651. char disp[512];
  652. char tmp[400];
  653. rc = WSARecvEx1 ( s, buf, len, flags);
  654. strncpy(tmp,buf,400);
  655. wsprintf(disp,"WSARecvEx(len=%d,buf:%s)",len,tmp);
  656. SaveRecord(disp);
  657. return rc;
  658. }
  660. BOOL PASCAL FAR TransmitFile (IN SOCKET hSocket,IN HANDLE hFile,IN DWORD nNumberOfBytesToWrite,IN DWORD nNumberOfBytesPerSend,IN LPOVERLAPPED lpOverlapped,IN void *lpTransmitBuffers,IN DWORD dwReserved)
  661. {
  662. SaveRecord("TransmitFile");
  663. return TransmitFile1 ( hSocket, hFile, nNumberOfBytesToWrite, nNumberOfBytesPerSend, lpOverlapped,lpTransmitBuffers, dwReserved);
  664. }
  666. int PASCAL FAR Arecv ()
  667. {
  668. SaveRecord("Arecv");
  669. return Arecv1();
  670. }
  671. int PASCAL FAR Asend ()
  672. {
  673. SaveRecord("Asend");
  674. return Asend1 ();
  675. }
  676. int PASCAL FAR inet_network ()
  677. {
  678. SaveRecord("inet_network");
  679. return inet_network1 ();
  680. }
  681. int PASCAL FAR getnetbyname ()
  682. {
  683. SaveRecord("getnetbyname");
  684. return getnetbyname1 ();
  685. }
  687. int PASCAL FAR rcmd  ()
  688. {
  689. SaveRecord("rcmd ");
  690. return rcmd1  ();
  691. }
  693. int PASCAL FAR rexec ()
  694. {
  695. SaveRecord("rexec");
  696. return rexec1 ();
  697. }
  698. int PASCAL FAR rresvport ()
  699. {
  700. SaveRecord("rresvport");
  701. return rresvport1 ();
  702. }
  703. int PASCAL FAR sethostname ()
  704. {
  705. SaveRecord("sethostname");
  706. return sethostname1 ();
  707. }
  708. int PASCAL FAR dn_expand ()
  709. {
  710. SaveRecord("dn_expand");
  711. return dn_expand1 ();
  712. }
  713. int PASCAL FAR s_perror  ()
  714. {
  715. SaveRecord("s_perror ");
  716. return s_perror1  ();
  717. }
  718. int PASCAL FAR GetAddressByNameA ()
  719. {
  720. SaveRecord(" GetAddressByNameA ");
  721. return GetAddressByNameA1 ();
  722. }
  724. int PASCAL FAR GetAddressByNameW ()
  725. {
  726. SaveRecord("GetAddressByNameW");
  727. return GetAddressByNameW1 ();
  728. }
  729. int PASCAL FAR EnumProtocolsA ()
  730. {
  731. SaveRecord("EnumProtocolsA ");
  732. return EnumProtocolsA1 ();
  733. }
  734. int PASCAL FAR EnumProtocolsW ()
  735. {
  736. SaveRecord("EnumProtocolsW");
  737. return EnumProtocolsW1 ();
  738. }
  740. int PASCAL FAR GetTypeByNameA ()
  741. {
  742. SaveRecord("GetTypeByNameA");
  743. return GetTypeByNameA1 ();
  744. }
  745. int PASCAL FAR GetTypeByNameW ()
  746. {
  747. SaveRecord("GetTypeByNameW ");
  748. return GetTypeByNameW1();
  749. }
  750. int PASCAL FAR GetNameByTypeA ()
  751. {SaveRecord("GetNameByTypeA ");
  752. return GetNameByTypeA1 ();
  753. }
  754. int PASCAL FAR GetNameByTypeW ()
  755. {
  756. SaveRecord("GetNameByTypeW");
  757. return GetNameByTypeW1 ();
  758. }
  759. int PASCAL FAR SetServiceA ()
  760. {
  761. SaveRecord("SetServiceA ");
  762. return SetServiceA1 ();
  763. }
  764. int PASCAL FAR SetServiceW ()
  765. {
  766. SaveRecord("SetServiceW");
  767. return SetServiceW1 ();
  768. }
  769. int PASCAL FAR GetServiceA ()
  770. {
  771. SaveRecord("GetServiceA");
  772. return GetServiceA1 ();
  773. }
  774. int PASCAL FAR GetServiceW ()
  775. {
  776. SaveRecord("GetServiceW ");
  777. return GetServiceW1 ();
  778. }
  781. //BOOL PASCAL FAR AcceptEx (IN SOCKET sListenSocket,IN SOCKET sAcceptSocket,IN PVOID lpOutputBuffer,IN DWORD dwReceiveDataLength,IN DWORD dwLocalAddressLength,IN DWORD dwRemoteAddressLength,OUT LPDWORD lpdwBytesReceived,IN LPOVERLAPPED lpOverlapped){SaveRecord("1");return 0;}
  782. //VOID PASCAL FAR GetAcceptExSockaddrs (IN PVOID lpOutputBuffer,IN DWORD dwReceiveDataLength,IN DWORD dwLocalAddressLength,IN DWORD dwRemoteAddressLength,OUT struct sockaddr **LocalSockaddr,OUT LPINT LocalSockaddrLength,OUT struct sockaddr **RemoteSockaddr,OUT LPINT RemoteSockaddrLength){SaveRecord("1");return 0;}