- UID
- 13159
- 帖子
- 185
- 积分
- 117
- 紫菀
- 1 朵
- 花瓣
- 114 片
- 花蕊
- 15 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 9 级
- 在线时间
- 57 小时
- 注册时间
- 2007-7-28
- 蜗居何地
- 广东汕头
- 登录状态
-
当前离线
|
楼主
发表于 2008-1-29 15:52
| 只看该作者
[技巧] 把盗版windows变成正版(不用重启,进注册表之类的)
这是我在网上看到的
所以复制过来与大家分享
整个过程也是超级简单,只需按几个键
好了,废话少说,进入正题:
首先,新建个文本文件,按CTRL+C,CTRL+V把下面的这些复制进去:
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
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 "OK!去微软验证吧!"
end if
if err <> 0 then
Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
Next
然后将以上文本保存为key.vbs 双击执行即可 通过XP验证
这个按键精灵也可以弄 ,我把脚本也发下来,只需把下面这些添加脚本进去就OK了
[General]
Description=把你的盗版Windows变成正版
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content====通用脚本===.
【功能说明】.
微软太黑了,一份Windows XP居然要卖1000多。不像按键精灵的价格这么平易近人:).
这个神奇的脚本可以把你的盗版Windows瞬间变成正版,而且能通过目前微软的各种校验。绝对绿色!无副作用!.
我们一起鄙视微软,支持按键精灵吧,啊哈哈哈哈哈哈…….
.
【使用说明】.
这个脚本内置了XP VLK版本的序列号,你也可以在自定义栏里输入你认为好用的序列号。.
直接运行脚本即可。.
.
【作者介绍】.
搜思壮
.
【制作日期】.
2007.4.29
[Script]
Dim VOL_PROD_KEY
UserVar VOL_PROD_KEY="MRX3F-47B9T-2487J-KWKMF-RPWBY" 输入你的Windows序列号,OEM版无效。默认为 XP VLK
If VOL_PROD_KEY=""
EndScript
EndIf
VBSBegin
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")
For each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
If err = 0 then
MessageBox "OK!去微软验证吧!"
end if
If err <> 0 then
MessageBox "替换失败!输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
Next
VBSEnd |
|