23-10-12, 02:44 PM
24-10-12, 04:55 PM
تم عمل الكود على الاله الحاسبه
كود :
Module Module1
Sub Main()
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("Please wait ....... ")
Dim prosc() As Process = System.Diagnostics.Process.GetProcessesByName("calc")
For Each ii In prosc
Dim ch As Boolean = prosc.Length
If ch = True Then
Console.Clear()
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Opened !!!")
End If
Next
Console.ReadLine()
End Sub
End Module