网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
天下魔兽吧 关注：3贴子：21
  • 4回复贴，共1页

最新五开按键

只看楼主收藏回复

Do
Hwnd = Plugin.Window.MousePoint()
Loop Until Hwnd > 0
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Randomize
yc = int(Rnd * 300) + 100 // 实现100~300ms之间的随机延时
Delay yc
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Randomize
yc = int(Rnd * 20) + 10 // 实现100~300ms之间的随机延时
Delay yc
Call Plugin.Bkgnd.KeyPress(Hwnd, 81)
Randomize
yc = int(Rnd * 20) + 10 // 实现100~300ms之间的随机延时
Delay yc
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Randomize
yc = int(Rnd * 20) + 10 // 实现100~300ms之间的随机延时
Delay yc
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Randomize
yc = int(Rnd * 300) + 100 // 实现100~300ms之间的随机延时
Delay yc
Call Plugin.Bkgnd.KeyPress(Hwnd, 192)
Randomize
yc = int(Rnd * 300) + 100 // 实现100~300ms之间的随机延时
Delay yc
Loop
IP属地:辽宁1楼2020-11-23 19:22回复
    Plugin.Bkgnd.KeyDown 参数1,参数2
    Do
    Hwnd = Plugin.Window.MousePoint()
    Loop Until Hwnd > 0
    Do
    Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//登入
    Delay 10000 //读蓝条
    Call Plugin.Bkgnd.KeyDown(Hwnd, 65)//往拍卖师那走
    Delay 2900
    Call Plugin.Bkgnd.KeyUp(Hwnd, 65)//弹起按键
    Call Plugin.Bkgnd.KeyPress(Hwnd, 49)//选拍卖师宏
    Delay 100
    Call Plugin.Bkgnd.KeyPress(Hwnd, 81)//与拍卖师互动
    Delay 1000
    Call Plugin.Bkgnd.MoveTo(Hwnd, 107, 408)//左键点发布扫描第一次长时间
    Call Plugin.Bkgnd.LeftClick(Hwnd, 107, 408)//左键点发布扫描第一次长时间
    Delay 500
    For 400//发布流程第一次长时间
    Call Plugin.Bkgnd.MoveTo(Hwnd, 442, 442)//左键点发布
    Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点发布
    Delay 50
    Next
    Call Plugin.Bkgnd.MoveTo(Hwnd, 32, 66)//左键点退出扫描
    Call Plugin.Bkgnd.LeftClick(Hwnd, 32, 66)//左键点退出扫描
    Delay 500
    For 3//长时间后固定上货热门次数
    Call Plugin.Bkgnd.MoveTo(Hwnd, 107, 408)//左键点发布扫描
    Call Plugin.Bkgnd.LeftClick(Hwnd, 107, 408)//左键点发布扫描
    Delay 500
    For 100//发布流程
    Call Plugin.Bkgnd.MoveTo(Hwnd, 442, 442)//左键点发布
    Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点发布
    Delay 50
    Next
    Call Plugin.Bkgnd.MoveTo(Hwnd, 32, 66)//左键点退出扫描
    Call Plugin.Bkgnd.LeftClick(Hwnd, 32, 66)//左键点退出扫描
    Delay 500
    Next
    Call Plugin.Bkgnd.MoveTo(Hwnd, 116, 438)//左键点取消扫描取消被压价的
    Call Plugin.Bkgnd.LeftClick(Hwnd, 116, 438)//左键取消扫描取消被压价的
    Delay 500
    For 400//取消流程
    Call Plugin.Bkgnd.MoveTo(Hwnd, 442, 442)//左键点取消
    Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点取消
    Delay 50
    Next
    Call Plugin.Bkgnd.KeyDown(Hwnd, 68)//后退到邮箱
    Delay 2900
    Call Plugin.Bkgnd.KeyUp(Hwnd, 68)//弹起按键
    Delay 2000
    Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
    Delay 100
    Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
    Delay 100
    Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
    Delay 100
    Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
    Delay 100
    Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
    Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
    Delay 1000
    For 100
    Call Plugin.Bkgnd.MoveTo(Hwnd, 237, 356)//左键点打开邮件
    Call Plugin.Bkgnd.LeftClick(Hwnd, 237, 356)//左键点打开邮件
    Delay 50
    Next
    Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
    Delay 100
    Call Plugin.Bkgnd.KeyPress(Hwnd, 191)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 76)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 71)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 85)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 84)//输入登出
    Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
    Delay 10000//等待上线
    Loop
    IP属地:辽宁4楼2022-09-07 13:28
    回复
      9月10日更新
      Do
      Hwnd = Plugin.Window.MousePoint()
      Loop Until Hwnd > 0
      Do
      Call Plugin.Bkgnd.KeyDown(Hwnd, 65)//往拍卖师那走
      Delay 2900
      Call Plugin.Bkgnd.KeyUp(Hwnd, 65)//弹起按键
      Call Plugin.Bkgnd.KeyPress(Hwnd, 49)//选拍卖师宏
      Delay 100
      Call Plugin.Bkgnd.KeyPress(Hwnd, 81)//与拍卖师互动
      Delay 1000
      Call Plugin.Bkgnd.MoveTo(Hwnd, 107, 408)//左键点发布扫描第一次长时间
      Call Plugin.Bkgnd.LeftClick(Hwnd, 107, 408)//左键点发布扫描第一次长时间
      Delay 500
      For 3000//发布流程第一次长时间
      Call Plugin.Bkgnd.MoveTo(Hwnd, 440, 442)//左键点发布
      Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点发布
      Delay 50
      Next
      Call Plugin.Bkgnd.MoveTo(Hwnd, 32, 66)//左键点退出扫描
      Call Plugin.Bkgnd.LeftClick(Hwnd, 32, 66)//左键点退出扫描
      Delay 500
      For 5//长时间后固定上货热门次数
      Call Plugin.Bkgnd.MoveTo(Hwnd, 107, 408)//左键点发布扫描
      Call Plugin.Bkgnd.LeftClick(Hwnd, 107, 408)//左键点发布扫描
      Delay 500
      For 500//发布流程
      Call Plugin.Bkgnd.MoveTo(Hwnd, 442, 442)//左键点发布
      Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点发布
      Delay 50
      Next
      Call Plugin.Bkgnd.MoveTo(Hwnd, 32, 66)//左键点退出扫描
      Call Plugin.Bkgnd.LeftClick(Hwnd, 32, 66)//左键点退出扫描
      Delay 500
      Next
      Call Plugin.Bkgnd.MoveTo(Hwnd, 116, 438)//左键点取消扫描取消被压价的
      Call Plugin.Bkgnd.LeftClick(Hwnd, 116, 438)//左键取消扫描取消被压价的
      Delay 500
      For 2000//取消流程
      Call Plugin.Bkgnd.MoveTo(Hwnd, 442, 442)//左键点取消
      Call Plugin.Bkgnd.LeftClick(Hwnd, 442, 442)//左键点取消
      Delay 50
      Next
      Call Plugin.Bkgnd.KeyDown(Hwnd, 68)//后退到邮箱
      Delay 2950
      Call Plugin.Bkgnd.KeyUp(Hwnd, 68)//弹起按键
      Delay 2000
      Call Plugin.Bkgnd.MoveTo(Hwnd, 400, 175)
      Call Plugin.Bkgnd.RightDown(Hwnd, 400, 175)
      Call Plugin.Bkgnd.RightUp(Hwnd, 400, 175)//右键点邮箱
      Delay 100
      Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
      Delay 100
      Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
      Delay 100
      Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
      Delay 100
      Call Plugin.Bkgnd.MoveTo(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightDown(Hwnd, 417, 182)
      Call Plugin.Bkgnd.RightUp(Hwnd, 417, 182)//右键点邮箱
      Delay 1000
      For 100
      Call Plugin.Bkgnd.MoveTo(Hwnd, 237, 356)//左键点打开邮件
      Call Plugin.Bkgnd.LeftClick(Hwnd, 237, 356)//左键点打开邮件
      Delay 50
      Next
      Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
      Delay 100
      Call Plugin.Bkgnd.KeyPress(Hwnd, 191)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 76)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 71)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 85)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 84)//输入登出
      Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
      Delay 10000//等待上线
      Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//登入
      Delay 5000 //读蓝条
      Loop
      IP属地:辽宁5楼2022-09-10 00:09
      回复
        9月10号更新银月城
        Do
        Hwnd = Plugin.Window.MousePoint()
        Loop Until Hwnd > 0
        Do
        Call Plugin.Bkgnd.KeyDown(Hwnd, 83)//邮箱起步后退（要改走路）
        Delay 3000//3秒
        Call Plugin.Bkgnd.KeyUp(Hwnd, 83)//弹起按键
        Delay 100//间歇
        Call Plugin.Bkgnd.KeyDown(Hwnd, 68)//右平移到拍卖师
        Delay 4000//4秒
        Call Plugin.Bkgnd.KeyUp(Hwnd, 68)//右平移到拍卖师
        Delay 100//间歇
        Call Plugin.Bkgnd.KeyPress(Hwnd, 49)//选拍卖师宏
        Delay 500
        Call Plugin.Bkgnd.KeyPress(Hwnd, 81)//与拍卖师互动
        Delay 1000
        Call Plugin.Bkgnd.MoveTo(Hwnd, 145, 526)//左键点发布扫描第一次长时间
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 145, 526)//左键点发布扫描第一次长时间
        Delay 1000
        For 2000//发布流程第一次长时间 调节此数值x0.1为等待秒数
        Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点发布
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点发布
        Delay 50
        Next
        Call Plugin.Bkgnd.MoveTo(Hwnd, 45, 95)//左键点退出扫描
        Delay 500
        Call Plugin.Bkgnd.LeftClick(Hwnd, 45, 95)//左键点退出扫描
        Delay 500
        For 5//长时间后固定上货热门次数，调节此数值X1为发布几次
        Call Plugin.Bkgnd.MoveTo(Hwnd, 145, 526)//左键点发布扫描
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 145, 526)//左键点发布扫描
        Delay 500
        For 1000//发布流程补货 调节此数值x0.1为等待秒数（短于第一次发布）
        Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点发布
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点发布
        Delay 50
        Next
        Call Plugin.Bkgnd.MoveTo(Hwnd, 45, 95)//左键点退出扫描
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 45, 95)//左键点退出扫描
        Delay 500
        Next
        Call Plugin.Bkgnd.MoveTo(Hwnd, 141, 554)//左键点取消扫描取消被压价的
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 141, 554)//左键取消扫描取消被压价的
        Delay 500
        For 3000//取消流程，调节此数值x0.1为等待秒数
        Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点取消
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点取消
        Delay 50
        Next
        Call Plugin.Bkgnd.KeyDown(Hwnd, 65)//左平移到邮箱垂直位置
        Delay 4000//4秒
        Call Plugin.Bkgnd.KeyUp(Hwnd, 65)//左平移到邮箱垂直位置
        Delay 100//间歇
        Call Plugin.Bkgnd.KeyDown(Hwnd, 87)//前进到邮箱位
        Delay 3000//3秒
        Call Plugin.Bkgnd.KeyUp(Hwnd, 87)//前进到邮箱位
        Delay 1000
        Call Plugin.Bkgnd.MoveTo(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        Call Plugin.Bkgnd.RightDown(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        Call Plugin.Bkgnd.RightUp(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        Call Plugin.Bkgnd.MoveTo(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        Call Plugin.Bkgnd.RightDown(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        Call Plugin.Bkgnd.RightUp(Hwnd, 150, 400)//右键点邮箱
        Delay 100//右键点邮箱
        For 200//调节此数值x0.1为开邮件秒数
        Call Plugin.Bkgnd.MoveTo(Hwnd, 298, 456)//左键点打开邮件
        Delay 50
        Call Plugin.Bkgnd.LeftClick(Hwnd, 298, 456)//左键点打开邮件
        Delay 50
        Next
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 191)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 76)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 71)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 79)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 85)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 84)//输入登出
        Delay 50
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//输入登出
        Delay 50
        Delay 5000//等待上线
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)//登入
        Delay 5000 //读蓝条
        Loop
        IP属地:辽宁6楼2022-09-10 13:29
        回复
          9月11号更新 银月城不下线
          Do
          Hwnd = Plugin.Window.MousePoint()
          Loop Until Hwnd > 0
          Do
          Call Plugin.Bkgnd.KeyDown(Hwnd, 83)//邮箱起步后退（要改走路）
          Delay 3000//3秒
          Call Plugin.Bkgnd.KeyUp(Hwnd, 83)//弹起按键
          Delay 100//间歇
          Call Plugin.Bkgnd.KeyDown(Hwnd, 68)//右平移到拍卖师
          Delay 4500//4秒
          Call Plugin.Bkgnd.KeyUp(Hwnd, 68)//右平移到拍卖师
          Delay 100//间歇
          Call Plugin.Bkgnd.KeyPress(Hwnd, 49)//选拍卖师宏
          Delay 500
          Call Plugin.Bkgnd.KeyPress(Hwnd, 81)//与拍卖师互动
          Delay 1000
          Call Plugin.Bkgnd.MoveTo(Hwnd, 145, 526)//左键点发布扫描第一次长时间
          Delay 100
          Call Plugin.Bkgnd.LeftClick(Hwnd, 145, 526)//左键点发布扫描第一次长时间
          Delay 1000
          For 1000//发布流程第一次长时间 调节此数值x0.1为等待秒数
          Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点发布
          Delay 50
          Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点发布
          Delay 50
          Next
          Call Plugin.Bkgnd.MoveTo(Hwnd, 45, 95)//左键点退出扫描
          Delay 500
          Call Plugin.Bkgnd.LeftClick(Hwnd, 45, 95)//左键点退出扫描
          Delay 500
          For 10//长时间后固定上货热门次数，调节此数值X1为发布几次
          Call Plugin.Bkgnd.MoveTo(Hwnd, 145, 526)//左键点发布扫描
          Delay 50
          Call Plugin.Bkgnd.LeftClick(Hwnd, 145, 526)//左键点发布扫描
          Delay 500
          For 500//发布流程补货 调节此数值x0.1为等待秒数（短于第一次发布）
          Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点发布
          Delay 50
          Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点发布
          Delay 50
          Next
          Call Plugin.Bkgnd.MoveTo(Hwnd, 45, 95)//左键点退出扫描
          Delay 100
          Call Plugin.Bkgnd.LeftClick(Hwnd, 45, 95)//左键点退出扫描
          Delay 500
          Next
          Call Plugin.Bkgnd.MoveTo(Hwnd, 141, 554)//左键点取消扫描取消被压价的
          Delay 100
          Call Plugin.Bkgnd.LeftClick(Hwnd, 141, 554)//左键取消扫描取消被压价的
          Delay 500
          For 1500//取消流程，调节此数值x0.1为等待秒数
          Call Plugin.Bkgnd.MoveTo(Hwnd, 564, 557)//左键点取消
          Delay 50
          Call Plugin.Bkgnd.LeftClick(Hwnd, 564, 557)//左键点取消
          Delay 50
          Next
          Call Plugin.Bkgnd.KeyDown(Hwnd, 65)//左平移到邮箱垂直位置
          Delay 4500//4秒
          Call Plugin.Bkgnd.KeyUp(Hwnd, 65)//左平移到邮箱垂直位置
          Delay 100//间歇
          Call Plugin.Bkgnd.KeyDown(Hwnd, 87)//前进到邮箱位
          Delay 3000//3秒
          Call Plugin.Bkgnd.KeyUp(Hwnd, 87)//前进到邮箱位
          Delay 1000
          Call Plugin.Bkgnd.MoveTo(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          Call Plugin.Bkgnd.RightDown(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          Call Plugin.Bkgnd.RightUp(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          Call Plugin.Bkgnd.MoveTo(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          Call Plugin.Bkgnd.RightDown(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          Call Plugin.Bkgnd.RightUp(Hwnd, 150, 400)//右键点邮箱
          Delay 100//右键点邮箱
          For 200//调节此数值x0.1为开邮件秒数
          Call Plugin.Bkgnd.MoveTo(Hwnd, 298, 456)//左键点打开邮件
          Delay 50
          Call Plugin.Bkgnd.LeftClick(Hwnd, 298, 456)//左键点打开邮件
          Delay 50
          Next
          Loop
          IP属地:辽宁7楼2022-09-11 12:35
          回复

            扫二维码下载贴吧客户端

            下载贴吧APP
            看高清直播、视频！
            • 4回复贴，共1页
            发表回复
            发贴请遵守贴吧协议及“七条底线”贴吧投诉
            内  容:
              查看全部
            发 表
            保存至快速回贴