[過去ﾛｸﾞ] トロピコ・Tropicoであなたもカリブの独裁者！[45] (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

523(4): 2013/12/09(月)20:25 ID:fTdYkMER(1/5) AAS
説明は下に書く
**************************
Option Explicit
Dim objFSO
Dim strFilePath
Dim strSrchTxt
Dim strRepTxt
Dim objFile
Dim strTxt
Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
'↓にトロピコ4のインストールディレクトリを指定
WshShell.CurrentDirectory = "C:\Program Files\Steam\SteamApps\common\tropico 4"
WshShell.Run "tropico4.exe"
WScript.Sleep 10000

strFilePath = "InstallScript.vdf"
strSrchTxt = """language"""&vbTab&vbTab&"""English"""
strRepTxt = """language"""&vbTab&vbTab&"""Japanese"""
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(strFilePath, 1, False)
strTxt = objFile.ReadAll
strTxt = replace(strTxt,strSrchTxt,strRepTxt)
objFile.Close
Set objFile = objFso.OpenTextFile(strFilePath, 2, False)
objFile.WriteLine (strTxt)
objFile.Close
Set objFile = Nothing
Set objFso = Nothing

CreateObject("Wscript.Shell").RegWrite "HKCU\Software\Haemimont Games\Tropico 4\Language" , "Japanese" , "REG_SZ"
**************************

---

上下前次1-新書関写板覧索設栞歴

---

あと 478 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.122s*