[ Megaspark @ 20.04.2006. 07:09 ] @
Pozdrav

Našao sam pomocu pretrage jednu od prethodnih tema koje se ticu mojeg pitanja i tamo sam nasao ovaj kod:
Code:

Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = (KeyAscii)
End Sub


On radi, medjutim ne radi ono sto mi treba.

Malo da opisem projekt: Radimo upravljanje nekim auticom pomocu kompjutera preko radio veze. Upravljanje bi trebalo biti kao na igricama. Ako stisnem desno, ide desno, nazad, nazad itd. Gore napisani kod radi samo za slova i brojeve, za strijelice ne napise nista. Mozete li mi pomoci? Kako napraviti da prihvaca sve tipke (znakove) sa tipkovnice? Neophodno je da mogu biti pritisnite 2 tipke istovremeno, da on «da» neki kod s kojim cu moci raditi. Pr. nazad i desno.
Ili kako to vec ide.



Jos jedno pitanje. Posto ce on biti nagledan web kamerom, bit ce mogucnost «autopilota», al to sada nije bitno, da li se moze u nekakav picturebox ili sl. Prikazivati ono sta kamera snima?


Puno hvala.
[ Nibble @ 20.04.2006. 14:03 ] @
Mozda bi trebao pogledati u MSDN-u API funkciju GetAsyncKeyState i GetKeyState.
Evo ti primjer keyloggera pa izvuci sta ti treba.
[ Megaspark @ 21.04.2006. 23:02 ] @
Nazalost nemem MSDN CD, malo se izgrebo, jedino na net-u.

Puno hvala na primjeru, sad cu malo pogledat i proucit pa se javim...
[ Aleksandar Ružičić @ 22.04.2006. 00:29 ] @
skini API-Guide, MSDN ti i ne treba (ja ga nikad nisam imao i nikad ga nisam koristio :p)
[ UserNameZbunjeno @ 23.04.2006. 12:35 ] @
Sto se tice web kamere evo koda (ne secam se sa kojeg sam ga sajta downloadovao).
[ UserNameZbunjeno @ 23.04.2006. 12:42 ] @
Evo nasao sam neshto pa ako ti pomogne .
U pitanju je jos jedan key logger, a vidio sam ima kod za logovanje strelica gore, dolje ...
Mislim da se nalaze u Module1
[ Towar @ 23.04.2006. 13:34 ] @
Code:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then Call picDataBitToggle_click(0) 
End Sub


KeyAscii = 49 je zapravo tipka 1 na tipkovnici, dok je npr. keyAscii = 51 tipka 3 na tipkovnici itd. Googlaj da vidis koji Ascii kod ima pojedina tipka. Da bi sve ovo radilo obvezno otvori formu i na njoj moraš postaviti KeyPreview = True
[ Megaspark @ 23.04.2006. 14:49 ] @
Hvala na ovolkim odgovorima, sto se trudite pomoci.

Ovako... prvi upload-ovan logger radi i izvukao sam sto mi treba. Zapravo je kod jednostavan iako ne razumijem princip rada (evo jedno nagadjanje: znaci primi ASCI kod pr 39 sa nekog ulaza -32767 koji predstavlja tastaturu i to pamti u nesto addkey kao DESNO). Evo 2 reda koda koji se vrti u timeru:
Code:
If GetAsyncKeyState(39) = -32767 Then addkey = " Desno "
        If GetAsyncKeyState(40) = -32767 Then addkey = " Nazad "
'i na kraju tipki koje zelim da rade
        Text1.Text = addkey

Sad sam ja probao neke kombinacije IF naredbe s ciljem da pr. ako stisnem DESNO i NAZAD da mi napise KOMBINACIJA, medjutim svaki put mi javi syntax error. Postojeci kod prihvaca samo zadnju pritisnitu tipku iako ih drzim i jednu i drugu.

Ovo zadnje rjesenje je odlicno i puno jednostavnije ali takodje nisam postigao kombinaciju 2 tipke.

Drugi upload-ovan logger ne radi, neki file nedostaje.
Sto se tice koda za kameru, kompajler ne nalazi nikakvih gresaka, a nemogu probati da li radi posto nemam web kameru. Da li je kod Vas radio?
[ divdesign @ 23.04.2006. 18:44 ] @
Probaj malo pogledati ovjde projekat cini mi se neke igrice u VB (cinimi se da je pong). Tamo ima primjer koda kada su stisnute dvije tipke. Mislim da su koristene API funkcije GetAsyncKeyState i GetKeyState
[ UserNameZbunjeno @ 23.04.2006. 18:51 ] @
Sto se tice koda za Web cam radi kod mene...
Sad vidjeh za keylogger gresku da fali fajl ali sve jedno mozes izvuci dobar dio koda.
[ Megaspark @ 26.04.2006. 07:29 ] @
Nisam jos probao kameru, jos je nemam!
Nemogu nigdi pronaci kako da uhvatim 2 tipke zajedno...
Gledao sam i pong i druge primjere al nista.


Nazalost jos nisam pronasao kako "uhvatiti" 2 tipke zajedno.
Mozete li mi pomoci kako da trazim u google-u? mislim... trazio
jesam al nisam nasao nista. Mozda neke specificne rijeci ili izrazi na ENG?

Hvala

[Ovu poruku je menjao Megaspark dana 27.04.2006. u 20:03 GMT+1]
[ Megaspark @ 02.05.2006. 19:31 ] @
Znam da sam malo dosadan, al svako usmjeravanje ili koja rijec bi dobro dosla...

Hvala
[ Nibble @ 03.05.2006. 18:42 ] @
Gdje je KOD!?
[ Megaspark @ 09.05.2006. 16:54 ] @
Bio sam par dana offline pa nisam mogao odgovoriti...

Kod je:

Code:


Dim addkey, j, i
If GetAsyncKeyState(37) = -32767 Then addkey = " Lijevo "
If GetAsyncKeyState(38) = -32767 Then addkey = " Naprijed "
If GetAsyncKeyState(39) = -32767 Then addkey = " Desno "
If GetAsyncKeyState(40) = -32767 Then addkey = " Nazad "

Label1.Caption = addkey




Ovaj kod se vrti u jednom TIMERu. Ovo je samo da mi napise sta je pritisnito.
Probao sam nekako sa AND naredbom spojiti i sve kombinacije koje sam se mogao sjetiti al nista.


Hvala puno.