Screen Flicker

[BobiusMaximus 0]

Is there a way to make the screen go black for a second with autoit and then come back on?

If there is, please enlighten me as to how

-Bob

Edited December 3, 2006 by BobTheLeetHaxx0r

[Kreatorul 0]

Unplug the monitor's power cord and then plug it back in )) This should do it

[BobiusMaximus 0]

With autoit

*Edits First Post*

-Bob

[Kreatorul 0]

Create a big black gui and put a little sleep

[BobiusMaximus 0]

Create a big black gui and put a little sleep

So there is no function that does it?

[Kreatorul 0]

#include <GuiConstants.au3>

$width = Width of your screen

$height = Height of your screen

GuiCreate("black screen", $width, $height, 0, 0, $WS_POPUP)

GuiSetState()

GuiSetBkColor(000000)

Sleep(1000)

[BobiusMaximus 0]

What if you want to include it in a program, so to come up, then go away, how would you do that?

[Kreatorul 0]

#include <GuiConstants.au3>

Func GoBlack()

$width = Width of your screen

$height = Height of your screen

GuiCreate("black screen", $width, $height, 0, 0, $WS_POPUP)

GuiSetState()

GuiSetBkColor(000000)

Sleep(1000)

EndFunc

And just call the function when you want

[BobiusMaximus 0]

I'm getting confused here, how do you call a function?

-Bob

Edit: Well, I know how to call a function with a hot key, but I just want it to happen during the program.

Edit 2: Actually, I have an idea.

Edit 3: How Do I close it so I can call it again if I want?

Edited December 3, 2006 by BobTheLeetHaxx0r

[Kreatorul 0]

There is something called helpfile but

#include <GuiConstants.au3>

MsgBox(0, "Func", "Now I'm gonna call a function")

GoBlack()

MsgBox(0, "End", "I called a function")

Func GoBlack()
$width = Width of your screen
$height = Height of your screen
GuiCreate("black screen", $width, $height, 0, 0, $WS_POPUP)
GuiSetState()
GuiSetBkColor(000000)
Sleep(1000)
EndFunc

Edited December 3, 2006 by Kreatorul

[theguy0000 2]

there is a way to turn the monitor off then on, and it is used in Office Poltergeist...one moment please.......

[theguy0000 2]

Ok,

put this at the top of your script:

Opt("WinTitleMatchMode", 4)
Global $DllHWND = WinGetHandle("classname=Progman")oÝ÷ Ù8Z¶¬¶(jÛazÚ)N§Êj{¬zØb²Ú-º¹â¶ßjëh×6DllCall("user32.dll", "int", "SendMessage", "hwnd", $DllHWND, "int", 274, "int", 61808, "int", 2)

There you go

Edited December 3, 2006 by theguy0000

[BobiusMaximus 0]

Ok,

put this at the top of your script:

Opt("WinTitleMatchMode", 4)
Global $DllHWND = WinGetHandle("classname=Progman")oÝ÷ Ù8Z¶¬¶(jÛazÚ)N§Êj{¬zØb²Ú-º¹â¶ßjëh×6DllCall("user32.dll", "int", "SendMessage", "hwnd", $DllHWND, "int", 274, "int", 61808, "int", 2)

There you go

Godleh!

Thanks both of you

-Bob

[nitekram 68]

Ok,

put this at the top of your script:

Opt("WinTitleMatchMode", 4)
Global $DllHWND = WinGetHandle("classname=Progman")oÝ÷ Ù8Z¶¬¶(jÛazÚ)N§Êj{¬zØb²Ú-º¹â¶ßjëh×6DllCall("user32.dll", "int", "SendMessage", "hwnd", $DllHWND, "int", 274, "int", 61808, "int", 2)oÝ÷ Ù8^­ì¨º
?ªê-xz0r¶¬Â䱫­¢+Ø(í±­¸Íɸ)=ÁÐ ÅÕ½Ðí]¥¹Q¥Ñ±5Ñ¡5½ÅÕ½Ðì°Ð¤)±½°ÀÌØí±±!]9ô]¥¹Ñ!¹± ÅÕ½Ðí±Í͹µõAɽµ¸ÅÕ½Ðì¤()±±
±° ÅÕ½ÐíÕÍÈÌȹ±°ÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÅÕ½ÐíM¹5ÍÍÅÕ½Ðì°ÅÕ½Ðí¡Ý¹ÅÕ½Ðì°ÀÌØí±±!]9°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÈÜаÅÕ½Ðí¥¹ÐÅÕ½Ðì°ØÄàÀà°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°È¤()M±À ÄÔÀÀÀ¤()±±
±° ÅÕ½ÐíÕÍÈÌȹ±°ÅÕ½Ðì°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÅÕ½ÐíM¹5ÍÍÅÕ½Ðì°ÅÕ½Ðí¡Ý¹ÅÕ½Ðì°ÀÌØí±±!]9°ÅÕ½Ðí¥¹ÐÅÕ½Ðì°ÈÜаÅÕ½Ðí¥¹ÐÅÕ½Ðì°ØÄàÀà°ÅÕ½Ðí¥¹ÐÅÕ½Ð찴Ĥ(oÝ÷ Ø   ݶ¬v¬mzË^u¨v§w
+Çâ®Ëmg¨½êò¢Ø^®Ø¦zØ^±ÊÞz{n®{iÉ()åzË-©÷±ç(Û'z÷«)ݲ¢wÇ­zËbµ©Ý±ç°«mìwb¶+÷Þ­éíy§!¶)!Ƨkzèv綺®¶­s`£¶&Æ6¶Vâ67&VVà¤÷BgV÷CµvåFFÆTÖF6ÖöFRgV÷C²ÂB¤vÆö&Âb33c´FÆÄtäBÒvävWDæFÆRgV÷C¶6Æ76æÖSÕ&övÖâgV÷C² ¤×6t&÷b33²b33²Âb33²b33²Âb33´vöærFòGW&â67&VVâöfbb33²³²F22FRöæÇFffW&Væ6Rââà  ¤FÆÄ6ÆÂgV÷C·W6W#3"æFÆÂgV÷C²ÂgV÷C¶çBgV÷C²ÂgV÷Cµ6VæDÖW76vRgV÷C²ÂgV÷C¶væBgV÷C²Âb33c´FÆÄtäBÂgV÷C¶çBgV÷C²Â#sBÂgV÷C¶çBgV÷C²ÂcÂgV÷C¶çBgV÷C²Â" ¥6ÆVWS ¤FÆÄ6ÆÂgV÷C·W6W#3"æFÆÂgV÷C²ÂgV÷C¶çBgV÷C²ÂgV÷Cµ6VæDÖW76vRgV÷C²ÂgV÷C¶væBgV÷C²Âb33c´FÆÄtäBÂgV÷C¶çBgV÷C²Â#sBÂgV÷C¶çBgV÷C²ÂcÂgV÷C¶çBgV÷C²ÂÓ

[theguy0000 2]

that's wierd...it works every time in office poltergeist...although of course they use variables, but that should make no difference...

here is the func directly from office poltergeist:

func screenFlicker()
  Opt("WinTitleMatchMode", 4)
  $WM_SYSCommand = 274
  $SC_MonitorPower = 61808
  $Power_On = -1
  $Power_Off = 2
  $X = 1
  $HWND = WinGetHandle("classname=Progman")
  DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_Off)
  DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_On)
endFunc

[daslick 1]

or you could use

ON =

DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle("classname=Progman"), "int", 274, "int", 61808, "int", 2)

OFF =

DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle("classname=Progman"), "int", 274, "int", 61808, "int", -1)