orochi0531

用的哪个cg？什么客户端呢？

orochi0531

台服客户端和台服cg的跳帧是data下的CG-Setup.ini文件的ActiveMode=ONLYACTIVE

orochi0531

[DISPLAY]—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* }4 w0 G8 H  N0 q
ScreenMode=NORMAL --是否是全屏bbs.mocwww.com; ]/ V$ C+ j; R: Y9 n
Effect=GENERALEFF     --画质档数的名字，这个是1档的—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 O. x" B1 |: P0 T
ActiveMode=ONLYACTIVE --跳帧
  L0 t9 u2 J" W9 t: Z% ]魔力私服,最新魔力宝贝私服技术交流MonitorKeyboard=CLOSE --关闭安全屏幕键盘

orochi0531

韩端我自己弄出来的cg是可以跳帧的，因为，韩端cg默认是没有跳帧的功能的，需要自行增加跳帧代码的。

orochi0531

复制内容到剪贴板

代码:

#COMPILE DLL "E:\天下魔力\txml.dll"
#DIM ALL  
GLOBAL ghInstance AS DWORD
GLOBAL tz AS DWORD
GLOBAL  TzJmp  AS DWORD
GLOBAL windows AS DWORD               

复制内容到剪贴板

代码:

#INCLUDE ONCE ".\Module\WIN32API.INC"
#INCLUDE ONCE ".\Module\Hook.Inc"
'------------------------------------------------------------------------------
$OLDWNDPROC = "OldWndProc"
GLOBAL HookPaint AS LONG
'子类化开始
FUNCTION SubClass(hWnd AS LONG) AS LONG
      DIM lpfnOld       AS LONG
      DIM fSuccess       AS LONG

      IF (GetProp(hWnd, $OLDWNDPROC) = 0) THEN
          lpfnOld = SetWindowLong(hWnd, %GWL_WNDPROC, CODEPTR(WndProc))
          IF lpfnOld THEN
              fSuccess = SetProp(hWnd, $OLDWNDPROC, lpfnOld)
          END IF
      END IF

      IF fSuccess THEN
          SubClass = 1
      ELSE
          IF lpfnOld THEN CALL UnSubClass(hWnd)
      END IF

END FUNCTION

'卸载子类化
FUNCTION UnSubClass(hWnd AS LONG) AS LONG
      DIM lpfnOld       AS LONG
      lpfnOld = GetProp(hWnd, $OLDWNDPROC)
      IF lpfnOld THEN
          IF RemoveProp(hWnd, $OLDWNDPROC) THEN
              UnSubClass = SetWindowLong(hWnd, %GWL_WNDPROC, lpfnOld)
          END IF
      END IF
END FUNCTION

FUNCTION WndProc(BYVAL hWnd AS LONG, BYVAL uMsg AS LONG, BYVAL wParam AS LONG, BYVAL lParam AS LONG) AS LONG

      SELECT CASE uMsg
        CASE %WM_ACTIVATE,%WM_ACTIVATEAPP,%WM_SETFOCUS
            Tz = 0
        CASE %WM_KILLFOCUS
            Tz = 1

        CASE %WM_NCDESTROY ' 如果收到组件被销毁的消息，恢复源窗口过程处理函数
            CALL UnSubClass(hWnd)

      END SELECT

      WndProc = CallWindowProc(GetProp(hWnd, $OLDWNDPROC), hWnd, uMsg, wParam, lParam)
END FUNCTION
                                                                  

复制内容到剪贴板

代码:

FUNCTION LIBMAIN (BYVAL hInstance   AS LONG, _
                  BYVAL fwdReason   AS LONG, _
                  BYVAL lpvReserved AS LONG) AS LONG'EXPORT AS LONG
    SELECT CASE fwdReason
    CASE %DLL_PROCESS_ATTACH
        windows = PEEK(DWORD,&H008E53FC)
        '跳帧
        IF INSTR(COMMAND$, "onlyactive" ) > 0 THEN
            subclass(windows)
        CALL Hook(&H433180, CODEPTR(GameTzHook), 0)
        END IF
        ghInstance = hInstance
        VirtualProtect(BYVAL &H401000, &H114000, %PAGE_READWRITE,0)

        FUNCTION = 1   'success!
    CASE %DLL_PROCESS_DETACH

        FUNCTION = 1   'success!
    CASE %DLL_THREAD_ATTACH

        FUNCTION = 1   'success!
    CASE %DLL_THREAD_DETACH

        FUNCTION = 1   'success!
    END SELECT
END FUNCTION                                                            

复制内容到剪贴板

代码:

FUNCTION GameTzHook()AS LONG   '
     !cmp Tz,0
     !Ja EndTz
     TzJmp = &H00433185
     !MOV EAX,DWORD PTR DS:[&H008E5410]
     !JMP TzJmp
   EndTz:
     !Retn
END FUNCTION  

这是我当年的天下魔力给cg_190添加的跳帧效果的PB代码。