易语言控制单片机实现鼠标左击

dita 发表于 2015-1-16 23:45

我是刚接触单片机写的有问题希望前辈们与以点评
原理如下
废旧鼠标左键焊接两根导线
易语言与单片机的串口通信控制一个继电器继电器控制鼠标左键

一共两个程序
调用端易语言
-----------------------------------------------------------------------------

端口1.发送数据 (到字节 (到数值 (编辑框1.内容)))

-----------------------------------------------------------------------------
被调用端单片机 C
----------------------------------------------------------------------------

http://bbs.jianhucheng.com/data/attachment/forum/201501/16/233309zhmfm1tipwxicvzh.png

#include<reg51.h>

sbit RELAY = P0^0;
sbit LED1 = P1^0;

void Delay10ms(unsigned int);

unsigned char flag,tmp;

void main()
{
   LED1=0;
      SCON=0X50;
   TMOD=0X20;
   PCON=0X80;
   TH1=0XF3;
   TL1=0XF3;
   ES=1;
   EA=1;
   TR1=1;
            while(1)
            {
                     if(flag==1)
                              {
                                    ES=0;
                                    flag=0;
                        LED1=0;
                                    RELAY=0;

                                    Delay10ms(1);
                                             LED1=1;
                                    RELAY=1;
                                    SBUF=tmp;
                                    while(!TI);
                                    TI=0;
                                    ES=1;
                              }

            }

}

void Delay10ms(unsigned int c)
{
unsigned char a,b;
for(;c>0;c--)
   for(b=38;b>0;b--)
         for(a=130;a>0;a--);
}

void ser() interrupt 4

{
   RI=0;
   tmp=SBUF;
   flag=1;
}

源码如下加入屏幕取色实现CF 自动开枪在出23-0 就是你运气真背到极点了这是真的鼠标点的

备份浏览地址
http://bbs.jianhucheng.com/thread-670872-1-1.html

love105827 发表于 2015-1-17 00:00

这个和易语言有关系？？

dita 发表于 2015-1-16 23:52

大漠色值如下友情提示大漠色值不通用别的模块
FindColor(375,333,429,357,"e3461c-050505|a53a31-050505|9b3834-050505|9e3833-050505",1.0,4,x1,y1)=1 then

hlrlqy 发表于 2015-1-17 00:00

到底还是c

as1543100166 发表于 2015-1-17 00:24

{:1_937:}这玩意干嘛用呢

f378694339 发表于 2015-1-17 00:28

好神秘的感觉

tongjin73 发表于 2015-1-17 01:24

{:301_997:}易语言玩单片机楼主不错啊

1257276297 发表于 2015-1-17 09:36

表示看不懂。

yuday 发表于 2015-1-17 17:14

表示楼主非常爱折腾

liujinze880125 发表于 2015-1-20 10:27

太特么的流弊了！！！

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

易语言控制单片机 实现鼠标左击

易语言控制单片机实现鼠标左击