I use this when i'm away from the computer, (If you talk to me on msn, you've probably seen it).
It's very basic, but works great. If you have a screen saver it will move the mouse every 55 seconds (The lowest screen saver wait time is 1 minute, So no matter what it avoids Screen Saver).
Clicks on the person, sends a message, then minimizes it and continues waiting.
The "StatusM" const is just a status thing. Layout of reply:
I think it works only for Blue taskbars (I used Blue) and screen resolution 1024, 768. <3Code:(StatusM) Auto Message: AutoMsg (Away) Auto Message: I'M AWAY!!
Code:Const AutoMsg = 'I''M AWAY!!'; StatusM = 'Away'; ScreenSaver = True; var backx, backy, kw, kh, count: Integer; procedure ScreenSaverAvoid; begin MoveMouseSmooth(random(kw), random(kh)); SetTimeout(55, 'ScreenSaverAvoid'); end; procedure MClick(x, y: integer; Left: boolean); begin MoveMouseSmooth(x, y); wait(50); Clickmouse(x, y, left); end; function BeingTalkedTo(var x, y: integer): boolean; begin if(findcolortolerance(x, y, 7957811, 97, 738, 1023, 767, 3))and (findcolortolerance(x, y, 11596996, 97, 738, 1023, 767, 3))and (findcolortolerance(x, y, 687333, 97, 738, 1023, 767, 3))then begin Backx:= x; Backy:= y; result:= true; end; end; procedure Minimize; begin wait(50); MClick(Backx, Backy, true); Wait(200); end; procedure reply; var x, y: integer; begin if(BeingTalkedTo(x, y))then begin MClick(x, y, true); wait(500); sendkeys('('+StatusM+') Auto Message: '+AutoMsg+chr(13)); wait(500); MiniMize; writeln('Replied.. ' + inttostr(count)); count:= count + 1; end; end; begin count:= 1; cleardebug; getclientdimensions(kw, kh); if(ScreenSaver)then SetTimeout(55, 'ScreenSaverAvoid'); repeat wait(2000); reply; until(false); end.





Reply With Quote
Waste of time i reckon' - I'm going to go to school and leave it on all day, I'll see how it goes.
No errors at all.


) and then close it.


