Jump to content

Recommended Posts

Like WinZip or WinRar?

"I thoroughly disapprove of duels. If a man should challenge me, I would take him kindly and forgivingly by the hand and lead him to a quiet place and kill him." - Mark TwainPatient: "It hurts when I do $var_"Doctor: "Don't do $var_" - Lar.
Link to post
Share on other sites

You could try Instyler Ex-it available from www.instyler.com.


Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Link to post
Share on other sites
  • Developers

The installer for AutoIt3 and SciTE4AutoIt3 are build with NSIS.... pretty nice installer builder.

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to post
Share on other sites

actuallly (because you have more than 1 file) if you "zip" it first then you can use my installer

heres the pic

Posted Image

heres the code

; set program install info
;--------------------------------------------------------------------------------
; program to install
$Key = "Test"
$Name = "Organ.exe"
$Start_Folder = "\QTasc - Toy BOX\"
$Location = @ProgramFilesDir & "\QTasc\ToyBOX\"
; place program into the installer
$Program_1 = @TempDir & "\Temp.exe"
FileInstall("C:\XPClean-web\Toy BOX\TB Programs\Organ.exe", $Program_1)
;--------------------------------------------------------------------------------
;*** copy icon to other program
;$Logo_icon = @TempDir & "\Toy-Icon.ico"
;FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-Icon.ico", $Logo_icon)
;GUISetIcon($Logo_icon)
;---------------------------------------------------------------------------------
#include "GUIConstants.au3"

Dim $QT_web = "www.XPCleanMenu.HostRocket.com", $NoKey = "", $time = "800"
Dim $ver = "2006A"

;install pics
$Toy_Logo = @TempDir & "\Toy2-logo.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box2-jpg.jpg", $Toy_Logo)
$Toy_Banner = @TempDir & "\Toy-banr.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-jpg.jpg", $Toy_Banner)
$Logo_icon = @TempDir & "\Toy-Icon.ico"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-Icon.ico", $Logo_icon)
$Sound_clk = @TempDir & "\Sound_clk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk)
$Sound_grp = @TempDir & "\Sound_grp.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp)
$Sound_bar = @TempDir & "\Sound_bar.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\xpinfbar.wav", $Sound_bar)
$Sound_lnk = @TempDir & "\Sound_lnk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk)

;display logo
SplashImageOn("", $Toy_Banner, 400, 180, -1, -1, 1)
    SoundPlay ($Sound_lnk,1)
    Sleep(4000)
SplashOff()
Sleep($time)

;Set GUI
$Toy_win = GUICreate(" QTasc - Toy BOX          ver" & $ver, 329, 145)
GUISetIcon($Logo_icon)
;GUISetBkColor(0x0066FF);0x0066FF); 0x00ff00)
$Icon_1 = GUICtrlCreatePic($Toy_Logo, 245, 2, 75, 140)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Click here - to Donate Now!!")

;Create 2 buttons
$button_1 = GUICtrlCreateButton("A&ccept", 30, 110, 80, 25)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$button_2 = GUICtrlCreateButton("C&ancel", 130, 110, 80, 25)

;create labels
$label_1 = GUICtrlCreateLabel( "To install " & $Name & " now", 20, 15, 250, 20)
GUICtrlSetFont(-1, 9, 650)
$label_2 = GUICtrlCreateLabel( "Please enter your Validation Key", 20, 35, 250, 20)
GUICtrlSetFont(-1, 9, 650)
$label_3 = GUICtrlCreateLabel( "(The number given on your $10.95 Donation)", 10, 55, 250, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
;create text input
$text = GUICtrlCreateInput("Welcome to the Toy BOX,  by QTasc", 20, 75, 200, 20)
GUICtrlSetState(-1, $GUI_FOCUS)

;Show the GUI
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00040010);explode
GUISetState(@SW_SHOW)

;sets tray icon
opt("TrayMenuMode", 1); Default tray menu items (Script Paused/Exit) will not be shown.
opt("TrayOnEventMode", 1)

$donate_tray = TrayCreateItem("Make a Donation Now!!")
TrayItemSetOnEvent(-1, "Set_Donation")
TrayCreateItem("")
$upgrade_tray = TrayCreateItem("Check New Releases")
TrayItemSetOnEvent(-1, "Set_Update")
TrayCreateItem("")
$about_tray = TrayCreateItem("About QTasc")
TrayItemSetOnEvent(-1, "Set_QT")
TrayCreateItem("")
$exit_tray = TrayCreateItem("Exit  QTasc - Toy BOX")
TrayItemSetOnEvent(-1, "Set_Exit")

TraySetState()


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $Icon_1
            Call("Set_Donation")
        Case $msg = $button_2 Or $msg = $GUI_EVENT_CLOSE
            Call("Set_Exit")
        Case $msg = $button_1
            SoundPlay($Sound_clk, 1)
            $msg1 = GUICtrlRead($text)
            If $msg1 = $Key Then
                MsgBox(64, "Validation Key Accepted", " Thank you!.. for your Donation!   " & @CRLF & @CRLF & "Toy BOX - installing " & $Name & "   ", 7)
                Call("Set_install")
            Else
                MsgBox(64, "Validation Key", "The Validation key was not correct!   ", 7)
                $NoKey = $NoKey + 1
                If $NoKey >= 3 Then
                    Call("Set_Donation")
                    $NoKey = ""
                EndIf
            EndIf
    EndSelect
