flackernden Bildschirm machen mit AutoIT

11/14/2011 18:37 MoingMoing#1
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? :confused: kenn mich mit AutoIT noch nicht so aus :D
11/14/2011 19:03 lolkop#2
erstmal wird sowas hier denke ich nicht unterstützt, und zweitens solltest du dir mal die syntax von autoit angucken...
11/14/2011 20:42 .Infinite#3
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...
11/14/2011 23:06 Njahs#4
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 [Only registered and activated users can see links. Click Here To Register...]
11/14/2011 23:29 butter123#5
error: kennt _ToggleMonitor nicht, fehlt warscheinlich ein include

edit: komischerweise wird dafür nur #Include <SendMessage.au3> benötigt... fehler muss also woanders liegen^^
11/15/2011 21:37 BlackHybrid#6
Oder man entfernt einfach den Schreibfehler bei _ToggleMontitor($hWnd,$on)
11/16/2011 09:13 butter123#7
oder das :D

jetzt wird bei mir der bildschirm aber nur dunkel und nciht wieder hell^^ mit dem resultat, dass ich den pc neustarten musste xD
11/16/2011 13:13 BlackHybrid#8
Oder man überfliegt vorher das Script und schaut, ob es einen Hotkey gibt um das Script zu beenden.
11/16/2011 17:39 butter123#9
wie ich geschrieben habe, wurde das skript nicht hell, weder beim flackern noch beim beenden...
11/17/2011 14:45 Njahs#10
Quote:
Originally Posted by butter123 View Post
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
11/17/2011 16:50 lolkop#11
Quote:
Originally Posted by Njahs View Post
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
11/17/2011 19:07 _.-°Turner°-._#12
sry aber der script von dir is groér müll :) machs so wie [Only registered and activated users can see links. Click Here To Register...]
11/17/2011 19:53 lolkop#13
Quote:
Originally Posted by _.-°Turner°-._ View Post
sry aber der script von dir is groér müll :) machs so wie [Only registered and activated users can see links. Click Here To Register...]
wäre nett wenn du uns erleuchtest, und versuchst dich so zu artikulieren, dass auch andere deinen gedankengängen folgen können.