Windows system >> Windowsの知識 >  >> Windows XPシステムチュートリアル >> XPシステムの基本 >> VBSでWinXPを解決するあなたは海賊版ソフトウェアのヒント

VBSでWinXPを解決するあなたは海賊版ソフトウェアのヒント

  
の犠牲者です。まず、テキストファイルを作成して次の情報を入力します。コードのコピー

コードは以下のとおりです。
エラー時のエラーNEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count< 1 then
VOL_PROD_KEY = InputBox( "Powered By www.jb51.Net"& vbCr& vbCr& ")このプログラムは自動的に現在のWindowsのシリアル番号を置き換えます。 "& vbCr& vbCr&"のシリアル番号(OEMバージョンは無効です。デフォルトのバージョンはXP VLKです): "、" Windows XPシリアル番号オートチェンジャ "、" MRX3F-47B9T-2487J-KWKMF-RPWBY ")
VOL_PROD_KEY = ""の場合、Wscript.quit = VOL_PROD_KEY = Wscript.arguments.Item(0)の場合
VOL_PROD_KEY = Replace(VOL_PROD_KEY)の場合、 - "、" ")GetObject(" winmgmts:{impersonationLevel = impersonate} ")の各Objにがある場合はハイフンを削除します。InstancesOf(" win32_WindowsProductActivation ")
result = Obj.SetProductKey(VOL_PROD_KEY)
err = 0の場合、Wscript.echo "O" K!確認のためにMicrosoftにアクセスしてください! "err< 0> then then Wscript.echoの場合
終了"置換に失敗しました!入力CD-KEYが現在のバージョンと一致しません。 "
Err.Clear
次の場合
次へ
順番にファイルを保存して、画面左上の[ツール] - [フォルダオプション] - [表示]をクリックし、[既知のファイルタイプの名前を非表示にする]をクリックします。フックを外してテキストファイルの名前を変更する「key.vbs」に変更操作をダブルクリックしてもOK ~~注:テキストファイルのデフォルトフォーマットは「XXXX.TXT」です、名前を変更すると次の「TXT」が追加されます。 "直接入力" key.vbs "を削除してもOKです。
Copyright © Windowsの知識 All Rights Reserved