[KTUT][Source][Download] Pozycja myszki

[krystiandj]

<--

Zaczynamy tworząc sobie gui do naszego programu wchodzimy Narzędzia -> Koda(FormDesigner) i ustawiamy sobie sobie tak jak u mnie lub jak tam chcecie. Mój kod wygląda tak:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=e:\autoit\pozycja\myszka.kxf
$Form1_1 = GUICreate("Pozycja myszki", 207, 63, -1, -1, -1, $WS_EX_WINDOWEDGE)
$Button1 = GUICtrlCreateButton("On Top", 120, 3, 59, 20)
$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 32, 93, 17)
$Label2 = GUICtrlCreateLabel("0", 96, 32, 101, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 48, 1201, 17)
$Slider1 = GUICtrlCreateSlider(0, 0, 118, 29)
GUICtrlSetLimit(-1, 250, 30)
GUICtrlSetData ($Slider1,200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Nie ma co tutaj tłumaczyć chyba wszyscy rozumieją ten kod /\

|

 

 

Dalej dodajemy hot key i zmienne globalne (potem się dowiecie do czego one są):

HotKeySet("{F1}","zapisz");Klawisz F1 wywoluje funkcje zapisz
HotKeySet("{end}","ext")
Global $Pozycja
Global $bt=0

Teraz dodajemy pętle główną do naszego programu czyli:

While 1
	WinSetTrans($Form1_1, "", GUICtrlRead($Slider1)) ;tutaj sczytuje z naszego sowaka gdzie jest ustawiony i zmienia przezroczystosc naszego okna

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1 ;tutaj po kliknięciu na przycisk wlacza lub wylacza nam onkno naszego programu na to aby zawsze byl na wierzchu  
			if $bt = 1 Then
				$bt  = 0
				WinSetOnTop ( $Form1_1, "",0)
				GUICtrlSetFont($Button1, 8, 400, "", "MS Sans Serif")
			Else
				$bt  = 1
				WinSetOnTop ( $Form1_1, "",1)
				GUICtrlSetFont($Button1, 8, 400, 6, "MS Sans Serif")

			EndIf

EndSwitch

	$Pozycja = MouseGetPos();zczytuje nam pozycje myszki
    GUICtrlSetData($Label2, $Pozycja[0]&","&$Pozycja[1]);ustawia nam w label2 kordy naszej myszki. $Pozycja[0] to x a $Pozycja[1] to y
	Sleep(100)

WEnd

 

I na koniec funkcję które wywołuje się hotkey :

func zapisz()
	GUICtrlSetData($Label3, "Zapisana pozycja [F1]: "&$Pozycja[0]&","&$Pozycja[1]);pobiera kordy myszki i zapisuje je do Label3
	EndFunc
func ext()
	Exit;wylacza nam program
EndFunc

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=e:\autoit\pozycja\myszka.kxf
$Form1_1 = GUICreate("Pozycja myszki", 207, 63, -1, -1, -1, $WS_EX_WINDOWEDGE)
$Button1 = GUICtrlCreateButton("On Top", 120, 3, 59, 20)
$Label1 = GUICtrlCreateLabel("Pozycja myszki to :", 0, 32, 93, 17)
$Label2 = GUICtrlCreateLabel("0", 96, 32, 101, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Zapisz pozycje [F1] : ", 0, 48, 1201, 17)
$Slider1 = GUICtrlCreateSlider(0, 0, 118, 29)
GUICtrlSetLimit(-1, 250, 30)
GUICtrlSetData ($Slider1,200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}","zapisz")
HotKeySet("{end}","ext")
Global $Pozycja
Global $bt=0
While 1
	WinSetTrans($Form1_1, "", GUICtrlRead($Slider1))

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			if $bt = 1 Then
				$bt  = 0
				WinSetOnTop ( $Form1_1, "",0)
				GUICtrlSetFont($Button1, 8, 400, "", "MS Sans Serif")
			Else
				$bt  = 1
				WinSetOnTop ( $Form1_1, "",1)
				GUICtrlSetFont($Button1, 8, 400, 6, "MS Sans Serif")

			EndIf

EndSwitch

	$Pozycja = MouseGetPos()
    GUICtrlSetData($Label2, $Pozycja[0]&","&$Pozycja[1])
	Sleep(100)

WEnd

func zapisz()
	GUICtrlSetData($Label3, "Zapisana pozycja [F1]: "&$Pozycja[0]&","&$Pozycja[1])
	EndFunc
func ext()
	Exit
EndFunc

Download: www.tdp4.aq.pl/PozycjaMyszki.rar

Skan: https://www.virustotal.com/pl/file/b3f4c07ca15fd8b418646f8066f08f31f4702be8bd754e0788868866f7b0c865/analysis/1369328676/
 

 

Co prawda coś tam wykryło no ale to jest w końcu autoit

[hehe7]

Raczej to powinno być w gotowych a nie w pytaniach. Dorabiasz jakieś przydatne funkcje do tego? Bo to jest jedna z kilku którą otrzymamy w Window Info Autoita

[Keniger]

W sumie ? Komu to potrzebne :X To jest proste jak budowa cepa tyle ci powiem...

[Phoenix_PL]

Nic nie wyjaśniłeś. Dałeś tylko gotowy kod, to nie jest tutorial lecz gotowiec. Moim zdaniem nie nadaje się do konkursu.

Dalej dodajemy hot key i zmienne globalne (potem się dowiecie do czego one są):

Gdzie to wyjaśniłeś?

 

Definitywne nie. Jeszcze kij że programik malutki, ale takim tutem na 100% nie wygrasz konkursu.

[krystiandj]

Dobra macie racje można wywalić ten temat