专业作者团队接脚本定制,游戏挂机脚本 自动化办公脚本 软件开发^各种脚本软件定制 苹果/安卓/模拟器/PC/真机都可以 需要的来 支持走各种萍台寒城一以眺，平楚正苍然。——《宣城郡内登望》

游戏视角，选择从空中向下的俯角。 鼠标特征码是指， 鼠标作同心圆搜索循环，如果点到怪物，鼠标形状由箭头状变成小刀状，小剑状。 条件判断：找到这

祝愿：一元复始、万象更新;年年如意、岁岁平安;财源广进、富贵吉祥;幸福安康、吉庆有余;竹报平安、财福满门;喜气洋洋、万事顺心。

申请人：@按键精灵小Q🐾 申请感言：我申请成为本吧吧主，我会多发帖建设内容，吸引更多人到这里来交流，带动吧内友好的交流氛围。希望这个吧能有更多人来玩儿，希望管理组可以给我这个机会，我会积极对待，做个尽职、友好、公正的好吧主！

8年脚本经验帮助大家，有问题留言评论

亲爱的按键学院吧的吧友们：大家好！ @按键精灵小Q🐾 为本吧吧主候选人得票最多者，共计1张真实票数，根据竞选规则，官方最终批准其成为本吧正式吧主。公示期三天。 吧主上任后，请严格遵守吧主协议 https://tieba.baidu.com/mo/q/newapply/rule?from=task，履行吧主义务，积极投身本吧的发展建设，也请广大吧友进行监督。如出现违规问题，请至贴吧反馈中心进行反馈或者投诉http://tieba.baidu.com/pmc/reportBazhu

现在官方自带的http的命令少了个提交文件的功能，美中不足 无可奈何我就被迫营业封装了一个http的插件，可以支持upload功能 目前插件还是内测版本，功能不完善且概率存在一定BUG，后续会进行迭代更新 功能特色 - 自定义header消息头 - 智能判定Content-Type类型 - 支持Android&IOS双端使用 - 统一的payload格式传入（table类型） 命令功能 SHTTP.Get(url, opts) - 功能：发送Get请求 - 参数： - url: 必选，请求的url - opts: 可选参数，包含以下参数的键值表 headers: 自定义

在按键新手群里发现不少人如何为找到多子句柄需要的句柄而头疼. 现在我就给大家说个简单的思路吧 专治这个N子字窗口句柄镶嵌的. 首先我们来说说常用方法... 第一种 一个一个挨着找, 直到找到自己需要的为止.

如果我想要做一个脚本，想要每天的9点到23点自动运行某个程序，并且每5分钟执行一次操作要怎么写？有大神愿意分享心得吗

求助，按键精灵大于某个时间进行自删，该怎么写？路过的高手请指教

call 设置开机自启动() //把这一句放进小精灵的Form1.Load里面 下面是源码，源码无任何插件 Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Sub 设置开机自启动() Dim FileName,ExePath,StartingPath,fso,LinkPath,FolderPath Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell=CreateObject("WScript.Shell") a0a= space(260):GetModuleFileName NULL,a0a, 260'当前软件全路径 ExePath= fso.GetFile(a0a).pa

Hwnd = Plugin.Window.Find("MSPaintApp", 0) HwndEx = Plugin.Window.FindEx(Hwnd, 0, "MSPaintView", 0) hwndht=plugin.window.findex(hwndex,0,"Afx:460000:8",0) TracePrint hwnd TracePrint hwndEx TracePrint hwndht Delay 200 Dim R, pi, du du = 0 R = 100 pi = 3.14 Do Until du = 360 Call Plugin.Bkgnd.MoveTo(Hwndht,200+R*cos(du*pi/180) , 200+R*sin(du*pi/180)) Delay 2 Call Plugin.Bkgnd.Leftdown(Hwndht, 200+R*cos(du*pi/180), 200+R*sin(du*pi/180)) du=du+10 Delay 1 loop Call plugin.bkgnd.leftup(hwndht,200+R*cos(du*pi/180), 200+R*sin(du*pi/180))

