Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Unos znakova sa tastature i slike sa web kamere

[es] :: Visual Basic 6 :: Unos znakova sa tastature i slike sa web kamere

[ Pregleda: 3525 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Megaspark
Megaspark team
Hr

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



Profil

icon Unos znakova sa tastature i slike sa web kamere20.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

icon Re: Unos znakova sa tastature i slike sa web kamere20.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
 
Odgovor na temu

Megaspark
Megaspark team
Hr

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



Profil

icon Re: Unos znakova sa tastature i slike sa web kamere21.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

icon Re: Unos znakova sa tastature i slike sa web kamere22.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)
 
Odgovor na temu

UserNameZbunjeno
PG

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

Sajt: test19.users.cg.yu


Profil

icon Re: Unos znakova sa tastature i slike sa web kamere23.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
 
Odgovor na temu

UserNameZbunjeno
PG

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

Sajt: test19.users.cg.yu


Profil

icon Re: Unos znakova sa tastature i slike sa web kamere23.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
 
Odgovor na temu

Towar
Ivan Kardum
Split

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



Profil

icon Re: Unos znakova sa tastature i slike sa web kamere23.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

icon Re: Unos znakova sa tastature i slike sa web kamere23.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

icon Re: Unos znakova sa tastature i slike sa web kamere23.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

icon Re: Unos znakova sa tastature i slike sa web kamere23.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

icon Re: Unos znakova sa tastature i slike sa web kamere26.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

icon Re: Unos znakova sa tastature i slike sa web kamere02.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

icon Re: Unos znakova sa tastature i slike sa web kamere03.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

icon Re: Unos znakova sa tastature i slike sa web kamere09.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

[es] :: Visual Basic 6 :: Unos znakova sa tastature i slike sa web kamere

[ Pregleda: 3525 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.