Arraybereichs

[DNA]

Moin,

also ... beim drücken einer Taste soll Checkbox1.Checked = True sein,
funktioniert bei mir ohne Probleme

Bei deinem Projekt, wird alle 100millisekunden der Wert 0/1 in den Speicher
geschrieben, was eigentlich unnötig ist, da es reicht, wenn man den Wert
1mal schreibt

Dein Fehler ist folgender:

Code:

1 2 3 4 5 6 7 8 9

Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick Dim p As Process() = Process.GetProcessesByName("solitaire") Memory.Writememory(p(0), &H6464990, "0", "4") End Sub Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick Dim p As Process() = Process.GetProcessesByName("solitaire") Memory.Writememory(p(0), &H6464990, "1", "4") End Sub

---

Dein Trainer versucht einfach in den Prozess zu schreiben, ohne zu wissen,
ob der Prozess läuft, oder nicht.
Wenn der Prozess nicht läuft, weiß dein Trainer nicht was er machen soll und dann
schmeißt er den Fehler.
Du musst also, bevor du den Wert schreibst, überprüfen, ob der Prozess läuft, oder nicht

Versuch es mal so:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick Dim Open = Process.GetProcessesByName(ProcName) If Open.Length = 0 Then Exit Sub End If Dim p As Process() = Process.GetProcessesByName("solitaire") Memory.Writememory(p(0), &H6464990, "0", "4") End Sub Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick Dim Open = Process.GetProcessesByName(ProcName) If Open.Length = 0 Then Exit Sub End If Dim p As Process() = Process.GetProcessesByName("solitaire") Memory.Writememory(p(0), &H6464990, "1", "4") End Sub

---

ProcName musst du natürlich gegen den Prozessnamen tauschen,
sollte aber funktionieren.