//以后再写，有个技术难点现在无法解决 //放大镜功能也能实现 /*定义变量 initX : 输出显示左上角X坐标 ,initY : 输出显示左上角Y坐标 scrX : 输出显示右下角X坐标 ,scrY : 输出显示右下角Y坐标 getColor : 输出获得的颜色 ,mx和my : 定义鼠标当前位置 */ Dimenv initX, initY, scrX, scrY, getColor, mx, my //初始化数据 initX = 0 : initY = 0 : scrX = 16 : scrY = 16 //定义循环次数 Dim ciShu ciShu = 7 : mx = 0 : my = 0 For i = 1 To ciShu For j = 1 To ciShu GetCursorPos mx1, my1 mx = mx1 : my = my1 /*左上角显示边长5的

如题

举报骗子谢谢大家 帮我举报一下骗子 恰似春风相欺得，夜来吹折数枝花。——《绝句漫兴》

开始 学习了 不知道 咋样

在cydia中可以看到已经安装的deb文件，但是桌面不显示。越狱工具unc0ver，系统11.2

手水平有限,献丑了,高手勿喷,只是提供个思路 PC,生成小精灵想设置个可以变密码,利用本机时间和密码验证见图 附源码 是输密码后判断输入密码第三位和第四位数与当前时间的分钟数是否一致来判断Event Form1.button1.Click //设置密码取分钟验证 Dim TTT TTT = Time TracePrint TTT Time Dim BBB,AAA AAA=form1.InputBox1.Text TracePrint AAA BBB = mid(TTT, 4, 2) CCC = mid(AAA ,3,2) TracePrint BBB TracePrint CCC If BBB - CCC ="0" Then MessageBox"密码正确" Else MessageBox"密码错误" EndScript En

正在学习中，怎么样啊

按键抓抓相当于按键精灵的眼睛，找图找色少不了

按键里面有什么命令能检查此时是否有按键处于按下状态吗？

虎年到了，愿大家左手拿着金元宝，右手扶着摇钱树；金钱满钱包，好运当头照；事业上枝头，美女身边绕；出六专车送，升职在今朝；新年快乐！平安健康！

非官方，无意中发现的 1.把抓抓框不停往上拖，你会发现抓抓框变窄了 2.屏幕下方取色不正确的到解决 3.如果复制命令那一栏消失的话，把抓抓框拖下来放大就行了

如主题。内容是快捷关闭软件。打开指定目录下的软件。 检测窗口是否打开。 循环时间。 联系Q2528307820

For 10 TracePrint "我循环了" Next //这个就是循环了10次, 次数=10 For 次数 TracePrint "打怪" Next //这个是变量做次数. For i = 446 To 146 step -1 TracePrint i MoveTo i,186 Delay 50 Nex //这是一个步长为负数的循环.运行一下,你会发现他是从右往左移动 For i = 0 To 9 For j = 0 To 9 TracePrint "当前i的值是" & i & "当前j的值是" & j Next Next 大家在看For的时候先看看这个For里面有几个循环,那上面的做例子,我们看见了2个for循环上面的j在 i循环里面,那我们

