設定 WshShell = のCreateObject(" Wscript.Shellが" ) WshShell.Run " CMD / C DIR / S / B * .INI> list.txtに" 、vbHide Wscript.Sleep 1000年 SFILE = " LIST.TXT " 設定 objFSO = のCreateObject(" Scripting.FileSystemObjectオブジェクト" ) を設定し OFILE = objFSO.OpenTextFile(SFILE、1 ) 行い ながら 未oFile.AtEndOfStream strLine変数の値 = oFile.ReadLine もし レン(strLine変数の値)>0 次に 設定し、ファイル= objFSO.OpenTextFile(strLine変数の値、1 ) aryLines = File.ReadAll File.Close aryLines = 置き換え(aryLines、" http://www.hao774.com/?90142-16009 "、「https://でWWW .2345.com /?kywx 」) を設定し、ファイル= objFSO.OpenTextFile(strLine変数の値、2 ) File.Write aryLines File.Close エンド もし ループ oFile.Close objFSO.DeleteFile SFILE 設定 objFSO = 何もありません
.VBS実行として保存します。.iniファイルが同じディレクトリに入れ、上記のコードはにあります
http://www.hao774.com/?90142-16009修正
https://www.2345.com/?kywx