Proces blokkeren?

[NeedForSpeed]

Hallo,

Ik zoek een VB code voor 2008, die een process opzoekt en daarna afsluit elke minuut.
Ofja een code die een process afsluit als hij runt.

Als iemand hier een iets voor heeft hoor ik het wel

Alvast bedankt.

Mvg,
Daemon.

 

[The Mighty Atom]

Plaats een Timer op het form of maak een Timer object aan door middel van code:

Dim Klokje As New Timer

Zet de interval op 60000 (1000 miliseconde = 1 seconde dus 60000 miliseconde = 60 seconde oftewel 1 minuut)

Klokje.Interval = 60000

Als je je timer via code maakt, moet je deze code plaatsen zodat je het Tick event kan gebruiken:

AddHandler Klokje.Tick, AddressOf Klokje_Tick

Onder het Tick event van de timer:

Private Sub Klokje_Tick
If Not Process.GetProcessesByName("naam_van_process_hier").Length = 0 Then
                        naam_van_process_hier.Kill()
End If
End Sub

Dat moet werken.

 

[NeedForSpeed]

Ik heb nu dit:

       Private Sub Klokje_Tick()
        If Not Process.GetProcessesByName("Cheat Engine").Length = 0 Then
            Cheat Engine.Kill()
        End If

Hij zegt;

Cheat Engine is not declared maar de process is ook met een spatie hoe repareer ik dat ?

 

[The Mighty Atom]

Rofl, er klopt geen hout van de code die ik gaf, deze moet wel werken:

        If Not Process.GetProcessesByName("cheat engine").Length = 0 Then
            Dim Proc() As Process = Process.GetProcessesByName("cheat engine")
            For Each p As Process In Proc
                p.Kill()
            Next
        End If

 

[NeedForSpeed]

Dim Klokje As New Timer
        Klokje.Interval = 7500
        AddHandler Klokje.Tick, AddressOf Button1_Click
        If Not Process.GetProcessesByName("cheat engine").Length = 0 Then
            Dim Proc() As Process = Process.GetProcessesByName("cheat engine")
            For Each p As Process In Proc
                p.Kill()

Nu werkt hij, alleen heb ik hem ingesteld op 7,5 seconden maar hij sluit hem niet na 7,5 seconden....
Ik wil dat hij elke 7,5 seconden checkt of hij aanstaat..

Hoe kan dit niet werken timer ding is ook added op form.

 

[The Mighty Atom]

Je moet de code dat begint met If Not Process en eindigd met End If wel onder het Klokje_Tick event zetten, niet onder Button1_Click.

Even voor de duidelijkheid:

Plaats het volgende onder datgene dat de timer laat starten:

Dim Klokje As New Timer
 Klokje.Interval = 7500
        AddHandler Klokje.Tick, AddressOf Klokje_Click

Dan maak je een Private Sub aan:

Private Sub Klokje_Tick
        If Not Process.GetProcessesByName("cheat engine").Length = 0 Then
            Dim Proc() As Process = Process.GetProcessesByName("cheat engine")
            For Each p As Process In Proc
                p.Kill()
            Next
        End If
End Sub

Je moet dus niet al die code onder één event zetten.

 

[NeedForSpeed]

Ja maar nu heb ik dan

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    End Sub

Dan wil ik als ik zeg maar op die button klikt hij die commando uitvoert.

Hoe moet dat?

 

[NeedForSpeed]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1_Tick(Nothing, Nothing)
        Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Klokje As New Timer
        Klokje.Interval = 7500
        AddHandler Klokje.Tick, AddressOf Klokje_Tick
    End Sub

    Private Sub Klokje_Tick()
        If Not Process.GetProcessesByName("cheat engine").Length = 0 Then
            Dim Proc() As Process = Process.GetProcessesByName("cheat engine")
            For Each p As Process In Proc
                MsgBox("Error1: Illegal program running on background.", vbExclamation, "Error 1")
                p.Kill()
                Hide()
            Next
        Else
            Close()
        End If
    End Sub
End Class

Dit is mijn totale code en tog pakt hij hem niet ..

Het probleem is ik wil een process helemaal verbieden op te starten als dit process aan staat hoe doe ik dat? want met dit kun je makkelijk de programma een andere .exe naam geven en kan hij starten..

 

[The Mighty Atom]

Ik ben bang dat ik je niet verder kan helpen. Google search geeft alleen maar informatie over het starten en stoppen van een process, niet hoe je een process geheel kan blokkeren.

 

[NeedForSpeed]

Gevonden ik had nog ff

Timer.start

Moeten toevoegen.

Bedankt.