以前写案件精灵的时候将常用到的一些功能写入了自己的命令库！现在不怎么玩，将代码给大家玩玩，都是一些很基础很基础的东西，小白可以看看~
Import shanhai.lua
Import jsdvip.lua
Import zm.luae
Function 取中间文本(原始文本, 特征前, 特征后)//取出中间文本
Dim qpos,hpos
qpos=InStr(1, 原始文本, 特征前)
hpos = InStr(qpos, 原始文本, 特征后)
取中间文本=Mid(原始文本,qpos+len(特征前),hpos-qpos-len(特征前))
End Function
Function 取所有中间文本(原始文本, 特征前, 特征后)
Dim ct,ct1,cd,ct2,wz
Do
ct1 = 取中间文本(原始文本, 特征前, 特征后)
If ct1 = null Then
Exit Do
End If
cd=Len(原始文本)
wz = InStr(1, 原始文本, 特征前&ct1&特征后)
ct2 = Right(原始文本,cd-wz)
原始文本 = ct2
ct = ct1&-&ct
Loop
取所有中间文本 = Split(ct,-)
End Function
Function 图灵机器人(userid,聊天内容)
Dim 请求地址=http://www.tuling123.com/api/product_exper/chat.jhtml
Dim 请求数据 = info=&聊天内容&&userid=&userid&&_xsrf=
dim 原始文本,特征前,特征后,qpos,hpos,消息
原始文本 = url.Post(请求地址,请求数据)
特征前 = /MsgType><Content><![CDATA[
特征后 = ]]></Content></xml>
qpos=InStr(1, 原始文本, 特征前)
hpos = InStr(qpos, 原始文本, 特征后)
消息 = Mid(原始文本, qpos + Len(特征前), hpos - qpos - Len(特征前))
Dim wz = InStr(1,消息,http)
If wz > 1 Then
消息 = Left(消息, wz-1)
End If
Dim ggjj = InStr(1,消息,哥哥姐姐)
If ggjj >= 1 Then
消息 = Left(消息, ggjj-1)
End If
Dim 关键句=特地回复
Dim 回复句 = 特地回复替换
Dim 指定回复 = Split(回复句,/)
If InStr(1, 消息, 机器人) >= 1 Then
消息 = 嗯嗯啊啊嗯嗯~
ElseIf InStr(1, 关键句, 消息) >= 1 Then
消息 = shanhai.RandArray(指定回复)
ElseIf InStr(1, 消息, 4岁) >= 1 Then
消息 = 嘿嘿嘿~女人的年龄是不能说的秘密哦~
ElseIf InStr(1, 消息, 小主人) >= 1 Then
消息 = 你你你~
End If
图灵机器人 = 消息
End Function
Function 携趣IP(api,请求地址,提交数据,请求头,cookies)
Import jsdvip.luae
jsdvip.StartServer
dim ip = Url.Get(api)
api=Split(ip,:)
dim proxyHost = api(0)
dim proxyPort = api(1)
dim json= jsdvip.HttpGet (请求地址,提交数据,请求头,cookies,api(0),api(1))
Import cjson.lua
Dim resp= Cjson.Decode(json)
If resp Then
TracePrint resp[body]
End If
携趣IP = resp
End Function
Function 多位随机数(位数)
Dim 全字符=0123456789
Dim 字符串=
For 位数
字符串 = 字符串 & UTF8.StrGetAt(全字符, shanhai.RndEx(1,10))
Next
多位随机数 = 字符串
End Function
Function 多位随机字母(位数)
Dim 全字符=WERTYUIOPASDFGHJKLZXCVBNM
Dim 字符串=
For 位数
字符串 = 字符串 & UTF8.StrGetAt(全字符, shanhai.RndEx(1,26))
Next
多位随机字母 = 字符串
End Function
Function 多位随机数字字母(位数)
Dim 全字符=0123456789QWERTYUIOPASDFGHJKLZXCVBNM
Dim 字符串=
For 位数
字符串 = 字符串 & UTF8.StrGetAt(全字符, shanhai.RndEx(1,36))
Next
多位随机数字字母 = 字符串
End Function
Function 图灵付费版(apiKey,userId,text)
Import shanhai.lua
Dim 请求地址=http://openapi.tuling123.com/openapi/api/v2
Dim 请求数据 = {&&reqType&&:0,&&perception&&: {&&inputText&&: {&&text&&:&&text&&},},&&userInfo&&: {&&apiKey&&: &&apiKey&&,&&userId&&: &&Encode.Md5(userId)&&}}
Dim 原始文本, 特征前,特征后,qpos,hpos,消息
原始文本 = URL.Post(请求地址, 请求数据)
特征前 = &values&&:{&&text&&:&
特征后 = &}}]}
qpos=InStr(1, 原始文本, 特征前)
hpos = InStr(qpos, 原始文本, 特征后)
消息 = Mid(原始文本, qpos + Len(特征前), hpos - qpos - Len(特征前))
Dim 关键句=特地回复
Dim 回复句 = 特地回复替换
Dim 指定回复 = Split(回复句,/)
If InStr(1, 消息, 机器人) >= 1 Then
消息 = 嗯嗯啊啊嗯嗯~
ElseIf InStr(1, 关键句, 消息) >= 1 Then
消息 = shanhai.RandArray(指定回复)
ElseIf InStr(1, 消息, 4岁) >= 1 Then
消息 = 嘿嘿嘿~女人的年龄是不能说的秘密哦~
ElseIf InStr(1, 消息, 小主人) >= 1 Then
消息 = 你你你~
End If
图灵付费版=消息
End Function
Function 时间差(过去时间,当前时间)
Dim a = ShanHai.GetUnixTime(过去时间)
Dim b = ShanHai.GetUnixTime(当前时间)
Dim c = b - a
时间差 = c
End Function
Function 语音合成(内容,音量,语速)
Dim _token,token,session,path,结果
结果 = zm.HttpGet(http://www.zaixianai.cn/voiceCompose, utf-8, /sdcard/Pictures/hccookie.txt, )
_token = 取中间文本(结果, var token= & , & ;)
session = 取中间文本(File.ReadLine(/sdcard/Pictures/hccookie.txt,6)&* , laravel_session , *)
token = 取中间文本(File.ReadLine(/sdcard/Pictures/hccookie.txt, 5) & *, XSRF-TOKEN , *)
Dim 请求地址 = http://www.zaixianai.cn/Api_getVoice
Dim cookie=Hm_lpvt_d09fdf7e91f77cddf85908f081d4a3bc=&zm.Timestamp(GetNetworkTime())&;&Hm_lvt_d09fdf7e91f77cddf85908f081d4a3bc=&zm.Timestamp(GetNetworkTime())&;&laravel_session=&session&;&XSRF-TOKEN=&token
Dim 提交数据=content=&内容&&volume=&音量&&speech_rate=&语速&&voice=Ninger&_token=&_token
Dim 合成结果
合成结果 = zm.HttpPost(请求地址,提交数据,UTF-8,,cookie)
Dim msn=Split (合成结果,)
Dim surl = http://www.zaixianai.cn/voice/&msn(11)
path = /sdcard/Pictures/ & msn(11)
zm.HttpDownload surl, path
语音合成 = path
End Function
Function 腾讯NLP机器人(SecretId, SecretKey, 聊天内容)
Dim wz = https://api.cloud.tencent.com/requesttc3
Dim sj=Product=nlp&Action=ChatBot&Version=2019-04-08&Region=ap-guangzhou&Token=&Area=&JsonData=%7B%22Query%22%3A%22&聊天内容&%22%7D&SecretId=&SecretId&&SecretKey=&SecretKey&&Language=zh-CN
Dim back = url.Post(wz,sj)
Dim unicode = Split(back,)
腾讯NLP机器人 = zm.ConvUnicodeToUTF8(unicode(29))
End Function
Function 新界面(IntX,IntY,颜色)
Do
If GetPixelColor(IntX,IntY)=颜色 Then
新界面 = True
Exit Do
Else
ShowMessage 等待新界面
End If
Loop
End Function
Function 找色(intX1, intY1, intX2, intY2, 颜色, 相似度)
Dim intX, intY
FindColor intX1, intY1, intX2, intY2, 颜色, 0, 相似度, intX, intY
If intX > -1 And intY > -1 Then
找色 = Array(intX,intY)
Else
找色 = Array(intX,intY)
End If
End Function
Function 找图(intX1, intY1, intX2, intY2, 附件名, 相似度)
Dim intX, intY
KeepCapture
FindPic intX1, intY1, intX2, intY2, Attachment: & 附件名, 000000, 0, 相似度, intX, intY
ReleaseCapture
If intX > -1 And intY > -1 Then
找图 = Array(intX,intY)
Else
找图 = Array(intX,intY)
End If
End Function
Function 心跳验证(卡密,status)
Dim json
json = URL.Get(http://sq.wzzlm.cn/php/mysqladminlite.php?env=development&db=sq&table=&sqlstmt=SELECT km,sttime,status,act FROM sqyz WHERE km = &卡密&&token=&action=exportjsononline)
Dim kmxx=Split(json,)
dim zxm=kmxx(11)
If zxm <> status Then
ShowMessage 您的卡密在其他设备登陆使用，本设备被踢下线,3000
Delay 3000
EndScript
End If
End Function
Function 授权验证(卡密,简称,status)
If InStr(1, 卡密, 简称)=0 Then
ShowMessage 您输入的卡密不正确，请检查是否输入错误, 2000, 0, 0
Delay 2000
EndScript
End If
Dim 月卡=UTF8.InStr(1,卡密, 简称&30)
Dim 天卡=UTF8.InStr(1,卡密, 简称&1)
Dim wz=http://sq.wzzlm.cn/php/mysqladminlite.php?env=development&db=sq&token=
Dim json
json = URL.Get(http://sq.wzzlm.cn/php/mysqladminlite.php?env=development&db=sq&table=&sqlstmt=SELECT km,sttime,status,act FROM sqyz WHERE km = &卡密&&token=&action=exportjsononline)
Dim kmxx=Split(json,)
dim km=kmxx(3),jhsj=kmxx(7),zxm=kmxx(11),jjzt=kmxx(15)
Dim 时间=GetNetworkTime()
Dim ztxg=sqlstmt=UPDATE+sqyz+SET+status%3D%27&status&%27+WHERE+km%3D%27&卡密&%27&env=development&db=sq&table=&token=//设置在线码
Dim syxg=sqlstmt=UPDATE+sqyz+SET+act%3D%271%27+WHERE+km%3D%27&卡密&%27&env=development&db=sq&table=&token=//设置激活状态为1
Dim xgst=sqlstmt=UPDATE+sqyz+SET+sttime%3D%27&时间&%27+WHERE+km%3D%27&卡密&%27&env=development&db=sq&table=&token=//设置激活时间
Dim sckm =sqlstmt=DELETE+FROM+sqyz++WHERE+km%3D%27&卡密&%27&env=development&db=sq&table=&token=//删除卡密
If km=null Then
ShowMessage 您输入的卡密不正确或卡密已过期删除, 2000
Delay 2000
EndScript
ElseIf jjzt = 0 Then
ShowMessage 初次使用，正在激活您的卡密！,2000
Delay 2000
url.Post(wz,xgst) //设置激活时间
Delay 500
url.post(wz,ztxg)//设置在线码
Delay 500
url.post(wz,syxg)//设置激活状态为1
Delay 500
ShowMessage 您的卡密已经激活，激活时间为： & 时间 & \r\n & 本设备已上线，请勿在其他设备使用卡密，否则会导致本设备下线。, 2000
Delay 2000
ElseIf jjzt = 1 Then
If 月卡>=1 and 时间差(jhsj,时间)/60/60/24 > 30 Then
ShowMessage 您的卡密已过期！, 2000
url.Post(wz,sckm)//删除卡密
Delay 2000
EndScript
ElseIf 天卡>=1 and 时间差(jhsj,时间)/60/60 > 24 Then
ShowMessage 您的卡密已过期！, 2000
url.Post(wz,sckm)//删除卡密
Delay 2000
EndScript
Else
ShowMessage 当前卡密有效，本设备已登陆，欢迎上线！\r\n请勿在其他设备使用卡密，否则会导致本设备下线。&\r\n当前卡密激活时间为： & jhsj, 5000
Delay 4000
url.post(wz,ztxg)//设置在线码
Delay 500
End If
End If
End Function
Function 取节点坐标(xml内容,节点特征)
Dim qwz,hwz,qpos,hpos,中间文本,x1,y1,x2,y2,x,y
qwz = InStr(1,xml内容,节点特征)
hwz = InStr(qwz,xml内容,bounds=)
qpos = InStr(hwz, xml内容, )
hpos = InStr(qpos+1, xml内容, )
中间文本=Mid(xml内容,qpos+len(),hpos-qpos-len())
x1 = CInt(取中间文本(中间文本, [,,))
y1 = CInt(取中间文本(中间文本, ,, ]))
x2 = CInt(取中间文本(中间文本, ][, ,))
y2 = CInt(取中间文本(中间文本, x2&,, ]))
x = CInt((x1 + x2) / 2)
y = CInt((y1 + y2) / 2)
取节点坐标 = Array(x,y)
End Function
Function 非直线滑动(x,y,x1,sfd,xfd,movetime)
Dim i,zzb,像素移动时长
像素移动时长 = movetime / (x1 - x)*10
TouchDown x,y, 1
For i = x To x1 step 10
If shanhai.RndEx(1, 2) = 1 Then
zzb = y+xfd//下浮动
Else
zzb = y-sfd//上浮动
End If
TouchMove i, zzb, 1,像素移动时长
Next
TouchUp 1
End Function