Leaderboard

Hi all. some time without share something. today I made this UDF because I really like this library so I wanted to share with all you. libZPlay (Win32) Version 2.02 06. May, 2010. This is multimedia library for playing mp3, mp2, mp1, ogg, flac, ac3, aac, oga, wav and pcm files and streams. New: version 2.02 can also record sound from soundcard and encode into disk file with mp3, ogg, flac, aac or wav encoder. For more information look into the LibzPlay Page.txt file into the zip file. About the libZPlay UDF supports playing mp3, ogg, AAC, AC-3, flac, wav, pcmUNICODE support for functions using strings ( filename, error messages, ID3 info, ... ) REVERSE PLAYING (you can play song backward in real time, "real" backward playing without predecoding in PCM) built in echo and reverb sound processor internal volume control (without affecting wave out device volume) pulling VU meter data (you can simply create VU meter) built in FFT spectrum graph, library will draw complete spectrum graph on your window ibzPlayExample.au3 Capture: LibzPlayAU3.zip File contents libZPlay.au3libzPlayExample.au3libZPlayform.kxf LibzPlay Page.txt License.txt- From the libZPlay SDKReadme.txt - From the libZPlay SDKChangeLog.txt - From the libZPlay SDKlibzplay.dll - From the libZPlay SDKlibzplay.chm - From the libZPlay SDKlibzplay.chw - From the libZPlay SDK Download: LibzPlayAU3.zip Saludos

How is this thread different from Which you posted more than a year ago? Does that mean you never solved it and though: "let's try again"? Jos EDIT: ... and I see you also reported your own thread to delete it .... sweet, wel we don't delete threads unless they are in violation of some rules, so *click*

Are you using the full SciTE4AutoIt3 version? I assume this is because SciTE4AutoIt3 will run AutoIt3Wrapper with AutoIt3, and it in turn will shell an extra watchdog version of Autoit3Wrapper to monitor whether one wants to kill the running script via SciTE and process are still running. At first run you can see that one of the 3 AutoIt3 background processes gets killed although nothing visual happens, so assume the watchdog process gets killed. Jos edit: Try this version #include <Constants.au3> AutoItWinSetTitle("demotraymenu") Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 4) Global Const $WM_USER = 0x0400 Global Const $MY_WM_NOTIFYICON = $WM_USER + 1 Global Const $WM_LBUTTONDOWN = 0x0201 $aboutItem = TrayCreateItem("About") TrayCreateItem("") $exitItem = TrayCreateItem("Exit") HotKeySet("^!t", "ShowTrayMenu") ; Ctrl + Alt + t While 1 $Msg = TrayGetMsg() Switch $Msg Case $exitItem ExitLoop Case $aboutItem MsgBox(0, "Info", "Just for fun...") EndSwitch WEnd Exit Func ShowTrayMenu() DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle("demotraymenu"), _ "int", $MY_WM_NOTIFYICON, _ "int", 0, _ "int", $WM_LBUTTONDOWN) EndFunc ;==>ShowTrayMenu

Good point, I mostly share code with my son (hes 12) so I can get in a habit of assuming everyones a pre-teen coder 😂

A dictionary object example. Global $vKey, $sItem, $sMsg, $oDictionary ; Create dictionary object $oDictionary = ObjCreate("Scripting.Dictionary") If @error Then MsgBox(0, '', 'Error creating the dictionary object') Else ; Add keys with items $oDictionary.Add ("One", "Same" ) $oDictionary.Add ("Two", "Car" ) $oDictionary.Add ("Three", "House" ) $oDictionary.Add ("Four", "Boat" ) If $oDictionary.Exists('One') Then ; Display item MsgBox(0x0, 'Item One', $oDictionary.Item('One'), 2) ; Set an item $oDictionary.Item('One') = 'Changed' ; Display item MsgBox(0x20, 'Did Item One Change?', $oDictionary.Item('One'), 3) ; Remove key $oDictionary.Remove('One') ; $oDictionary.Key ('Two') = 'Bike' EndIf Sleep(1000) ; Store items into a variable For $vKey In $oDictionary $sItem &= $oDictionary.Item($vKey) & @CRLF Next ; Display items MsgBox(0x0, 'Items Count: ' & $oDictionary.Count, $sItem, 3) ; Add items into an array $aItems = $oDictionary.Items ; Display items in the array For $i = 0 To $oDictionary.Count -1 MsgBox(0x0, 'Items [ ' & $i & ' ]', $aItems[$i], 2) Next Sleep(1000) ; Add keys into an array $aKeys = $oDictionary.Keys ; Display keys in the array For $i = 0 To $oDictionary.Count -1 MsgBox(0x0, 'Keys [ ' & $i & ' ]', $aKeys[$i], 2) Next EndIf