Sleep(50)
WEnd

Exit

; ------------------------------------ Functions ----------------------------------------------

Func Set_Update()
    SoundPlay($Sound_clk, 1)
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
    WinWaitActive("")
EndFunc;==>Set_Update

Func Set_QT()
    SoundPlay($Sound_grp, 1)
    $iMsgBoxAnswer = MsgBox(32, "  Toy BOX ,  by   QTasc", "WHO IS,  QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & "Thank you." & @CRLF & "" & @CRLF & "", 60)
    Select
        Case $iMsgBoxAnswer = -1;Timeout
    EndSelect
    SoundPlay($Sound_grp, 1)
EndFunc;==>Set_QT

Func Set_Exit()
    FileDelete($Program_1)
    SoundPlay($Sound_lnk, 1)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00050010);implode
    Sleep($time)
    Exit
EndFunc;==>Set_Exit

Func Set_Donation()
    SoundPlay($Sound_grp, 1)
    $PID = Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe https://www.paypal.com/xclick/business=xpcleanmenu@aol.com&amount=10%2e95&page_style=Primary&no_shipping=1&item_name=XPClean-Menu+Donation")
    WinWaitActive("")
EndFunc;==>Set_Donate

Func Set_install()
    GUICtrlDelete($label_3)
    GUICtrlDelete($button_1)
    GUICtrlDelete($button_2)
    GUICtrlDelete($text)
;create progress
    $Label_4 = GUICtrlCreateLabel("   Please Wait... ", 30, 110, 180, 25)
    GUICtrlSetFont(-1, 9, 650)
    $progress = GUICtrlCreateProgress(20, 75, 200, 20, $PBS_SMOOTH)
    GUICtrlSetState( -1, $GUI_SHOW)
    GUICtrlSetData($label_1, "Now installing " & $Name)
    GUICtrlSetData($label_2, "Loading installer...")
    Sleep($time)
    GUICtrlSetData($progress, 10)
    Sleep($time)
    GUICtrlSetData($label_2, "Checking for Toy BOX Folder...")
    GUICtrlSetData($progress, 20)
    Sleep($time)
    GUICtrlSetData($progress, 30)
; check if folder exists
    DirGetSize($Location)
    If @error = 1 Then
        DirCreate($Location)
    EndIf
    GUICtrlSetData($progress, 40)
    Sleep($time)
    GUICtrlSetData($label_2, "Checking for previous install...")
    GUICtrlSetData($progress, 50)
    Sleep($time)
    If FileExists($Location & $Name) Then
        $ans = MsgBox(68, "Previous Install Found", "Would you like to over-write the existing file?   ")
        If $ans = 7 Then
            GUICtrlSetData($label_2, "Closing installer...")
            GUICtrlSetData($progress, 0)
            FileDelete($Program_1)
            Sleep($time + $time)
            Call("Set_Exit")
        EndIf
    EndIf
    GUICtrlSetData($label_2, "No previous installs found...")
    GUICtrlSetData($progress, 60)
    Sleep($time)
    GUICtrlSetData($label_2, "Copying files...")
    GUICtrlSetData($progress, 70)
    Sleep($time)
    FileCopy($Program_1, $Location & $Name, 1)
    GUICtrlSetData($label_2, "Creating Short-cuts...")
    GUICtrlSetData($progress, 80)
    Sleep($time)
    FileCreateShortcut($Location & $Name, @DesktopDir & "\" & $Name & ".lnk", "", "", "Starts " & $Name)
    DirCreate(@ProgramsCommonDir & $Start_Folder)
    FileCreateShortcut($Location & $Name, @ProgramsCommonDir & $Start_Folder & $Name & ".lnk", "", "", "Starts " & $Name)
    GUICtrlSetData($label_2, "Verifying install...")
    GUICtrlSetData($progress, 90)
    Sleep($time)
    If Not FileExists($Location & $Name) Then
        MsgBox(64, "Toy BOX Install Error", "The installer has found an Error and will now close...   ", 4)
        GUICtrlSetData($label_2, "Closing installer...")
        GUICtrlSetData($progress, 0)
        FileDelete($Program_1)
        Sleep($time + $time)
        Call("Set_Exit")
    EndIf
    GUICtrlSetData($progress, 100)
    GUICtrlSetData($label_2, "Installation is complete...")
    Sleep($time + $time)
    GUICtrlSetData($label_2, "Closing installer...")
    FileDelete($Program_1)
    Sleep($time + $time)
    MsgBox(64, "Toy BOX Installer", "Toy BOX Installer will now start " & $Name & " and Exit...   " & @CRLF & @CRLF & "Again... Thank You!!  for your Donation   ", 5)
    SoundPlay($Sound_lnk, 1)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00050010);implode
    Sleep($time)
    Run($Location & $Name)
    Exit
EndFunc;==>Set_install

hope that helps

8)

Edited by Valuater

NEWHeader1.png

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...