文章目录
检测空的没检测到的东西
卖出比买进多一点钱
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这些都变了
- 然后出现下面的
- 牛逼把!!