由於最近在學校拿到了一組授權全校師生使用的XP序號
這些都是我們的學費啊
我當然是二話不說要把自己的XP變成正版的
可是網路上改序號的程式用起來又不安心怕會將序號外洩出去
所以我稍微花了點時間看看微軟官方提供的改序號方法
微軟提供了三種方法：
第1種是 下載它的改序號程式
第2,3種分別是 修改登錄檔或是利用vbs腳本語言
其中我對vbs還蠻有興趣的
所以最近這兩天在研究VBScript
雖然微軟有公佈source code
不過大概看了一下後
我發現寫出來的程式卻是要用命令提示字元執行，相當不方便
尤其是你要教一個電腦知識接近0的朋友怎麼用這支程式改序號會很頭大
所以我就想把它改寫成一個點兩下就可以直接更換序號的程式
VBScript跟VB的寫法很像，加上我以前寫網頁有接觸到一點VBScript
所以很快就改好了：
使用方法：
請你把程式貼到記事本中
將"您的序號"改成想更換的序號存成XXX.vbs檔（注意25個英文數字間不用加 dash ）
執行它，完成！
另外我還有把他改寫成其它兩支進階的程式
一支可以在改完後選擇要不要驗證XP
另一支除了可以驗證，還可以自行輸入想更改的XP序號
對這兩支程式有興趣的亞東同學再私底下跟我聯絡吧！
這些都是我們的學費啊
我當然是二話不說要把自己的XP變成正版的
可是網路上改序號的程式用起來又不安心怕會將序號外洩出去
所以我稍微花了點時間看看微軟官方提供的改序號方法
微軟提供了三種方法：
第1種是 下載它的改序號程式
第2,3種分別是 修改登錄檔或是利用vbs腳本語言
其中我對vbs還蠻有興趣的
所以最近這兩天在研究VBScript
雖然微軟有公佈source code
不過大概看了一下後
我發現寫出來的程式卻是要用命令提示字元執行，相當不方便
尤其是你要教一個電腦知識接近0的朋友怎麼用這支程式改序號會很頭大
所以我就想把它改寫成一個點兩下就可以直接更換序號的程式
VBScript跟VB的寫法很像，加上我以前寫網頁有接觸到一點VBScript
所以很快就改好了：
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey ("您的序號")
Next
result = Obj.SetProductKey ("您的序號")
Next
使用方法：
請你把程式貼到記事本中
將"您的序號"改成想更換的序號存成XXX.vbs檔（注意25個英文數字間不用加 dash ）
執行它，完成！
另外我還有把他改寫成其它兩支進階的程式
一支可以在改完後選擇要不要驗證XP
另一支除了可以驗證，還可以自行輸入想更改的XP序號
對這兩支程式有興趣的亞東同學再私底下跟我聯絡吧！
本 著作 係採用
創用 CC 姓名標示-非商業性-禁止改作 2.5 台灣 授權條款授權.
Shorten Url
Recommend to Front page
◎日記心情(4)
我試過了
Script E:\xp序號\111.vbs
行:3
字元:4
錯誤:一般失敗
程式碼:80041001
來源:SWbemObjectEx
可以幫我嗎?
我電腦中毒了,重灌以後發現是盜版的xp.更糟的是我現在在韓國交換學生,怎麼辦~可以幫幫我嗎?
解開XP改序號的問題了!
感恩! 很棒的程式! 一整個讚啦~ 比啥KeyFinder強多了~
會出現跟 毛毛蟲 一樣的問題
Comment Permissions: Allow commenting