Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 22nd, 2012  |  syntax: None  |  size: 0.42 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. HotKeySet("{ESC}", "_Ende")
  2.  
  3. While 1
  4.    $color = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xFFFFFF)
  5.    If $color = 0xFFFFFF Then
  6.           MsgBox(0, "", "Farbe wurde gefunden")
  7.           Exit
  8.    Else
  9.    EndIf
  10. WEnd
  11.  
  12. Func _Ende()
  13.    Exit
  14. EndFunc
  15.  
  16. ; Es soll nach der Farbe 0xFFFFFF gesucht werden. Wenn diese gefunden wurde soll eine MsgBox erscheinen.
  17. ; Aber die Box erscheint nicht, auch wenn eine Weiße Farbe gefunden wurde.
create a new version of this paste RAW Paste Data