Opposite

[erifash]

Hey, I was experimenting with opposite movement and found this example I made to be quite amusing.

Just click the button or press escape to exit.

#include <GUIConstants.au3>

HotkeySet("{ESC}", "myexit")

$gui = GUICreate("mirror", @DeskTopWidth + 5, @DesktopHeight, 0, 0, $WS_EX_TOPMOST + $WS_BORDER + $WS_POPUP, $WS_EX_TOOLWINDOW)
$b1 = GUICtrlCreateButton("", -20, -20, 20, 20)

GUISetState()

WinSetOnTop("mirror", "", 1)
GUISetBkColor(0xBBBBBB, $gui)

While 1
  $msg = GUIGetMsg()
  $pos = MouseGetPos()
  ControlMove("mirror", "", $b1, @DesktopWidth - $pos[0], @DesktopHeight - $pos[1])
  If $msg = $b1 Then Exit
  Sleep(10)
Wend

Func myexit()
  Exit
EndFunc

Any questions / comments would be greatly appreciated!

[zcoacoaz]

lol thats awesome

you could probably even turn this into a game with levels and stuff, you get points depending on how fast you beat each level, level 1 has 1 button, level 2 has 2 buttons, etc

Edited February 16, 2005 by Xenogis

[CyberSlug]

Replace $b = GuiCtrlCreateButton... with the following

DllCall("user32.dll", "int", "ShowCursor", "int", 0);HIDE CURSOR
$b1 = GuiCtrlCreateIcon(@WindowsDir & "\Cursors\arrow_m.cur", 0, 32, 32, 32, 32);fake cursor
MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1);center the cursor

Let me know if it works for you

Edited February 16, 2005 by CyberSlug

[zcoacoaz]

thats funny CyberSlug

Edited February 16, 2005 by Xenogis

[ioliver]

Great job to the both of you.

Ian

[layer]

THATS REALLY NEAT!!!!!!! sry for the caps, its a hotkey for ventrilo

[ovoid]

Simple but nice! I give u max mark because my little daugher find it very funny!