CoolBasic Forums

Posted: **Sat Feb 09, 2008 7:50 pm**

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!

Posted: **Sat Feb 09, 2008 7:58 pm**

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ä...

Posted: **Sat Feb 09, 2008 8:00 pm**

Eikö tämmöinen onnistuisi hyödyntämällä cbFunia?

Posted: **Sat Feb 09, 2008 9:35 pm**

Kyllähän tämä cbFUN:in avulla onnistuu.

Posted: **Mon Feb 11, 2008 3:56 pm**

siis "onscreenmouse"

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

oota teen esmerkin

Posted: **Mon Feb 11, 2008 4:03 pm**

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ä

Posted: **Mon Feb 11, 2008 4:07 pm**

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ä.

Posted: **Mon Feb 18, 2008 10:25 am**

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?

Posted: **Mon Feb 18, 2008 11:05 am**

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).

Posted: **Mon Feb 18, 2008 11:10 am**

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

Posted: **Mon Feb 18, 2008 5:48 pm**

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

Posted: **Mon Feb 18, 2008 6:50 pm**

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.

Posted: **Wed Feb 20, 2008 11:17 am**

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

CoolBasic Forums

apua ja esimerkkiä tarvitaan!

apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!

Re: apua ja esimerkkiä tarvitaan!