Код:
#cs
----------------------
Приложение: копирование логотипа процессора в Свойсва системы
Автор скрипта: biggreeder
----------------------
#ce
;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
#NoTrayIcon
;Открытие окна Свойства системы
Run (@ScriptDir & '\CPUInfo.exe','',@SW_SHOWMINIMIZED )
WinWait ( 'CPUInfo v2.2.0 - Freeware', '' )
;Получение данных о процессоре
$processor = ControlGetText ( 'CPUInfo v2.2.0 - Freeware', '', 'TStaticText26' )
ProcessClose ( "CPUInfo.exe")
;Проверка наличия в названии процессора искомой аббревиатуры
;AMD
$Mobile1 = StringRegExp($processor, '(Mobile)', 0)
$Athlon1 = StringRegExp($processor, '(Athlon)', 0)
$641 = StringRegExp($processor, '(64)', 0)
$FX1 = StringRegExp($processor, '(FX)', 0)
$MP1 = StringRegExp($processor, '(MP)', 0)
$X21 = StringRegExp($processor, '(X2)', 0)
$XP1 = StringRegExp($processor, '(XP)', 0)
$Sempron1 = StringRegExp($processor, '(Sempron)', 0)
$Opteron1 = StringRegExp($processor, '(Opteron)', 0)
$Turion1 = StringRegExp($processor, '(Turion)', 0)
$Duron1 = StringRegExp($processor, '(Duron)', 0)
$K61 = StringRegExp($processor, '(K6)', 0)
$AMD1 = StringRegExp($processor, '(AMD)', 0)
;Intel
$Pentium1 = StringRegExp($processor, '(Pentium)', 0)
$41 = StringRegExp($processor, '(4)', 0)
$Extreme1 = StringRegExp($processor, '(Extreme', 0)
$III1 = StringRegExp($processor, '(III)', 0)
$M1 = StringRegExp($processor, '(M)', 0)
$Xeon1 = StringRegExp($processor, '(Xeon)', 0)
$H1 = StringRegExp($processor, '(HT)', 0)
$Celeron1 = StringRegExp($processor, '(Celeron)', 0)
$Core1 = StringRegExp($processor, '(Core)', 0)
$Duo1 = StringRegExp($processor, '(Duo)', 0)
$Solo1 = StringRegExp($processor, '(Solo)', 0)
$Itanium1 = StringRegExp($processor, '(Itanium)', 0)
$21 = StringRegExp($processor, '(2)', 0)
$Intel1 = StringRegExp($processor, '(Intel)', 0)
$Quad1 = StringRegExp($processor, '(Quad)', 0)
;В зависимости от типа процессора запуск sfx-архива с соответствующей картинкой для AMD
If $Athlon1 = 1 AND $641 = 1 AND $Mobile1 = 1 Then
Run ( @ScriptDir&'\AMD\Mobile Athlon64.exe')
Exit
EndIf
If $Athlon1 = 1 AND $641 = 1 Then
RunWait ( @ScriptDir&'\AMD\Athlon64.exe')
Exit
EndIf
If $Athlon1 = 1 AND $FX1 = 1 Then
Run ( @ScriptDir&'\AMD\AthlonFX.exe')
Exit
EndIf
If $Athlon1 = 1 AND $MP1 = 1 Then
Run ( @ScriptDir&'\AMD\AthlonMP.exe')
Exit
EndIf
If $Athlon1 = 1 AND $X21 = 1 Then
Run ( @ScriptDir&'\AMD\AthlonX2.exe')
Exit
EndIf
If $Athlon1 = 1 AND $XP1 = 1 Then
Run ( @ScriptDir&'\AMD\AthlonXP.exe')
Exit
EndIf
If $Mobile1 = 1 AND $Sempron1 = 1 Then
Run ( @ScriptDir&'\AMD\Mobile Sempron.exe')
Exit
EndIf
If $Opteron1 = 1 AND $641 = 1 Then
Run ( @ScriptDir&'\AMD\Opteron64.exe')
Exit
EndIf
If $Turion1 = 1 AND $X21 = 1 Then
Run ( @ScriptDir&'\AMD\TurionX2.exe')
Exit
EndIf
If $Turion1 = 1 Then
Run ( @ScriptDir&'\AMD\Turion64.exe')
Exit
EndIf
If $Athlon1 = 1 Then
Run ( @ScriptDir&'\AMD\Athlon.exe')
Exit
EndIf
If $Sempron1 = 1 Then
Run ( @ScriptDir&'\AMD\Sempron.exe')
Exit
EndIf
If $Duron1 = 1 Then
Run ( @ScriptDir&'\AMD\Duron.exe')
Exit
EndIf
If $K61 = 1 Then
Run ( @ScriptDir&'\AMD\K6.exe')
Exit
EndIf
If $AMD1 = 1 Then
Run ( @ScriptDir&'\AMD\AMD.exe')
Exit
EndIf
;В зависимости от типа процессора запуск sfx-архива с соответствующей картинкой для Intel
If $Pentium1 = 1 AND $III1 = 1 AND $M1 = 1 Then
RunWait ( @ScriptDir&'\Intel\PentiumIIIM.exe')
Exit
EndIf
If $Pentium1 = 1 AND $III1 = 1 AND $Xeon1 = 1 Then
Run ( @ScriptDir&'\Intel\PIIIXeon.exe')
Exit
EndIf
If $Pentium1 = 1 AND $41 = 1 AND $H1 = 1 Then
Run ( @ScriptDir&'\Intel\Pentium4HT.exe')
Exit
EndIf
If $Core1 = 1 AND $Duo1 = 1 AND $21 = 1 Then
Run ( @ScriptDir&'\Intel\Core2Duo.exe')
Exit
EndIf
;------------------------------------------
If $Core1 = 1 AND $Extreme1 = 1 Then
Run ( @ScriptDir&'\Intel\Core2Extreme.exe')
Exit
EndIf
If $Core1 = 1 AND $Quad1 = 1 Then
Run ( @ScriptDir&'\Intel\Core2Quad.exe')
Exit
EndIf
If $Pentium1 = 1 AND $Extreme1 = 1 Then
Run ( @ScriptDir&'\Intel\PentiumExtreme.exe')
Exit
EndIf
If $Pentium1 = 1 AND $III1 = 1 Then
Run ( @ScriptDir&'\Intel\PentiumIII.exe')
Exit
EndIf
If $Celeron1 = 1 AND $M1 = 1 Then
Run ( @ScriptDir&'\Intel\CeleronM.exe')
Exit
EndIf
If $Core1 = 1 AND $Duo1 = 1 Then
Run ( @ScriptDir&'\Intel\CoreDuo.exe')
Exit
EndIf
If $Core1 = 1 AND $Solo1 = 1 Then
Run ( @ScriptDir&'\Intel\CoreSolo.exe')
Exit
EndIf
If $Itanium1 = 1 AND $21 = 1 Then
Run ( @ScriptDir&'\Intel\Itanium2.exe')
Exit
EndIf
If $Pentium1 = 1 AND $M1 = 1 Then
Run ( @ScriptDir&'\Intel\PentiumM.exe')
Exit
EndIf
If $Pentium1 = 1 AND $41 = 1 Then
Run ( @ScriptDir&'\Intel\Pentium4.exe')
Exit
EndIf
;------------------------------------------
If $Pentium1 = 1 Then
Run ( @ScriptDir&'\Intel\PentiumD.exe')
Exit
EndIf
If $Itanium1 = 1 Then
Run ( @ScriptDir&'\Intel\Itanium.exe')
Exit
EndIf
If $Xeon1 = 1 Then
Run ( @ScriptDir&'\Intel\Xeon.exe')
Exit
EndIf
If $Celeron1 = 1 Then
Run ( @ScriptDir&'\Intel\Celeron.exe')
Exit
EndIf
If $Intel1 = 1 Then
Run ( @ScriptDir&'\Intel\Intel.exe')
Exit
EndIf
Exit
