flackernden Bildschirm machen mit AutoIT

[MoingMoing]

Hey leute, ich möchte eine kleine "verarsche" für meine Freunde mit AutoIT machen und hab bisher folgenden Script:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Program Files (x86)\alaplaya\S4League\S4League.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

HotKeySet("{F7}", "Ende")

Func Ende ()

While 1

Exit
WEnd

EndFunc

While 1
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
CDTray("E:","open")
MsgBox(0, "Ein Fehler ist aufgetreten.", "Windows wird wegen eines Fehlers heruntergefahren." & @CRLF & @CRLF & "Oder ich hab dich grad voll verarscht!!! ;-P",2)
Shutdown(6)
WEnd

Shutdown(6)

Exit

Ich möchte aber auch noch hinzufügen, dass der Bildschirm heftig flackert. Aber welches Script brauche ich dafür? kenn mich mit AutoIT noch nicht so aus

[lolkop]

erstmal wird sowas hier denke ich nicht unterstützt, und zweitens solltest du dir mal die syntax von autoit angucken...

[.Infinite]

Lern erstmal AutoIt und hör auf son scheiß zu machen!

@topic (auch wenns lächerlich ist):
Für flackern entweder GDI+ benutzen oder einfach ein Bild im Vollbild schnell hintereinander anzeigen lassen und wieder schließen...

[Njahs]

versuchs mal mit

PHP Code:

#include <SendMessage.au3> 
    Local Const $Off = 2, $On = -1 

While 1 
    hotkeyset ("!s","_Beenden")
        Opt("WinTitleMatchMode", 4) 
        $hwnd = WinGetHandle('classname=Progman') 
        _ToggleMonitor ($hWnd, $Off)
        Sleep (100)
        _ToggleMonitor($hWnd, $On) 
WEnd 

Func _ToggleMonitor($hwnd, $OnOff) 
    Local Const $WM_SYSCOMMAND = 274 
    Local Const $SC_MONITORPOWER = 61808 
    _SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER,     $OnOff) 
Endfunc 
     
Func _Beenden() 
    Exit 
    _ToggleMontitor($hWnd,$on) 
Endfunc 


(nicht getestet)
Edit:// Nicht diesen script benutzen! Siehe

[butter123]

error: kennt _ToggleMonitor nicht, fehlt warscheinlich ein include

edit: komischerweise wird dafür nur #Include <SendMessage.au3> benötigt... fehler muss also woanders liegen^^

[BlackHybrid]

Oder man entfernt einfach den Schreibfehler bei _ToggleMontitor($hWnd,$on)

[butter123]

oder das

jetzt wird bei mir der bildschirm aber nur dunkel und nciht wieder hell^^ mit dem resultat, dass ich den pc neustarten musste xD

[BlackHybrid]

Oder man überfliegt vorher das Script und schaut, ob es einen Hotkey gibt um das Script zu beenden.

[butter123]

wie ich geschrieben habe, wurde das skript nicht hell, weder beim flackern noch beim beenden...

[Njahs]

Originally Posted by butter123

wie ich geschrieben habe, wurde das skript nicht hell, weder beim flackern noch beim beenden...

^this O_o sry :P
habe es gerade auch erst gemerkt... und funzt iwie nicht

PHP Code:

#include <SendMessage.au3>

HotkeySet ("^s","_Beenden")

While 1
_Main()
WEnd

Func _Main()
    Local Const $Off = 2, $On = -1
    
    Opt("WinTitleMatchMode", 4)
    $hwnd = WinGetHandle('classname=Progman')
    _ToggleMonitor($hWnd, $Off)
    Sleep ( 3000 )
    _ToggleMonitor($hWnd, $On)
EndFunc

Func _ToggleMonitor($hwnd, $OnOff)
    Local Const $WM_SYSCOMMAND = 274
    Local Const $SC_MONITORPOWER = 61808
    _SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
EndFunc

Func _Beenden() 
    _ToggleMonitor($hWnd,$On) 
    Exit 
Endfunc 


Sollte funktionieren :P

[lolkop]

Originally Posted by Njahs

Func _Main()
Local Const $Off = 2, $On = -1
$hwnd = WinGetHandle('classname=Progman')
EndFunc

Func _Beenden()
_ToggleMonitor($hWnd,$On)
Exit
Endfunc

ohne sich mit dem programm an sich auseinander zu setzen, fällt hier sofort beim betrachten auf, dass der compiler wohl keine freude darann haben wird :P

[_.-°Turner°-._]

sry aber der script von dir is groér müll machs so wie

[lolkop]

Originally Posted by _.-°Turner°-._

sry aber der script von dir is groér müll machs so wie

wäre nett wenn du uns erleuchtest, und versuchst dich so zu artikulieren, dass auch andere deinen gedankengängen folgen können.