Jump to content

bolthead

Active Members
  • Posts

    69
  • Joined

  • Last visited

Profile Information

  • Location
    UK

Recent Profile Visitors

489 profile views

bolthead's Achievements

Wayfarer

Wayfarer (2/7)

6

Reputation

  1. If you know the PID that launched the window then use this to get the hWnd
  2. Take a look at that UDF then adapt what you write to suit your needs. After you've produced some code if you're struggling I'm sure someone will help you.
  3. If you searched you might find this which may help https://www.autoitscript.com/forum/topic/90736-performance-counters-in-windows-measure-process-cpu-network-disk-usage/
  4. Try RunWait('"' & @ComSpec & '" /k ' & $CMD, '', @SW_SHOW) You've got too many parameters
  5. As a pointer, this works for me on widows 10 $iPID = Run(@ComSpec & " /K " & "cscript %windir%\system32\slmgr.vbs /dlv", "", @SW_SHOW) If you want to capture the output then this works #include <AutoItConstants.au3> $iPID = Run(@ComSpec & " /c " & "cscript %windir%\system32\slmgr.vbs /dlv", "", @SW_HIDE, $STDOUT_CHILD) $sOutput = "" While 1 $sOutput &= StdoutRead($iPID) If @error Then ExitLoop WEnd MsgBox(0, "Licencing Information", $sOutput) To insert a product key you may need admin rights, I'm not sure.
  6. You are overwriting the variable $hFind = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hFind)
  7. Try changing GUICtrlSetData($edit, $result1s[$results1]) to GUICtrlSetData($edit, $result1s[$results1] & @CRLF, 1)
  8. Using your 2.json try this - it should point you in the right direction. #Include "Json.au3" _Test() Func _Test() Local $Json1 = FileRead(@ScriptDir & "\2.json") Json_Dump($Json1) Local $Data1 = Json_Decode($Json1) Local $temp = json_get($Data1, '.Children[0].Children[0].Children[0].Children[1].Children[0].Value') Local $fs = json_get($Data1, '.Children[0].Children[0].Children[0].Children[2].Children[0].Value') MsgBox(0, "", "Tempature = " & $temp & @CRLF &"Fan Speed = " & $fs) EndFunc
  9. I'm not sure if this is exactly what you're looking for but here's another example from the older UDF #AutoIt3Wrapper_UseX64=n #include "Bass.au3" #include "BassFX.au3" HotKeySet("{UP}", "_Pitch") HotKeySet("{DOWN}", "_Pitch") HotKeySet("{LEFT}", "_Pitch") HotKeySet("{RIGHT}", "_Pitch") HotKeySet("{ESC}", "_Exit") Global $sFile = FileOpenDialog("Open...", "..\audiofiles", "playable formats (*.MP3;*.MP2;*.MP1;*.OGG;*.WAV;*.AIFF;*.AIF)") Global $hStream, $hTempo Global $iPitch = 0 Global $iTempo = 0 _BASS_STARTUP() _BASS_FX_Startup() _BASS_Init(0, -1, 44100, 0, "") $hStream = _BASS_StreamCreateFile(False, $sFile, 0, 0, $BASS_STREAM_DECODE) $hTempo = _BASS_FX_TempoCreate($hStream, $BASS_SAMPLE_LOOP) _BASS_ChannelPlay($hTempo, 1) While _BASS_ChannelIsActive($hTempo) ToolTip("Pitch: " & $iPitch & " semitones" & @CRLF & "Tempo: " & $iTempo & " percent") Sleep(100) WEnd _Exit() Func _Exit() _BASS_StreamFree($hStream) _BASS_Free() Exit EndFunc ;==>_Exit Func _Pitch() Switch @HotKeyPressed Case "{UP}" $iPitch += 1 _BASS_ChannelSetAttribute($hTempo, $BASS_ATTRIB_TEMPO_PITCH, $iPitch) Case "{DOWN}" $iPitch -= 1 _BASS_ChannelSetAttribute($hTempo, $BASS_ATTRIB_TEMPO_PITCH, $iPitch) Case "{LEFT}" $iTempo -= 1 _BASS_ChannelSetAttribute($hTempo, $BASS_ATTRIB_TEMPO, $iTempo) Case "{RIGHT}" $iTempo += 1 _BASS_ChannelSetAttribute($hTempo, $BASS_ATTRIB_TEMPO, $iTempo) EndSwitch EndFunc ;==>_Pitch
  10. Hi not sure if you worked this out yet but here's the console output on my Win 10 Pro which shows what's going wrong on my PC >-- Debug --> 1 -- debug --> 3072 -- debug --> 2732 HTH
  11. While looking for a file that I needed to edit I remembered this example that I made to crossfade 2 tracks. The ‘File Open’ dialog will open twice so as you get the 2 tracks, it will then play the last 35 seconds of the first track and after 10 seconds fade in the second track and fade out the first. You will find that some tracks have a different amount of silence at the beginning and end so you will need to adjust some values to suit your preference. Crossfade.au3
  12. Thank you for looking and your comments Thanks for the correction – one day I’ll read rather than skim the docs. I'll sort it out I’m not sure if that is necessary as _BASS_Free() ‘Frees all resources’ according to UDF. But I suppose it never hurts to be doubly safe. Thanks again
  13. This should do what you want $oShell = ObjCreate("shell.application") $oFolder = $oShell.Namespace("Music\Folder") ; Set the folder containg the file $oFile = $oFolder.ParseName("Track.mp3") ; Set the mp3 file $sLength = $oFolder.GetDetailsOf($oFile, 27) ; 27 = length MsgBox(0, "", $sLength)
  14. OK I’m not a scripter, merely a rare part time hobbyist because of the hours I work, but as I’m off work at the moment with a broken leg I was asked by one of my sons if it was possible to create an equalizer and/or audio effects with Autoit. So being a little familiar with the bass udf I came up the example below. Some of the effects are copied from the examples provided by eucalyptus so many thanks to him because it pointed me in the right direction to create more. Obviously you need at least bass.dll, bass and bass_FX.dll Please give it a try and offer suggestions for improvement. Edit: Thanks wakillon for your comments EqualizerTest.au3
  15. I tested your script on 5 mp3 files containg an image and it worked on all of them. Good woork
×
×
  • Create New...