Sign in to follow this  
Followers 0
Haveskillz

Just Fast Question

4 posts in this topic

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



Take a look at the autoit command:

SoundSetWaveVolume


Contributions: UDF _DateYearFirstChildren are like Farts, you can just about stand your own.Why am I not a Vegetarian?...Well...my ancestors didn't fight & evolve to the Top of the food chain for me to survive on Salad

Share this post


Link to post
Share on other sites

i think you need,, to read better rofl.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

--Sorry my internet was a lil slow.

still dont got answer help please.

Edited by Haveskillz

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  
Followers 0