[Problem] Problem ze skryptem

[.old]

Siema. Napisałem oto skrypt:

 

HotKeySet("t", "skrypt")

Func skrypt()
Sleep(50)
Send("t")
Sleep(50)
Send("testowa wiadomosc")
EndFunc

While 1
sleep(1000)
WEnd

Jakie zaplanowałem działanie skryptu: Zrobiłem HotKey, który jak klinę literę "t" to włączy się skrypt(). W skrypt() ma kliknąć literę t, napisać "testowa wiadomosc" i tak za kazdym razem. Czyli kliknę po chwili "t" i znów skrypt będzie działać. Te While 1 zrobiłem, by skrypt nie wyłączył się bo bez tego się wyłącza.

 

A działa to tak: Klikam "t" i nic się nie dzieje. Nie wiem też co jest źle, bo sprawdziłem i wszystkie funkcje dobrze są. Pomożecie?

[JestemPolakiem]

sleep 50 to za mało, i nie lepiej zrobić pętle np. for $zmienna i dać to pod inputa ?

sleep 50 = 0.05 sec

sleep 5000 = 5 sec

więć daj tam sleep min. 1000.

[Zkumeku]

Siema. Napisałem oto skrypt:

 

HotKeySet("t", "skrypt")

Func skrypt()
Sleep(50)
Send("t")
Sleep(50)
Send("testowa wiadomosc")
EndFunc

While 1
sleep(1000)
WEnd

Jakie zaplanowałem działanie skryptu: Zrobiłem HotKey, który jak klinę literę "t" to włączy się skrypt(). W skrypt() ma kliknąć literę t, napisać "testowa wiadomosc" i tak za kazdym razem. Czyli kliknę po chwili "t" i znów skrypt będzie działać. Te While 1 zrobiłem, by skrypt nie wyłączył się bo bez tego się wyłącza.

 

A działa to tak: Klikam "t" i nic się nie dzieje. Nie wiem też co jest źle, bo sprawdziłem i wszystkie funkcje dobrze są. Pomożecie?

 

Lepiej będzie tak:

 

#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")

While 1
	Sleep(100)
	If _IsPressed(54, $hDLL) Then
		funkcja()
	EndIf
WEnd

Func funkcja()
	Send("t")
	Sleep(50)
	Send("testowa wiadomosc")
EndFunc

[Ballas]

HotKeySet("{t}", "skrypt")
 
Func skrypt()
Sleep(50)
Send("t")
Sleep(50)
Send("testowa wiadomosc")
EndFunc
 
While 1
sleep(1000)
WEnd

Zapomniałeś o "{ }" w Hotkeyu.

@UP IsPressed to zuo.

@Edit Sprawdziłem dopiero teraz, i stwierdzam że HotKeySet to też zuo, jeśli w sendzie znajdzie się litera z hotkeya to się zapętli.

[Zkumeku]

 

HotKeySet("{t}", "skrypt")
 
Func skrypt()
Sleep(50)
Send("t")
Sleep(50)
Send("testowa wiadomosc")
EndFunc
 
While 1
sleep(1000)
WEnd

Zapomniałeś o "{ }" w Hotkeyu.

@UP IsPressed to zuo.

 

A sprawdzałeś to co mu dałeś? Bo ja wątpię. _IsPressed jest bardzo wygodny, a zerknąć na kod klawisza trudno nie jest.

[Ballas]

#include <Misc.au3>
$i = 0
Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed(54, $hDLL) Then
        Tooltip($i)
        $i += 1
    EndIf
WEnd

Polecam sprawdzić przyciskiem T, ile razy pojawi się tooltip.

Wszystko wtedy zależy od "kalibracji" sleepem, co jest głupim sposobem.

Można też zrobić tak:

 

 

#include <Misc.au3>
$i = 0
Local $hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed(54, $hDLL) Then
        Tooltip($i)
		$i += 1
		Do
		   $return = _IsPressed(54, $hDLL)
	    Until $return = 0
    EndIf
WEnd

 

 

[.old]

 

 

Lepiej będzie tak:

 

#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")

While 1
	Sleep(100)
	If _IsPressed(54, $hDLL) Then
		funkcja()
	EndIf
WEnd

Func funkcja()
	Send("t")
	Sleep(50)
	Send("testowa wiadomosc")
EndFunc

 

Działa jak powinno, dziękuję Jednak jeśli mógłbyś mi jeszcze coś dodać tzn. program mi jest potrzebny do gry Minecraft i już wyjaśniam co tam ma być. Chcę zrobić, że gdy kliknę "t" to napisze mi tag koloru np. "&0". (to już mam) Jednak nie przewidziałem tego, że za każdym razem (również gdy piszę wiadomość na chacie) zrobi mi znów &0, a tego już bym nie chciał. Myślałem nad tym i tylko do głowy przychodzi mi wykorzystanie PixelSearch. Ale dalej już nie wiem :C