[malder72]

Почему? Религия не позволяет? Вам шашечки или ехать?

мне легче скрипт кинуть в автозагрузки и не париться. Ладно, всем спасибо большое, тему можно считать закрытой.

[Iska]

без паузы »

А вот в это не верю. Есть там пауза в три секунды. Даже две.

и только один раз без зацикливания. »

Это просто болванка кода. Если отрабатывает — правьте, как Вам угодно. Блокировка кнопки лотка по-прежнему под вопросом.

у меня все работает как мне надо. »

Не поделитесь глобальным замыслом — зачем?

[malder72]

А вот в это не верю. Есть там пауза в три секунды.

Ну для меня это не пауза, для меня пауза 2 часа.

Это просто болванка кода. Если отрабатывает — правьте, как Вам угодно. Блокировка кнопки лотка по-прежнему под вопросом.

Весь прикол в том, что в не программист и в этой теме у меня знаний мало. Я прямо попросил написать код для меня.

Не поделитесь глобальным замыслом — зачем?

Вы там сидите? Инкубатор-горизонтальное перекатывание яиц.

[Iska]

Ну для меня это не пауза, для меня пауза 2 часа. »

Ну, поставьте два часа:

Код:

WScript.Sleep 1000 * 60 * 60 * 2

Весь прикол в том, что в не программист и в этой теме у меня знаний мало. Я прямо попросил написать код для меня. »

Ну, худо-бедно как-то понадобится ознакомиться хотя бы с основами, дабы примерно представлять, что именно делает код. Я так думаю.

Вы там сидите? Инкубатор-горизонтальное перекатывание яиц. »

Нормально.

Ну, коль у Вас этот код работате, тогда Вам вот такая болванка примерно:

Код:

Option Explicit

Dim objDiscMaster


Set objDiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")

If objDiscMaster.IsSupportedEnvironment Then
	If objDiscMaster.Count > 0 Then
		With WScript.CreateObject("IMAPI2.MsftDiscRecorder2")
			.InitializeDiscRecorder objDiscMaster.Item(0)
			
			Do
				.EjectMedia
				WScript.Sleep 1000 * 60 * 60 * 2
				
				.CloseTray
				WScript.Sleep 1000 * 60 * 60 * 2
			Loop
		End With
	End If
End If

Set objDiscMaster = Nothing

WScript.Quit 0

Будет «дёргать» туда-сюда каждые два часа первый по списку накопитель. А вот блокировать — увы, только WinAPI.

Хотя, знаете что… Вы можете об этом попросить в соседнем разделе AutoIt или в сообществе Русское сообщество AutoIt - Главная страница, там Вам сделают готовый исполняемый файл с потребным полным функционалом.