Windows XP 快速轉換序號軟體

allyou

【軟體名稱】：Windows XP 快速轉換序號軟體
【軟體分類】：工具程式
【軟體性質】：免費軟體
【軟體語言】：台灣正體
【檔案格式】：直接執行
【檔案大小】：32.0 KB (32,768 位元組)
【放置空間】：mediafire
【軟體介紹】：這是我很早之前在網路上找到的一個快速轉換XP序號的軟體，非常好用。當時也順手作了正體中文的改寫。在這Windows 7和windows 8的年代，不知道對大家還有沒有用處。希望能對微剋多論壇好友能有些幫助。
【下載位置】: Windows XP 快速轉換序號 http://www.mediafire.com/?l3zjidxzkqyir6r

allyou

謝謝心動大，果然看起來順眼多了。
看太多大陸翻譯的歐美影集，不知不覺被影響了。
之前總覺得怪怪的，卻又有點說不上來.......
呵呵~~{:3_63:}

kL9p2oQ9

.......................................虛線.........................................................
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count < 1 then
VOL_PROD_KEY = InputBox("使用說明(OEM版無效)："&vbCr&vbCr&"本指令碼程式將變更目前Windows的序號,請選擇一個微軟授權正版windows的序號,複製並貼到下列空格中"&vbCr&vbCr&"輸入序號(預設為XPVLK)：","WindowsXPSP1/SP2/2003序號更換工具","*****-*****-*****-*****-*****")
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 "Vince祝賀你換號成功！請去驗證"
end if
if err <> 0 then
Wscript.echo "變更失敗！請檢查輸入的CD-KEY是否與目前Windows版本相符合"
Err.Clear
end if
Next
.......................................虛線.........................................................

修改了一下用字語法(較偏大陸用法)
虛線內複製至記事本、重命名為「xpsp3序列號替換器.vbs」之副檔名即可