Jump to content
Sign in to follow this  
Haveskillz

Just Fast Question

Recommended Posts

I made a lil program kinda ( All -In -One ) Loader.

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:        Jimmy van Beele <Jimmmy_lol@Hotmail.com>
;
; Script Function:
;   All-In-One Loader
;
; ----------------------------------------------------------------------------

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

#include <GuiConstants.au3>

#Region --- CodeWizard generated code Start ---
;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=1, Height=140, Left=1, Top=1
If Not IsDeclared("sInputBoxAnswer") Then Dim $sInputBoxAnswer
$sInputBoxAnswer = InputBox("Important - Question","Even Je Naam Invullen A.U.B!" & @CRLF & "Groetjes, Jimmy",""," ","1","140","1","1")
Select
   Case @Error = 0;OK - The string returned is valid

   Case @Error = 1;The Cancel button was pushed

   Case @Error = 3;The InputBox failed to open

EndSelect
#EndRegion --- CodeWizard generated code End ---

SoundPlay("C:\WINDOWS\Nummer1.mp3", 360)
SoundSetWaveVolume(100)

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

GuiCreate("All-In-One Loader - Made By Jimmy!", 479, 153,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Button_1 = GuiCtrlCreateButton("LimeWire", 30, 120, 90, 23)
$Button_2 = GuiCtrlCreateButton("MSN 7.5", 140, 120, 90, 23)
$Button_3 = GuiCtrlCreateButton("Shareaza", 250, 120, 90, 23)
$Button_4 = GuiCtrlCreateButton("Hitman Pro", 360, 120, 90, 23)
$Button_5 = GuiCtrlCreateButton("Internet", 30, 90, 90, 23)
$Button_6 = GuiCtrlCreateButton("Nero", 140, 90, 90, 23)
$Button_7 = GuiCtrlCreateButton("AVG Free", 250, 90, 90, 23)
$Button_8 = GuiCtrlCreateButton("ZoneAlarm", 360, 90, 90, 23)
$Pic_11 = GuiCtrlCreatePic("C:\WINDOWS\images.jpg", 360, 10, 90, 70)
$Label_10 = GuiCtrlCreateLabel("Welkom, " & $sInputBoxAnswer, 30, 20, 110, 20)
$Slider_1 = GuiCtrlCreateSlider(30, 50, 110, 20)
$Pic_12 = GuiCtrlCreatePic("C:\WINDOWS\images.jpg", 140, 10, 90, 70)
$Pic_13 = GuiCtrlCreatePic("C:\WINDOWS\images2.jpg", 250, 10, 90, 70)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_5
        If FileExists("C:\Program Files\Mozilla Firefox\firefox.exe") Then
            Run(@ProgramfilesDir & "\Mozilla Firefox\firefox.exe", @ProgramfilesDir & "\Mozilla Firefox", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
    Case $msg = $Button_1
        If FileExists("C:\Program Files\LimeWire\LimeWire.exe") Then
            Run(@ProgramfilesDir & "\LimeWire\LimeWire.exe", @ProgramfilesDir & "\LimeWire", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
    Case $msg = $Button_6
        If FileExists("C:\Program Files\Ahead\Nero StartSmart\NeroStartSmart.exe") Then
            Run(@ProgramfilesDir & "\Ahead\Nero StartSmart\NeroStartSmart.exe", @ProgramfilesDir & "\Ahead\Nero StartSmart", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
            Case $msg = $Button_2
        If FileExists("C:\Program Files\MSN Messenger\msnmsgr.exe") Then
            Run(@ProgramfilesDir & "\MSN Messenger\msnmsgr.exe", @ProgramfilesDir & "\MSN Messenger", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
            Case $msg = $Button_7
        If FileExists("C:\Program Files\Grisoft\AVG Free\avgw.exe") Then
            Run(@ProgramfilesDir & "\Grisoft\AVG Free\avgw.exe", @ProgramfilesDir & "\Grisoft\AVG Free", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
            Case $msg = $Button_3
        If FileExists("C:\Program Files\Shareaza\Shareaza.exe") Then
            Run(@ProgramfilesDir & "\Shareaza\Shareaza.exe", @ProgramfilesDir & "\Shareaza", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
            Case $msg = $Button_8
        If FileExists("C:\Program Files\Zone Labs\ZoneAlarm\zlclient.exe") Then
            Run(@ProgramfilesDir & "\Zone Labs\ZoneAlarm\zlclient.exe", @ProgramfilesDir & "\Zone Labs\ZoneAlarm", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
            Case $msg = $Button_4
        If FileExists("C:\Program Files\Hitman Pro\hitmanpro2.exe") Then
            Run(@ProgramfilesDir & "\Hitman Pro\hitmanpro2.exe", @ProgramfilesDir & "\Hitman Pro", @SW_MAXIMIZE)
        Else
            MsgBox(64,"Sorry", "The File Was Not Found", 3)
        EndIf
    Case Else
    ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

The problem is that,,, well i got a Slider like you see.

but i want to control the sound with it of the song :D

is this possible?? if it is.. how? :D

Share this post


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
Sign in to follow this  

×
×
  • Create New...