动态破解UltraEdit的过期提示

Golden Blonde

UE是根据系统时间来判断试用期是否结束的，如果结束的话，就会弹出一个“模态对话框”，阻挡你使用。
于是直接用VB6写几行代码突破即可。

1. Private Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long
   
2. Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   
4. Private Declare Function EnableWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
   
5. '//需要去掉《快速入门指南》的“启动时显示”的钩
   
6. Sub main()
   
7.     Dim w1 As Long, w2 As Long
   
8.     w2 = FindWindow("#32770", "试用期结束") ': MsgBox w2, , "w2"
   
9.     w1 = GetParent(w2) ': MsgBox w1, , "w1"
   
10.     ShowWindow w2, 0
    
11.     EnableWindow w1, 1
    
12. End Sub

复制代码

从此之后可以无限期“试用”UE了。如果把这坨代码放到TIMER里，编译成EXE随机启动，那么就跟静态破解UE没啥区别了。

0xAA55

哈哈 真是简单粗暴。相比较Office就比较不好破解了。

Golden Blonde

624322077 发表于 2014-12-21 02:58
直接破解不是更好吗

人家破解的BIN你放心在HOST上用吗？？？

Golden Blonde

0xAA55 发表于 2014-12-21 02:58
哈哈 真是简单粗暴。相比较Office就比较不好破解了。

多半是UE公司根本不在乎这个。。。
不过又有人说中文UE是唯一有网络验证的，呵呵，不懂了。。。

cyycoish

{:soso_e113:}我之前用ph来激活窗体

xiawan

非常感谢~~支持~~~