• 检测DEDE反编译器

    • Procedure   Anti_DeDe();//检测DEDE反编译器,只对2.5版本以后的起作用.  
        var  
            DeDeHandle:THandle;  
            i:integer;  
        begin  
            DeDeHandle:=FindWindow(nil,chr($64)+chr($65)+chr($64)+chr($65));  
            if   DeDeHandle<>0   then  
                begin  
                    For   i:=1   to   4500   do  
                        SendMessage(DeDeHandle,WM_CLOSE,0,0);  
                end;  
        end;  

      标签: none

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号