按键精灵_取所有中间文本
发布于 2022-03-11
Function 取所有中间文本(原始文本, 特征前, 特征后) Dim ct,ct1,cd,ct2,wz Do ct1 = 取中间文本(原始文本, 特征前, 特征后) If ct1 = null Then Exit Do End If cd=Len(原始文本) wz = InS...
阅读(949)赞 (0)
发布于 2022-03-11
Function 取所有中间文本(原始文本, 特征前, 特征后) Dim ct,ct1,cd,ct2,wz Do ct1 = 取中间文本(原始文本, 特征前, 特征后) If ct1 = null Then Exit Do End If cd=Len(原始文本) wz = InS...
阅读(949)赞 (0)
发布于 2022-03-11
Function 取中间文本(原始文本, 特征前, 特征后)//取出中间文本 Dim qpos,hpos qpos=InStr(1, 原始文本, 特征前) hpos = InStr(qpos, 原始文本, 特征后) 取中间文本=Mid(原始文本,q...
阅读(883)赞 (0)
发布于 2020-11-28
Call 随机任务() Function 随机任务() Dim i=随机序列(0,5,",") TracePrint i dim MyString = Split(i, ",") for i = 0 To UBound(MyString) //取字符串长度 TracePrint ...
阅读(822)赞 (0)
发布于 2020-10-05
Import "ShanHai.lua" Dim 手机号,验证码,令牌,接码返回值,计时器 Function 爱乐赞接码(接码) Dim 释放,项目ID 项目ID = "43837" //获取令牌 If 接码 = 1 Then Dim API账号,密码 API账号 = ReadU...
阅读(1306)赞 (2)
发布于 2020-09-20
Import "File.lua" /********************************************** JSON常用函数封装 ***********************************************/ Dim date_path=...
阅读(1128)赞 (3)
发布于 2020-09-20
Import "File.lua" /********************************************** JSON常用函数封装 ***********************************************/ Dim date_path=...
阅读(844)赞 (0)
发布于 2020-08-14
Import "ShanHai.lua" Import "zm.luae" Dim 数字坐标=Array("402,1726","136,1171","388,1185","676,1184","136,1356","400,1364","658,1385","135,1539"...
阅读(874)赞 (2)
发布于 2020-08-14
//获取总图库 Import "zm.luae" Import "ShanHai.lua" Dim all_pic_path="/sdcard/lmxy/all_pic/" //图库路径 Dim pic_total_txt="/sdcard/lmxy/pic_total_txt....
阅读(871)赞 (0)
发布于 2020-08-14
Import "File.lua"//导入插件 Dim all_pic_path="/sdcard/lmxy/all_pic/" //总图库 dim select_pic_path="/sdcard/lmxy/select_pic/" //选择图库 Dim pic_total_t...
阅读(832)赞 (0)
发布于 2020-08-13
Dim begin = TickCount() //获取开始时间 do TracePrint "搞事中..." Delay 800 if IsEnd(begin,1) then//1分钟后超时 exit do End If Loop //---------------------...
阅读(845)赞 (2)