按键精灵系列

检测空的没检测到的东西

在这里插入图片描述

卖出比买进多一点钱


add_one_x=292
add_one_y=263

//根据大漠来决定
chicang1_x=382
chicang1_y=868
chicang2_x=533
chicang2_y=908

buy_price1_x=825
buy_price1_y=487
buy_price2_x=903
buy_price2_y=512


buy_mode_x=add_one_x-177
buy_mode_y=add_one_y-182
sell_mode_x=add_one_x-51
sell_mode_y=add_one_y-182

plus_one_x=add_one_x-23
plus_one_y=add_one_y
doubleclick_code_x=add_one_x-222
doubleclick_code_y=add_one_y+181

buy_price_x=add_one_y+71
buy_price_y=add_one_y-13
sell_price_x=add_one_x+126
sell_price_y=add_one_y-100
buy_price=0
sell_price=0




buy_x=add_one_x-49//买入按钮的位置
buy_y=add_one_y+66
buy_yes_x=add_one_x-55
buy_yes_y=add_one_y+101
success_commit_x=add_one_x+26//你的啥已提交
success_commit_y=add_one_y+62
refresh_x=add_one_x+383//刷新位置
refresh_y=add_one_y+129


PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")

set dm = createobject("dm.dmsoft")
dm_ret = dm.SetDict(0,"D:\software\dm31233_202033015524\3.1233\dm_soft.txt")




s = dm.Ocr(chicang1_x, chicang1_y, chicang2_x, chicang2_y, "e64343-000000", 1)
 
Do While s = ""
   Delay 1000
   s = dm.Ocr(chicang1_x, chicang1_y, chicang2_x, chicang2_y, "e64343-000000", 1)
Loop 

//MessageBox s
//展示是否成功读取现在的持仓量

initial_amount=s+0
call buy()



do

MoveTo refresh_x, refresh_y
LeftDown 1  
LeftUp 1
Delay 300

s = dm.Ocr(chicang1_x,chicang1_y,chicang2_x,chicang2_y,"e64343-000000",1)
//MessageBox s
end_mount=0

Do While s = ""
   Delay 2000
   s = dm.Ocr(chicang1_x, chicang1_y, chicang2_x, chicang2_y, "e64343-000000", 1)
Loop
//MessageBox s
end_amount=s+0  

//MessageBox initial_amount
//MessageBox end_amount
if end_amount=(initial_amount+100)  then               
exit do        

end if

Loop



call sell()

do

MoveTo refresh_x, refresh_y
LeftDown 1  
LeftUp 1
Delay 300

s = dm.Ocr(chicang1_x,chicang1_y,chicang2_x,chicang2_y,"e64343-000000",1)
//MessageBox s
end_mount=0

Do While s = ""
   Delay 2000
   s = dm.Ocr(chicang1_x, chicang1_y, chicang2_x, chicang2_y, "e64343-000000", 1)
Loop
//MessageBox s
end_amount=s+0  

//MessageBox initial_amount
//MessageBox end_amount
if end_amount=initial_amount  then               
exit do        

end if

Loop

MessageBox "买卖全部完成"


EndScript





Sub buy()   


  MoveTo buy_mode_x,buy_mode_y
  LeftDoubleClick 1
  Delay 300

  MoveTo doubleclick_code_x,doubleclick_code_y
  LeftDoubleClick 1
  Delay 300


  temp= dm.Ocr(buy_price1_x,buy_price1_y,buy_price2_x,buy_price2_y,"e64343-000000",1)
  Do While temp = ""
   Delay 2000
   temp= dm.Ocr(buy_price1_x,buy_price1_y,buy_price2_x,buy_price2_y,"e64343-000000",1)
   Loop
  buy_price = temp + 0
  buy_price = buy_price/1000
  //MessageBox buy_price

  MoveTo add_one_x-131,add_one_y-55
  LeftDoubleClick 2
  SayString buy_price
  Delay 300
  //MessageBox buy_price



  MoveTo plus_one_x,plus_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo add_one_x,add_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo buy_x,buy_y
  LeftDown 1  
  LeftUp 1 
  Delay 300


  MoveTo buy_yes_x,buy_yes_y
  LeftDown 1  
  LeftUp 1 
  Delay 500


  MoveTo success_commit_x,success_commit_y
  LeftDown 1  
  LeftUp 1 
  Delay 300
  //MessageBox "买单已经完成,价格是"+temp
End Sub


