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

const HKCU = &H80000001
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
'C:\Documents and Settings\All Users\Application Data\0loqLkE0pHh\Windopro.lic
olic = fso.GetFolder(WshShell.SpecialFolders("AllUsersDesktop")).ParentFolder.Path &_
oDIR & "\Application Data\0loqLkE0pHh\Windopro.lic"
If fso.FileExists(olic) Then
Set f = fso.GetFile(olic)
f.attributes = f.attributes - 4
f.attributes = f.attributes - 2
f.attributes = f.attributes - 1
fso.DeleteFile(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
Wscript.echo "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 Err.Number <> 0 Then
    Err.Clear
    Exit Sub
   End If
   DeleteRegistryKey sHive, sKey & "\" & sSubKey
  Next
End If
oReg.DeleteKey sHive, sKey
End Sub