如何使广告条自动运行,仅供学习参考
各位程序员,大家辛苦了!!!
今天我一同事要我为他赚钱的东东做一个作弊程序,出于好玩,就即兴做了一个,现在贴出来让大家参考参考。我本对这类东西不感兴趣,赚钱是假,学习是真。但是看到点数快速的增加,不免也感到非常开心,不敢独享,所以一方面让大家一起学习探讨,一方面让大家赚点小钱,一方面我也可以发展几个下线。。。呵呵
程序制作说明
广告条左角的小人在走动时,表示在计费,如果小人停止了,请用光标点击小人,让它走动。
注意!!当广告条打开时,计算机屏幕右下角启动条上会显示一个CASHSURFERS"$"图标,当它是绿色时,表示在计费。- 正在赚点 (任务栏上的图标为绿色) 每隔一段时间,CASHSURFERS"$"图标就会变红. - 停止
赚点(任务栏上的"$"图标为红色) 广告条在任务栏上的"$"图标变红或小人坐下时请在广告条上移动鼠标 ,此时小人会拍拍手站起来走,如果不行请点击广告后在广告条上移动鼠标。 小人如果跑到广告条里去就要点 击他,让他回到广告条左侧,否则不会继续放广告。 技巧:当小人开始走进广告条里面时,在小人前方点击鼠 标他马上会回去,时间不会超过10 秒。CashFiesta每月付款,50美元起付,未满则累积至下月。
根据以上说明,我们可以通过移动鼠标和点击鼠标来完成广告条的自动运行。
并且考虑到无人模式和有人模式,分别做不同的处理工作。无人的情况下可以由程序自动完成,有人的情况下,仅当广告条不活动时做声音提示。
废话不说了,源代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,MMSystem;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Memo2: TMemo;
CheckBox1: TCheckBox;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function HexB(B:Byte):string;
function IsRun:boolean;
procedure Step1;
procedure Step2;
procedure CloseIE;
public
{ Public declarations }
end;
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall;
var
Form1: TForm1;
IsStep2:boolean;
const
Digits : array[0..$F] of Char = '0123456789ABCDEF';
pManX:integer=45;//小人中心的位置
pManY:integer=721;//小人中心的位置
pManColor:integer=9355247;//小人身上的颜色
pManDownX:integer=44;//小人坐下时头顶的坐标
pManDownY:integer=710;//小人坐下时头顶的坐标
pManDownColor:string='FFCC00';//小人头顶的颜色
implementation
{$R *.dfm}
function TForm1.HexB(B:Byte):string;//16进制转换成字符串
begin
HexB:=Digits[B shr 4]+Digits[B and $F];
end;
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;//回调函数
var
lpszWindowText:array[0..255] of char;
WndText:string;
begin
GetWindowText(AhWnd,lpszWindowText,256);
WndText:=StrPas(lpszWindowText);
if Pos('Microsoft Internet Explorer',WndText)>0 then//如果是ie窗口则关闭
begin
PostMessage(AhWnd,WM_CLOSE,0,0);
PostMessage(AhWnd,WM_QUIT,0,0);
end;
Result:=True;
end;
procedure TForm1.CloseIE;
begin
EnumWindows(@EnumWindowsProc,LongInt(self));
end;
procedure TForm1.Step1;
var
i:integer;
begin
SetCursorPos(pManDownX,pManDownY);//小人坐下时,把鼠标移至小人头顶,然后移动鼠标激活广告条
for i:=1 to 10 do
begin
mouse_event(MOUSEEVENTF_MOVE,0,1,0,0);
Application.ProcessMessages;
end;
end;
procedure TForm1.Step2;//小人走开时,检索小人的位置,并点击他,激活广告条
var
BkColor:TColor;
X,Y:integer;
dc:HDC;
begin
IsStep2:=True;
X:=pManX;
Y:=pManY;
dc:=GetDC(0);
while (X<1000) and (IsStep2) do
begin
BkColor:=GetPixel(dc,X,Y);
if (BkColor<pManColor+1000000) and (BkColor>pManColor-1000000) then//检索小人
begin
SetCursorPos(X,Y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
// break;
end;
X:=X+1;
Application.ProcessMessages;
end;
IsStep2:=False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
X,Y:integer;
begin
if IsStep2 then Exit;
if not CheckBox1.Checked then//无人模式下,随机移动鼠标,防监测
begin
Randomize;
x:=Random(1024);
y:=Random(768);
SetCursorPos(x,y);
mouse_event(MOUSEEVENTF_MOVE,1,0,0,0);
end;
if IsRun then
begin
Label2.Font.Color:=clGreen;
Timer1.Tag:=0;
exit;
end;
if CheckBox1.Checked then//在工作模式下,如果广告条不计点了,就用声音提醒,不做其他操作,以免影响计算机的使用
begin
SndPlaySound('c:/windows/media/tada.wav',SND_ASYNC);
Exit;
end;
Label2.Font.Color:=clRed;
if Timer1.Tag=1 then
begin
Step2;
CloseIE;
Timer1.Tag:=0;
Memo2.Lines.Add(TimeToStr(now)+' step2');
end
else
begin
Step1;
Timer1.Tag:=1;
Memo2.Lines.Add(TimeToStr(now)+' step1');
end;
end;
function TForm1.IsRun:boolean;//判断小人是否在走动
var
BkColor:TColor;
R,G,B:Byte;
HStr:string;
begin
BkColor:=GetPixel(GetDC(0),pManDownX,pManDownY);
R:=GetRValue(BkColor);
G:=GetGValue(BkCOlor);
B:=GetBValue(BkColor);
HStr:=HexB(R)+HexB(G)+HexB(B);
if HStr=pManDownColor then
Result:=False
else
Result:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
if Timer1.Enabled then
begin
Button1.Caption:='Click To Stop';
Label1.Font.Color:=clGreen;
end
else
begin
Button1.Caption:='Click To Start';
Label1.Font.Color:=clRed;
IsStep2:=False;
end;
end;
end.
我的广告条是在1024*768的方式下运行的,而且是放在屏幕下方,如果您的设置与我不一样,请调整几个常量的值(pManX,pManY,pManDownX,pManDownY)。
源代码下载http://ono.3322.org/mysoft/cash.zip
如何使广告条自动运行,仅供学习参考相关推荐
- C++ 简化 推箱子 小游戏 完整代码 参考网络资料 命令行运行 仅供初学者参考交流
C++ 简化 推箱子 小游戏 完整代码 参考网络资料 命令行运行 仅供初学者参考交流 说明:学做了4关推箱子, 仅供初学者参考可用g++ 编译,可以将内容复制到TXT文件,将后缀改为".cp ...
- 人力资源学python有意义吗-python爬虫抖音 个人资料 仅供学习参考 切勿用于商业...
本文仅供学习参考 切勿用于商业 本次爬取使用fiddler+模拟器(下载抖音APP)+pycharm 1. 下载最新版本的fiddler(自行百度下载),以及相关配置 1.1.依次点击,菜单栏-Too ...
- DNS欺骗攻击——实现受害者访问任何网站都转向到攻击者指定的网站 (仅供学习参考)
DNS欺骗攻击--实现受害者访问任何网站都转向到攻击者指定的网站 (仅供学习参考) 情景要求: 同一局域网内 受害者IP:192.168.26.130 攻击者系统Kali Linux,IP地址:192 ...
- 15kw充电桩电源模块,三相电源模块电路图,仅供学习参考
15kw充电桩电源模块,三相电源模块电路图,仅供学习参考,只包含电路图和PCB文件,无软件代码 id=623312177000&
- 截止20210605的微博部分API汇总——仅供学习参考使用
文章目录 免责声明 背景 API列表 搜索主评论API REQUEST RESPOND 搜索次评论API REQUEST RESPOND 转发评论API REQUEST RESPOND 上传图片API ...
- python自动生成采集规则_【仅供学习参考】Python多线程池采集小说,超简单!
[Python] 纯文本查看 复制代码#采集小说lingdiankanshu.co import requests from lxml import etree from multiprocessin ...
- canal mysql重置_canal: 首先装完阿里的canal,然后数据库同步,仅供学习参考
背景 需要将数据库增量内容同步到另外的数据库,两者保持一致.包含增删改,数据库创建.删除,数据库名称修改,内容清空,表结构修改,索引创建.修改.删除. 方案 采用阿里巴巴Canal,用于监听mysql ...
- C#网站图片下载器,网络爬虫,仅供学习参考使用,不可用于商业活动
程序一共包含3个文件,主入口文件Program.cs,Html下载解析文件HtmlDown.cs,文件缓存文件FileCache.cs,其中Program.cs处理常用逻辑,HtmlDown.cs负责 ...
- python 毕业设计 源码 博客_blogs: 仅供学习参考使用,Python Django毕业设计——个人博客系统...
大学毕业设计个人Blog博客系统 基于"python3.6.5"和"Django2"开发的的个人博客系统. 层级结构 cd bbs; tree . ├── bb ...
- 欢迎随时回家——python制作一个火车票抢票版本(附完整代码,仅供学习参考)
嗨害大家好鸭~我是小熊猫
最新文章
- openJDK之sun.misc.Unsafe类CAS底层实现
- PhpStrom 常用的插件
- 我为什么喜欢用C#来做并发编程
- Android学习笔记2---多界面切换
- [SoapUI] How to create a random UUID in each Request's Headers
- LeetCode 919. 完全二叉树插入器(层序遍历队列)
- 用groovy采集网页数据
- 万字通俗讲解何为复杂度
- zabbix企业应用之固定端口监控memcache
- oracle没有正常启动,Oracledbstart无法正常启动处理办法
- 在linux服务器上安装sublime编辑器
- Ubuntu18.04中安装virtualenv和virtualenvwrapper
- hb100 微波雷达arduino_HB100微波雷达模块无线X波段雷达探测器探头传感器模块10.525GHz...
- Android隐藏应用桌面图标/动态修改桌面图标
- vs2010中文旗舰下载地址
- Oracle图书馆借阅管理数据库,图书借阅系统的oracle数据库
- 【OpenCV 例程200篇】37. 图像的灰度化处理和二值化处理(cv2.threshold)
- 计算机word虚线在哪里,电脑虚线怎么打出来
- spring5.0之后Log4jConfigListener过期问题
- C#设置按钮鼠标进入时半透明样式
热门文章
- 【公式识别神器】Mathpix Snip 安装及其使用教程
- unity NGUI图文混排
- 卷积神经网络(CNN)实现手写体识别
- 海思Hi3559A Sample_comm_vdec模块解码 视频解码解析
- python与数据思维基础网课答案_智慧树知到_Python数据分析与数据可视化_答案免费查询...
- 51单片机流水灯电路以及C代码
- Linux通过终端查看日志命令
- 修正的判定/条件覆盖
- 云端地球:让每个人都能在线生成大场景三维
- 计算机组成原理第5版第六章答案,计算机组成原理第六章答案.docx