溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點(diǎn)擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

怎么用vbs實(shí)現(xiàn)的XP序列號替換器

發(fā)布時間：2021-09-30 10:06:14 來源：億速云 閱讀：135 作者：小新 欄目：開發(fā)技術(shù)

這篇文章給大家分享的是有關(guān)怎么用vbs實(shí)現(xiàn)的XP序列號替換器的內(nèi)容。小編覺得挺實(shí)用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

代碼如下:


ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
   VOL_PROD_KEY=InputBox("本程序能幫助您更換 WindowsXP 的序列號。"&vbCr&vbCr&"序列號由您自己尋找并輸入。下面列出的不一定是您當(dāng)前用的序列號，僅作格式參考。"&vbCr&vbCr&"請輸入新的序列號：","WindowsXP序列號更換器  by donghai","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 "修改成功。請點(diǎn)擊附帶的網(wǎng)址到微軟網(wǎng)站進(jìn)行驗(yàn)證。祝您好運(yùn)！"
   end if

   if err <> 0 then
      Wscript.echo "替換失??！您輸入的序列號有誤。"
      Err.Clear
   end if

Next 

感謝各位的閱讀！關(guān)于“怎么用vbs實(shí)現(xiàn)的XP序列號替換器”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

vbs
AI
助
手