QTP各版本破解

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