apua ja esimerkkiä tarvitaan!
apua ja esimerkkiä tarvitaan!
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!
esim: ohjelma liikuttaa hiiren tiettyyn paikkaan ruudulla ja klikkaa hiiren vasemmalla/oikealla hiirenpainikkeella itse!
apua tarvitaan!
-
- Newcomer
- Posts: 47
- Joined: Tue Oct 16, 2007 5:28 pm
- Location: Varkaus
- Contact:
Re: apua ja esimerkkiä tarvitaan!
En ole mestari CB:ssä mutta jo näiltä näkymin uskallan epäillä tuon olevan mahdotonta,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!
jos mahdollista niin sitten son varmaanki HELVETIN vaikea tehdä...
Valmiit pelit: 0 muahaha
Projekteina:
Vivarium (beta saattaa tulla lähi-aikoina)
Crusher Bastard (vasta suunnitteluvaiheessa)
Rattijuoppo (Projekti jäässä)
Projekteina:
Vivarium (beta saattaa tulla lähi-aikoina)
Crusher Bastard (vasta suunnitteluvaiheessa)
Rattijuoppo (Projekti jäässä)
Re: apua ja esimerkkiä tarvitaan!
Eikö tämmöinen onnistuisi hyödyntämällä cbFunia?
2X - in English viewtopic.php?f=18&t=3057
2X - suomeksi viewtopic.php?f=11&t=3058
Olen Jop Studio vanhalta foorumilta.
2X - suomeksi viewtopic.php?f=11&t=3058
Olen Jop Studio vanhalta foorumilta.
Re: apua ja esimerkkiä tarvitaan!
siis "onscreenmouse"
liikuttaminen on täysin mahdollista (testasin äsken voiko positionmousella siirtää hiiren näytön ulkopuolelle)
oota teen esmerkin
liikuttaminen on täysin mahdollista (testasin äsken voiko positionmousella siirtää hiiren näytön ulkopuolelle)
oota teen esmerkin
Koodarina kohtalainen, henkilönä vittumainen
Re: apua ja esimerkkiä tarvitaan!
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
en kyllä keksi miten saa klikkaukset tehtyä
Re: apua ja esimerkkiä tarvitaan!
No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
CoolBasic henkilökuntaa
Graafikko
Graafikko
Re: apua ja esimerkkiä tarvitaan!
et oo tainnu kokeilla sitä vaihtoehtoa ite?Pate5 wrote:No juurihan se kerrottiin. Lataat cbFunin tuolta esimerkit-osiosta ja asennat sen. Ja sitten cbFunin funktiolla MouseEvent, voi klikata hiirtä.nevssons wrote:en kyllä keksi miten saa klikkaukset tehtyä
Koodarina kohtalainen, henkilönä vittumainen
Re: apua ja esimerkkiä tarvitaan!
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).
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: apua ja esimerkkiä tarvitaan!
CbFUN itseasiassa toimii... Sillä voi asettaa hiiren minne tahansa ruudulla, ja sillä voi simuloida/emuloida klikkaamista.
Esimerkki ohjelmasta, joka klikkaa sekunnin välein:
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.
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
En tiedä tarvitseeko kenenkään muun tehdä niin.
EDIT:
Äh, harakka oli nopeampi
Re: apua ja esimerkkiä tarvitaan!
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
Koodarina kohtalainen, henkilönä vittumainen
Re: apua ja esimerkkiä tarvitaan!
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
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: apua ja esimerkkiä tarvitaan!
Harakka wrote: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.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
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ä.
ei siitä cbkeytä puuttunu, se oli ykkösen "näppäimistökoodi" ja toimii täydellisestiHarakka 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.
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
Koodarina kohtalainen, henkilönä vittumainen