灵格斯词霸2.61+去除时间限制

housex

灵格斯词霸2.61+去除时间限制
1.该补丁用于解除灵格斯词霸中的使用时间限制，tracky的补丁貌似少缺少去除程序自校验，几分钟后会退出
2.能力有限，暂时支持2.61、2.62、2.63、2.71版本。
3.将LingoesLoad.exe放到灵格斯词霸目录，启动
4.若要去除广告，将update目录名称修改成其他名称即可。
LingoesLoad.rar (174.12 KB, 下载次数: 5)

2011-1-13 14:10 上传

点击文件名下载附件
参考代码如下：
bytesPatchData : array[0..5] of byte = ($E9, $BD, 00, 00, 00, 90);    // 补丁数据
procedure TForm1.FormCreate(Sender: TObject);
var
  strApplicationPath : string;  // 应用程序当前路径
  pi : PROCESS_INFORMATION;     // 程序信息
  si : STARTUPINFO ;
  bytesOldData : array[0..1] of byte;   // 用于读取旧数据
  dwPatchDataSize : DWORD;              // 补丁数据长度
  // ReadProcessMemory、WriteProcessMemory 函数中最后一个参数 用于得到实际数据长度
  dwBytesRead : DWORD;
begin
  strApplicationPath:=ExtractFileDir(Application.ExeName );
  if FileExists(strApplicationPath + '\Lingoes.exe') then
  begin
    ZeroMemory(@Pi,SizeOf(pi));
    FillChar(si,SizeOf(si),0);
    si.cb :=SizeOf(si);
    if CreateProcess (nil, 'Lingoes.exe', nil, nil, False, CREATE_SUSPENDED, nil ,nil, si, pi)=True then
    begin
      ReadProcessMemory(pi.hProcess, Pointer($00482848), @bytesOldData, 2, dwBytesRead);
      if (bytesOldData[0]=$0F) and (bytesOldData[1]=$84) then
      begin
        // 获得补丁数据长度
        dwPatchDataSize := SizeOf(bytesPatchData);
        // 将补丁数据写入进程
        WriteProcessMemory(pi.hProcess, Pointer($00482848), @bytesPatchData, dwPatchDataSize, dwBytesRead);
        ResumeThread(pi.hThread);
        CloseHandle(pi.hProcess);
        CloseHandle(pi.hThread);
      end
      else
      begin
        ShowMessage('程序版本错误，无法写入内存补丁！');
        TerminateProcess(pi.hProcess ,0);
        CloseHandle(pi.hProcess );
        CloseHandle(pi.hThread);
      end;
    end;
  end
  else
  begin
    ShowMessage('本补丁必须与目标文件放在同一目录下');
  end;
  Application.Terminate;
end;
参考：http://blog.csdn.net/suolao/archive/2010/09/12/5879307.aspx

lh233

不错的翻译软件

bqs211

谢谢分享

lij97

谢谢分享！

路鹏123

:mg:mg:mg:mg

bqs211

谢谢分享