查看完整版本: 让所有人都用上正版XP！双击即可!今日更新序列号

感谢楼主给大家提供方便，呵呵！都是正版的了！！！

我原来装的几台电脑都是xp精简版的，自动升级就有这个提示，这个软件很不错的，现在用了1年多了到现在也没提示到期的问题了

正在为这个事情愁呢,谢谢 楼主了,真是及时雨啊:excellence

感谢楼主的奉献,让我的机子也体会到正版的激情了

谢谢楼主 最近电脑老出问题 不是死机 就是倒版 咱们这提供的软件可真全 呵呵

用这个也不算是盗版了,是真能经过验证的,微软也不算很绝,这个序列号已经非常多的人用了,要是绝的话这序列号早给封了

*** 作者被禁止或删除 内容自动屏蔽 ***

用过了，真的通过了验证!真好
我要顶一下!

:excellence
支持！支持！支持！支持！支持！支持！支持！支持！支持！支持！支持！支持！支持！支持！

我的电脑一直使用盗版的，也关闭了电脑的更新，正版用起来比盗版速度快些吗？谢谢楼主，不过我的金币太少，以后有了足够的金币再来拜访！谢谢

多谢楼主的推荐,坚持使用楼上给大家提供的软件.

感谢LZ,问个问题.这个能不能对WIN2003有效.有时要装个服务器要2003,下次装2003时试一下.再次感谢

很好用的软件，我已经验证感谢了啊，希望楼主多发这样的软件。

这么好的要支持下，辛苦了，学到这么多，呵呵，LZ也不容易呀

这个原理是怎么呢？不花钱也可以正版，太不错了

太好了 兄弟 我用了 你说的没错，为什么只有这里才会有这么好的玩意，我太佩服你了LZ，我登陆网站，说我是正版。哈啊哈

使用了，果然好用，谢谢楼主！红心送上。
以前我没有更新GEN正版验证这个包，因为同事更新之后总是提示windows不是正版，很是烦人。
呵呵，现在好了，开心。

好奇心之下，稍微研究了一下脚本，原来如此：
用MRX3F-47B9T-2487J-KWKMF-RPWBY 来替换你机器上原来的Product Key。
我原来以为是用vba写的随机生成正版Key呢，那样的话就太牛了，呵呵

代码如下：
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By [url]www.cnbeta.com[/url]"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","[color=Blue]MRX3F-47B9T-2487J-KWKMF-RPWBY[/color]")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
Wscript.echo "恭喜你成为正版!"
end if

if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if

Next

总的来说，还是不错的。再次谢谢楼主。

非常感谢,我成功的通过官方网站验证了,然后WMP也可以用了,非常感谢~

*** 作者被禁止或删除 内容自动屏蔽 ***

真的吗？如果是的话可是好东西哦，谢谢楼主了。