眉山东坡论坛

 找回密码
 注册账号

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 38114|回复: 3
收起左侧

[资料经验] 解决ProeWildfire5.0破解(ProE 5)在机房使用GHOST后注册丢失问题

[复制链接]
发表于 2013-3-11 09:43 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转东坡论坛

您需要 登录 才可以下载或查看,没有帐号?注册账号

x
ProE在破解并注册后,再GHOST到其他计算机就不能正常运行了,怎么解决这个问题呢?

分析:
1、MAC配置:在注册的时候曾有过提示“....用机器网卡的MAC替换lic文件中对应的00-00...”,就是说采用了与每台计算机相对应的MAC值,我采用的是默认安装,许可文件是C:\Program Files\proeWildfire 5.0\ptc_licfile.dat,打开此文件后可以看到这串代码,当即替换了这厦代码。
2、环境字符串配置:替换了MAC后点击ProE图标,仍然不能运行,在运行记录文件中查看,在环境中配置字符串为中文,即刻解决。

下面列出静默运行的VBS用于解决这个问题:


  1. 'msgbox "本机网卡MAC地址是: " & mac & "破解完成,环境变量设置完成,本程序由东坡论坛编制。"
  2. '请事先把未改过网卡信息的ptc_licfile.dat备份为ptc_licfile.bak。
  3. Dim Wsh,mc,mo,mac
  4. Set Wsh = WScript.CreateObject("wscript.shell")
  5. Set objFSO = CreateObject("Scripting.FileSystemObject")
  6. Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
  7. Set pSysEnv = CreateObject("WScript.Shell").Environment("System")
  8. For Each mo In mc
  9.         If mo.IPEnabled=True Then
  10.                 mac=trim(mo.MacAddress)
  11.         Exit For
  12. End If
  13. Next
  14. mac=replace(mac,":","-")
  15. Set objTextFile = objFSO.OpenTextFile ("C:\Program Files\proeWildfire 5.0\ptc_licfile.bak", 1)
  16. i=objTextFile.ReadAll
  17. i = replace(i,"00-00-00-00-00-00",mac)
  18. objTextFile.Close
  19. Set objTextFile = objFSO.OpenTextFile ("C:\Program Files\proeWildfire 5.0\ptc_licfile.dat", 2, True)
  20. objTextFile.Write (i)
  21. objTextFile.Close


  22. LANG = "CHS"
  23. SetEnv "LANG", LANG
  24. wscript.quit

  25. Function IsMatch(Str, Patrn)
  26.   Set r = new RegExp
  27.   r.Pattern = Patrn
  28.   IsMatch = r.test(Str)
  29. End Function
  30. Sub SetEnv(pPath, pValue)
  31.     Dim ExistValueOfPath
  32.     IF pValue <> "" Then
  33.      ExistValueOfPath = pSysEnv(pPath)
  34. IF Right(pValue, 1) = "" Then pValue = Left(pValue, Len(pValue)-1)
  35. If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "", "\") & "\\?(\b|;)") Then Exit Sub '已经存在该环境变量设置
  36. If ExistValueOfPath <> "" Then pValue = ";" & pValue
  37. pSysEnv(pPath) = ExistValueOfPath & pValue
  38.     Else
  39. pSysEnv.Remove(pPath)
  40.     End IF
  41. End Sub




复制代码
发表于 2013-5-15 11:02 | 显示全部楼层
楼主强大,这么个小问题也做个程序来完成
 楼主| 发表于 2014-1-17 15:02 | 显示全部楼层
除此之外,还可以直接把快捷方式直接指向这个这个VBS程序,然后使用这个程序加一句执行原程序,就不必每台机器去做破解了。
发表于 2016-3-6 10:45 | 显示全部楼层
直接指向的话,要另外做链接的图标太麻烦了。
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

QQ|网站地图|关于我们|小黑屋|爱好群|眉山东坡论坛 ( 蜀ICP备05001993号-1 )

GMT+8, 2018-1-20 22:53

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表