QTP11恢复30天试用破解

引用

http://www.51testing.com/?uid-306685-action-viewspace-itemid-828072

QTP11在windows7中30天试用恢复破解方法：
1.在以下路径：C:\ProgramData\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:\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

引用

http://www.51testing.com/?uid-306685-action-viewspace-itemid-827330

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 = 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