QTP11循环试用30天的破解方法。?
XP下：
1、到以下路径：C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel，将SafeNet Sentinel删除或者更名。注意做好备份。
2、到QTP11的安装目录下的bin子目录，双击执行文件。注意，执行安装文件时可能没有任何显示的反应，其实是已经执行了。这时你可以看一下第一步中的目录，SafeNet Sentinel文件夹又出现了。?
documents安卓版破解版
Win7下：
1、到以下路径C:\ProgramData\SafeNet Sentinel，更名或者删除，注意做好备份。
2、同上?
XP下和Win7下破解方法是一样的，只不过路径不同。?
注意，以上路径可能是隐藏文件或者是受保护的系统文件，请确保能正常查看，请查看此文章怎么打开隐藏文件？?
执行以上两个步骤后，再打开QTP11版本即可恢复30天免费试用。
vbs脚本：
delfolder = "C:\ProgramData\SafeNet Sentinel"
delfolder1 = "C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel"
filepath = "C:\Program Files\HP\Unified Functional Testing\"
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = WScript.CreateObject("Wscript.Shell")
ret = fso.FolderExists(delfolder)
ret1 = fso.FolderExists(delfolder1)
ret2 = fso.FileExists(filepath)
If ret Then
    Set Get_folder = fso.GetFolder(delfolder)
    Get_folder.Delete
  Else
  If ret1 then
    Set Get_folder = fso.GetFolder(delfolder1)
    Get_folder.Delete
  Else
  End If
End If
If ret2 Then
  WshShell.Exec filepath
  MsgBox "success!"
Else
do 
  filepath = InputBox("请输入UFT安装路径中bin文件夹的完整路径","参数输入","C:\Program Files\HP\Unified Functional Testing\bin\")
  If filepath <>"" then
    If DoSet(filepath,WshShell) then
        Exit do
    Else
    End If
  Else
    Exit do
  End If
loop
End If
Set Get_folder = Nothing
Set WshShell = Nothing
Set fso = Nothing
Function DoSet(filepath,WshShell)
  check = right(filepath,1)
  If check="\" then
    filepath = filepath&""
  Else
    filepath = filepath&"\"
  End If
  ret3 = fso.FileExists(filepath)
 
  If ret3 then
      WshShell.Exec filepath
      MsgBox "success!"
      DoSet = true
  Else
      MsgBox "输入的路径下不存在"
      DoSet = false
  End If
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。