Sub sell()   

  MoveTo sell_mode_x,sell_mode_y
  LeftDoubleClick 1
  Delay 100  

  MoveTo doubleclick_code_x,doubleclick_code_y
  LeftDoubleClick 1
  Delay 100

  MoveTo add_one_x-131,add_one_y-55
  LeftDoubleClick 2
  SayString buy_price+0.001
  //MessageBox buy_price+0.001

  //MoveTo sell_price_x,sell_price_y
  //LeftDown 1  
  //LeftUp 1  
  //Delay 100

  MoveTo plus_one_x,plus_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo add_one_x,add_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo buy_x,buy_y
  LeftDown 1  
  LeftUp 1 
  Delay 300


  MoveTo buy_yes_x,buy_yes_y
  LeftDown 1  
  LeftUp 1 
  Delay 500


  MoveTo success_commit_x,success_commit_y
  LeftDown 1  
  LeftUp 1 
  Delay 1200 
End Sub





按键精灵朝着当前鼠标的位置输出数字

在这里插入图片描述

在这里插入图片描述

东方财富对恒生ETF自动交易



add_one_x=508
add_one_y=287

chicang1_x=828
chicang1_y=913
chicang2_x=973
chicang2_y=961

buy_mode_x=add_one_x-177
buy_mode_y=add_one_y-182
sell_mode_x=add_one_x-51
sell_mode_y=add_one_y-182

plus_one_x=add_one_x-23
plus_one_y=add_one_y
doubleclick_code_x=add_one_x-222
doubleclick_code_y=add_one_y+181

buy_price_x=add_one_y+71
buy_price_y=add_one_y-13
sell_price_x=add_one_x+126
sell_price_y=add_one_y-100


buy_x=add_one_x-49//买入按钮的位置
buy_y=add_one_y+66
buy_yes_x=add_one_x-55
buy_yes_y=add_one_y+101
success_commit_x=add_one_x+26//你的啥已提交
success_commit_y=add_one_y+62
refresh_x=add_one_x+383//刷新位置
refresh_y=add_one_y+129


PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")

set dm = createobject("dm.dmsoft")
dm_ret = dm.SetDict(0,"D:\software\dm31233_202033015524\3.1233\dm_soft.txt")












s = dm.Ocr(chicang1_x,chicang1_y,chicang2_x,chicang2_y,"e64343-000000",1)
initial_amount=s+0
call buy()


do

MoveTo refresh_x, refresh_y
LeftDown 1  
LeftUp 1
Delay 1200

s = dm.Ocr(chicang1_x,chicang1_y,chicang2_x,chicang2_y,"e64343-000000",1)
end_amount=s+0


if end_amount=(initial_amount+100)  then               
exit do        

end if

loop
call sell()






EndScript





Sub buy()   


  MoveTo buy_mode_x,buy_mode_y
  LeftDoubleClick 1
  Delay 100

  MoveTo doubleclick_code_x,doubleclick_code_y
  LeftDoubleClick 1
  Delay 100

  MoveTo buy_price_x,buy_price_y
  LeftDown 1  
  LeftUp 1  
  Delay 100

  MoveTo plus_one_x,plus_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo add_one_x,add_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo buy_x,buy_y
  LeftDown 1  
  LeftUp 1 
  Delay 300


  MoveTo buy_yes_x,buy_yes_y
  LeftDown 1  
  LeftUp 1 
  Delay 500


  MoveTo success_commit_x,success_commit_y
  LeftDown 1  
  LeftUp 1 
  Delay 1200 
End Sub


Sub sell()   

  MoveTo sell_mode_x,sell_mode_y
  LeftDoubleClick 1
  Delay 100  

  MoveTo doubleclick_code_x,doubleclick_code_y
  LeftDoubleClick 1
  Delay 100

  MoveTo sell_price_x,sell_price_y
  LeftDown 1  
  LeftUp 1  
  Delay 100

  MoveTo plus_one_x,plus_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo add_one_x,add_one_y
  LeftDown 1  
  LeftUp 1 
  Delay 500

  MoveTo buy_x,buy_y
  LeftDown 1  
  LeftUp 1 
  Delay 300


  MoveTo buy_yes_x,buy_yes_y
  LeftDown 1  
  LeftUp 1 
  Delay 500


  MoveTo success_commit_x,success_commit_y
  LeftDown 1  
  LeftUp 1 
  Delay 1200 
End Sub

函数咋用啊

Call 子程序()   
EndScript   
Sub 子程序()   
    Msgbox "我是子程序,被你调用了"  
End Sub  
a=1234
Call 子程序()     
Sub 子程序()   
    Msgbox a  
End Sub 

大漠插件替代高PID这样运行们就可以获得正确坐标啦!!

按键精灵

  • 下载地址

