[AutoIt]ClickMe

« Older   Newer »
  Share  
gabry919191
CAT_IMG Posted on 3/7/2011, 11:34     +1   -1




Oggi vi presento un gioco che feci molto tempo fa :)
Diciamo che è un gioco perditempo xD

Descrizione :
Il programma consiste in un pulsante che si sposta sullo schermo e non si fa prendere, ogni volta che tentate di prenderlo cambia posizione :)

Source sotto licenza GNU General Public License :
CODICE
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>

HotKeySet("!{TAB}", "non_si_bara")

$n1 = Random(100,(@DesktopHeight-100),1)
$n = Random(200,(@DesktopWidth-200),1)

$Form1 = GUICreate("gabry9191", 138, 26, $n, $n1,$WS_POPUP,$WS_EX_TOOLWINDOW)
$Button1 = GUICtrlCreateButton("Click Me", 0, 0, 137, 25, $WS_GROUP)
GUISetState()


While 1
       
       Sleep(100)
       $posizione = MouseGetPos()
       
       if ($posizione[0] < ($n+200) And $posizione[0] > $n)  and ($posizione[1] < ($n1+100) And $posizione[1] > $n1) Then
                       
                       $n1 = Random(100,(@DesktopHeight-100),1)
                       $n = Random(200,(@DesktopWidth-200),1)
                        _guichangeposition($Form1,138, 26, $n, $n1)
                       
       EndIf

       $nMsg = GUIGetMsg()
WEnd

func non_si_bara()

       MsgBox(48,"ClickMe - gabry9191","Non Si Bara!")

EndFunc

func _guichangeposition($GuiName,$GuiW,$GuiH,$X,$Y)
       
       GUIDelete($GuiName)
       $Form1 = GUICreate($GuiName,$GuiW,$GuiH,$X,$Y,$WS_POPUP,$WS_EX_TOOLWINDOW)
       $Button1 = GUICtrlCreateButton("Click Me", 0, 0, 137, 25, $WS_GROUP)
       GUISetState()
       
EndFunc


Edited by gabry919191 - 4/7/2011, 19:50
 
Top
Delbix
CAT_IMG Posted on 3/7/2011, 11:45     +1   -1




ahahahah che figata xD
 
Top
*Sym98*
CAT_IMG Posted on 3/7/2011, 11:53     +1   -1




Bello.
Se non mi ricordo male c'èra un programma simile su Scherzettoni.com. ;)
 
Top
gabry919191
CAT_IMG Posted on 3/7/2011, 13:36     +1   -1




mi fa piacere che vi piaccia :) era un' idea carina che mi è venuta in mente, sono anche poche righe in fin dei conti :)
 
Top
Aaly
CAT_IMG Posted on 3/7/2011, 14:53     +1   -1




Lol, carino.
Dovresti metterci un hotkeyset al tab che lo manda ad una funzione vuota, altrimenti te lo seleziona.
 
Top
gabry919191
CAT_IMG Posted on 3/7/2011, 15:05     +1   -1




CITAZIONE (Aaly @ 3/7/2011, 15:53) 
Lol, carino.
Dovresti metterci un hotkeyset al tab che lo manda ad una funzione vuota, altrimenti te lo seleziona.

teoricamente non basta aggiungere GUICtrlSetState(-1, $GUI_DISABLE) :
CODICE
$Form1 = GUICreate("gabry9191", 138, 26, $n, $n1,$WS_POPUP,$WS_EX_TOOLWINDOW)
$Button1 = GUICtrlCreateButton("Click Me", 0, 0, 137, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

e ovviamente andrebbe messo anche nella funzione ...

però che puoi selezionarlo secondo me è più bello, ti fa innervosire di più xD

Edited by gabry919191 - 3/7/2011, 20:04
 
Top
xMasteRx
CAT_IMG Posted on 3/7/2011, 15:50     +1   -1




bello ora apro teamviewer e lo provo dal mio pc (:
 
Top
*Sym98*
CAT_IMG Posted on 3/7/2011, 16:06     +1   -1




CITAZIONE (xMasteRx @ 3/7/2011, 16:50) 
bello ora apro teamviewer e lo provo dal mio pc (:

Perchè da dove sei connesso?
 
Top
xMasteRx
CAT_IMG Posted on 3/7/2011, 16:30     +1   -1




a sao paulo lol
 
Top
*Sym98*
CAT_IMG Posted on 3/7/2011, 17:07     +1   -1




Ok...
 
Top
LoGiX
CAT_IMG Posted on 4/7/2011, 11:59     +1   -1




LOOOL! Se è quello che penso io è figo asd
(Non l'ho potuto provare, essendo su linux e codando in python)

Una cosa: Se premi tab, e poi Invio/enter, non vale(cioè non funziona), vero?

:trollface:
 
Top
gabry919191
CAT_IMG Posted on 4/7/2011, 13:00     +1   -1




CITAZIONE (LoGiX @ 4/7/2011, 12:59) 
LOOOL! Se è quello che penso io è figo asd
(Non l'ho potuto provare, essendo su linux e codando in python)

Una cosa: Se premi tab, e poi Invio/enter, non vale(cioè non funziona), vero?

:trollface:

non lo so, ma dubito ... penso che tu debba selezionarlo perchè funzioni con tab enter, però non ho provato al massimo setti le hotkey
 
Top
*Sym98*
CAT_IMG Posted on 4/7/2011, 14:51     +1   -1




Io ci ho provato e sono riuscito a cliccarlo. :P
 
Top
gabry919191
CAT_IMG Posted on 4/7/2011, 18:39     +1   -1




CITAZIONE (*Sym98* @ 4/7/2011, 15:51) 
Io ci ho provato e sono riuscito a cliccarlo. :P

no ma così è barare xD va be modifico e setto le hotkey ...

fatto modificato :)
 
Top
*Sym98*
CAT_IMG Posted on 4/7/2011, 19:09     +1   -1




Perchè è barare? Hai scritto anche il regolamento? :D
 
Top
19 replies since 3/7/2011, 11:34   428 views
  Share