Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


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 для остановки записи видео, затем только закрыли игру.

Отправлено: 02:33, 18-12-2018 | #7