按键精灵吧 关注:499,931贴子:1,021,874

留问题解答,每天有空上来解答。

只看楼主收藏回复

问问题,不要过于简单。
比如,xxx脚本怎么写,简单的可以写,但是需要数据的那些是没办法回答的
要具体一些,如:
发具体代码,预期的结果,跟实现结果不一致。
如果需要其他的服务,可以私聊我。
这里仅回答,交流使用。但是由于贴吧的规则,只能回答一些较为基础的东西和原理。


IP属地:广西来自Android客户端1楼2023-03-24 09:07回复
    大哥能讲一下怎么找图 找到后然后再进行下一步吗


    2楼2023-03-24 14:24
    收起回复
      例子:
      FindPic 0,0,1920,1080,"Attachment:\图片.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
      TracePrint "找到了,执行下一步"
      Else
      TracePrint "没找到,不执行下一步"
      End If


      IP属地:广西5楼2023-03-24 18:48
      收起回复
        大神。想问下,怎么实现实在拍卖行低价收货卖货。
        如:
        搜索:大剑, 显示收购最低价。112.18 我就抬点价112.19 收购
        然后继续 搜索下一个货名


        IP属地:湖南7楼2023-03-24 23:13
        收起回复
          你好,请问下我的游戏脚本运行一段时间就会自动崩溃是为什么呢?


          IP属地:江苏来自Android客户端8楼2023-03-25 11:20
          收起回复
            做了一个脚本,想点击视频学习,因为这个网站一切屏看别的就暂停,代码如下:
            //360浏览器锁定焦点
            Dim Hwnd
            Hwnd =Plugin.Window.Find("360se6_Frame","视频 - 360安全浏览器 13.1")
            TracePrint Hwnd
            Call Plugin.Bkgnd.Leftclick(Hwnd, 455,342)
            但是运行时报错,调试时有下边说明:
            语法错误:脚本 我的脚本1 ,第4行,第69个字符:(错误码103)缺少符号 右括号 ')'。
            语法错误:脚本 我的脚本1 ,第4行,第69个字符:(错误码0)没有找到合法的符号。
            语法错误:脚本 我的脚本1 ,第4行,第40个字符:(错误码103)缺少符号 右括号 ')'。
            请高手指导


            IP属地:天津9楼2023-03-25 11:54
            收起回复
              楼主你好,这种形状一样但是颜色会改变的验证码怎么识别?


              IP属地:安徽来自iPhone客户端10楼2023-03-25 16:30
              收起回复
                大佬,想玩一个游戏,后台窗口程序挂机, 需要识别一个图, 然后按键就行。怎么写


                IP属地:重庆11楼2023-03-25 17:35
                收起回复
                  //----------主程序------
                  图片1 = 句柄范围找图("哈哈.bmp")
                  TracePrint UBound(图片1)
                  If 图片1(0) > -1 Then
                  TracePrint "找到图"
                  Else
                  TracePrint "没找到图"
                  End If
                  //----------封装函数------
                  Function 句柄范围找图(图片)
                  FindPic myarray(0),myarray(1),myarray(2),myarray(3),"C:\Users\Administrator\Desktop\哈哈.bmp",0.9,intX,intY
                  If intX > 0 And intY > 0 Then
                  End If
                  句柄范围找图 = array(intx,inty)
                  End Function
                  楼主大佬。桌面 哈哈.BMP的图片应该是怎么写,哪里设置错了 。一直找不到图片。反着就这位置一直找图片一直按键


                  IP属地:重庆12楼2023-03-25 20:54
                  收起回复
                    大佬,什么语句能在改变方向后改变脚本里输入的按键,比如游戏里人物朝向改变,原本输入A弹起A改成输入D弹起D


                    IP属地:广东来自Android客户端13楼2023-03-26 09:52
                    收起回复
                      大佬们,出现这个怎么弄,之前都还能用的,突然不行了



                      IP属地:贵州来自Android客户端15楼2023-03-26 20:47
                      收起回复
                        老哥问个问题,界面事件内部代码块是不是和外部代码块不在一个线程,外部定义了一个变量并赋初值为1,在界面事件中修改的变量值为0,在外部代码块判断时候发现还是1。
                        请问这是因为不同线程无法获取彼此的局部变量导致的吗


                        IP属地:广东来自Android客户端16楼2023-03-27 00:10
                        收起回复
                          请问大哥,如何设置如果鼠标左建和鼠标右键同时按下,替代键盘上的一个键或者两个键盘按照顺序按,比如鼠标左右键同时按下时,替代按下 ESC延迟100MS再自动按1,如果左右同时按下就一直重复替代,有任何一个松开或者不同时,就不替代ESC+1


                          IP属地:重庆18楼2023-03-28 11:00
                          收起回复
                            Sub 点击
                            dm.MoveTo intX, intY
                            Delay 200
                            dm.LeftClick
                            End Sub
                            Call 搜索食物
                            //
                            Sub 搜索食物
                            循环=0
                            While 循环=0
                            IF dm_ret = dm.FindColor(0,0,2000,2000,"60d8f8-000000|62d8f8-000000|00a1e0-000000|aadcad-000000|069657-000000",1.0,0,intX,intY)Then
                            Call 点击
                            循环 = 1
                            ElseIf dm_ret =dm.FindColor(0,0,2000,2000,"0566d2-000000|60d8f8-000000|9ce4f8-000000|f8f8f8-000000|10b8b8-000000",1.0,0,intX,intY)Then
                            Call 点击
                            循环 = 1
                            ElseIf dm_ret = dm.FindColor(0, 0, 2000, 2000, "be610e-000000|d88820-000000|e0a028-000000|be610e-000000|e0a028-000000", 1.0, 0, intX, intY)
                            Call 点击
                            循环 = 1
                            End If
                            IF 循环 = 0 Then
                            Call 找图
                            End If
                            Wend
                            End Sub
                            Sub 找图
                            dm_ret = dm.FindPic(0, 0, 2000, 2000, "雪花1图.bmp|", "000000", 1.0, 0, intX, intY)
                            If intX >= 0 and intY >= 0 Then
                            dm.MoveTo 1001, 219
                            Delay 500
                            dm.LeftClick
                            End If
                            这是自己写的捡东西,想设置个上限,想到的方法就是,循环三次反馈都同一坐标,就停止循环,但加了变量就卡住应该怎么写? 这是能运行的状态,自己写的变量删了,


                            IP属地:河北20楼2023-03-30 21:12
                            收起回复
                              按F10启动后小精灵托盘图标闪一下小三角就停了 换了系统也这样


                              21楼2023-03-30 21:47
                              收起回复