Angelus
Да скрипт вобщем то безобидный. Ну для культуры можно exit в конце поставить, но глючит у тебя не из-за него наверное все таки. Скорее всего ошибка в файле presetup
Ты его в тестовом режимке прогонял? Может там такая же фигня?
Вот тебе кстати чуть более объмный скрипт:
Код:
;#NoTrayIcon
AutoItSetOption ( "TrayIconDebug", 1 )
BlockInput(1)
;Run("C:\Distributivs\Multimedia\Players\WinAmp\winamp52_0393_beta_pro.exe")
$p = "\Distrib\PLAYERS\WINAMP\"
$n = "winamp53_pro.exe"
$t = ""
If FileExists( $n ) Then
$t = ""
Else
$var = DriveGetDrive( "all" )
If NOT @error Then
; MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $var[0]
; MsgBox(4096,"Drive " & $i, $var[$i])
$star = DriveStatus( $var[$i] & "\" )
If $star == "READY" Then
; MsgBox(4096, "Drive Type:",$var[$i] & "\ " & $dvar & " Status - " & $star & "\n" & $var[$i] & $p & "Auto_dt.exe")
If FileExists($var[$i] & $p & $n) Then
$t = $var[$i] & $p
; MsgBox(4096,"Finded on",$t)
ExitLoop
EndIf
EndIf
Next
EndIf
EndIf
If $t <> "" OR FileExists( $n ) Then
AutoItSetOption("SendKeyDelay", 10)
Run($t & $n,$t)
;Run(Chr($i) & ':\DISTRIB\PLAYERS\WINAMP\winamp521_pro.exe',Chr($i) & ':\DISTRIB\PLAYERS\WINAMP\')
AutoItSetOption("SendKeyDelay", 40)
WinWaitActive("Winamp Setup","License Agreement",200)
Send("{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Choose Components")
Send("!{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
Sleep(200)
Send("{TAB}{DOWN}{SPACE}{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Choose Install Options")
Send("{DOWN}{DOWN}{DOWN}{SPACE}")
;No agent in tray
Send("{DOWN}{DOWN}{DOWN}{SPACE}")
;Not associet with CD
Send("{TAB}{TAB}")
;Send("{TAB}")
; Disable agent tray icon
Send("{SPACE}")
Send("{TAB}{TAB}")
; Dont associate with video files
Send("{SPACE}")
Send("{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Choose Install Location")
Send("{TAB}{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Multi-user Settings")
Send("{TAB}{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Internet Connection and Language Settings")
Send("!{DOWN}{DOWN}{DOWN}{ENTER}")
;No internet connection
Send("{TAB}{TAB}{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Setup","Interface and Skin Selection")
; Save default ( modern ) sceen
Send("{TAB}{TAB}{TAB}{SPACE}")
WinWaitActive("Winamp Pro Registration Key Entry","",200)
ClipPut('NikLok')
Send('+{Ins}')
Send("{TAB}")
ClipPut('QHK3T-UMHZV-D98BM-YP8AB')
Send('+{Ins}')
Send("{TAB}{SPACE}")
If WinWaitActive("Add Media to Library","You have no items in your media library",200) Then
ControlClick("Add Media to Library","You have no items in your media library", "Button3", "Left")
ControlClick("Add Media to Library","You have no items in your media library", "Button2", "Left")
EndIf
If ProcessExists('winamp.exe') Then ProcessClose('winamp.exe')
If ProcessExists('winampa.exe') Then ProcessClose('winampa.exe')
If ProcessExists('EmusicClient.exe') Then ProcessClose('EmusicClient.exe')
If Not FileExists(@ProgramsCommonDir & "\Multimedia Tools") Then
DirCreate(@ProgramsCommonDir & "\Multimedia Tools")
EndIf
DirCopy ( @ProgramsCommonDir & "\Winamp",@ProgramsCommonDir & "\Multimedia Tools\Winamp",1)
DirRemove( @ProgramsCommonDir & "\Winamp",1)
$file = FileOpen(@ProgramFilesDir & "\software_install.log",1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open " & @ProgramFilesDir & "\software_install.log file.")
Exit
EndIf
FileWriteLine($file,"WinAmp Pro: - OK")
FileClose($file)
BlockInput(0)
Exit
Может пригодится.
