Page 1 of 1

apua ja esimerkkiä tarvitaan!

Posted: Sat Feb 09, 2008 8:50 pm
by aaaaapuaaaaaa
eli siis ideana olisi saada sellainen ohjelma aikaan että ohjelma klikkaa itse hiirtä.

esim: ohjelma liikuttaa hiiren tiettyyn paikkaan ruudulla ja klikkaa hiiren vasemmalla/oikealla hiirenpainikkeella itse!

apua tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Posted: Sat Feb 09, 2008 8:58 pm
by ihannyyppä
aaaaapuaaaaaa wrote:eli siis ideana olisi saada sellainen ohjelma aikaan että ohjelma klikkaa itse hiirtä.

esim: ohjelma liikuttaa hiiren tiettyyn paikkaan ruudulla ja klikkaa hiiren vasemmalla/oikealla hiirenpainikkeella itse!

apua tarvitaan!
En ole mestari CB:ssä mutta jo näiltä näkymin uskallan epäillä tuon olevan mahdotonta,
jos mahdollista niin sitten son varmaanki HELVETIN vaikea tehdä... :?

Re: apua ja esimerkkiä tarvitaan!

Posted: Sat Feb 09, 2008 9:00 pm
by Szanne
Eikö tämmöinen onnistuisi hyödyntämällä cbFunia?

Re: apua ja esimerkkiä tarvitaan!

Posted: Sat Feb 09, 2008 10:35 pm
by Henkru
Kyllähän tämä cbFUN:in avulla onnistuu.

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 11, 2008 4:56 pm
by nevssons
siis "onscreenmouse"

liikuttaminen on täysin mahdollista (testasin äsken voiko positionmousella siirtää hiiren näytön ulkopuolelle)

oota teen esmerkin

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 11, 2008 5:03 pm
by nevssons

Code: Select all

x=200
y=150
Repeat
PositionMouse x,y
If KeyDown(200) Then y=y-1
If KeyDown(208) Then y=y+1
If KeyDown(203) Then x=x-1
If KeyDown(205) Then x=x+1
DrawScreen
Forever 
tos on esimerkki

en kyllä keksi miten saa klikkaukset tehtyä

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 11, 2008 5:07 pm
by Pate5
nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 18, 2008 11:25 am
by nevssons
Pate5 wrote:
nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.
et oo tainnu kokeilla sitä vaihtoehtoa ite?

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 18, 2008 12:05 pm
by Harakka
Itse ainakin olen kokeillut ja hyvin toimii. Kokeileppa itse, sen ei pitäisi olla kovin vaikeaa (haulla löydät varmaan myös tekemäni esimerkkikoodin samasta aiheesta, kirjoitin sen cbFun-topicciin).

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 18, 2008 12:10 pm
by Ruuttu
CbFUN itseasiassa toimii... Sillä voi asettaa hiiren minne tahansa ruudulla, ja sillä voi simuloida/emuloida klikkaamista.
Esimerkki ohjelmasta, joka klikkaa sekunnin välein:

Code: Select all

include "cbfun\cbfun.cb"

   timer1=timer()
   repeat
   timer2=timer()

   //Seuraavalle riville voi laittaa minkä tahansa ehtolausekkeen, ja klikkaus tapahtuu kun ehto toteutuu.
      if timer2-timer1>1000 then //Jos sekunti on kulunut niin...
         mouseevent(1) //Hiiren nappi pohjaan...
         wait 50
         mouseevent(0) /Hiiren nappi takaisin ylös.
         timer1=timer() //Nollataan ajastin.
      end if

   forever
Minulla on CbFUNissa jotain häikkää, joten minun pitää kääntää tuo exeksi samaan kansioon missä CBEditor.exe on, jotta toimisi kunnolla.
En tiedä tarvitseeko kenenkään muun tehdä niin.
EDIT:

Äh, harakka oli nopeampi


Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 18, 2008 6:48 pm
by nevssons

Code: Select all

Include "cbFUN\cbFUN.cb"
x=200
y=150
Repeat
PositionMouse x,y
If KeyDown(200) Then y=y-1
If KeyDown(208) Then y=y+1
If KeyDown(203) Then x=x-1
If KeyDown(205) Then x=x+1
If KeyDown(2) Then MouseEvent(0) 
If KeyUp(2) Then MouseEvent(1) 
If KeyDown(3) Then MouseEvent(2) 
If KeyUp(3) Then MouseEvent(3) 
DrawScreen
Forever 
kokeile tota, tajuat mitä tarkoitan

Re: apua ja esimerkkiä tarvitaan!

Posted: Mon Feb 18, 2008 7:50 pm
by Harakka

Code: Select all

Include "cbFUN\cbFUN.cb"

AddText "2: hiiren vasen näppäin 3: hiiren oikea näppäin"
Repeat
    PositionMouse MouseX()+RightKey()-LeftKey(),MouseY()-UpKey()+DownKey()
    If KeyHit(cbkey2) Then
        mouseEvent(0)
        mouseEvent(1)
    ElseIf KeyHit(cbkey3) Then
        mouseEvent(2)
        mouseEvent(3)
    EndIf
    DrawScreen
Forever
Näin ainakin toimii. Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.

Re: apua ja esimerkkiä tarvitaan!

Posted: Wed Feb 20, 2008 12:17 pm
by nevssons
Harakka wrote:

Code: Select all

Include "cbFUN\cbFUN.cb"

AddText "2: hiiren vasen näppäin 3: hiiren oikea näppäin"
Repeat
    PositionMouse MouseX()+RightKey()-LeftKey(),MouseY()-UpKey()+DownKey()
    If KeyHit(cbkey2) Then
        mouseEvent(0)
        mouseEvent(1)
    ElseIf KeyHit(cbkey3) Then
        mouseEvent(2)
        mouseEvent(3)
    EndIf
    DrawScreen
Forever
Näin ainakin toimii. Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.

Kyllä tossa sun koodissas on ihan sama vika kun mun koodissa
eli:
1.vien hiiren ohjelman ulkopuolelle
2.painan ykköstä(tai sun koodissas kakkosta)
3.ohjelma menee alas etkä pysty liikuttamaan hiirtä.
Harakka wrote: Sulta taisi puuttua cbkey numero 2:sen edestä. Vaihdoin myös vähän systeemiä eli en tiedä oliko vika kiinni keyUp():ista vai ei.
ei siitä cbkeytä puuttunu, se oli ykkösen "näppäimistökoodi" ja toimii täydellisesti
elikkä tossa ykkönen on vasen näppäin ja kakkonen oikea

Ja noi koodit tekee lähes täysin saman asian
ja sun koodissas ei voi pitää hiirtä pohjassa