IE7.0 万能验证器

瑞星卡卡安全论坛技术交流区 系统软件 IE7.0 万能验证器

	瑞星“1+2”全新解决方案巡展在广州画上圆满句号		叶院长揭秘：瑞星如何运用AI技术革新网络安全		俄乌冲突加剧网络攻击风险白俄罗斯政府遭APT攻击		瑞星ESM防病毒系统助力矿业大学筑牢网络安全防线
	实力拉满瑞星第四十七次通过VB100测评		携手老友，拥抱新精彩 —— 新论坛新活动，感谢你的陪伴		护航司法，瑞星助力山西省高院构建安全防线		人工智能在网络安全领域的风险和机遇

1 / 2 页

跳转页

0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	发表于： 2006-12-26 21:08 \| 只看楼主短消息资料字号：小中大 1楼 IE7.0 万能验证器 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验证详细办法把上面的文字复制下来建一个文本文档保存然后重命名为 key.vbs 就行双击之后有一个提示提示过后安装IE7.0 有用的话顶一下哈哈希望版主置顶造福IE7.0用户 2007-01-13 14:14:56
0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	分享到：

初生襁褓狮

帖子:306
注册: 2006-11-21
来自:

发表于： 2006-12-26 21:37 | 短消息资料

字号：小中大 2楼

引用:

【0炫之舞0的贴子】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 Get("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验证
详细办法把上面的文字复制下来建一个文本文档保存然后重命名为 key.vbs 就行双击之后有一个提示提示过后安装IE7.0

有用的话顶一下哈哈希望版主置顶造福IE7.0用户
………………

晚了！

大版主

帖子:9006
注册: 2006-05-23
来自:长江嘉陵江接合部

发表于： 2006-12-26 21:40 | 短消息资料

字号：小中大 3楼

引用:

【禅缘翡翠的贴子】
晚了！
………………

晚是晚了一点，不过精神是可佳的还是值得学习一下。

0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	发表于： 2006-12-27 13:04 \| 只看楼主短消息资料字号：小中大 4楼汗了以前在论坛上没有求助的昨天才看到有人发帖子问怎么才能通过IE7.0的验证才发的要是以前有求助的话早就发了到现在应该还有很多没有用IE7.0的为后来人服务吧 ^_^ ^_^ ^_^
0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:

冰の玉健康舞勺狮帖子:300 注册: 2005-11-08 来自:	发表于： 2006-12-27 13:10 \| 短消息资料字号：小中大 5楼我直接通过验证了~
冰の玉健康舞勺狮帖子:300 注册: 2005-11-08 来自:

bettertiger 横据古稀狮帖子:7344 注册: 2004-03-30 来自:	发表于： 2006-12-27 13:36 \| 短消息资料字号：小中大 6楼有人说这个方法导致机子出问题，不知道是否真的。
bettertiger 横据古稀狮帖子:7344 注册: 2004-03-30 来自:

0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	发表于： 2006-12-27 13:38 \| 只看楼主短消息资料字号：小中大 7楼我就是用它通过的也没有什么问题啊
0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:

病毒是傻鸟初生襁褓狮帖子:1241 注册: 2006-12-07 来自:	发表于： 2006-12-27 13:48 \| 短消息资料字号：小中大 8楼为什么这么确定
病毒是傻鸟初生襁褓狮帖子:1241 注册: 2006-12-07 来自:

0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	发表于： 2006-12-28 19:15 \| 只看楼主短消息资料字号：小中大 9楼汗我这有好几台电脑都是用它通过的到现在还好好的没发现什么异常
0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:

天生我才WHJ 特邀体验者帖子:3919 注册: 2006-07-09 来自:	发表于： 2007-01-13 13:48 \| 短消息资料字号：小中大 10楼没必要我会手动逃过验证附件: 文件名:7092372007113133944.BMP 下载次数:141 文件类型:application/octet-stream 文件大小: 上传时间:2007-1-13 13:48:51 描述:
天生我才WHJ 特邀体验者帖子:3919 注册: 2006-07-09 来自:

<<上一主题|下一主题>>

1 / 2 页

跳转页

0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	发表于： 2006-12-26 21:08 \| 只看楼主短消息资料字号：小中大 1楼 IE7.0 万能验证器 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验证详细办法把上面的文字复制下来建一个文本文档保存然后重命名为 key.vbs 就行双击之后有一个提示提示过后安装IE7.0 有用的话顶一下哈哈希望版主置顶造福IE7.0用户 2007-01-13 14:14:56
0炫之舞0 初生襁褓狮帖子:78 注册: 2006-09-24 来自:	分享到：

瑞星卡卡安全论坛技术交流区系统软件 IE7.0 万能验证器

IE7.0 万能验证器

IE7.0 万能验证器

附件:

文件名:7092372007113133944.BMP 下载次数:141 文件类型:application/octet-stream 文件大小: ShowFormatBytesStr(565266); 上传时间:2007-1-13 13:48:51 描述:

文件名:7092372007113133944.BMP

下载次数:141

文件类型:application/octet-stream

文件大小:

上传时间:2007-1-13 13:48:51

描述: