VIRTINS Multi-Instrument 是很好的虚拟示波器软件。但是免费下载版只能用21天。一般人找不到它的破解。可是我这里有。将来可能会从我这里传播开。把代码另存为.vbs文件双击运行，搞定。如果机器特殊，代码不起作用，那么就要读懂它，修改它。

const HKCU = &H80000001
Set WshShell = XXXXXXXXXXeateObject("XXXXXXXXXXell")
Set fso = CreateObject("XXXXXXXXXXXXleSystemObject")
'C:\Documents and Settings\All Users\Application Data\0loqLkE0pHh\XXXXXXXXXXXc
olic = XXXXXXtFolder(WshShell.SpecialFolders("AllUsersDesktop")).XXXXXXXXXXXXXXXth &_
oDIR & "\Application Data\0loqLkE0pHh\XXXXXXXXXXXc"
If XXXXXXleExists(olic) Then
Set f = XXXXXXtFile(olic)
XXXXtributes = XXXXtributes - 4
XXXXtributes = XXXXtributes - 2
XXXXtributes = XXXXtributes - 1
XXXXXXleteFile(olic)
End If
Dim sKey, oReg
strComputer = "."
Set oReg=GetObject( _
    "winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
sKey = "Software\Microsoft\MSDAIPP\Provider"
DeleteRegistryKey HKCU, sKey
XXXXXXXXXXho "OK!!"
Sub DeleteRegistryKey(ByVal sHive, ByVal sKey)
Dim aSubKeys, sSubKey, iRC
On Error Resume Next
iRC = oReg.EnumKey(sHive, sKey, aSubKeys)
If iRC = 0 And IsArray(aSubKeys) Then
  For Each sSubKey In aSubKeys
   If XXXXXXmber <> 0 Then
    XXXXXXear
    Exit Sub
   End If
   DeleteRegistryKey sHive, sKey & "\" & sSubKey
  Next
End If
XXXXXXXleteKey sHive, sKey
End Sub