Shocker.ProkingarthyrShocker.Prokingarthyr,

ты за учебу платишь или получаешь стипендию?

плачу
Ну и замечательно, почему ты за свою якобы учебу платишь, а якобы свой диплом хочешь бесплатно получить?

потому что время осталось до завтра мне за это время не кто его делать не собираться
если есть у кого готовое то можно купить но не за большие деньги

Shocker.Pro,

смейся, мне не до смеха, ты не знаешь какого мне

я сперва хотел написать в vb.net по коду

Public Module processKillTest
Public Sub Main()
'могут выполняеться несколько экземпляров Excel,
'поэтому мы используем массивю
Dim proc, processes() As Process
processes = Process.GetProcessesByName("excel")
For Each proc In processes
'попытка закрытия окна. если имеються несохраненные документы
'excel,появиться окно, предлогающее сохранить изменения.
proc.CloseMainWindow()

'ожедание до 30 сек.
proc.WaitForExit(30000)

'если процесс еще работает, он "убиваеться".
If Not proc.HasExited Then
proc.Kill()
Console.WriteLine("application was terminated forcibly.")
Else
Console.WriteLine("application ended peacefully.")
End If
Next
Console.ReadLine()
End Sub

End Module

Public Module ProcessInfoTest

Public Sub main()
Dim Proc As Process
'получение текущего процесса по его имени. вместо этого
'можно было бы использовать метод getCurrentProcrss().
Proc = Process.GetProcessesByName("ConsoleApplication1")(0)

Console.WriteLine("Start time: " & Proc.StartTime.ToString())
Console.WriteLine("Memory use: " & Proc.PagedMemorySize.ToString())
Console.WriteLine("Number of threads: " & Proc.Threads.Count)
Console.WriteLine("Executable file: " & Proc.MainModule.FileName)
Console.WriteLine("Responding: " & Proc.Responding.ToString())
'отображение имен модулей, загруженных данным прцессом.
Console.WriteLine("loaded modules:")
Dim procmodule As ProcessModule

For Each procmodule In Proc.Modules
Console.WriteLine(" " & procModule.FileName)
Next

Console.ReadLine()
End Sub
End Module
Public Class ProcessViewForm
Inherits System.Windows.Forms.Form

'(Код, сгенерированный дизайнером Windows, опущен.)

Private Sub ProcessViewForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
grydprocesses.DataSource = System.Diagnostics.Process.GetProcesses()
End Sub

End Class


grydprocesses ошибка

Игорь Горбонос,

хотел научиться но вы бы знали как нас учат

Shocker.Prokingarthyrхотел научиться но вы бы знали как нас учат
Учат тебя так, как ты сам хочешь учиться. Кто хотел, того выучили, я тебя уверяю, и от ВУЗ-а это зависит не так сильно, как ты хочешь показать

это техникум

kingarthyrя сперва хотел написать в vb.net по коду

Public Module processKillTest
Public Sub Main()
'могут выполняеться несколько экземпляров Excel,
'поэтому мы используем массивю
Dim proc, processes() As Process
processes = Process.GetProcessesByName("excel")
For Each proc In processes
'попытка закрытия окна. если имеються несохраненные документы
'excel,появиться окно, предлогающее сохранить изменения.
proc.CloseMainWindow()

'ожедание до 30 сек.
proc.WaitForExit(30000)

'если процесс еще работает, он "убиваеться".
If Not proc.HasExited Then
proc.Kill()
Console.WriteLine("application was terminated forcibly.")
Else
Console.WriteLine("application ended peacefully.")
End If
Next
Console.ReadLine()
End Sub

End Module

Public Module ProcessInfoTest

Public Sub main()
Dim Proc As Process
'получение текущего процесса по его имени. вместо этого
'можно было бы использовать метод getCurrentProcrss().
Proc = Process.GetProcessesByName("ConsoleApplication1")(0)

Console.WriteLine("Start time: " & Proc.StartTime.ToString())
Console.WriteLine("Memory use: " & Proc.PagedMemorySize.ToString())
Console.WriteLine("Number of threads: " & Proc.Threads.Count)
Console.WriteLine("Executable file: " & Proc.MainModule.FileName)
Console.WriteLine("Responding: " & Proc.Responding.ToString())
'отображение имен модулей, загруженных данным прцессом.
Console.WriteLine("loaded modules:")
Dim procmodule As ProcessModule

For Each procmodule In Proc.Modules
Console.WriteLine(" " & procModule.FileName)
Next

Console.ReadLine()
End Sub
End Module
Public Class ProcessViewForm
Inherits System.Windows.Forms.Form

'(Код, сгенерированный дизайнером Windows, опущен.)

Private Sub ProcessViewForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
grydprocesses.DataSource = System.Diagnostics.Process.GetProcesses()
End Sub

End Class


grydprocesses ошибка
не объявлено

Игорь Горбонос,

а как познал программисту?

Konst_Oneвот админка рабочая через WMI

а кто нибудь смотрел эту программу

а язык VBScript че6рез какую программу можно прописать

Konst_Oneвот админка рабочая через WMI

чтота я не пойму что надо вводить в верхнии окошки