当前位置: 主页 > 浏览 >

网络包探测软件

收藏 时间:2009-12-27 来源:查看 收藏:xinghua 阅读:181 标签:软件  探测  网络  部分  核心  以下  
网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware,但有时间限制,如何去除呢?以下是Delphi5写的核心部分。 var r: TRegistry; t: DWORD;begin r := TRegistry.Create; try r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey('\SOFTWARE\Dsoft\License\Products\3\2', True); t := DWORD(r.Rea

网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware,但有时间限制,如何去除
呢?
以下是Delphi5写的核心部分。


var
  r: TRegistry;
  t: DWORD;
begin
  r := TRegistry.Create;
  try
    r.RootKey := HKEY_LOCAL_MACHINE;
    r.OpenKey('\SOFTWARE\Dsoft\License\Products\3\2', True);
    t := DWORD(r.ReadInteger('LastDate'));  // Pass while Sniffer is installed.
    r.WriteInteger('LastDate', $8f904923);
  except
    t := $ffffffff;
  end;
  r.Free;
  if t=$ffffffff then
    Application.MessageBox(
      'DSoft Sniffer 2.9 not installed!',
      'Error',
      MB_OK+MB_ICONERROR)
  else
    Application.MessageBox(
      'Success! You may use it for a long time.   :)',
      'Message',
      MB_OK+MB_ICONINFORMATION);
end;

 


顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论 所有评论
你还没登录,请先登录后再来评论!
推荐内容
新知先觉