Sobald ihr die .exe ausführt werden im Zeitabstand von 500 Millisekunden kleine SuggestionsTexte in sich ändernder Farbe, Schriftart und Schriftgröße auf euer Bildschirm geschrieben. Der Text bleibt immer im Vordergrund.
Da die Form komplett transparent ist, kann nebenbei weitergearbeitet/Filme geschaut^^ werden.
Aufgrund der kurzen Zeitspanne hat euer Bewusstsein keine Chance eine Negation zu erstellen. Der Text wandert sozusagen direkt in das Unterbewusstsein (soweit die Theorie).
Einfach nebenbei laufen lassen.
Eine Liste der verwendeten Suggestionen könnt ihr dem Sourcecode entnehmen.
Beenden lässt sich das Programm indem ihr es in der Taskleiste auswählt und ESC drückt.
Edit: Das Programm lässt sich auch mehrfach starten, dann wirds bunt auf dem Desktop
. Nicht zu empfehlen für Epileptiker.
Würde mich sehr über weitere Tipps/Suggestionen freuen um es noch zu verbessern.
Hier die fertige Sublime.exe (nicht sehr einfallsreich der Name, ich weiss ^^):
[External Link Removed for Guests]
Und hier der Source Code (Visual Basic mit Visual Studio):
Public Class Form1
Dim sätze() As String = {"Heute Nacht habe ich einen Klartraum", "Ich erkenne wenn ich träume", "Ich erinnere mich an meine Träume", "Klarträumen", "Alle meine Klarträume sind stabil", "Ich erlange Bewusstsein im Unterbewusstsein", "Ich mache einen Realitätscheck", "Meine Klarträume sind wunderbar", "Ich nutze im Traum alle meine Sinne", "Ich kann jede Nacht klar träumen", "Ich bin ein Klarträumer", "Das ist ein Traum", "Hey Träumer, werde bewusst", "Ich habe eine gute Traumerinnerung!", "Ich erlange Klarheit in meiner Traumwelt"}
Dim farbe() As String = {"Green", "Red", "Blue", "Yellow", "White", "Silver", "Orange", "Violet", "Gold"}
Dim schrift() As String = {"Arial", "Calibri", "Comic Sans MS", "DejaVu Serif", "Segoe Print", "Segoe Script", "Liberation Sans"}
Dim c As Color
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TopMost = True
Timer1.Interval = 500
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.TopMost = True
Dim rnd As New Random()
Label1.Location = New Point(rnd.Next(0, (Me.Size.Width - (Me.Size.Width / 3))), rnd.Next(0, Me.Size.Height))
c = Color.FromName(farbe(rnd.Next(0, 9)))
Label1.ForeColor = c
Label1.Font = New Font(schrift(rnd.Next(0, 7)), rnd.Next(10, 30), FontStyle.Regular)
Label1.Text = sätze(rnd.Next(0, 15))
End Sub
Private Sub Form_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If (e.KeyCode = Keys.Escape) Then
Me.Close()
End If
End Sub
End Class
.