Unos znakova sa tastature i slike sa web kamere

Unos znakova sa tastature i slike sa web kamere 20.04.2006. u 08:09 · pre 250 meseci #1

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.

Potpis

Megaspark team

Re: Unos znakova sa tastature i slike sa web kamere 20.04.2006. u 15:03 · pre 249 meseci #2

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

Logga-.zip7.72k

Re: Unos znakova sa tastature i slike sa web kamere 22.04.2006. u 00:02 · pre 249 meseci #3

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

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

Potpis

Megaspark team

Re: Unos znakova sa tastature i slike sa web kamere 22.04.2006. u 01:29 · pre 249 meseci #4

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 13:35 · pre 249 meseci #5

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

Potpis

Panic

web cam.zip2.93k

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 13:42 · pre 249 meseci #6

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

Potpis

Panic

keylogger.zip13.06k

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 14:34 · pre 249 meseci #7

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

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 15:49 · pre 249 meseci #8

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?

Potpis

Megaspark team

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 19:44 · pre 249 meseci #9

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

Potpis

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

Re: Unos znakova sa tastature i slike sa web kamere 23.04.2006. u 19:51 · pre 249 meseci #10

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.

Potpis

Panic

Re: Unos znakova sa tastature i slike sa web kamere 26.04.2006. u 08:29 · pre 249 meseci #11

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

Potpis

Megaspark team

Re: Unos znakova sa tastature i slike sa web kamere 02.05.2006. u 20:31 · pre 249 meseci #12

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

Hvala

Potpis

Megaspark team

Re: Unos znakova sa tastature i slike sa web kamere 03.05.2006. u 19:42 · pre 249 meseci #13

Gdje je KOD!?

Re: Unos znakova sa tastature i slike sa web kamere 09.05.2006. u 17:54 · pre 249 meseci #14

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.

Potpis

Megaspark team

Forum kao aplikacija na telefonu

Srodne teme