[quote][url]http://www.51testing.com/?uid-306685-action-viewspace-itemid-828072[/url][/quote]
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
[quote][url]http://www.51testing.com/?uid-306685-action-viewspace-itemid-827330[/url][/quote]
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

總結

以上是生活随笔為你收集整理的QTP11恢复30天试用破解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。