• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[源码分享] 【cf手游抢红包】源码 [复制链接]

1#
自己写了个cf手游抢红包的脚本,测试效果还不错
分享给大家学习
Dim 屏幕横坐标X,屏幕纵坐标Y,DPI
Dim intX,intY,pd
屏幕横坐标X = GetScreenX()
屏幕纵坐标Y = GetScreenY()
DPI = DEVICE.GetDPI()
If 屏幕横坐标X = 720 or 屏幕纵坐标Y = 1280 or DPI=320 Then
ShowMessage "分辨率为720P,准备抢红包"
Delay 2000
Call 模拟器()
Else
ShowMessage "该设备的分辨率不是720P,开始尝试1080P的分辨率"
Delay 5000
End If
If 屏幕横坐标X = 1080 or 屏幕纵坐标Y = 1920 or DPI=440 Then
ShowMessage "分辨率为1080P,准备抢红包"
Delay 2000
Call 手机()
Else
ShowMessage "Error:分辨率或DPI错误\n辅助仅支持分辨率1080*1920,DPI440\n推荐使用模拟器,辅助即将退出"
Delay 5000
EndScript
End If
Sub 模拟器()
Do
pd = CmpColor(713, 8, "E9F1F9", 0.9)
If pd > -1 Then
ShowMessage "正在等待红包出现"
Else
ShowMessage "开始抢红包"
Tap 700, 443
Delay 666
Tap 125,541
Delay 5000
Tap 588,749
End If
Delay 66
Loop
End Sub
Sub 手机()
Do
pd = CmpColor(1069,10, "E9F1F9", 0.9)
If pd > -1 Then
ShowMessage "正在等待红包出现"
Else
ShowMessage "开始抢红包"
Tap 996,248
Delay 666
Tap 190,962
Delay 5000
Tap 881,1272
End If
Delay 66
Loop
End sub
改了下,修正下有红包不抢的问题
现在安卓好像很多抢红包会失效,所以也做了PC版的脚本,
源码也分享给大家()
Dim i, sd
Event Form1.Slider1.Slide
Form1.Label3.Caption = Form1.Slider1.Value &"ms"
End Event
sd = cint(Form1.Slider1.Value)
TracePrint sd
i=0
Call 大漠注册
Call 窗口操作()
If Form1.ComboBox1.ListIndex = 0 Then
TracePrint "选择模式1"
End If
Call 模式1()
If Form1.ComboBox1.ListIndex = 1 Then
TracePrint "选择模式2"
Call 模式2()
End if
Sub 模式1()
Do
dm_ret = dm.CmpColor(6,12,"ccccc4-000000",0.9)
If dm_ret = 0 Then
// Call Plugin.Msg.Tips("等待红包出现")
Else
dm.moveto 161,38
Delay sd
dm.LeftClick
Delay sd
dm_ret = dm.CmpColor(664,103,"811e16-000000",0.9)
If dm_ret = 0 Then
TracePrint "发现红包"
dm.moveto 501,468
Delay sd
dm.LeftClick
Delay 1000
i=i+1
TracePrint "开始截图"
dm_ret = dm.CapturePng(221,11,731,530,i&".png")
End If
Delay sd
dm_ret = dm.CmpColor(664,103,"811e16-000000",0.9)
If dm_ret = 0 Then
TracePrint "关闭红包"
dm.moveto 528,474
Delay 200
dm.LeftClick
End If
End If
dm_ret = dm.CmpColor(753,65,"fd0c0c-000000",0.9)
If dm_ret = 0 Then
TracePrint "关闭好友邀请"
dm.moveto 752,64
Delay 200
dm.LeftClick
End If
dm_ret = dm.CmpColor(644,267,"bb9250-000000",0.9)
If dm_ret = 0 Then
TracePrint "关闭好友申请"
dm.moveto 644,267
Delay 200
dm.LeftClick
End If
Loop
End Sub
Sub 模式2()
Do
dm.moveto 161,38
Delay sd
dm.LeftClick
Delay sd
dm_ret = dm.CmpColor(501,468,"935b41-000000",0.9)
If dm_ret = 0 Then
TracePrint "发现红包"
dm.moveto 501,468
Delay sd
dm.LeftClick
Delay 1000
i=i+1
TracePrint "开始截图"
dm_ret = dm.CapturePng(221,11,731,530,i&".png")
End If
dm_ret = dm.CmpColor(664,103,"811e16-000000",0.9)
If dm_ret = 0 Then
TracePrint "关闭红包"
dm.moveto 528,474
Delay 200
dm.LeftClick
End If
dm_ret = dm.CmpColor(753,65,"fd0c0c-000000",0.9)
If dm_ret = 0 Then
TracePrint "关闭好友邀请"
dm.moveto 752,64
Delay 200
dm.LeftClick
End If
Delay sd
Loop
End Sub
Sub 大漠注册()
need_ver = "3.1233"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
PutAttachment "c:\sunkay3","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
// PutAttachment "c:\sunkay3\yz" ,"AL.TXT"
Call Plugin.RegDll.Reg("c:\sunkay3\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\sunkay3\dm.dll /s"
set ws=nothing
Delay 1500
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox "请关闭程序,重新打开本程序再尝试"
end if
end if
dm.CreateFolder "c:\sunkay3\yz"
dm.SetPath "c:\sunkay3"
dm.CopyFile "c:\sunkay3\al.txt","c:\sunkay3\yz\al.txt",0
/////////////////////////////////
End Sub
Sub 窗口操作()
MsgBox "准备绑定窗口,点击确定后将鼠标移动到模拟器窗口上"
Delay 2000
hwnd = dm.GetMousePointWindow()
// hwnd = dm.FindWindowEx(0, "Qt5QWindowIcon", "RenderWindowWindow")
TracePrint hwnd
Delay 200
dm_ret = dm.BindWindow(hwnd, "normal", "windows2", "windows", 0)
If dm_ret > 0 Then
    MsgBox "绑定成功,开始抢红包"
End If
TracePrint dm_ret
End Sub

最后编辑yevying 最后编辑于 2017-01-20 12:21:23
2#

支持1080P和720P的分辨率哦
上面的源码有些是带有界面,直接复制的话运行不了
我生成好了小精灵供大家下载
PC版的下载地址 链接:http://pan.baidu.com/s/1c14US9M 密码:zpz4
安卓版的下载地址链接:http://pan.baidu.com/s/1pLllRo3 密码:rqul

最后编辑yevying 最后编辑于 2017-01-20 17:49:55
3#

学习学习😊

4#

学习学习!

5#

是嘛

6#

自己写了个cf手游抢红包的脚本,测试效果还不错

7#

11111111

8#

看看楼主隐藏了什么

9#

啦啦啦啦啦啦啦啦啦是什么歌

10#

。。

11#

Nnnnnnnnnn

12#

这个不错

13#

谢谢楼主,楼主好人,赞\(≧▽≦)/

14#

源码……………………………………

15#

学习学习😊

16#

学习学习

17#

学习学习

18#

谢谢大神了

19#

感谢分享

20#

sjdjjdjsjsnsndnjdjdjjd

发新话题 回复该主题