Local $language_selection = "Korean" _Languages() If not (ControlCommand("Regional and Language Options", "Advanced", "ComboBox1", "GetCurrentSelection") == $language_selection) Then _prereboot() Else _postreboot() EndIf func _prereboot() ControlCommand("Regional and Language Options", "Advanced", "ComboBox1", "SelectString", $language_selection) ControlClick("Regional and Language Options", "Advanced", "Button7") WinWait("Advanced", "skip file copying and use the existing files") ControlClick("Advanced", "skip file copying and use the existing files", "Button1") WinWait("Change Regional Options", "Do you want to restart your computer now?", 3) ControlClick("Change Regional Options", "Do you want to restart your computer now?", "Button2") ControlClick("Regional and Language Options", "Advanced", "Button5") _RunOnce() Shutdown(2) EndFunc Func _RunOnce() Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce' If @Compiled Then RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun') Else RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun') EndIf EndFunc Func _postreboot() WinClose("Regional and Language Options") Run("D:\setup.exe") WinWait("InstallShield", "Áö±Ý ¼³Ä¡ÇÏ°Ú½À´Ï±î?") ControlClick("InstallShield", "Áö±Ý ¼³Ä¡ÇÏ°Ú½À´Ï±î?", "Button1") WinWaitActive("Microsoft .NET Framework 1.1 ¼³Ä¡", "»ç¿ë±Ç °è¾à") Send("!a") ControlClick("Microsoft .NET Framework 1.1 ¼³Ä¡", "»ç¿ë±Ç °è¾à", "Button4") WinWait("Microsoft .NET Framework 1.1 ¼³Ä¡", "Microsoft .NET Framework 1.1 ¼³Ä¡°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.") ControlClick("Microsoft .NET Framework 1.1 ¼³Ä¡", "Microsoft .NET Framework 1.1 ¼³Ä¡°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.", "Button1") WinWait("Microsoft .NET Framework ¾ð¾î ÆÑ ¼³Ä¡") ControlClick("Microsoft .NET Framework ¾ð¾î ÆÑ ¼³Ä¡", "", "Button1") WinWait("Microsoft .NET Framework 1.1 Çѱ¹¾î ¾ð¾î ÆÑ ¼³Ä¡", "¼³Ä¡ °úÁ¤À» ¾È³»ÇÒ .NET Framework 1.1 Çѱ¹¾î") ControlClick("Microsoft .NET Framework 1.1 Çѱ¹¾î ¾ð¾î ÆÑ ¼³Ä¡", "¼³Ä¡ °úÁ¤À» ¾È³»ÇÒ .NET Framework 1.1 Çѱ¹¾î", "Button2") WinWait("Microsoft .NET Framework 1.1 Çѱ¹¾î ¾ð¾î ÆÑ ¼³Ä¡", "¼³Ä¡°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.") ControlClick("Microsoft .NET Framework 1.1 Çѱ¹¾î ¾ð¾î ÆÑ ¼³Ä¡", "¼³Ä¡°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù.", "Button1") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "ÀÌ ÇÁ·Î±×·¥Àº ÀúÀ۱ǹý°ú ±¹Á¦ Çù¾à¿¡ ÀÇÇØ") ControlClick("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "ÀÌ ÇÁ·Î±×·¥Àº ÀúÀ۱ǹý°ú ±¹Á¦ Çù¾à¿¡ ÀÇÇØ", "Button1") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "»ç¿ë±Ç °è¾à¼­") Send("!a!n") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "»ç¿ëÀÚ Á¤º¸") Send("!n") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "¼³Ä¡ À¯ÇüÀ» ¼±ÅÃÇϽʽÿÀ") Send("!n") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "¸¶¹ý»ç´Â ¼³Ä¡¸¦ ½ÃÀÛÇÒ Áغñ°¡ µÇ¾ú½À´Ï´Ù") Send("!i") WinWaitActive("HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA - InstallShield Wizard", "InstallShield ¿Ï·á") Send("!f") Sleep(3000) Run("C:\Program Files\ZININZIN\HUNNU TOMBS AT HUDGIIN TOLGOI IN MONGOLIA\ZIZ.exe") EndFunc Func _Languages() ShellExecute("Control.exe", "C:\WINDOWS\system32\intl.cpl") WinWait("Regional and Language Options", "Regional Options") ControlCommand("Regional and Language Options", "Regional Options", "SysTabControl321", "TabRight") WinWait("Regional and Language Options", "Languages") ControlCommand("Regional and Language Options", "Languages", "SysTabControl321", "TabRight") WinWait("Regional and Language Options", "Advanced") EndFunc