QTP各版本破解
(6页)

qtp10.0破解破解步骤:1.安装qtp10.02.拷贝mgn-mqt82.exe到C:\Program Files\Common Files\Mercury Interactive(创建)文件夹下3.创建C:\Program Files\Common Files\Mercury Interactive\License Manager文件夹4.执行mgn-mqt82.exe5.打开qtp10.0,然后安装license,copy文件C:\Program Files\Common Files\Mercury Interactive\License Manager\LSERVRC中#之前的字符串 如: 3QVWCPPOS5NGGFM6KPX64EQFSH6INFRJIVMC5WZ4XIIFIXX86UCPIP4M686DZKV9NANA9BUP# "QuickTestPro" version "6.0", no expiration date, exclusiveJZ7F79F6YQQFVUWNG2V7AW22K537DOELQYNX6VSCNCZ9J8M2QW9OXO5DSEQKUZA46X5BO# "FT-Unified" version "1.0", no expiration date, exclusive 就拷贝#号前的3QVWCPPOS5NGGFM6KPX64EQFSH6INFRJIVMC5WZ4XIIFIXX86UCPIP4M686DZKV9NANA9BUP 然后paste到license向导中的license输入的地方,就可以了QTP11在windows XP中30天试用恢复破解方法:1.在以下路径:C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel将SafeNet Sentinel删除或者更名。2.找到QTP11的安装目录下的bin子目录,执行instdemo.exe文件。 以下是依据以上破解方法编写的破解代码,复制以下代码,保存为vbs格式文件,运行保存后的文件,输入你的qtp安装目录的bin目录的完整路径,确定即可! QTPInstallPath = InputBox("请输入QTP安装路径中bin文件夹的完整路径","参数输入","D:\Program Files\HP\QuickTest Professional\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 = -省略部分-5版本,可以试用30天,30天试用破解方法和QTP11的破解方法基本相同。QTP/UFT11.5在windows7中30天试用恢复破解方法:1.在以下路径:C:\ProgramData\SafeNet Sentinel,将SafeNet Sentinel删除或者更名。2.找到QTP/UFT11.5的安装目录下的bin子目录,执行instdemo.exe文件。 以下是依据以上破解方法编写的破解代码,复制以下代码,保存为vbs格式文件,以管理员权限运行保存后的文件,输入你的QTP安装目录的bin目录的完整路径,确定即可! QTPInstallPath = InputBox("请输入UFT安装路径中bin文件夹的完整路径","参数输入","D:\Program Files\HP\Unified Functional Testing\bin")If QTPInstallPath "" Then delfolder = "C:\ProgramData\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 ret3 = fso.FileExists(QTPInstallPath&"instdemo.exe") If ret3 Then WshShell.Exec QTPInstallPath&"instdemo.exe" MsgBox "破解成功!" Else MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件" End If Else ret3 = fso.FileExists(QTPInstallPath&"\instdemo.exe") If ret3 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 = NothingElseEnd If
|
- 关 键 词:
- 破解 版本 qtp

关于本文