很楠不爱3

这个屌丝很懒，什么也没留下！

热门标签

按键精灵系列_同花顺下单程序路径怎么有很长的数字

作者：很楠不爱3 | 2024-03-06 11:30:44

踩

同花顺下单程序路径怎么有很长的数字

检测空的没检测到的东西

在这里插入图片描述

卖出比买进多一点钱


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





1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249

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

在这里插入图片描述

东方财富对恒生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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176

函数咋用啊

Call 子程序()   
EndScript   
Sub 子程序()   
    Msgbox "我是子程序,被你调用了"  
End Sub  
1
2
3
4
5

a=1234
Call 子程序()     
Sub 子程序()   
    Msgbox a  
End Sub 
1
2
3
4
5

大漠插件替代高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
1
2
3
4
5
6
7
8
9
10

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

咋办呢？

在这里插入图片描述

大漠插件

链接：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



1
2
3
4
5
6
7
8
9
10
11
12
13
14

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

识别“东方财富交易”

在这里插入图片描述

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

他会成功吗

在这里插入图片描述

成功识别啊！

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

在这里插入图片描述

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
1
2
3
4
5
6
7
8
9
10
11
12
13

但是这还是需要在那种模式下才可以运行到那个正确的位置

频繁发百度网盘的验证码


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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

大漠插件如何提取数字

在这里插入图片描述

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

在这里插入图片描述

牛逼把！！

声明：本文内容由网友自发贡献，转载请注明出处：【wpsshop】

按键精灵系列_同花顺下单程序路径怎么有很长的数字

文章目录

检测空的没检测到的东西

卖出比买进多一点钱

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

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

函数咋用啊

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

按键精灵

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

自动打开我的东方财富

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

大漠插件

注册大漠插件的时候报错

大漠插件咋制作字库

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

识别“东方财富交易”

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

找到密码这俩个字

频繁发百度网盘的验证码

大漠插件如何提取数字