Jump to content

BrettF

MVPs
  • Posts

    7,400
  • Joined

  • Last visited

  • Days Won

    1

BrettF last won the day on April 27 2013

BrettF had the most liked content!

2 Followers

About BrettF

  • Birthday 04/06/1992

Profile Information

  • Member Title
    My Drunk Monkey Guerilla is gonna getcha!
  • Location
    Brisbane, Australia
  • WWW
    http://www.signa5.com

Recent Profile Visitors

3,897 profile views

BrettF's Achievements

Universalist

Universalist (7/7)

30

Reputation

  1. _BASS_CD_GetInfo($drive) should return an array and I assume you are going and retrieving the 4 element in the array successfuly. You should be able to do something like... If BitAnd ($RetturnValue[4], $flag) <> 0 Then ... or something similar. I'll try find my example for recording. I think eukalyptus might have one too? I'll ask him for you and if I can't find one, then I'll make one. Cheers, Brett
  2. Hi there! Late reply because my work is insane. Christmas time is busy for retail... I just downloaded the release zip on 3 different computers running different OSs. My testing steps: File initially downloaded. It was a .zip. Fine. Extracted .zip. Fine. Opened main .PDF. Fine. Opened Exercise PDF. Fine. So no problems here...? What OS? Merry Christmas! (Well where I am it is...) Cheers, Brett
  3. Hi wangnjj, Apologies for my late reply, I have been very busy as of late. I see I made a few slip ups there. Noted in my copy, and will release when I have the time. Cheers! Brett
  4. Oh wow... Almost hit 20250... I meant to give a cookie to the lucky 20,000...
  5. Reverse engineer. That doesn't sound smart. http://developer.ebay.com/common/api/ Maybe a supplied API would do the job? /sarcasm
  6. Try this: #Include <WinAPI.au3> #include <Bass.au3> #include <BassSFX.au3> #include <BassConstants.au3> #include <BassSFXConstants.au3> ;Vizualization to use $viz = "LightMagick.uvs" ;MP3 to use $file = "example.mp3" ;Update period $update = 20;ms ;Create the GUI $Form1 = GUICreate("Form1", 800, 600) ;Startup Bass.dll and BassSDX.dll _BASS_SFX_Startup (@ScriptDir & "\Bass_SFX.dll") _Bass_Startup (@ScriptDir & "\Bass.dll") ;Initialize both libraries _BASS_SFX_Init($Form1) _BASS_Init(0, -1, 44100, 0, "") ;Load MP3 File $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0) ;Create a picture to use as the visualization holder $picutre_viz = GUICtrlCreatePic(@ScriptDir & "\music_icon.jpg", 0, 0, 800, 600) ;Get the HNDL $VISUAL_WIN_HANDLE = GUICtrlGetHandle($picutre_viz) ;Create the plugin $VISUAL_HANDLE = _BASS_SFX_PluginCreate(@ScriptDir & "\" & $viz, $VISUAL_WIN_HANDLE, 800, 600, 0) ;Show GUI GUISetState(@SW_SHOW) ;Start playing audio _BASS_ChannelPlay($MusicHandle, 1) ;Start the plugin _BASS_SFX_PluginStart($VISUAL_HANDLE) $timer = TimerInit () While 1 $Msg = GUIGetMsg() ;Render the visualization If TimerDiff ($timer) >= $update Then _BASS_SFX_PluginRender($VISUAL_HANDLE, $MusicHandle, _WinAPI_GetWindowDC($VISUAL_WIN_HANDLE)) $timer = TimerInit () EndIf Switch $Msg Case -3 _Bass_Stop() _BASS_SFX_PluginStop($VISUAL_HANDLE) _BASS_SFX_PluginFree($VISUAL_HANDLE) _BASS_Free() Exit EndSwitch WEnd You will need to update BassLib to the latest version (as found in my sig). You need to update the visualization in a loop (with a timer) like shown. Also you need to use the Bass functions for music- SoundPlay does not interface in any way with BassLib. Cheers, Brett
  7. It can do most things, you just don't know how to make it do what you want it to...
  8. No idea if I have the latest copy, but here is one I have from 2008... BASSMOD.au3 Download BassMod.dll from un4seen. If you have any more problems give us a yell and I'll fix it up, or BassLib will do the same thing in the end... Cheers, Brett
  9. Suggestion noted... Will update to make it valid and add a few little extras with the next version. Could you just upload the edited XML file please? What you've pasted doesn't display correctly in Firefox... Thanks, Brett
  10. Under beta until the help file is finished... That's going to take a while!
  11. You can find the UDF here. This should work. Untested. #include <iTunes.au3> #Include <Date.au3> $PlayList_Name = "Hip-Hop" $nTimeout = 30*1000 ; 30 seconds $nTimeout = 2*1000 ; 2 seconds $sLoaded = "" ;Start the object _iTunes_Start() ;Play the first song in the playlist _iTunes_Playlist_PlayFirst($PlayList_Name) $sLoaded = _GetSongNameID() ;Start the timer $timer = TimerInit () OnAutoItExitRegister ("iTunesExit") While 1 ;Check to see if the loaded song is the same. If Not Reset the timer. $sNow = _GetSongNameID () If $sLoaded <> $sNow Then ;So we don't reset the timer again $sLoaded = $sNow ;Reset the timer $timer = TimerInit () EndIf ;See if the elapsed is greater than the timeout If TimerDiff ($timer) >= $nTimeout Then ;Play the next song. _iTunes_Next() Else ;Conserve CPU Sleep(500) EndIf WEnd Func iTunesExit() _iTunes_Unload() EndFunc Func _GetSongNameID () $aInfo = _iTunes_Current_GetInfo() Return $aInfo[2] EndFunc
  12. Well you could create your playlist and make each of the songs only play for 30 seconds... RightClick -> Get Info on the particular song. Cheers, Brett
  13. Fatalcoder, if you can't accurately describe what your problem is, we can't help. No one here is mind readers. I mean we've done pretty well so far to working out what you want, but if you can't tell us what your final outcome is, we can't help you achieve that. Next time you post I do expect a better explaination of what you want help with. That does mean typing it all out (using google translate if you need to ), showing any examples of code, files. Basically so we can replicate what you need. #include <GuiConstantsEx.au3> #include <GuiListView.au3> Global $hListView If FileExists("botlist.txt") Then GUICreate("ListView Add Item", 400, 300) $hListView = GUICtrlCreateListView("", 50, 15, 300, 270) _GUICtrlListView_SetUnicodeFormat($hListView, False) _GUICtrlListView_InsertColumn($hListView, 0, "User ID", 145) _GUICtrlListView_InsertColumn($hListView, 1, "Password", 145) loadbots() GUISetState() $msg = GUIGetMsg() While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() WEnd Else MsgBox(0, "ERROR!", "File Not Found") EndIf Func loadbots() $delim = Opt("GUIDataSeparatorChar", ":") $sFile = FileRead("botlist.txt") $aList = StringSplit($sFile, @CRLF, 1) For $iX = 1 To $aList[0] If StringInStr($aList[$iX], ":") Then GUICtrlCreateListViewItem($aList[$iX], $hListView) EndIf Next Opt("GUIDataSeparatorChar", $delim) EndFunc ;==>loadbots Cheers, Brett
×
×
  • Create New...