Jump to content

wakillon

Active Members
  • Posts

    3,325
  • Joined

  • Last visited

  • Days Won

    24

wakillon last won the day on January 4

wakillon had the most liked content!

5 Followers

About wakillon

  • Birthday 07/29/1968

Profile Information

  • Location
    Mont Saint Michel

Recent Profile Visitors

6,526 profile views

wakillon's Achievements

  1. ( yes dimensions region are good when playing) Well, i have re-downloaded AirCapRec and , selecting "Primary" or "Region", videos with 60 FPS and UltraFast are shorter than recording time, 1 Min give 28 sec, It looks like a film in fast motion (27s967ms.H.264.3840x2160.AAC) VLC displays the remaining time at the bottom right and after playing 28 sec, it display -00:01 and after image is frozen and remaining time is strangely displayed from --00:01 to --00:32 second by second and then stop playing â˜šī¸
  2. Now it works ! Very nice About ! 😁 For the region, the default width can be simply obtained by @DesktopWidth X dpiScale, same for the height Func _GetDPIScale() ;~ https://learn.microsoft.com/en-us/answers/questions/601314/vb-net-adjusting-forms-and-controls-to-display-res Local Const $HORZRES = 8 ; Horizontal width in pixels Local Const $DESKTOPHORZRES = 118 ; Horizontal width of entire desktop in pixels Local $hDC = _WinAPI_GetDC(0) Local $iDHWidth = _WinAPI_GetDeviceCaps($hDC, $DESKTOPHORZRES) Local $iHWidth = _WinAPI_GetDeviceCaps($hDC, $HORZRES) _WinAPI_ReleaseDC(0, $hDC) Return $iDHWidth / $iHWidth EndFunc ;==>_GetDPIScale
  3. Wow, already available on Softpedia 😉 5 minutes recorded with UltraFast, 30 FPS, audio 192k, 300% scaling give well 5 minutes reading. Mp4 file 498 Mo 5mn200ms H.264 3840x2160 AAC What is the question mark for? When I click on it, both windows disappear and i need to right click on the taskbar for close it and then both windows reappear When i record with "region" selected , it display a default width of 1280 and height of 720 but the region is three times smaller than my screen size (3840x2160) due to my dpi scalling (X3) Is it intentional ? I need to set manually the real size in inputs And why not suggest reducing the video dimensions at the output for reduce Mo size ? AirCapRec_debug.log
  4. More than 8 years later and with more than 14,000 downloads, SciTEHopper is finally updated
  5. Gui settings, display ok now So, with settings to ultrafast and 30 FPS Video quality ok Playing ok, i mean playing duration = record duration đŸĢĄ Excellent work 👍
  6. It's incredible ! When i look with my own eyes your gui settings, i don't see any numbers even when placing the black background of notepad or a white background behind it But when i take a screenshot for show you that there is no numbers displayed, the screenshot show well the numbers !!! â˜šī¸ You invented invisible numbers ! 👍 For the suspicious, no, I didn't drink! 😋
  7. Tired of seeing your taskbar always the same color? Only tested on Win11 HotKeySet('{ESC}', '_Exit') ;~ Taskbar gradually shift through a range of colors Global $iPaletteIdx = 0 Global $iR1, $iG1, $iB1, $iR2, $iG2, $iB2 Global $iAlphaMain = 200, $iSteps = 20, $iStep = 0, $bFading = False Global $aPalette[][2] = [ _ ['FF0000', 'FF8800'], _ ; rouge > orange ['FF8800', 'FFFF00'], _ ; orange > jaune ['FFFF00', '00FF00'], _ ; jaune > vert ['00FF00', '0000FF'], _ ; vert > bleu ['0000FF', 'FF00FF'], _ ; bleu > violet ['FF00FF', 'FF0000'] _ ; violet > rouge ] _TaskbarStartFade($aPalette[0][0], $aPalette[0][1], $iSteps) While 1 If Not $bFading Then $iPaletteIdx = Mod($iPaletteIdx + 1, UBound($aPalette)) _TaskbarStartFade($aPalette[$iPaletteIdx][0], $aPalette[$iPaletteIdx][1], $iSteps) EndIf Sleep(30) WEnd Func _Exit() AdlibUnRegister('_TaskbarFadeStep') Exit EndFunc ;==>_Exit Func _TaskbarFadeStep() If Not $bFading Then Return Local $fT = $iStep / $iSteps Local $iR = Int($iR1 + ($iR2 - $iR1) * $fT) Local $iG = Int($iG1 + ($iG2 - $iG1) * $fT) Local $iB = Int($iB1 + ($iB2 - $iB1) * $fT) _TaskbarSetColor($iR, $iG, $iB, $iAlphaMain) $iStep += 1 If $iStep > $iSteps Then AdlibUnRegister('_TaskbarFadeStep') $bFading = False EndIf EndFunc ;==>_TaskbarFadeStep Func _TaskbarSetColor($iR, $iG, $iB, $iAlpha = 180) Local $hTaskbar = WinGetHandle('[CLASS:Shell_TrayWnd]') Local $iColor = ($iAlpha * 0x1000000) + ($iB * 0x10000) + ($iG * 0x100) + $iR ;~ ConsoleWrite('+ [Color Set : ] 0x' & Hex($iColor, 8) & @CRLF) Local $tAccent = DllStructCreate('uint AccentState; uint AccentFlags; uint GradientColor; uint AnimationId') DllStructSetData($tAccent, 'AccentState', 4) DllStructSetData($tAccent, 'AccentFlags', 2) DllStructSetData($tAccent, 'GradientColor', $iColor) Local $tData = DllStructCreate('uint Attrib; ptr Data; ulong_ptr Size') DllStructSetData($tData, 'Attrib', 19) DllStructSetData($tData, 'Data', DllStructGetPtr($tAccent)) DllStructSetData($tData, 'Size', DllStructGetSize($tAccent)) DllCall('user32.dll', 'bool', 'SetWindowCompositionAttribute', 'hwnd', $hTaskbar, 'ptr', DllStructGetPtr($tData)) EndFunc ;==>_TaskbarSetColor Func _TaskbarStartFade($sHexDep, $sHexArr, $iSteps = 10) $sHexDep = StringReplace($sHexDep, '0x', '') $sHexArr = StringReplace($sHexArr, '0x', '') $iR1 = Dec(StringMid($sHexDep, 1, 2)) $iG1 = Dec(StringMid($sHexDep, 3, 2)) $iB1 = Dec(StringMid($sHexDep, 5, 2)) $iR2 = Dec(StringMid($sHexArr, 1, 2)) $iG2 = Dec(StringMid($sHexArr, 3, 2)) $iB2 = Dec(StringMid($sHexArr, 5, 2)) $iSteps = $iSteps $iStep = 0 $bFading = True AdlibRegister('_TaskbarFadeStep', 500) EndFunc ;==>_TaskbarStartFade For play with taskbar transparency, i will wait next win 11 versions...
  8. When i try to enter 30 fps in your gui settings, numbers are not visibles ... 🤔
  9. #Include <WinAPIFiles.au3> _SetDPIUNAWARE('D:\Bureau\ScreenRecorder\ScreenRecorder64.exe') Func _SetDPIUNAWARE($sFullPath) ; With a dpi scale > 1 ;~ Application compatibily flags are stored in the registry (user or system part): ;~ HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers ;~ HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers Local $iRet, $sHklm If _WinAPI_GetBinaryType($sFullPath) Then Switch @extended Case $SCS_32BIT_BINARY $sHklm = 'HKLM' Case $SCS_64BIT_BINARY $sHklm = 'HKLM64' Case Else Return SetError(-1, 0, 0) EndSwitch Local $sReg1 = RegRead($sHklm & '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', $sFullPath) Local $sReg2 = RegRead('HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', $sFullPath) If $sReg1 <> '~ DPIUNAWARE' Or $sReg2 <> '~ DPIUNAWARE' Then $iRet = RegWrite($sHklm & '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', _ $sFullPath, _ 'REG_SZ', _ '~ DPIUNAWARE') If @error Or $iRet = 0 Then Return SetError(@error, 0, -2) $iRet = RegWrite('HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', _ $sFullPath, _ 'REG_SZ', _ '~ DPIUNAWARE') If @error Or $iRet = 0 Then Return SetError(@error, 0, -3) Return 1 EndIf EndIf EndFunc ;==>_SetDPIUNAWARE Once script run, i run ScreenRecorder64.exe and now i'm able to read your gui
  10. FullScreen Capture : 3840x2160 @ 60 fps DPI Scale x3 I recorded for 30 seconds but the playback only took 22 seconds when looking at the clock it's a bit like if I were watching a video in fast motion
  11. Oups ! Your graphical interface is now so tiny that I can't read the buttons A DPI problem ? Video quality is good but a record of 30 sec give me a video of 22 sec
  12. No problem but your download link to: ScreenRecorder2_vfw do not work
  13. You're welcome 😉 First problem, your graphical interface is hard to read as if you were using transparency Second problem, If there is no user activity the duration of the video is almost the same as the real duration, but if i open and minimize several windows while recording, your display timer is late ( example 1m42 for 2 min recording)
  14. Salut UEZ With the desired settings , 32 bit version return : WGC Recording: 3840x2160 @ 60 fps Target time : 15 seconds Press 'P' to Pause, 'R' to Resume, 'ESC' to Stop Frame 0 encoded. x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed x264 [error]: malloc of size 26200384 failed ... x64 return : WGC Recording: 3840x2160 @ 60 fps Target time : 20 seconds Press 'P' to Pause, 'R' to Resume, 'ESC' to Stop Starting thread for recording... Frame 1140 encoded. Waiting for background thread to finish... Thread closed. Actual time : 29.63338000000113 seconds FPS real : 40.49487436127618 File size : 3 mb Done! -> output_wgc.avi And no problem for read video with VLC, except the reading speed which is 2 times faster I saw my desktop Clock changing second too fast
×
×
  • Create New...