xp sp windows 正版序列号谁有

ON ERROR RESUME NEXT Dim VOL_PROD_KEY if <1 then VOL_PROD_KEY=InputBox(Powered By &vbCr&vbCr& 本程序将智能交流你以后 Windows 的序列号,经过微软验证齐全正版。

&vbCr&vbCr&序列号(OEM版有效,自动版本为 XP VLK)：,Windows XP序列号智能改换器,MRX3F-47B9T-2487J-KWKMF-RPWBY) if VOL_PROD_KEY= then end if else VOL_PROD_KEY = (0) end if VOL_PROD_KEY = Replace(VOL_PROD_KEY,-,) remove hyphens if any for each Obj in GetObject(winmgmts:{impersonationLevel=impersonate}) (win32_WindowsProductActivation) result = (VOL_PROD_KEY) if err = 0 then OK！去微软验证吧！ end if if err <> 0 then 交流失败！输入的 CD-KEY 与以后的版本不婚配。

end if Next把下面的代码复制到记事本,保留为,双击运转...失效请通知我...