自己动手设计QQ信息自动发送

来源:互联网
更新时间:2016/12/10 11:24:50
责任编辑:王亮
字体:

14black" id=text>

引:此前一位姓袁的教师在网络公布了其侮骂开国领袖毛主席的视频,这件事情似乎还没有一个定性的说明,本人虽然不是学历史的,也能指其在论据上的一两处引用错误,觉得这个社会有点儿浮燥没有什么核心的价值观.于是随手将几首毛词一并写入一个能自动往往QQ里发送信息的小程序,这多少有点有趣,也正好应了一句话"知识越多越反动",当用自己的吃饭工具来做点儿"小坏事",这也不得不能说是一件不自然的事.

程序在 DELPHI7 + QQ2010 里编译运行通过,是一个控制台类型项目.有兴趣的朋友可以到这里下载工程代码:http://www.brsbox.com/filebox/down/fc/25a12a8908f1a4b09de6452f7ebf4534 .

源程序具体如下:

program fontview;

//{$APPTYPE CONSOLE}

{$R 'RegFlgRc.res' 'RegFlgRc.rc'}

uses

  Windows,

  Messages,

  SysUtils,

  Classes,

  Registry,

  Graphics,

  ShellAPI,

  Math,

  ShlObj,

  Clipbrd,

  DateUtils,

  TLHelp32;

type

  TGetWinProc = class

private

  FWindowHandle: HWND;

  procedure WMEvelAgent(var Msg: TMessage);

public

  nHotKey:integer;

  IsClearFlg:boolean;

  constructor Create();

  destructor Destroy;override;

end;

//生成一个隐藏的窗体,以便接受事件,如定时器 键盘 驱动盘的事件

//生成一个系统热键 CRTL + F7 以便自杀

constructor TGetWinProc.Create();

begin

  inherited Create();

  FWindowHandle := AllocateHWnd(WMEvelAgent);

  nHotKey := GlobalAddAtom('19660818');;

  RegisterHotKey(FWindowHandle,nHotKey,MOD_CONTROL,VK_F7);

end;

destructor TGetWinProc.Destroy;

begin

  UnRegisterHotKey(FWindowHandle,nHotKey);

  GlobalDeleteAtom(nHotKey);

  DeallocateHWnd(FWindowHandle);

  inherited Destroy;

end;

//获取系统目录

function Get_SystemPathInfo():string;

var

  cSystemPath:array [0..255] of char;

www.xue163.com true /5/51311.html report 1740 自己动手设计QQ信息自动发送,14blackid=text引:此前一位姓袁的教师在网络公布了其侮骂开国领袖毛主席的视频,这件事情似乎还没有一个定性的说明,本人虽然不是学历史的,也能指其在论据上的一两处引用错误,觉得这个社会有点儿浮燥没有什么核心的价值观.于是随手将几首毛词一并...
最近关注
首页推荐
热门图片
最新添加资讯
24小时热门资讯
自己动手设计房子 自己动手设计数据库 自己动手设计物联网 自己动手设计装修 自己动手设计 小明自己设计并动手 自己动手设计家 自己动手设计logo 
精彩资讯
精彩推荐
热点推荐
真视界
精彩图片
社区精粹
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2016 Xue163.com All Rights Reserved. 学网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号
荐闻 | 学网头条知识问答 | 装修 | 作业 | 荐闻 | 学网头条精彩微信 | 新闻中心 | 软件教室 | 设计大全 | 网络相关 | 英语学习 | 开发编程 | 考试中心 | 参考范文 | 管理文库 | 营销中心 | 站长之家 | IT信息中心 | 商学院 | 数码大全 | 硬件DIY | 企业服务 | 网吧在线 | 问吧 | 百科 | 硬件知识 | 本网视点 | 文库 | 手机 | 平板 | 汽车 | 游戏 | 家电 | 精彩摄影 | 时尚科技 | 现代家居 | IT女人 | 经验 | 每日新闻 | 健康养生 | 图书馆 | 猎奇 | 精彩看点 | 图库 | 新闻中心 | 软件教室 | 设计大全 | 网络相关 | 英语学习 | 开发编程 | 考试中心 | 参考范文 | 管理文库 | 营销中心 | 站长之家 | IT信息中心 | 商学院 | 数码大全 | 硬件DIY | 企业服务 | 网吧在线 | 问吧 | 百科 | 硬件知识 | 本网视点 | 文库 | 手机 | 平板 | 汽车 | 游戏 | 家电 | 精彩摄影 | 时尚科技 | 现代家居 | IT女人 | 经验 | 每日新闻 | 健康养生 | 图书馆 | 精彩微信 | 猎奇 | 精彩看点 | 图库编程 方案 信息windows方案windows answer文档机构教育文档问答中心IT编程数码信息解决方案信息中心IT科技