[es] - Unos znakova sa tastature i slike sa web kamere

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Unos znakova sa tastature i slike sa web kamere

^{20.04.2006. u 07:09 - pre 219 meseci}

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.

Megaspark team

Odgovor na temu

Nibble

Član broj: 63173
Poruke: 302
*.dlp350.bih.net.ba.

+1 Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{20.04.2006. u 14:03 - pre 219 meseci}

Mozda bi trebao pogledati u MSDN-u API funkciju GetAsyncKeyState i GetKeyState.
Evo ti primjer keyloggera pa izvuci sta ti treba.

Prikačeni fajlovi

Logga-.zip - 7.72k

Odgovor na temu

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{21.04.2006. u 23:02 - pre 219 meseci}

Nazalost nemem MSDN CD, malo se izgrebo, jedino na net-u.

Puno hvala na primjeru, sad cu malo pogledat i proucit pa se javim...

Megaspark team

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{22.04.2006. u 00:29 - pre 219 meseci}

skini API-Guide, MSDN ti i ne treba (ja ga nikad nisam imao i nikad ga nisam koristio :p)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

UserNameZbunjeno
PG

Član broj: 43881
Poruke: 41
*.crnagora.net.

Sajt: test19.users.cg.yu

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 12:35 - pre 219 meseci}

Sto se tice web kamere evo koda (ne secam se sa kojeg sam ga sajta downloadovao).

Panic

Prikačeni fajlovi

web cam.zip - 2.93k

Odgovor na temu

UserNameZbunjeno
PG

Član broj: 43881
Poruke: 41
*.crnagora.net.

Sajt: test19.users.cg.yu

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 12:42 - pre 219 meseci}

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

Panic

Prikačeni fajlovi

keylogger.zip - 13.06k

Odgovor na temu

Towar
Ivan Kardum
Split

Član broj: 23258
Poruke: 78
*.xnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 13:34 - pre 219 meseci}

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

Odgovor na temu

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 14:49 - pre 219 meseci}

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?

Megaspark team

Odgovor na temu

divdesign
Republika srpska, Brod

Član broj: 42973
Poruke: 29
*.teol.net.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 18:44 - pre 219 meseci}

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

"Ko igra za raju i zanemaruje taktiku zavrsice karijeru u nizerazrednom vratniku"

Odgovor na temu

UserNameZbunjeno
PG

Član broj: 43881
Poruke: 41
*.crnagora.net.

Sajt: test19.users.cg.yu

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{23.04.2006. u 18:51 - pre 219 meseci}

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.

Panic

Odgovor na temu

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{26.04.2006. u 07:29 - pre 218 meseci}

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 team

Odgovor na temu

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{02.05.2006. u 19:31 - pre 218 meseci}

Znam da sam malo dosadan, al svako usmjeravanje ili koja rijec bi dobro dosla...

Hvala

Megaspark team

Odgovor na temu

Nibble

Član broj: 63173
Poruke: 302
*.dlp188.bih.net.ba.

+1 Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{03.05.2006. u 18:42 - pre 218 meseci}

Gdje je KOD!?

Odgovor na temu

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: Unos znakova sa tastature i slike sa web kamere

^{09.05.2006. u 16:54 - pre 218 meseci}

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.

Megaspark team

Odgovor na temu