vbvs 发表于 2007 年 1 月 19 日 22:51:33

原帖由 hongmei 于 2007-1-19 22:43 发表


其实只要改个序列号就可以通过验证了,用那个工行的序列号!
MRX3F-47B9T-2487J-KWKMF-RPWBY
晕、
这个序列号在哪一步输入

254432 发表于 2007 年 1 月 19 日 22:54:02

偶用上海政府VOL版竟然能通过正版验证..........

[ 本帖最后由 254432 于 2007-1-19 23:00 编辑 ]

iyaner 发表于 2007 年 1 月 19 日 22:54:38

回复 #11 vbvs 的帖子

找个winxp序列号替换工具！

不是叫你输入……;P

hongmei 发表于 2007 年 1 月 19 日 22:59:19


ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
   VOL_PROD_KEY=InputBox("VBVS"&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!去微软验证吧GOGOGO~."
   end if

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

Next
       


保存为 不良倾向不良倾向x.vbs

hongmei 发表于 2007 年 1 月 19 日 23:00:21

保存好双击确定....

上面的 4 5个X 怎么变不良倾向不良倾向

vbvs 发表于 2007 年 1 月 19 日 23:23:16

一共要多少个X

elfzero 发表于 2007 年 1 月 19 日 23:29:11

= =
還是把那個改名叫[系統屏蔽]比較好。。。

我用op

hongmei 发表于 2007 年 1 月 19 日 23:37:30

原帖由 vbvs 于 2007-1-19 23:23 发表
一共要多少个X

文件名,随便了..

vbvs 发表于 2007 年 1 月 19 日 23:40:23

怎么我按照你说的去操作
双击提示错误呢

iyaner 发表于 2007 年 1 月 19 日 23:46:37

估计你的机子只认x x x x x x x x.vbvs

认不得x x x x x x x x.vbs:D
页: 1 [2] 3
查看完整版本: 豪华阵容的IE 1.7，不知趣的我，竟然不习惯