WİNDOWS GÖREV YÖNETİCİSİNDEN PROGRAM YÜKLEMEK

 Programınız Görev yöneticisinde yüklü değilse Yükler...

Public Class Form1 Dim ProcessList As System.Diagnostics.Process() Dim Proc As System.Diagnostics.Process Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ProcessList = System.Diagnostics.Process.GetProcesses() For Each Me.Proc In ProcessList ListBox1.Items.Add(Me.Proc.ProcessName) Next Timer1.Interval = 100 Timer1.Start() End Sub 'WİNDOWS GÖREV YÖNETİCİSİNDEN PROGRAM YÜKLEMEK 'Programınız WİNDOWS GÖREV YÖNETİCİSİNDE yüklü değilse (açık değilse) açmak için kod Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick 'write.exe ' If Not Me.Proc.ProcessName = "write.exe" Then Dim ac As String ac = Shell("c:\Windows\write.exe", 1) Timer1.Stop() 'programı bulup çalıştır yoksa her 100 intervalde bir kez daha yükler. Exit Sub End If If Not Me.Proc.ProcessName = "notepad.exe" Then Dim ac As String ac = Shell("c:\Windows\notepad.exe", 1) Timer1.Stop() 'programı bulup çalıştır yoksa her 100 intervalde bir kez daha yükler. End If End Sub End Class