Miten voi lähettää kokonaisen tekstipätkän SendMessage:lla ? Osaan vaan kirjottaa yksittäisiä kirjaimia peräkkäin
esim: kun painaa napista, ohjelma kirjottaa HELLO ja painaa enter.
procedure TMainForm.button1Click(Sender: TObject);
begin
SendMessage(uownd, WM_KEYDOWN, 72, 0);
SendMessage(uownd, WM_CHAR, 72, 0);
SendMessage(uownd, WM_KEYUP, 72, 0);
SendMessage(uownd, WM_KEYDOWN, 69, 0);
SendMessage(uownd, WM_CHAR, 69, 0);
SendMessage(uownd, WM_KEYUP, 69, 0);
SendMessage(uownd, WM_KEYDOWN, 76, 0);
SendMessage(uownd, WM_CHAR, 76, 0);
SendMessage(uownd, WM_KEYUP, 76, 0);
SendMessage(uownd, WM_KEYDOWN, 76, 0);
SendMessage(uownd, WM_CHAR, 76, 0);
SendMessage(uownd, WM_KEYUP, 76, 0);
SendMessage(uownd, WM_KEYDOWN, 79, 0);
SendMessage(uownd, WM_CHAR, 79, 0);
SendMessage(uownd, WM_KEYUP, 79, 0);
SendMessage(uownd, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(uownd, WM_CHAR, VK_RETURN, 0);
SendMessage(uownd, WM_KEYUP, VK_RETURN, 0);
end;
miten vois lähettää kokonaisen tekstipätkän? tai käyttää noitten lukujen tilalla kirjaimia
niinku näin:
SendMessage(uownd, WM_KEYDOWN, 'H', 0);
SendMessage(uownd, WM_CHAR, 'H', 0);
SendMessage(uownd, WM_KEYUP, 'H', 0);
SendMessage(uownd, WM_KEYDOWN, 'E', 0);
SendMessage(uownd, WM_CHAR, 'E', 0);
SendMessage(uownd, WM_KEYUP, 'E', 0);
SendMessage(uownd, WM_KEYDOWN, 'L', 0);
SendMessage(uownd, WM_CHAR, 'L', 0);
SendMessage(uownd, WM_KEYUP, 'L', 0);
SendMessage(uownd, WM_KEYDOWN, 'L', 0);
SendMessage(uownd, WM_CHAR, 'L', 0);
SendMessage(uownd, WM_KEYUP, 'L', 0);
SendMessage(uownd, WM_KEYDOWN, 'O', 0);
SendMessage(uownd, WM_CHAR, 'O', 0);
SendMessage(uownd, WM_KEYUP, 'O', 0);
incompatible types 'Integer' and 'Char' :(
auttakaa joku :P
SendMessage apua
12
983
Vastaukset
- sdfuhsidhfiu
minne sitä yrität lähettää? jos johonkin ikkunacontrolliin, edit boxiin tms. niin voit käyttää WM_SETTEXT-messagea
- sfaggdsad
Teen peliin Ultima Online eräänlaista työkalua joka sitten kirjottaa komentoja pelissä.
En ole varma voiko peliin lähettää valmiita lauseita vaan pelkkiä kirjaimia. Jos ei voi niin haluisin kyllä tietää paremman keinon kun ladella SendMessageja pitkän liudan peräkkäin.
- kimmo_erkki
var
src_data : TCopyDataStruct;
...
SendMessage(TrgWnd, WM_COPYDATA, SrcWnd, Integer(@src_data));
muista kuitenkin että struktuurissa yms str määrittelyssä, annat merkkijonolle sopivan pituuden, esmes:
...
var
str : String[32];
...
ja voit myös käyttää sendmessagen sijaan SendMessageTimeout- funktiota, postmessage ei onnistu, koska tieto täytyy kopioida, mikä taasen post:n kanssa ei vetele...- Uuppi
Ok, kiitos avusta.
- uuppi
Niin, että en saanut toimimaan sitä tuolla keinolla..
- kimmo_erkki
Uuppi kirjoitti:
Ok, kiitos avusta.
Postaan sulle myöhemmin toimivan esimerkin.. Jos haluut niin pistä se nykynen koodi (lähetys/vastaanotto) tänne ni varmaan tulee nopeasti apua...
- chr_ja_ ord
Toimiiko ord('h') tuossa Sendmessagessa?
- erä;jorma
"miten vois lähettää kokonaisen tekstipätkän? tai käyttää noitten lukujen tilalla kirjaimia"
Voitan aina luoda oman merkistön! Omalla taulukolla tulkkaat viestit, mutta suosittelen opiskelemaan vähän syvemmältä tätä tietotekniikkaa, vaikka merkistöihin nämä nykyset systeemitkin periytyy...- 72,69,76,76,79
Ainakin tuon ( http://wiki.lazarus.freepascal.org/ASCII ) ASCII-taulukon mukaan nuo numeroarvot vastaavat ASCII-merkkejä.
- Uuppi
Keksin tällasen keinon.. ainakin vähän parempi kuin edellinen. procedure Say(kirjain: widechar); begin SendMessage(uownd, WM_KEYDOWN, ord(kirjain), 0); SendMessage(uownd, WM_CHAR, ord(kirjain), 0); SendMessage(uownd, WM_KEYUP, ord(kirjain), 0); end; procedure Enter(); begin SendMessage(uownd, WM_KEYDOWN, VK_RETURN, 0); SendMessage(uownd, WM_CHAR, VK_RETURN, 0); SendMessage(uownd, WM_KEYUP, VK_RETURN, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin Say('h'); Say('e'); Say('l'); Say('l'); Say('o'); Enter; end;
- vaikkapa näin
Tuota voisi mahdollisesti kehittää vaikkapa näin: ... var s:string; i:integer; begin s:= 'hello'; i:=1; while i
- uuppi
vaikkapa näin kirjoitti:
Tuota voisi mahdollisesti kehittää vaikkapa näin: ... var s:string; i:integer; begin s:= 'hello'; i:=1; while i
joo tajusin jo ton
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kenellä oli ryppyinen paita, josta Halla-aho mielensä pahoitti?
Ei ollut Keskisarja, jonka paita vain repsotti housujen päällä puolittain. Muistatteko tapausta?393001Miksi Halla-aho on niin hyvin menestynyt - mutta punavihreä ei?
Hyvin näkee kuinka punavihreää ottaa pahasti päähän kun Virta on taas töppäillyt pahasti. Ja kun punavihreä ei pärjää, n342228Ruoan arvonlisävero menee käytännössä tukijussille
Ilman juomia elintarvikkeiden myynti vuonna 2025 oli reilut 15 miljardia euroa. Tuolla tasolla arvonlisävero pyörii pari482149Vihreät REPEÄMÄSSÄ oijoijoi....Virran sekoilut on liikaa
Jo ennestään vihreiden kannatus on suossa vaikka puolue istuu oppositiossa, nyt tuli Virran temppu kun häipyi tuosta vaa792009Ruotsissa uusi vakava ongelma: Vanhusten seksuaalinen hyväksikäyttö
palvelutaloissa ja kotihoidossa. Tämäkin on ihan puhtaasti väärän maahanmuuton vaikutusta, sillä tekijät ovat kaikki keh541726Työeläkkeiden maksaminen lopetettava ASAP.
"Vanhimmat sukupolvet ovat saaneet vastinetta eläkemaksuilleen moninkertaisesti nykyisiin ja tuleviin sukupolviin verr571469Poliisi tutkii keskiviikkoiltana Kiuruveden keskustassa tapahtunutta väkivallantekoa.
Itä-Suomen poliisi tutkii Kiuruveden keskustassa keskiviikkoiltana tapahtunutta epäiltyä väkivallantekoa. Tapaus on herä161442Mika Poutala salasi osallistumisensa Erikoisjoukkoihin
Poutala ryhtyi ministeriksi 13.6.2025 ja 5.8.2025 ilmoitettiin hänen olevan seuraavalla Erikoisjoukot-kaudella. http451279Siis HYI OLKOON! Ihmiset, eikö enää ole mitään rajaa?
https://www.iltalehti.fi/viihdeuutiset/a/4142eeb2-a589-4109-a5d0-e8f341df585c "Susanna Penttilän seksibussi kauhistutta1111186Puuma Martina iski nuoren miehen
Martina ja Hajji Muhis oikealta nimeltään Muhammad Abdilrasoon hempeilivät Tallinnassa. Hajji 28 vuotias ja Martina pian160915