盗版变正版式的一段VB程序!!~
把下面的代码 粘贴到文本 Dim VOL_PROD_KEY 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 if err <> 0 then Next 将文件名字后缀".txt"改成".vbs"双击运行 确定。这样就是正版windows用户了,你去微软网址验证吧。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |