Jump to content

Shark007

Banned
  • Posts

    3,135
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Canada

Everything posted by Shark007

  1. I'm not exactly sure who created this script, it sure wasnt me. I believe the author is MHz. Also, it was created for an earlier version, it may need to be modified. This script looks for the file A120.EXE and installs it unattendedly. You will need to download the AutoIT program to compile this to an EXE #region - Alcohol120_retail_1.9.5.3823 install script - (Automated with WinExists functions) Opt('TrayIconDebug', 1) ; Installer. $executable = 'A120.exe' ; Show progess. $splash = 0 ; Default catagory folder in startmenu. $group = 'Alcohol 120%' ; New catagory to move the default folder into. $catagory = '' ; Installation folder in Program Files. $directory = 'Alcohol Soft\Alcohol 120' ; Allowed time for installation. $allowed = 60 * 1000 ; Components to choose. 1 = Yes, 0 = No. $langfiles = 0 ; Multi-Language Files $manual = 0 ; Online manual $shortcuts = 0 ; Desktop Shortcut $startmenu = 1 ; Startmenu Entries $starwind = 0 ; iSCSI Service ; ----- Settings Complete ------ ; Set components to install via registry. $key = 'HKLM\SOFTWARE\Alcohol Soft\Alcohol 120%\AddRemove\Components' RegWrite($key & '\SecLangFiles', 'Installed', 'Reg_Dword', $langfiles) RegWrite($key & '\SecManual', 'Installed', 'Reg_Dword', $manual) RegWrite($key & '\SecShortcuts', 'Installed', 'Reg_Dword', $shortcuts) RegWrite($key & '\SecStartMenu', 'Installed', 'Reg_Dword', $startmenu) RegWrite($key & '\SecStarWind', 'Installed', 'Reg_Dword', $starwind) ; Run the installer. $pid = _Install() $time = TimerInit() $title = 'Alcohol 120%' Do Select Case WinExists($title, 'Welcome to the Alcohol 120%') WinMove($title, 'Welcome to the Alcohol 120%', @DesktopWidth, 0) ControlClick($title, 'Welcome to the Alcohol 120%', 'Button2') Case WinExists($title, 'License Agreement') ControlClick($title, 'License Agreement', 'Button2') Case WinExists($title, 'Choose Components') ControlClick($title, 'Choose Components', 'Button2') Case WinExists($title, 'Choose Install Location') ControlClick($title, 'Choose Install Location', 'Button2') Case WinExists($title, 'Completing the Alcohol 120%') ControlCommand($title, 'Completing the Alcohol 120%', 'Button4', 'UnCheck', '') ControlClick($title, 'Completing the Alcohol 120%', 'Button2') Case Else Sleep(250) EndSelect If TimerDiff($time) > $allowed Then _Abort() Until Not ProcessExists($pid) ; Exit if $startmenu = 0 from above. If Not $startmenu Then Exit ; Remove shortcuts. If _MainShortcut('Alcohol 120%.lnk') Then FileDelete('Alcohol Command Launcher.lnk') FileDelete('Alcohol Manual.lnk') ;~ FileDelete('Uninstall Alcohol 120%.lnk') ;~ _Desktop('Alcohol 120%.lnk') EndIf #endregion Exit Func _Install($path = 'Default') ; Run the installer in Default Script directory. Dim $splash, $processblock If $path = 'Default' Then $path = @ScriptDir If StringRight($path, 1) <> '\' Then $path = $path & '\' If StringInStr($executable, '\') Then $path = '' If Not FileExists($path & $executable) Then Exit 1 If $processblock <> '' Then Call('_' & 'ProcessBlock') If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4)) If StringRight($executable, 3) = 'msi' Then Return Run(@SystemDir & '\msiexec /i "' & $path & $executable & '"') Else Return Run($path & $executable) EndIf EndFunc Func _Abort() ; close process if exists then exit. Dim $pid If ProcessExists($pid) Then ProcessClose($pid) Exit 2 Else Exit 3 EndIf EndFunc Func _Desktop($shortcut) ; Delete a Desktop shortcut. If FileExists(@DesktopDir & '\' & $shortcut) Then Return FileChangeDir(@DesktopDir) And FileDelete($shortcut) ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then Return FileChangeDir(@DesktopCommonDir) And FileDelete($shortcut) EndIf EndFunc Func _MainShortcut($shortcut, $rename = '') ; Change working directory to correct StartMenu\Group directory. Dim $group, $catagory, $splash If $group = '' Then Return 0 If FileExists(@ProgramsDir & '\' & $group) Then FileChangeDir(@ProgramsDir & '\' & $group) ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then FileChangeDir(@ProgramsCommonDir & '\' & $group) Else Return 0 EndIf ; Wait for main shortcut. If $splash Then _Splash('Waiting for shortcuts') For $i = 1 To 20 If FileExists($shortcut) Then ExitLoop Sleep(500) Next If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4)) ; If catagory not assigned anything, then return. If $catagory = '' Then Return 1 ; Move the group folder into the catagory folder. If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then If DirRemove($group, 1) Then ; If optional rename parameter is used, then rename the group folder. If $rename <> '' And FileChangeDir($catagory) Then If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then Return FileChangeDir($rename) EndIf Else Return FileChangeDir($catagory & '\' & $group) EndIf EndIf EndIf EndFunc Func _QuickLaunch($shortcut) ; Delete a Quicklaunch shortcut. Local $subdirs = '\Microsoft\Internet Explorer\Quick Launch' If FileExists(@AppDataDir & $subdirs & '\' & $shortcut) Then Return FileChangeDir(@AppDataDir & $subdirs) And FileDelete($shortcut) ElseIf FileExists(@AppDataCommonDir & $subdirs & '\' & $shortcut) Then Return FileChangeDir(@AppDataCommonDir & $subdirs) And FileDelete($shortcut) EndIf EndFunc Func _Splash($text = '') ; Shows a small borderless splash message. Dim $splash If $splash Then If $text Then SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14) Else SplashOff() EndIf EndIf EndFunc Func _WinClose($title, $text = '') ; Close a window with further attempts. For $i = 1 To 10 WinClose($title, $text) If Not WinExists($title) Then Return 1 Sleep(500) Next EndFunc Func OnAutoItStart() ; A 2nd script instance will exit. Local $interpreter If StringInStr($cmdlineraw, '/dummy') Then Exit $interpreter = StringTrimRight(@ScriptName, 4) & ' Script Interpreter' If WinExists($interpreter) Then Exit AutoItWinSetTitle($interpreter) EndFunc shark
  2. are you looking for InstallRite ? shark
  3. Although winamp has not officially updated their installer, they have released UPDATED files. These updates are incorporated into my packages. As usual, visit my repository for the new files. shark
  4. I found some information concerning this error. It should be noted: The files on my repository are made available for use in UNATTENDED installations. These files are not meant for desktop installations. For desktop installations please use the publishers installation files. Research results shark
  5. I just did some tests with the english version and am unable to reproduce the error. I'll investigate further, but as i said, even using a batch file to call the distributed EXE, i can't reproduce the error. shark
  6. I have no idea. It isn't from any of my installers. In my installers that file is renamed to ar.msi On another note, for those wishing to see into the future, there is a Pre-Release version of 8.0 Lite on my repository. information link @ ADOBE shark
  7. Of course they released v3.9 recently requiring this MSI release to be updated. Notepad++ v3.9 1.16MB - MD5=793c062c5a201ba0f6c1fcc2a49b448b shark
  8. When i asked google for 'Windows Media Lite', the #1 answer is free-codecs.com and this is my source of information for this product. I assume these are comments of the creator which specifically state: I will head the authors warnings since my expected audience is the average Windows user. For those that have removed WMP, like yourself, and want to view content that the other 99.9% of users are able to view natively, you will still need to install Windows Media Lite separately from my codec package. My codec package will do everything else you need it to do. By the way, i test this with the WMP11 beta's, and everything is working nicely. shark
  9. Ok, a very poor choice of words on my part. I'm sorry for that. Anyway, you obviously do understand that this content cannot be included because it also come with a BIG WARNING that it should not be installed on windows versions that include WMP. shark
  10. I just did some research on this ware. This is specifically tailored for basterdized windows versions. no, my package can't make up for your removals from a windows installation. If you currently require this installation, you'll will still need to install this. sorry for speaking to soon. shark
  11. yes. shark
  12. exactly what kind of reply do you expect from the author? Of course my package is better. I just ask that you check it out, and if you aren't completely satisfied, tell me what you didn't like. I'll probably change it to your liking unless your request is way off in left field, then I'll suggest you use kLite. by the way .. my package was just listed on Betanews.com shark
  13. The MSI is required because he/she wants to use Active Directory deployment. This isn't an unattended installation it is a network installation possibly to 100's of computers. I had some spare time, so i made an MSI for you to try out. Notepad++ v3.8 1.13 MB - MD5 = 0858d3b25a40a9411dc97cd332444f95 shark
  14. 2 reasons: 1 - i was creating this installer because mozilla's installer did not work from scvpack. Now it does. Use -ms for a switch on the original installer. 2 - The plugins that were installing along with this gave me a headache for 2days when i was working with my codec package recently. I was setting up a removal item in the codec package to take out a few plugins from firefox. But the plugins wouldn't be deleted by the codec package because they were installed by this installer. I personally switched to using mozilla's installer. Therefore this installer got nixed. shark
  15. I think you meant 6 .. 9 is available here on a german site. LINKthe american site is also offerring 9 .. although i did get mine from the german site because this software is language neutral. lol@myself , i just made a joke about size, now i'm posting 6 ... 9 i really need to log off huh shark
  16. we need joke tags .. lol [JOKE]And all along i thought size only mattered to women with lousy lovers.[/JOKE] shark
  17. Sie sind willkommen usted es la bienvenida shark
  18. The installer i created uses the native MSI from Apple. All i did was remove the language files and offer the language files as a separate addon. It should work with your iPod. shark
  19. I never push my releases here. you find em, you use em. It's time to push my codec package. Come have a look. Check it out, There has been MAJOR changes recently, if you tried it in the past, try it again. I have one suggestion for those willing to check it out, please UNINSTALL all filters and codec you currently have installed. You can always reinstall them if you aren’t intrigued enough to assist in its further development, Feel the power of MSFN users ... shark
  20. Without MHz' AutoIT skills, this installer wouldn't be shark
  21. are you asking me to make the 1.25 driver available again? I think 1.29 is only required by latest daemon 4.06? I really dont know, i dont use these applications. I'll put 1.25 back up on my repository. shark
  22. Sereby, you were correct. i was looking at the wrong key. I was looking in HKLM. watch my repository for an (updated) file with this turned off by default. This shockwave installer IS NOT svcpack compatible. Although it installs and functions fine, 5 active-x issues show up in crapcleaner from an svcpack install. When installing this through runonceex etc., these issues are nonexistent. shark
  23. odd, it doesn't change the registry values here when i turn it off through the webpage as descibed earlier. shark
  24. I'm aware this key exists, but it doesn't turn off the situation i described earlier. shark
  25. I'm glad it is working. File updated as per Sereby. I also removed the Internet PrintMe menu item. I also updated the Spanish version accordingly. shark
×
×
  • Create New...