Jump to content

robmb008

Member
  • Posts

    8
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Canada

Posts posted by robmb008

  1. Here are a few of my vbs scripts that I have developed for my 1st unattended install:

    Foobar2000 0.75 special edition

    -full installation

    -start menu shortcuts placed in Programs\media\foobar2000

    -all available media file extensions associated with foobar2000

    Set WshShell = WScript.CreateObject("WScript.Shell")
    On Error Resume Next

    WshShell.Run ("%systemdrive%\install\Applications\Foobar\foobar075_special.exe")
    WScript.Sleep 1000

    WshShell.SendKeys "%N"
    WScript.Sleep 400

    WshShell.SendKeys "%A"
    WScript.Sleep 400

    WshShell.SendKeys "{TAB 2}"
    WScript.Sleep 400

    WshShell.SendKeys "F"
    WScript.Sleep 400

    WshShell.SendKeys "%N"
    WScript.Sleep 400

    WshShell.SendKeys "%N"
    WScript.Sleep 400

    WshShell.SendKeys "{TAB 2}"
    WScript.Sleep 400

    WshShell.SendKeys "media\foobar2000"
    WScript.Sleep 400

    WshShell.SendKeys "%I"
    WScript.Sleep 10 * 1000

    WshShell.SendKeys "{TAB 2}"
    WScript.Sleep 400

    WshShell.SendKeys "A"
    WScript.Sleep 400

    WshShell.SendKeys "{TAB 2}"
    WScript.Sleep 400

    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 6000

    WshShell.SendKeys " "
    WScript.Sleep 400

    WshShell.SendKeys "%F"
    WScript.Sleep 400

    Wscript.Quit

    Mozilla Firebird 0.7

    -only the QuickLaunch icon added

    Set WshShell = WScript.CreateObject("WScript.Shell")
    On Error Resume Next

    WshShell.Run ("%systemdrive%\install\Applications\Firebird\MozillaFirebird-0.7-setup.exe")
    WScript.Sleep 1000

    WshShell.SendKeys "%N"
    WScript.Sleep 400

    WshShell.SendKeys "{TAB 2}"
    WScript.Sleep 400

    WshShell.SendKeys "{DOWN 3}"
    WScript.Sleep 400

    WshShell.SendKeys " "
    WScript.Sleep 400

    WshShell.SendKeys "{DOWN}"
    WScript.Sleep 400

    WshShell.SendKeys " "
    WScript.Sleep 400

    WshShell.SendKeys "%N"
    WScript.Sleep 400

    WshShell.SendKeys "%I"
    WScript.Sleep 10 * 1000

    WshShell.SendKeys "%R"
    WScript.Sleep 400

    WshShell.SendKeys "%F"
    WScript.Sleep 400

    Wscript.Quit

    enjoy...

×
×
  • Create New...