微剋多資訊

 找回密碼
 註冊

Login

Login

搜索
回覆 2則 瀏覽 1346篇

[工具] Windows XP 快速轉換序號軟體

該用戶從未簽到

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

    akwish 貢獻度 +20

簽到天數: 38

該用戶今日未簽到

發表於 2011-5-15 10:30 | 顯示全部樓層
.......................................虛線.........................................................
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」之副檔名即可
回覆

使用道具 舉報

該用戶從未簽到

 樓主| 發表於 2011-5-16 10:25 | 顯示全部樓層
謝謝心動大,果然看起來順眼多了。
看太多大陸翻譯的歐美影集,不知不覺被影響了。
之前總覺得怪怪的,卻又有點說不上來.......
呵呵~~{:3_63:}
回覆

使用道具 舉報

您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2016-12-10 20:41

Discuz! X

© 2009-2016 Microduo

快速回覆 返回頂部 返回列表