Imam nuvda ot syvet.
Trqbwa mi na4in da se prihwane polovenieto na mishkata
da se premesti na opredeleno rastoqnie i da predizwikwa klikane (lqwo ili dqsno)
na nowoto mestopolovenie.
zna4i taka stypka wlqwo klikane
stypka nagore klikane i. t.n i t.n.
ideqta e da obhovda desktopa i da klika tuk tame po pyrwona4alno zadadeniq marshrut...
neshto takowa...

tova e za simulirane na mouseclick

SetCursorPos(x, y);

// Simulate the left mouse button down
// Linke Maustaste simulieren

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate the right mouse button down
// Rechte Maustaste simulieren


mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);


a tova za vzemane i opredeliane na poziciata

// Get mouse positon

procedure TForm1.Button1Click(Sender: TObject);
var
MausPos: TPoint;
begin
GetCursorPos(MausPos);
label1.Caption := IntToStr(MausPos.x);
label2.Caption := IntToStr(MausPos.y);
end;

// Set mouse position to (x,y)

procedure TForm1.Button2Click(Sender: TObject);
begin
SetCursorPos(600, 600);
end;

blagodarq mnogo
ne sym go testwal
no kato go pregledah iamam useshtaneto 4e opredelqneto na koordinatite
shte srabotwa samo w towa prilovenie....
ideqta e da se klika po desktopa
primerno da otwori dwe tri programi edna sled druga
towa e prosto primer za onagledqwane...
izwinqwam se za prekaleno golemite iziskwaniq...

opsss...
izvinqwam se za gornoto..
pregledah go po - podrobno :o)))
BLAGODARQ!!!!!

Spedia li shte obrabotvash
Gledai da si izmislish qk AI. Ako naistina e tova kaji, hubavo shte e da go obsudim malko. Problem shte stane, ako mnogo hora se zaribqt. Inache mislq, che ako se napravi programche moje da izkarvash po $50/mo (ne sum siguren kolko beshe gornata granica). Pone nqma da ima problemi s Internet

BTW Po edno vreme se zaribqvah da pravq programa da zpulnqva script-ove. MouseMove, MouseClick, KeyPress, Sleep, ShellExec,... Izglejdashe mi hubava ideq, no kato pochnah da q razvivam i si pomislih , che po lesno shte e chovek da nauchi Delphi . VB v drugiq sluchai

by Waz Gaa

Съдържаниет е скрито
Влезте за да го видите

Breh mama mu stara wednaga me izlowihte...
werno towa prawq
programata mi ba4ka idealno no generira prekeleno golqm trafik..:o(
rabotq nad problema
ideqta beshe trafikyt da e po4ti nulew no...winagi ima edno no...
za zaribqwaneto e gotino
no za momenta smqtam da si razrabotq ideqta sam
ako prekaleno mnogo hora polzwat tazi programka....
ami spediq shte se usetqt
dokolkoto znam te si imali na4ini da prowerqwat dali se polzwat takiwa mashinki za pari..
e... az sym si nawil na prysta da ne me hwashtat :o)

Mevdu drugoto 0,5$ na 4as wsyshtnost e gornata granica...
a naj loshoto e 4e shte razbera rezultata 4ak kym kraq na septemwri...
mnogo sa bawni sys wadeneto na rezultatite...
move bi prowerqwat logowete...:o((

az sushto sum vkaral baq idei za edna takava programa. rabotata e da prochetesh dobre kakvi sa im kriteriite i da q napravish da gi polzva na max. drugoto e da ne te usetqt, no prepolagam ako si restartirash programata i i smenqsh imeto na exe-to (vsi4ko avtomatik), ne mogat da te prosledqt.

Rabotata e da ne si mnogo nahalen. Nqkoi meseci da im puskash avanta (da prekusvash moje bi ;-), da ne polzvash absoliutno vinagi na max.

Trqbva da si napravish edin list s funkcii i da si go promenqsh v razlichnite dni. Neshto kato:
loader koito promenq imeto na emulatora(toi si loadva za ime exeto), puska go, a sled tova i spedia.
iztrivane na startup pri load(ako e tam)
puskane na drug emulator i zatvarqne na predishniq (dva s razlichni razmeri)...
mnogo rqdko se natiska v/u spedia adbar
pochivka prez 1-2 chasa
na 4-6 chasa rabota s Fireworks (10 min)
smqna na prozoreca na kalkulator, rechnik, smqna na pesni v Winamp (po 20-30 sec)
url:
proverka na poshta
chetene na novini
google malko tursene, malko copy na tekst

Tova sa nqkolko ideiki. Otnachalo kato razgledah kakvo pravqt. Neznam realno kolko pari mogat da se izkarat. BTW Brat mi s nachalnite registracii kum razni saitove izkara pochti $50 ot Spedia (mai oshte sa mu v smetkata). Ne e zle za start... Plz ako uspeesh pone se obadi. Shte mi e interesno da razbera, che nqkoi e uspql da gi izraboti.

by Waz Gaa

Съдържаниет е скрито
Влезте за да го видите

Blagodarq za ideite...:o)
nepremenno shte te uwedomq...
ako sraboti eventualno shte ti pratq moqta idejka...
samo edna e, no ako sraboti shte e wyrha...
spored men hwanah neshto koeto mve da mine za byg w sistemeta
no move da e porednata mi glupawa ideq...
kakto i da e blagodarq oshte wednyv

'kwo Delphi be GTech oshte li ne si razbral koja e programata http://www.discreet.com/