WindowsXP+QTP/UFT11.5恢复30天试用破解
上一篇 /
下一篇 2012-12-20 22:55:42
/ 个人分类:QTP自动化笔记
HP公司于2012年12月20日发布了QTP/UFT11.5版本,可以试用30天,30天试用
破解方法和QTP11的破解方法基本相同。
步骤:
前提条件:安装的时候未安装license(安装的时候切记不要勾选 安装license)
1.在以下路径:C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel将SafeNet Sentinel删除或者更名。
2.找到QTP11.5的安装目录下的bin子目录,执行instdemo.exe文件。
以下是依据以上破解方法编写的破解代码,复制以下代码,保存为vbs格式文件,运行保存后的文件,输入你的
qtp安装目录的bin目录的完整路径,确定即可!
QTPInstallPath = InputBox("请输入UFT安装路径中bin文件夹的完整路径","参数输入","D:\Program Files\HP\Unified Functional Testing\bin")
If QTPInstallPath <> "" Then
delfolder = "C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel"
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = WScript.CreateObject("Wscript.Shell")
ret = fso.FolderExists(delfolder )
ret1 = fso.FolderExists(QTPInstallPath)
If ret Then
Set Get_folder = fso.GetFolder(delfolder)
Get_folder.Delete
End If
If ret1 Then
check = Right(QTPInstallPath,1)
If check="\" Then
ret2 = fso.FileExists(QTPInstallPath&"instdemo.exe")
If ret2 Then
WshShell.Exec QTPInstallPath&"instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
Else
ret2 = fso.FileExists(QTPInstallPath&"\instdemo.exe")
If ret2 Then
WshShell.Exec QTPInstallPath&"\instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
End If
Else
MsgBox "输入的QTP安装文件bin路径"& Chr(34)&QTPInstallPath&CHR(34)&"不存在"
End If
Set Get_folder = Nothing
Set WshShell = Nothing
Set fso = Nothing
Else
End If
相关阅读:
- Windows JIRA 5.0& GreenHopper5.10 安装及破解 (guohui_lemon, 2012-7-13)
- Windows7+QTP11恢复30天试用破解 (ChinaTNT, 2012-10-23)
- LR11 破解 (river2012, 2012-12-04)
- Windows7+QTP/UFT11.5恢复30天试用破解 (ChinaTNT, 2012-12-20)
- QTP10 破解方法 (田丰, 2013-4-01)
- Loadrunner11破解详解: (huangvency2010, 2013-5-24)
- win7下破解qtp11注意点 (sandyli119, 2013-7-26)
- loadrunner 11 破解 (地壳, 2013-8-03)
- 找到一个能激活所有office的程序 (龙门鲤鱼, 2013-12-31)
- UFT12破解方法 (ChinaTNT, 2014-7-28)
收藏
举报
TAG:
破解