Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Q As Process() = Process.GetProcessesByName("Nksp")
If Not Q.Length = 0 Then
Memory.Writememory(Q(0), "&H02489370", TextBox1.Text, "4")
Memory.Writememory(Q(0), "&H024899BC", TextBox1.Text, "4")
Memory.Writememory(Q(0), "&H1DC5974C", TextBox1.Text, "4")
Else
MsgBox("Der Prozess nksp.exe wurde nicht gefunden!")
End If
End Sub