- Код: Выделить всё
Dim Process As Process()
Dim z As Integer
z = -1
Do Until z = 0
Process = Process.GetProcessesByName("MojProcess")
z = UBound(Process)
Loop
ОЧЕНЬ нагружает проц.
Dim Process As Process()
Dim z As Integer
z = -1
Do Until z = 0
Process = Process.GetProcessesByName("MojProcess")
z = UBound(Process)
Loop
gaidar писал(а):Почитайте в MSDN про BeginInvoke, Invoke, EndInvoke методы.
Function Invoke( _
ByVal method As Delegate, _
ByVal args() As Object _
) As Object
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 77