- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-4-20
|
|
//定义桌面大小
UserVar kkk=1024 "屏幕宽":UserVar ggg=800 "屏幕高"
//定义刷新点
UserVar gdx=242 "刷新X坐标":UserVar gdy=610 "刷新Y坐标"
//买入----------------------------------------------
//当预警F1点亮程序查找F1所在位置
Call FindPic(0,0,kkk,ggg,"tp\买入明.bmp",0.9,mrmX,mrmY)
If mrmX>0 and mrmY>0 then
MoveTo mrmX,mrmY
LeftClick 1
Delay 1000
Else
//如果没有找到就到刷新点待命
MoveTo gdx,gdy
End If
//查找买入[B]位置
Call FindPic(0,0,kkk,ggg,"tp\买入.bmp",0.9,mrX,mrY)
If mrX>0 and mrY>0 then
MoveTo mrX+10,mrY+5
Delay 1000
LeftClick 1
//出错和其他原因按Esc退出弹出窗口
Delay 1000
KeyPress "Esc", 1
Delay 1000
Else
//MessageBox "如果没有找到就到刷新点待命"
MoveTo gdx,gdy
End If
Delay 1000
//查找预警窗口图标 ,找到后关闭
Call FindPic(0,0,kkk,ggg,"tp\缩小.bmp",0.9,sxX,sxY)
If sxX>0 and sxY>0 then
MoveTo sxX+10,sxY+5
Delay 1000
LeftClick 1
Delay 1000
//向上箭头按下,出现ail+4,然后回车,也就是关闭窗口用,以免重复预警
KeyPress "Up", 1
Delay 1000
KeyPress "Enter", 1
Else
//MessageBox "如果没有找到就到刷新点待命"
MoveTo gdx,gdy
End If
//查找预警窗口图标 ,找到后关闭,暗状态
Call FindPic(0,0,kkk,ggg,"tp\缩小暗.bmp",0.9,sxaX,sxaY)
If sxaX>0 and sxaY>0 then
MoveTo sxaX+10,sxaY+5
Delay 1000
LeftClick 1
Delay 1000
//向上箭头按下,出现ail+4,然后回车,也就是关闭窗口用,以免重复预警
KeyPress "Up", 1
Delay 1000
KeyPress "Enter", 1
Else
//MessageBox "如果没有找到就到刷新点待命"
MoveTo gdx,gdy
End If
//鼠标刷新后按F3准备下一次预警F4也可以,也就是换个鼠标位置,避免重复操作
MoveTo gdx,gdy+20
LeftClick 1
//等待时间
Delay 1000
KeyPress "F3", 1
//MessageBox "找到图形,鼠标已经移到图形上面"
//卖出--------------------------------------------------------------------
//当预警F2点亮程序查找F2所在位置
Call FindPic(0,0,kkk,ggg,"tp\卖出明.bmp",0.9,mcmX,mcmY)
If mcmX>0 and mcmY>0 then
MoveTo mcmX,mcmY
LeftClick 1
Delay 1000
Else
//如果没有找到就到刷新点待命
MoveTo gdx,gdy
End If
//查找买入[S]位置
Call FindPic(0,0,kkk,ggg,"tp\卖出.bmp",0.9,mcX,mcY)
If mcX>0 and mcY>0 then
MoveTo mcX+10,mcY+5
Delay 1000
LeftClick 1
//出错和其他原因按Esc退出弹出窗口
Delay 1000
KeyPress "Esc", 1
Delay 1000
Else
//MessageBox "如果没有找到就到刷新点待命"
MoveTo gdx,gdy
End If
Delay 1000
//向上箭头按下,出现ail+4,然后回车,也就是关闭窗口用,以免重复预警
KeyPress "Up", 1
Delay 1000
KeyPress "Enter", 1
Else
//MessageBox "如果没有找到就到刷新点待命"
//MessageBox "如果没有找到就到刷新点待命"
MoveTo gdx,gdy
End If
//鼠标刷新后按F3准备下一次预警F4也可以,也就是换个鼠标位置,避免重复操作
MoveTo gdx,gdy+10
LeftClick 1
//等待时间
Delay 3000
KeyPress "F3", 1
//MessageBox "找到图形,鼠标已经移到图形上面"
需要的3000元 源码,包用,带调试QQ656955 |
|
|