Haveskillz Posted June 5, 2006 Share Posted June 5, 2006 I made a lil program kinda ( All -In -One ) Loader. expandcollapse popup; ---------------------------------------------------------------------------- ; ; 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 is this possible?? if it is.. how? Link to comment Share on other sites More sharing options...
HardCopy Posted June 5, 2006 Share Posted June 5, 2006 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 Link to comment Share on other sites More sharing options...
Haveskillz Posted June 5, 2006 Author Share Posted June 5, 2006 i think you need,, to read better rofl. Link to comment Share on other sites More sharing options...
Haveskillz Posted June 5, 2006 Author Share Posted June 5, 2006 (edited) --Sorry my internet was a lil slow. still dont got answer help please. Edited June 5, 2006 by Haveskillz Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now