Software_HP_UFT_12.01_MLU_T6510-15084安装包试用到期破解方法

梦想家甄

试用版，试用期30天，过了30天按以下方法操作即可恢复30天试用期：
1.将SafeNet Sentinel删除或者更名。
2.找到QTP/UFT11.5的安装目录下的bin子目录F:\BaiduYunDownload\Software_HP_UFT_12.01_MLU_T6510-15084\Unified Functional Testing\MSI\HP\Unified Functional Testing\bin，执行instdemo.exe文件（直接搜索文件也可以）。
3、复制以下代码，保存为vbs格式文件（先保存为TXT，再改后缀为vbs），双击执行

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 = Nothing
Else
End If
4、复制QTP/UFT11.5的安装目录下的bin子目录路径到弹窗里

5、破解成功

梦想家甄

安装包太大了，上传不了

jingzizx

梦想家甄

UFT安装包百度网盘下载链接: http://pan.baidu.com/s/1pLEytU7 密码: zkca