Lav et tastetryk

Tags:    delphi

<< < 12 > >>
Er igang med at lave en loading disc som automatisk som automatisk kan installerer nogle af mine vigtigste programmer (eks. delphi 6, delphi 7, TSW WebCoder, Filezilla osv.)

Men nu har jeg det problem at delphi jo også kræver at man skriver en cd-key... Den har jeg, men jeg vil nu gerne have at mit automatiske program også kan finde ud af at taste cd-keyen, så jeg er ikke behøver at skrive det ind!


Så hvordan får jeg delphi til at kunne lave et tastetryk, som også virker i andre applicationer end mine egne?


Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



11 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Keybd_Event(VK_RETURN, 1, 0, 0);
Keybd_Event(VK_RETURN, 1, KEYEVENTF_KEYUP, 0);
Simulere at du trykker enter.
Den første linie trykker knappen ned, og den anden linie slipper.
Tab er VK_TAB, 0 er 48, 1 er 49... 9 er 57
Så hvis du vil skrive 4 er det:
Keybd_Event(52, 1, 0, 0);
Keybd_Event(52 1, KEYEVENTF_KEYUP, 0);

Hilsen Mathias



Tror du ikke bare det ville være lettere at finde et program til at ind- og afspille makroer, og så bare lave sådan en fætter?



Det ville være bedre at finde ud af hvor i registreringdatabasen cd-keyen bliver gemt og så bruger du bare TRegistry til at tilføje dem. At simulere tastetryk for at få noget til at ske er aldrig en god idé.



-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------



Hejsa... :D
Vedrørende makro, så vil jeg hellere i delphi, det giver bare flere mulligheder... Når det er muligt at styrer musen, og skabe et musseklik må man også kunne lave et tastetryk...

Og til det med registreringsdatabasen er rigtig god, problemmet er bare at det ikke ER noget felt, da delphi spørger om cd-key før det installeres!

Men der findes selvfølgelig en alternativ måde... Lade programmet starte handicap funktionen: Skærmtastatur, hvor den kan skrive koden med musen. Det vil bare tage mig en del tid - og ikke særlig nørdet :D





Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



Tak lige hvad jeg søgt :D

For andre der har brug for denne kode vil jeg lige give en liste af koder man kan bruge i denne funktion...

keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0); //Denne kode giver eks. et C



{ Virtual Keys, Standard Set }
VK_BACK = 8; //backspace
VK_TAB = 9; //tab
VK_RETURN = 13; //enter
VK_SHIFT = $10; //shift (16)
VK_CONTROL = 17; //ctrl
VK_MENU = 18; //alt
VK_PAUSE = 19; //pause
VK_CAPITAL = 20; //shift eller caps lock
VK_ESCAPE = 27; //escape
VK_SPACE = $20; //space (32)
VK_PRIOR = 33; //page up
VK_NEXT = 34; //page down
VK_END = 35;//end
VK_HOME = 36;//home
VK_LEFT = 37;//left arrow
VK_UP = 38; //up
VK_RIGHT = 39;//right
VK_DOWN = 40;//down
VK_INSERT = 45; //insert
VK_DELETE = 46;//delete
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
VK_LWIN = 91; //venstre windows tast
VK_RWIN = 92; //højre
VK_APPS = 93; //windows knappen
{numpad tal}
VK_NUMPAD0 = 96;
VK_NUMPAD1 = 97;
VK_NUMPAD2 = 98;
VK_NUMPAD3 = 99;
VK_NUMPAD4 = 100;
VK_NUMPAD5 = 101;
VK_NUMPAD6 = 102;
VK_NUMPAD7 = 103;
VK_NUMPAD8 = 104;
VK_NUMPAD9 = 105;
VK_MULTIPLY = 106;

VK_ADD = 107; //+
VK_SEPARATOR = 108; //*
VK_SUBTRACT = 109; //-
VK_DECIMAL = 110; //,
VK_DIVIDE = 111;// /
{F1-24 tasterne}
VK_F1 = 112;
VK_F2 = 113;
VK_F3 = 114;
VK_F4 = 115;
VK_F5 = 116;
VK_F6 = 117;
VK_F7 = 118;
VK_F8 = 119;
VK_F9 = 120;
VK_F10 = 121;
VK_F11 = 122;
VK_F12 = 123;
VK_F13 = 124;
VK_F14 = 125;
VK_F15 = 126;
VK_F16 = 127;
VK_F17 = 128;
VK_F18 = 129;
VK_F19 = 130;
VK_F20 = 131;
VK_F21 = 132;
VK_F22 = 133;
VK_F23 = 134;
VK_F24 = 135;

VK_NUMLOCK = 144; //num lock
VK_SCROLL = 145; //scroll lock





Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



Heej Shaft og andre glade udviklere ;b

Lige et hint, dette eksempel:


keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0); //Denne kode giver eks. et C


Det giver ikke C men et lille c, da du ellers først skal sende et caps lock eller shift tryk ;b

Nå, men egentligt ville jeg bare høre og der var en herinde der kan klare et punktum ('.') hvis jeg bruger ord funktionen prøver den at lave en 46 men 46 er åbenbart = ingenting. Jeg kan ikke finde nogen virtual keycode til punktum og har nu brugt ca. 3 timer på et lille punktum (lyder enli dumt), og nu river jeg snart hoved a min lille krop.

På forhånd tak!

M.v.h. Johnny Rasmussen



Heej Shaft og andre glade udviklere ;b

Lige et hint, dette eksempel:


keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0); //Denne kode giver eks. et C


Det giver ikke C men et lille c, da du ellers først skal sende et caps lock eller shift tryk ;b

Nå, men egentligt ville jeg bare høre og der var en herinde der kan klare et punktum ('.') hvis jeg bruger ord funktionen prøver den at lave en 46 men 46 er åbenbart = ingenting. Jeg kan ikke finde nogen virtual keycode til punktum og har nu brugt ca. 3 timer på et lille punktum (lyder enli dumt), og nu river jeg snart hoved a min lille krop.

På forhånd tak!

M.v.h. Johnny Rasmussen

tallet til punktum er 190.

Hilsen Mathias




tallet til punktum er 190.

Hilsen Mathias

Hej Mathias ,,

Tusind tak ,,Det var rart ,,Jeg var så dum at opgive ved 150 da det virkede som om at resten var dem der kun kunne bruges ved getkey fuktionerne.

M.v.h. Johnny Rasmussen



Den klart bedste måde at gøre det på, er ikke at simulere at man taster på knappen..

Skaf da hellere det ID for programmet, find felterne til CD-Key'en, og skriv dem som værende en tekstbox ... meget mere effektivt, da du er sikker på det er det rigtige vindue du har fat i.

Med venlig hilsen
Ken Christensen



Giv lig kodeekstempel og forklaring!




Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world



<< < 12 > >>
t