15 odpowiedzi w tym temacie

[Swirek14]

Siema. Mam taki maly problem w Delphi. Chcialbym aby np. po zaznaczeniu checkboxa program klikal mi co 10 sekund albo caly czas szybko klikal odpowiedni klawisz np. Ctrl. Prosze o szybka porade.

Dzieki

[Acanther]

A klikal by to w jakims programie/grze czy na windowsie ?

[Swirek14]

Grze, ale chyba jak klika na windowsie to tez w grze bedzie klikalo mi sie wydaje

[Acanther]

No chyba jest roznica czy ci klika np. DEL na pulpicie a w grze nie ? No touchwyt trzeba robic.

[Swirek14]

Narazie nic mi nie pomogles !! Myslisz ze ja wiem jak uchwyt zrobic?! Wytlumacz mi daj kody, anie ze trzeba uchwyt zrobic.......

[Kaka356]

kilka sekund w google... jak takkich rzeczy nie wiesz to najpierw poczytaj o uchwytach/zmiennych/funkcjach i w ogóle od podstaw. Bo jak kilka komend od kogoś sklepiesz a sam nie pomyślisz to żaden z ciebie programista...

[kilo_kartofli]

Kod Ascii Znaczenie
VK_LBUTTON 1 Lewy klawisz myszy
VK_RBUTTON 2 Prawy klawisz myszy
VK_CANCEL 3 CTRL+BREAK
VK_MBUTTON 4 srodkowy klawisz myszy
VK_BACK 8 BACKSPACE
VK_TAB 9 TAB
VK_CLEAR 12 NUMLOCK wyłšczony
VK_RETURN 13 ENTER
VK_SHIFT 16 SHIFT
VK_CONTROL 17 CTRL
VK_MENU 18 ALT
VK_PAUSE 19 PAUSE
VK_CAPITAL 20 CAPS LOCK
VK_ESCAPE 27 ESC
VK_SPACE 32 SPACE
VK_PRIOR 33 PAGE UP
VK_NEXT 34 PAGE DOWN
VK_END 35 END
VK_HOME 36 HOME
VK_LEFT 37 Strzałka w lewo
VK_UP 38 Strzałka w górę
VK_RIGHT 39 Strzałka w prawo
VK_DOWN 40 Strzałka w dół
VK_SELECT 41 SELECT
VK_EXECUTE 43 EXECUTE
VK_SNAPSHOT 44 PRINT SCREEN
VK_INSERT 45 INSERT
VK_DELETE 46 DELETE
VK_HELP 47 HELP
VK_0 .. VK_9 48..57 Klawisze cyfr 0..9
VK_A .. VK_Z 65..90 Klawisze liter A .. Z
VK_LWIN 91 Lewy WIN
VK_RWIN 92 Prawy WIN
VK_APPS 93 APP
VK_NUMPAD0..VK_NUMPAD9 96..105 Klawisze numeryczne 0 .. 9
VK_MULTIPLY 106 * w bloku numerycznym
VK_ADD 107 + w bloku numerycznym
VK_SUBTRACT 109 - w bloku numerycznym
VK_DECIMAL 110 Klawisz przecinka
VK_DIVIDE 111 / w bloku numerycznym
VK_F1 .. VK_F12 112..123 F1 .. F12
VK_F13 .. VK_F24 124..135 F13 .. F24
VK_NUMLOCK 144 NUMLOCK
VK_SCROLL 145 SCROLL LOCK
VK_LSHIFT 160 Lewy SHIFT
VK_RSHIFT 161 Prawy SHIFT
VK_LCONTROL 162 Lewy CTRL
VK_RCONTROL 163 Prawy CTRL



wstawiamy do buttona
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); {uciska}
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);{puszcza}

działa na program który jest w "pierwszym palnie"

czyli wszędzie na co patrzysz

[Swirek14]

ale on bedzie klikal mi caly czas control czy tylko raz? i jak zrobic zeby co 10 sekund klikal ?
@ edit
i jak zrobic aby po zanzaczeniu checkboxa klikal a po odznaczeniu nie?

[kilo_kartofli]

w timera

Cytat

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

i
if checkbox1.checked then timer1.enabled:=true;