不知道大家有没有这样的情况，比如安卓QQ，在聊天栏中如果用swipe下滑，即Swipe x,y，不能准确下滑一条聊天记录。试过使用较长时间延迟解决滑动特效造成不准确的问题，但效果不是很好。 最后改成这样 TouchDown (x1,y1,0 TouchMove (x2,y2+1,0) //所添加语 Delay 10 TouchMove (x2,y2,0 Delay 20 TouchUp (0) 效果不错，时间也提升了不少。大佬们还有其他方式么，求指导~~

//建议time1=200,time2=800,如果不精准时直接增加time2的值即可 Sub huadongzhun(x1,y1,x2,y2,time1,time2 Dim xx1,yy1,xx2,yy2,timeone,timetwo xx1=x1 xx2=x2 yy1=y1 yy2=y2 timeone=time1 timetwo=time2 TouchDown xx1,yy1 Delay timeone TouchMove xx2,yy2 Delay timetwo TouchUp End Sub

申请人：按键精灵小Q🐾 申请感言：申请人：按键精灵小Q

固定循环： [For] 格式： For 循环次数 或 For 变量 = 起始数值 To 终止数值 或 For 变量 = 起始数值 To 终止数值 Step 步长数值 或 For Each 变量 In 数组 for 2 … next (循环两边) 条件成立跳出固定循环: For 2 if…then Exit For end if next (条件成立跳出循环，条件不成立执行2次循环) 条件成立固定循环，条件不成立跳出固定循环 For 2 if…then … else Exit For end if next (条件成立时固定循环2遍，条件不成立跳出固定循环) 无限循环： Do … loop 条件成立跳出无限循环： Do if…then

如题，感谢大佬的指导 Function hex1(dec,k) dim temp,b,x b="" Do Until dec=0 temp = Int(dec / k) x = dec Mod k Select Case x Case 10 x = "a" Case 11 x = "b" Case 12 x = "c" Case 13 x = "d" Case 14 x = "e" Case 15 x = "f" End Select b=x&b dec=temp Loop hex1 =b End Function

接各种脚本软件定制 按键精灵,易语言,autojs,软件开发^支持PC安卓苹果和各类模拟器,挂机打金自动化办公 支持走各种萍台更无柳絮因风起，惟有葵花向日倾。——《客中初夏》

Dim savepath savepath = GetTempDir() TracePrint savepath savepath = Replace(LCase(savepath), "mobileanjian", "DCIM") TracePrint savepath Dim MyVar MyVar = Now() TracePrint MyVar Snapshot savepath & MyVar & ".png" //截图以系统时间为图名，存在DICM

想让脚本越来越完善 ，必然少不了收集用户对脚本的建议，有了建议，我们才知道方向，然后一步步的让我们的脚本越来越完美，那么，要怎么进行建议的收集呢？ QQ不是有个很流弊的临时会话的功能吗？不需要加好友也能对话。这样，用户有建议的时候，立马就能发表，不至于憋坏。 楼主一想到有这样的方法，马上就去试了。首先，有这么一个网址， tencent://Message/?Uin=****** ******的位置，换成你想发起会话的QQ号码，然后黏贴到浏览器的网址栏里回

If CmpColorEx("Abs(x-230)|Abs(y-590)|09CBF3,Abs(x-231)|Abs(y-337)|06C8F1",0.9)=1 Then Touch Abs(x-392),Abs(y-558),300 Delay 1000 End If CmpColorEx内的坐标不能用Abs取正，能解决吗？ 或者有更好的解决游戏横屏翻转方向限制的方法吗

1、截图方法 Snapshot "/mnt/sdcard/新建文件夹/" & "文件名" & ".png" 或者Snapshot "/mnt/sdcard/新建文件夹/文件名.png" //其中新建文件夹和文件名根据需要自己修改 2、获取所需点坐标 在手机-系统设置-开发人员选项-指针位置上打勾，就可以获取所需要点的坐标了。 3、获取固定点的颜色值 示例 dim a a = GetPixelColor (240, 400) ShowMessage a Delay 1000 屏幕上就会出现240,400点的十六进制颜色值 备注：由于所用打开截图工具不同，打开后的截

多窗口喊话测试。测试时可用计事本。 因为是单脚本，又不是多线程。所以只能是一个一个窗口循环来喊。还是老方法，启动脚本后按一下F9保存一次当前窗口，换一个窗口放当前再按F9再保存，全部窗口保存完后按F8开始喊声。 多开喊话前台。 [hide] dim cc(999) //声明窗口句柄数组上标， UserVar Var1=内容 喊话内容 UserVar ys=10 喊话时间（秒） 所有窗口喊一次的时间。 Delay 200 a=0 Rem 1 WaitKey key //等待用户按键 If key=120 //如果按F9则保存窗口句柄 Plugin cc(a)=Window

Call Plugin.Bkgnd.KeyPress(Hwnd, Form1.Hotkey2.Virtualkey) 这是按键写的 Set dm = createobject("dm.dmsoft") Delay 100 hwnd = dm.findwindow("", "0") dm_ret=dm.setwindowstate(hwnd,1) dm_ret = dm.bindwindow(hwnd, "normal", "normal", "dx", 0) Delay 100 Do dm.keypress (Form1.Hotkey1.VirtualKey) Delay Form1.InputBox1.Text dm.KeyPress (Form1.Hotkey2.VirtualKey) Delay Form1.InputBox2.Text dm.KeyPress (Form1.Hotkey3.VirtualKey) Delay Form1.InputBox3.Text dm.KeyPress (Form1.Hotkey4.VirtualKey) Delay Form1.InputBox4.Text Loop 上面可以

一、整体观念 对于编写一个复杂的脚本要有一个整体的流程，和编辑软件一样，要先搭起脚本的整体框架。 举个例子脚本实现的功能： 场景A购买补血药品1000个，如果钱不够到银行(场景B)取钱，然后到场景C挂机打 猎， 如果发现药品没有了去场景A购买，然后重复过程。 脚本实现的功能有了，怎么写呢，中心是挂机打猎，从打猎开始： 脚本的流程： 1、场景C打猎 2、调用判断补血药品子程序，如果没有药品用完返回blood=0，有返回blood=1 3、如果blood=1继

初窥正则表达式，让处理字符串异常简单。 谈到正则表达式，可能很多童鞋都是一头雾水：什么是正则表达式？干嘛用的？而一些对于正则有所了解的童鞋则会谈虎色变，觉得正则表达式虽然用的命令少，但是自己就是写不出来。对于比较熟悉正则的童鞋来说，正则表达式简直是神器！利用他可以解决很多问题，能够化繁为简。 上面说了这么多，总归一句话，正则表达式其实就是一种针对字符串的匹配和处理的方法

1 do 2 MoveTo 1036, 451 3 LeftClick 1 4 Delay 1000 5 MoveTo 1037, 439 6 LeftClick 1 7 Delay 500 8 FindPic 451,167,1402,730,"Attachment:\图1.bmp",0.9,intX,intY 9 MoveTo 1028, 338 10 LeftClick 1 11 Delay 1000 12 If intX > 0 And intY > 0 Then 13 FindPic 451,167,1402,730,"Attachment:\图2.bmp",0.9,intX,intY 14 MoveTo 613, 238 15 LeftClick 1 16 Delay 500 17 End If 18 loop 12行之前一直再循环，但是从第12行开始不执行了

//生成随机中文字符串 Function RandomChnString(lenght) Dim rTxt,fc,sc rTxt = "" Randomize Rnd() * 65536 For lenght fc = Int(6 * Rnd() + 228) Select Case fc Case 228 rTxt = rTxt & Chr(228) & Chr(Int(8 * Rnd() + 184)) & Chr(Int(64 * Rnd() + 128)) Case 229 sc = Int(64 * Rnd() + 128) If sc = 172 or sc = 182 Then sc = sc + 1 End If rTxt = rTxt & Chr(229) & Chr(sc) & Chr(Int(64 * Rnd() + 128)) Case 230 sc = Int(64 * Rnd() + 128) If sc = 171 Then sc = sc + 1 End If rTxt = rTxt & Chr(230) & Chr(sc) & Chr(Int(64 * Rnd() + 128)) Case 231 sc = Int(64

这两个有什么区别吗？

android的触摸事件一般会传递一个event参数，这个参数有两套获取触摸位置的方法（相对坐标和绝对坐标）： getX(), getY()：取得当前触摸位置相对于当前调用事件的view的左上角的坐标。（相对坐标） getRawX(), getRawY()：取得当前触摸位置相对于整个屏幕左上角的坐标。（绝对坐标） 比如，如果当前触摸了一个按钮，触发了按钮的回调listener，这个时候： 1、getX(), getY() 取得的是相对于这个按钮的左上角的坐标。 如果按钮的size是100x10，触摸按钮中间的话，

Dim a,b,i,j,设定小时1,设定分钟1,设定小时2,设定分钟2,yxcs,picpath,aa,ab,ac,ad,cs,xq,xq1,xq2,xq3,xq4,xq5,xq6,xq7,b1,b2,b3,b4,b5,b6,b7,b8,sfjp Dim 随机数,最大值,最小值,最小值文本,最大值文本,f2 Log.Open Randomize TracePrint GetTempDir() ShowMessage "现在星期 "& DateTime.WeekDay()&"-时间"& DateTime.Format("%Y/%m/%d/%H-%M-%S") TracePrint "现在星期 "& DateTime.WeekDay()&"-时间"& DateTime.Format("%Y/%m/%d/%H-%M-%S") Delay 2000 b1 = Abs(CInt(ReadUIConfig("xq1")))