Private Sub Timer1_Timer()
Dim lHwnd As Long
Dim TitleModify As String * 256
TimesNow = Now()
TitleModify = "CodeWorld" & TimesNow
lHwnd = FindWindow(vbNullString, "Element Client")
SetWindowText lHwnd, TitleModify
End Sub
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
下面引用由无条件为你在 2006/12/16 10:32pm 发表的内容:
第一种方法最没有技术含量。
另外,可以用添加“互斥量”的方法防止程序重复执行。而且我还没有发现破解它的方法。
2:通过命名的内核对象来防止重复打开。
解决方法:把查找内核对象后面的非零判断跳转修改下就ok了。
下面引用由默数悲伤在 2006/12/24 04:17pm 发表的内容:
不知道老大做过CrackMe没有,这应该可以算是最简单的CrackMe的内容了。
欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) | Powered by Discuz! 7.2 |