sm
服务器租用 996 无法下载点击此处反馈
/
查看: 1027|回复: 0

传奇EI3.0 客户端5.0插件ClientEx.dll的完整源代码 [传奇3源码]

[复制链接]

826

主题

37

回帖

23万

积分

霸王教主

积分
237197
发表于 2023-5-30 21:08:31 | 显示全部楼层 |阅读模式
传奇EI3.0 客户端插件ClientEx.dll的完整源代码   


适配的插件为 李博4.0以后的 客户端,  4.0以前的ClientEx.dll


老版本的插件如:1.2 1.5 2.0 3.38 等客户端 使用这个https://www.yyssoft.com/form/566.html

  1. unit uWHWilImage;

  2. interface
  3. uses Windows;

  4. type

  5. tagNEWWIXFILEIMAGEINFO = record
  6.   szTitle: array[1..20] of CHAR;
  7.   nIndexCount: Integer;
  8.   pnPosition: Integer;
  9. end;
  10. NEWWIXIMAGEINFO = tagNEWWIXFILEIMAGEINFO;
  11. LPNEWWIXIMAGEINFO = ^tagNEWWIXFILEIMAGEINFO;

  12. tagWILFILEIMAGEINFO = record
  13.   shWidth: SHORT;
  14.   shHeight: SHORT;
  15.   shPX: SHORT;
  16.   shPY: SHORT;
  17.   dwImageLength: DWORD;
  18. end;
  19. WILIMAGEINFO = tagWILFILEIMAGEINFO;
  20. LPWILIMAGEINFO = ^tagWILFILEIMAGEINFO;

  21. tagNEWWILFILEIMAGEINFO = record
  22.   shWidth: SHORT;
  23.   shHeight: SHORT;
  24.   shPX: SHORT;
  25.   shPY: SHORT;
  26.   bShadow: CHAR;
  27.   shShadowPX: SHORT;
  28.   shShadowPY: SHORT;
  29.   dwImageLength: DWORD;
  30. end;
  31. NEWWILIMAGEINFO = tagNEWWILFILEIMAGEINFO;
  32. LPNEWWILIMAGEINFO = ^tagNEWWILFILEIMAGEINFO;

  33. CWHWilImageData = class
  34. private
  35. protected
  36.   m_bIsMemMapped: BOOL;
  37.   m_pbStartData: PByte;
  38.   m_pbStartCurrImage: PByte;
  39.   m_wixImageCount: Integer;
  40.   m_nCurrImageIdx: Integer;
  41. public
  42.   m_stNewWixImgaeInfo: NEWWIXIMAGEINFO;
  43.   m_lpstCurrWilImageInfo: LPWILIMAGEINFO;
  44.   m_lpstNewCurrWilImageInfo: LPNEWWILIMAGEINFO;
  45.   m_pbCurrImage: PByte;
  46.   m_szWilFileName: array[1..MAX_PATH] of Char;
  47. public
  48.   constructor Create(szWilFile: PChar);
  49.   function NewLoad(szWilFile: PChar): BOOL; stdcall;
  50.   function SetIndex(dwIndex: DWORD): BOOL; stdcall;
  51. end;

  52. type
  53. _NewLoad = function(szWilFile: PChar; bIsMemMapped: Byte): BOOL; stdcall;
  54. _SetIndex = function(dwIndex: DWORD): BOOL; stdcall;

  55. var
  56. __NewLoad: _NewLoad = Pointer($4660E0);
  57. __SetIndex: _SetIndex = Pointer($466130);

  58. implementation

  59. { CWHWilImageData }

  60. constructor CWHWilImageData.Create(szWilFile: PChar);
  61. begin
  62. NewLoad(szWilFile);
  63. end;

  64. function CWHWilImageData.NewLoad(szWilFile: PChar): BOOL; stdcall;
  65. begin
  66. asm
  67.   MOV ECX,Self
  68. end;
  69. Result := __NewLoad(szWilFile, 0);
  70. end;

  71. function CWHWilImageData.SetIndex(dwIndex: DWORD): BOOL;
  72. begin
  73. asm
  74.   MOV ECX,Self
  75. end;
  76. Result := __SetIndex(dwIndex);
  77. end;

  78. end.
复制代码

前往获取传奇EI3.0 客户端5.0插件ClientEx.dll的完整源代码





上一篇:Delphi传奇EI3.0客户端插件ClientEx.dll源码2.0
下一篇:GSQL2000绿色版源代码delphi绿色SQL源码
回复

使用道具 举报

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-12-4 01:27 , Processed in 0.261710 second(s), 46 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

快速回复 返回顶部 返回列表