QQ华夏后台绑定换超大红包源码

lypcom123

UserVar XF=150 "防卡设置"
Set dm = createobject("dm.dmsoft")
//创建大漠对象
need_ver = "3.1233"
//版本号
dm.Setpath "E:\大漠插件"
//路径
dm.SetDict 0, "dm_soft.txt"
//字库文件
    dm.GetCursorPos x, y
    //得到当前鼠标窗口坐标，保存到x,y中
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "gdi", "dx", "dx", 0)
//绑定
Delay 1000
    dm_ret = dm.ScreenToClient(hwnd,x,y)
    Delay 500
    //把屏幕坐标转换成窗口坐标
Do
    Rem M
        dm.MoveTo x, y
        dm.RightClick
         Delay 1000
dm_ret = dm.FindStrFast(532,289,597,307,"购买红包","ffff00-000000",1.0,intx,inty)
If intx >= 0 Then
        dm.MoveTo intx, inty
                 Delay 100
            dm.LeftClick
    End If
             Delay XF
dm_ret = dm.FindStrFast(585,306,600,323,"大","ffff00-000000",1.0,intx1,inty1)
    If intx1 >= 0 Then
            dm.MoveTo intx1, inty1
                         Delay 100
                    dm.LeftClick
                                 Delay 100
    dm_ret = dm.FindStrFast(532,220,572,251,"离开","ffff00-000000",1.0,intx2,inty2)
            If intx2 >= 0 Then
        MessageBox "兑换完成"
            EndScript
Else
            Goto M
            End If
     End If
Loop




联系我时，请说是在 挂海论坛 上看到的，谢谢！

lypcom123

说明一下，这是按键精灵的。

xrzh8989

你在已经QQ华夏吗，我也在研究，加个QQ 2569089485，一起研究研究啊