witam cie SwirQ goscie dali prawie takie same odpowiedzi co ja


1. nie radze tak jak napisał h4ck3r15
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_CONTROL, 0, 0, 0);
end;

program cały czas trzyma ctr i nie puszcza wtedy to by było jak 1 klikniencie

[Czeplinus]

Ja ucze programować się w AutoIT, prosty i bardzo dobry język wlasnie do robienia programów które mają gdzies kliknąc, cos zrobic. Przykladem są boty. W tym języku są bardzo proste skrypty aby klawisz wciskal się ciągle w tych samych odstępach czasu:)

[Acanther]

Użytkownik Swirek14 dnia Feb 23 2008, 08:20 PM napisał

Narazie nic mi nie pomogles !!

Ale napewno nie zaszkodziłem (!!)

Użytkownik Swirek14 dnia Feb 23 2008, 08:20 PM napisał

Myslisz ze ja wiem jak uchwyt zrobic?! Wytlumacz mi daj kody, anie ze trzeba uchwyt zrobic.......

To po co sie bierzesz za takie rzeczy ? Zrób sobie swój mp3 player i słuchaj jednej piosenki w kółko a nie

Użytkownik Swirek14 dnia Feb 23 2008, 08:20 PM napisał

Wytlumacz mi daj kody, anie ze trzeba uchwyt zrobic.......

No taa... bo wszyscy Cię będą uczyć... Kup sobię książkę o programowaniu w Delphi. (.......)
I pamiętaj, nie krzycz. Bo jak ktoś się stara pomóc i Cię na dobrą drogę naprowadza to nie szarpie sie go że nie mówi wszystkiego...

[Herkay]

Yyy, ja jestem w ty całkiem zielony, jest cuś takiego jak ten GG hack, jest jakoś możliwe, bo delphi nie służy chyba do robienia botów i hacków do gier, aby dorobić do tego hacka żeby po kliknięciu uruchamiało się okienko z jakąś grafiką napisami i niedziałającymi guzikami, naciśnie się i nic się nie dzieje.

Jeżeli jest to do zrobienia to czy jest to kupa roboty. Chcę zrobić na złość kumplowi któremu dałem pod opiekę konto w tibi a on mi zrookował 23 lvlową postać.

Dzięki z góry

[kilo_kartofli]

Cytat

bo delphi nie służy chyba do robienia botów i hacków do gier

kolejny przynajmniej przyznaje się ze jest zielony


@down


można zrobić cheaty w delphi nie widzę problemu nawet jest turial w dziale warrock

[Herkay]

To znaczy nie tylko do tego, no nie wiem nie znam się na tym a nie chcę uczyć się teraz tego bo uczę się PHP xD

[Propagandhi]

Już tak trochę na marginesie, ale w VB, i prawdopodobnie w niektórych innych językach też, jest wewnętrzna funkcja o nazwie SendKeys. Podobnie jak keybd_event wysyła klawisze do aktywnej aplikacji z tą różnicą, że jako wewnętrzna funkcja w VB nie wymaga deklaracji (keybd_event jest funkcją API i deklaracja musi się odnosić do biblioteki, która tę funkcje przechowuje). SendKeys możemy też wysyłać "hurtem" znaki:

SendKeys.Send("jakiś tam ciąg znaków")

lub klawisze funkcyjne (jak w temacie pierwszego postu):

SendKeys.Send("^") 'naciska klawisz control

W przypadku myszy chyba nie ma takiej wewnętrznej funkcji i tu przydaje się f. API o nazwie mouse_event.

Przykład programu (do floodowania na czatach) który napisałem jakiś czas temu, wykorzystujący funkcje sendkeys:

Zaloguj się bądź Zarejestruj aby zobaczyć tą ukrytą treść

Zaloguj się bądź Zarejestruj aby zobaczyć tą ukrytą treść

[MrOMGWTF]

@up

Cytat

Już tak trochę na marginesie, ale w VB, i prawdopodobnie w niektórych innych językach też, jest wewnętrzna funkcja o nazwie SendKeys.

haha, teraz to mnie rozwaliłeś. to jest klasa. najpierw się naucz a potem ucz innych.