[aBBat2]

http://shot.qip.ru/00fCB9-51a7On1cZv/
http://shot.qip.ru/00fCB9-61a7On1cZw/
примерно так машина видит , соединено через 1 юсб кабель

[aBBat2]

а для скрипта нельзя задать таймаут в запуске ? Предложенную программу я пробовал в ней не получится реализовать то что мне надо , она для других задач.

[aBBat2]

Я не много не это имел ввиду , паузу перед запуском каждого экземпляра программы , а не единая пауза перед запуском всех 32

[Iska]

примерно так машина видит , соединено через 1 юсб кабель »

Как снаружи — это то понятно. Собственно, интересно, как это выглядит изнутри. Полагаю, что либо так организован сам обмен, либо это приложение «easyport» так работает, что либо одномоментно возможен доступ только одному приложению, либо «easyport» совсем не делает попыток ожидания освобождения порта — почему я, собственно, и советовал попробовать поиграться с «waitport».

а для скрипта нельзя задать таймаут в запуске ? »

Поймите, задать сделать можно всё почти всё, если «крутить в руках достаточно долго». Вопрос в том, как гарантированно обеспечить бесперебойную работу. А вот этого мы и как раз не сможем сделать, поскольку не видим/не знаем, как оно там работает изнутри, а видим только внешние проявления.

Я бы Вам порекомендовал напрямую связаться с разработчиком «easyport» и «потеребить» непосредственно его на эту тему.

Я не много не это имел ввиду , паузу перед запуском каждого экземпляра программы , а не единая пауза перед запуском всех 32 »

Да без разницы. Я же сказал — просто вставьте «WScript.Sleep», например:

Код:

Option Explicit

Dim objFSO

Dim i
Dim strPath


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With WScript.CreateObject("WScript.Shell")
	.Run "%SystemRoot%\notepad.exe"
	WScript.Sleep 1000
	
	For i = 1 To 32
		strPath = "G:\работа\easyport\32 изи порта\easyport" & CStr(i) & ".exe"
		
		If objFSO.FileExists(strPath) Then
			.Run """" & strPath & """ oper ""USSD1""", 1, False
			
			WScript.Sleep 100 ' 100 миллисекунд
		Else
			WScript.Echo "Can't find file [" & strPath & "]."
		End If
	Next
End With

Set objFSO = Nothing

WScript.Quit 0

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

[aBBat2]

В общем запустив waitport v 1.6 в функциях появилось автоопределение портов и почему то оно ограничено только 9 портам с 1 по 9
Вот они у меня и запускались при общем запуске и так же через пуск=выполнить ...
поставил таймаут 2500 милисекунд и в итоге в один момент времени получалось не больше 9 экземпляров программы ( пока открывалась 9 экземпляр первый уже выполнял функцию и закрывался ) и весь цикл прошел без ошибок .

Проблема решена , это связано с тем что больше 9 портов разрывали программе мозг .
Большой спасибо за помощь в решении задачи , дополнительная пауза действительно помогла

Если нужна будет помощь в моей сфере обращайтесь всегда помогу .
icq 18050000

[Iska]

А какая у Вас сфера?

[aBBat2]

Активации , регистрации в общем любые сервисы где нужны телефонные номера .

[Iska]

aBBat2, спасибо, ясно. У меня нет мобильного телефона .