http://mydown.yesky.com/pcsoft/234945.html

  • 网盘地址

链接:https://pan.baidu.com/s/1duFFRqiSkhAycS86Y4d6dg
提取码:3z0a

  • 下载安装后长这样子

在这里插入图片描述

咋找屏幕上某点的位置呢?

  • 编辑脚本
  • 抓抓啊
  • 就是这么高啊!

在这里插入图片描述

  • 这个的确是对的
  • 但是如果用大漠插件识别数字,那么必须用大漠综合工具搞位置啊

自动打开我的东方财富

MoveTo 185, 138
RightDown 1
RightUp 1
Delay 3000



MoveTo 171, 150
LeftDown 1
LeftUp 1

录制的视频重新执行的话位置有偏差

  • 咋办呢?

在这里插入图片描述

大漠插件

链接:https://pan.baidu.com/s/1Eh2BIaLfm2n3haMfx7uGDA
提取码:wug0

  • 下载玩打开长这样子

在这里插入图片描述

  • 第一步双击最后的注册大漠插件到系统

注册大漠插件的时候报错

在这里插入图片描述

  • 咋办呢呢
  • 用管理员打开命令行
  • 进入大漠的文件夹
  • 在这里进行注册dll
  • regsvr32 **.dll

大漠插件咋制作字库

打开大漠插件

在这里插入图片描述

  • 看到没有,字库文件就是往这个字库里面添加字啊,如果一开始没有添加一个字,这个库就是空的
  • 看图上,他已经有了两个字了

  • 下面我要识别东方财富的富!

在这里插入图片描述

  • 这下文件里
  • 就多了一个富字啦!

  • 交易的已易经识别下在这里插入图片描述

在按键精灵里面使用大漠插件

  • 把这两个东西放在这里

在这里插入图片描述

  • 然后放这个


PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")

set dm = createobject("dm.dmsoft")
dm_ret = dm.SetDict(0,"C:\Users\ZTZ\Desktop\dm_soft.txt")
s = dm.Ocr(0,0,1878,781,"ffffff-000000",1.0)

MessageBox s



  • 他就是别除了桌面上白白的富企富抑啦!

识别“东方财富交易”

在这里插入图片描述

  • 虽然是多个字,但是是作为整体啊,我觉得还是要点击提取点阵啊!

  • 他会成功吗

在这里插入图片描述

  • 成功识别啊!

是否会识别到屏幕上两个地方的"东方财富"

在这里插入图片描述

在这里插入图片描述

  • ok啦!牛逼!!

找到密码这俩个字


PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")

set dm = createobject("dm.dmsoft")
dm_ret = dm.SetDict(0,"D:\software\dm31233_202033015524\3.1233\dm_soft.txt")
s = dm.Ocr(0,0,1878,781,"ffffff-000000",1.0)

dm_ret = dm.FindStr(0,0,1878,781,"密码","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
     MoveTo intX,intY
End If
  • 但是这还是需要在那种模式下才可以运行到那个正确的位置

频繁发百度网盘的验证码


PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")

set dm = createobject("dm.dmsoft")
dm_ret = dm.SetDict(0,"D:\software\dm31233_202033015524\3.1233\dm_soft.txt")
s = dm.Ocr(0,0,1878,781,"ffffff-000000",1.0)

dm_ret = dm.FindStr(0,0,1878,781,"密码","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
     MoveTo intX, intY + 61
     LeftClick  1
     KeyDown 49, 1
     KeyUp 49, 1
     KeyDown 55, 1
     KeyUp 55, 1
     KeyDown 56, 1
     KeyUp 56, 1
     KeyDown 48, 1
     KeyUp 48, 1
     KeyDown 49, 1
     KeyUp 49, 1
     KeyDown 48, 1
     KeyUp 48, 1
     KeyDown 53, 1
     KeyUp 53, 1
     KeyDown 53, 1
     KeyUp 53, 1
     KeyDown 48, 1
     KeyUp 48, 1
     KeyDown 55, 1
     KeyUp 55, 1
     KeyDown 52, 1
     KeyUp 52, 1
     For 10
     MoveTo intX, intY+228
     LeftClick 1
     Delay 62000
Next 

End If

大漠插件如何提取数字

在这里插入图片描述

  • 上图我抓图抓到了跌停两个字
  • 为啥二值化区域里没有呢?
  • 现在开始
    • 点击红色
    • 然后出来个小东西
    • 然后点击跌停这个字上面的东西
    • 那么你就会发现RGB,HSV这些都变了
    • 然后出现下面的

在这里插入图片描述

  • 牛逼把!!
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

fgh431

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值