vk_k14m@vk, за мельтешением картинок на Вашем Рабочем столе ничего разглядеть невозможно, ни где Вы возите мышкой, ни где что нажимаете. И большой баннер над панелью задач этому тоже не помогает.
Можете пробовать. На WSH:
Скрытый текст
Код:

Option Explicit
Const strPath2GameProcess = "D:\Games\MTA Province\MTA\Multi Theft Auto.exe"
Const strPath2VideoRecordingProcess = "C:\Program Files (x86)\Bandicam\Loader.exe"
Const strName4StopProcess = "bdcam64.bin"
Dim objSWbemServicesEx
Dim objSWbemObjectEx
Dim objFSO
Dim lngGameProcessID
Dim lngVideoRecordingProcessID
Dim lngVideoRecordingParentProcessID
Set objSWbemServicesEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
Set objSWbemObjectEx = objSWbemServicesEx.Get("Win32_Process")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strPath2GameProcess) Then
If objFSO.FileExists(strPath2GameProcess) Then
If objSWbemObjectEx.Create(strPath2GameProcess, objFSO.GetParentFolderName(strPath2GameProcess), Nothing, lngGameProcessID) = 0 Then
WScript.Sleep 5 * 1000
If objSWbemObjectEx.Create(strPath2VideoRecordingProcess, objFSO.GetParentFolderName(strPath2VideoRecordingProcess), Nothing, lngVideoRecordingProcessID) = 0 Then
objSWbemServicesEx.ExecNotificationQuery( _
"SELECT * FROM __InstanceDeletionEvent WITHIN 1 " & _
"WHERE TargetInstance ISA 'Win32_Process' AND " & _
"TargetInstance.ProcessID = " & CStr(lngGameProcessID) & "" _
).NextEvent
For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery( _
"SELECT * FROM Win32_Process WHERE Name = '" & strName4StopProcess & "'" _
)
lngVideoRecordingParentProcessID = objSWbemObjectEx.ParentProcessID
If objSWbemObjectEx.Terminate() = 0 Then
If objSWbemServicesEx.Get("Win32_Process.Handle=" & CStr(lngVideoRecordingParentProcessID)).Terminate() = 0 Then
Else
WScript.Echo "Can't terminate process with PID [" & CStr(lngVideoRecordingParentProcessID) & "]."
End If
Else
WScript.Echo "Can't terminate process with PID [" & CStr(objSWbemObjectEx.ProcessID) & "]."
End If
Exit For
Next
Else
WScript.Echo "Can't execute process [" & strPath2VideoRecordingProcess & "]."
WScript.Quit 4
End If
Else
WScript.Echo "Can't execute process [" & strPath2GameProcess & "]."
WScript.Quit 3
End If
Else
WScript.Echo "Can't find file [" & strPath2VideoRecordingProcess & "]."
WScript.Quit 1
End If
Else
WScript.Echo "Can't find file [" & strPath2GameProcess & "]."
WScript.Quit 1
End If
Set objFSO = Nothing
Set objSWbemObjectEx = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0
Запускаете скрипт, ждёте запуска игры, ждёте пять секунд, нажимаете F12 (или иную горячую клавишу, какая там у Вас настроена) для начала записи видео. Закончили — нажали F12 для остановки записи видео, затем только закрыли игру.