x_files_x Posted September 17, 2010 Share Posted September 17, 2010 Selam Arkadaşlar ben bir GUI yapıyorumda ,script açıldıgında müzik calsın ve ona birde slider ekledim.sesi kısıp arttırmak icin ama ilk defa denedigim icin olmadı, acaba bu kodu nasıl çalıştırabilirim.biraz kurcaladım ama bişileri yalnıs yaptım galiba ,scripti acınca bilgisayarın ses ayarı kısılıyor.yardımınızı bekliyorum lütfen #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=J:\IKONLAR\Web1.ico #AutoIt3Wrapper_Compression=0 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("ResOurce X", 450, 274, 192, 124) $Button1 = GUICtrlCreateButton("AIMP2 Player", 8, 128, 81, 33, $WS_GROUP) $Button2 = GUICtrlCreateButton("TEMİZLİK", 104, 128, 81, 33, $WS_GROUP) $Button3 = GUICtrlCreateButton("ResOurce Tools", 8, 176, 81, 33, $WS_GROUP) $Button4 = GUICtrlCreateButton("IDMAN TR", 104, 176, 81, 33, $WS_GROUP) $Button5 = GUICtrlCreateButton("FOLDERICON", 8, 224, 81, 33, $WS_GROUP) $Button6 = GUICtrlCreateButton("Everything Tr", 104, 224, 81, 33, $WS_GROUP) $Button7 = GUICtrlCreateButton("ProcX Taskman", 264, 128, 81, 33, $WS_GROUP) $Button8 = GUICtrlCreateButton("Quick Startup", 360, 128, 81, 33, $WS_GROUP) $Button9 = GUICtrlCreateButton("AUTOIT", 264, 176, 81, 33, $WS_GROUP) $Button10 = GUICtrlCreateButton("Thinstall Tr", 360, 176, 81, 33, $WS_GROUP) $Button11 = GUICtrlCreateButton("Regshot Tr", 264, 224, 81, 33, $WS_GROUP) $Button12 = GUICtrlCreateButton("InstantDemo Tr", 360, 224, 81, 33, $WS_GROUP) $Button13 = GUICtrlCreateButton(" TIKLA ", 192, 232, 65, 25, $WS_GROUP) ;Hocam inanın bu kodlarla iki saat ugrastım ilk defa denedigim icin olmadı Dim $slider = GUICtrlCreateSlider(174 ,260 ,100 ,12) GUICtrlSetLimit(-1, 100, 0) GUISetState() Dim $ses = GUICtrlRead($slider) GUICtrlSetData($slider, 50) SoundPlay(@ScriptDir & "\adem.mp3",0) SoundSetWaveVolume($ses) $Pic1 = GUICtrlCreatePic("J:\RESiMLER\WALLPAPER XP\Dragon Heart.jpg", 0, 0, 449, 273, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 ShellExecute(@ScriptDir & "/AIMP2 Tr.exe") Case $Button2 ShellExecute(@ScriptDir & "/SISTEM TEMIZLIK.exe") Case $Button3 ShellExecute(@ScriptDir & "/Resource Tools.exe") Case $Button4 ShellExecute(@ScriptDir & "/Internet Download Manager.exe") Case $Button5 ShellExecute(@ScriptDir & "/Klasor ikon degiş.exe") Case $Button6 ShellExecute(@ScriptDir & "/Everything Tr.exe") Case $Button7 ShellExecute(@ScriptDir & "/ProcX.exe") Case $Button8 ShellExecute(@ScriptDir & "/Quick Startup.exe") Case $Button9 ShellExecute(@ScriptDir & "/AUTOIT.exe") Case $Button10 ShellExecute(@ScriptDir & "/Thinstall Katılımsız") Case $Button11 ShellExecute(@ScriptDir & "/Regshot.exe") Case $Button12 ShellExecute(@ScriptDir & "/InstantDemo.exe") Case $Button13 MsgBox(64,"BİLGİ", "ADEM SEZGİN") Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Link to comment Share on other sites More sharing options...
blue_life Posted September 18, 2010 Share Posted September 18, 2010 @ x_files_x Exe dosyalar için ShellExecute yerine Run kullanman daha mantıklı! #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=J:\IKONLAR\Web1.ico #AutoIt3Wrapper_Compression=0 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $Get_WaweVolume = _SoundGetWaveVolume() Global $Read_Slider $Form1 = GUICreate("ResOurce X", 450, 280, 192, 124) $Button1 = GUICtrlCreateButton("AIMP2 Player", 8, 128, 81, 33, $WS_GROUP) $Button2 = GUICtrlCreateButton("TEMİZLİK", 104, 128, 81, 33, $WS_GROUP) $Button3 = GUICtrlCreateButton("ResOurce Tools", 8, 176, 81, 33, $WS_GROUP) $Button4 = GUICtrlCreateButton("IDMAN TR", 104, 176, 81, 33, $WS_GROUP) $Button5 = GUICtrlCreateButton("FOLDERICON", 8, 224, 81, 33, $WS_GROUP) $Button6 = GUICtrlCreateButton("Everything Tr", 104, 224, 81, 33, $WS_GROUP) $Button7 = GUICtrlCreateButton("ProcX Taskman", 264, 128, 81, 33, $WS_GROUP) $Button8 = GUICtrlCreateButton("Quick Startup", 360, 128, 81, 33, $WS_GROUP) $Button9 = GUICtrlCreateButton("AUTOIT", 264, 176, 81, 33, $WS_GROUP) $Button10 = GUICtrlCreateButton("Thinstall Tr", 360, 176, 81, 33, $WS_GROUP) $Button11 = GUICtrlCreateButton("Regshot Tr", 264, 224, 81, 33, $WS_GROUP) $Button12 = GUICtrlCreateButton("InstantDemo Tr", 360, 224, 81, 33, $WS_GROUP) $Button13 = GUICtrlCreateButton(" TIKLA ", 192, 232, 65, 25, $WS_GROUP) Global $slider = GUICtrlCreateSlider(174, 260, 150, 15) GUICtrlSetLimit(-1, 100, 0) GUICtrlSetData($slider, $Get_WaweVolume) SoundPlay(@ScriptDir & "\adem.mp3", 0) $Pic1 = GUICtrlCreatePic("J:\RESiMLER\WALLPAPER XP\Dragon Heart.jpg", 0, 0, 449, 273, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $slider $Read_Slider = GUICtrlRead($slider) SoundSetWaveVolume($Read_Slider) Case $Button1 ShellExecute(@ScriptDir & "/AIMP2 Tr.exe") Case $Button2 ShellExecute(@ScriptDir & "/SISTEM TEMIZLIK.exe") Case $Button3 ShellExecute(@ScriptDir & "/Resource Tools.exe") Case $Button4 ShellExecute(@ScriptDir & "/Internet Download Manager.exe") Case $Button5 ShellExecute(@ScriptDir & "/Klasor ikon degiş.exe") Case $Button6 ShellExecute(@ScriptDir & "/Everything Tr.exe") Case $Button7 ShellExecute(@ScriptDir & "/ProcX.exe") Case $Button8 ShellExecute(@ScriptDir & "/Quick Startup.exe") Case $Button9 ShellExecute(@ScriptDir & "/AUTOIT.exe") Case $Button10 ShellExecute(@ScriptDir & "/Thinstall Katılımsız") Case $Button11 ShellExecute(@ScriptDir & "/Regshot.exe") Case $Button12 ShellExecute(@ScriptDir & "/InstantDemo.exe") Case $Button13 MsgBox(64, "BİLGİ", "ADEM SEZGİN") Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _SoundGetWaveVolume() Local $WaveVol = -1, $p, $ret Const $MMSYSERR_NOERROR = 0 $p = DllStructCreate("dword") If @error Then SetError(2) Return -2 EndIf $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p)) If ($ret[0] == $MMSYSERR_NOERROR) Then $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), , 4)) / 0xFFFF * 100) Else SetError(1) EndIf $Struct = 0 Return $WaveVol EndFunc ;==>_SoundGetWaveVolume Link to comment Share on other sites More sharing options...
x_files_x Posted September 18, 2010 Author Share Posted September 18, 2010 Tşkler @Blue_Life Hocam Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.