网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
按键精灵吧 关注：499,816贴子：1,018,024
  • 8回复贴，共1页
Sub 价格()
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"dnf数字.txt")
s = dm.Ocr(448, 137, 477, 148, "ffffff-000000", 1.0)
End Sub
UserVar jiage=150 "无色价格"
If s < jiage Then
MoveTo 579, 143
LeftClick 1
Delay 100
MoveTo 609, 176
LeftClick 1
Delay 100
MoveTo 611, 195
IP属地:山东1楼2013-11-06 16:26回复
    为什么加入变量，脚本失效
    IP属地:山东2楼2013-11-06 16:27
    回复
      @花落依殇丶
      IP属地:山东3楼2013-11-06 17:18
      回复
        //注册大漠插件
        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")
        //注册大漠插件结束
        UserVar wuse=150 "无色价格"
        Hwnd = Plugin.Window.Find(0, "地下城与勇士")
        Call Plugin.Window.Move(Hwnd, 0, 0)
        Delay 500
        MoveTo 133, 96
        IP属地:山东5楼2013-11-06 17:28
        回复
          @青青的大白菜
          IP属地:山东6楼2013-11-06 17:31
          回复
            @lm20100611
            IP属地:山东7楼2013-11-06 17:32
            回复
              @痛过后的伤痕@蓝月乱影
              IP属地:山东8楼2013-11-06 17:33
              回复
                @蓝月乱影
                IP属地:山东9楼2013-11-06 17:33
                回复
                  @shendezuiai
                  IP属地:山东10楼2013-11-06 17:35
                  回复

                    扫二维码下载贴吧客户端

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

                    发布成功
                    去贴吧APP订阅抽奖结果通知
                    扫码进入贴吧APP
                    ···········
                    开奖后第一时间站内信通知
                    ···········
                    中奖结果全员公示