TC官方合作论坛

标题: 大漠注册代码感谢江中游老师 [打印本页]

---

作者: wojiaoka    时间: 2013-11-10 16:12
标题: 大漠注册代码感谢江中游老师

1. 空间 大漠
   
2. //默认空间
   
3. dm=com("dm.dmsoft")
   
4. //开始按钮_点击操作
   
5. 功能 开始_点击()
   
6.     dm.Delay(3000)
   
7.     hwnd = dm.GetMousePointWindow()
   
8.     dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
   
9.     dm.EnableKeypadSync(1,200)
   
10. dm.EnableMouseSync(1,200)
    
11. 
    
12.    dm.LockInput(1)
    
13. 标记1:
    
14.        dm.Delay(1000)
    
15. dm.KeyPress(75)
    
16. dm.Delay(1000)
    
17. dm.KeyPress(75)
    
18. dm.Delay(1000)
    
19. dm.KeyPress(75)
    
20. dm.Delay(1000)
    
21. dm.KeyPress(75)
    
22. dm.Delay(1000)
    
23. dm.KeyPress(75)
    
24.      跳转 标记1
    
25.      
    
26. 功能结束
    
27. 
    
28. //退出按钮_点击操作
    
29. 功能 退出_点击()               
    
30.     dm_ret = dm.UnBindWindow()
    
31.     是否成功=辅助.注册插件("rc:dm.dll",假)
    
32.     辅助.退出()
    
33. 功能结束
    
34. 
    
35. 功能 初始化()
    
36. //这里添加你要执行的代码
    
37. 变量 dm
    
38. 是否成功=辅助.是否注册("dm.dmsoft")
    
39. 如果(是否成功)
    
40.     辅助.消息框("注册成功")
    
41. 否则
    
42.     dm_zc=辅助.注册插件("rc:\\dm.dll",真)
    
43.     如果(dm_zc)
    
44.         dm=com("dm.dmsoft")
    
45.         版本号=dm.ver()
    
46.         辅助.消息框("注册成功")
    
47.           如果(版本号!="4.1345")
    
48.             dm_zc=辅助.注册插件("rc:\\dm.dll",假)
    
49.             dm=null
    
50.             dm_zc=辅助.注册插件("rc:\\dm.dll",真)
    
51.           如果结束
    
52.       如果结束      
    
53.     如果结束
    
54.     dm=null
    
55.     dm=com("dm.dmsoft")
    
56.     dm_sf=dm.Reg("这里是收费注册码","")
    
57.     调试输出(dm_sf)
    
58.    
    
59.     如果(dm_sf!=1)
    
60.         编辑框.设置文本("编辑框0", "收费注册不成功")
    
61.     否则
    
62.        编辑框.设置文本("编辑框0", "收费注册成功")
    
63.        如果结束
    
64.       
    
65. 功能结束
    
66. 
    
67. 
    
68. 
    
69. 空间结束
    
70. //空间结束语句

复制代码

dm=com("dm.dmsoft")
    dm_sf=dm.Reg("这里是收费注册码","")
    调试输出(dm_sf)
   
    如果(dm_sf!=1)
        编辑框.设置文本("编辑框0", "收费注册不成功")
    否则
       编辑框.设置文本("编辑框0", "收费注册成功")
       如果结束
       免费的就把这段去掉

---

作者: dongyijun1979    时间: 2013-11-10 16:19
辛苦楼主了。

---

作者: 星.月    时间: 2013-11-10 16:23
有源码，不错

---

作者: dongyijun1979    时间: 2013-11-10 16:30
代码再优化一下子

---

作者: wojiaoka    时间: 2013-11-10 19:36
        要把DM.DLL添加到资源

---

作者: 领域紫痕    时间: 2013-11-20 17:01
受益匪浅

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1