按键精灵

下面是案例可以参考自己实际情况做修改,按键精灵语法参考 https://zimaoxy.com/docs/mqscript/url.httpget/

按键精灵代码

Import "zm.luae"

Import "zmFile.lua"

Import "iconv.lua"

Import "Thread.lua"

Import "ShanHai.lua"

zm.Init 

dim ANS,TTT,b,文件路径

TTT = Time()

文件路径 = "/sdcard/Pictures/yzm.png"

b = Shanhai.ReadFileBase(文件路径)

b = Replace(b, "+", "%2b")

b=Replace(b,"=","%2b")



dim url1="http://aa.fatiegongju.com/api/upload"

dim dati_type=8015

dim acc_str="xxxxxxxxxxxxxxx"

dim extra_str="123"

dim timeout=60

dim pri=1

dim pic=b

dim param="dati_type="&dati_type&"&acc_str="&acc_str&"&extra_str="&extra_str&"&timeout="&timeout&"&pri="&pri&"&pic="&pic

dim data1={"url":url1,"data":param}

dim sid=Url.HttpPost(data1,"code":"GBK")

TracePrint sid

dim iserr = Left(sid,1)

IF iserr= "#" Then

	

Else	

	

	dim url2="http://aa.fatiegongju.com/api/result?id="&sid

	dim data2 = {"url":url2}

	dim res 

	dim iserr2 

	Do 

		res = Url.HttpGet(data2) 

		iserr2 = Left(res,1)

		IF iserr= "#" Then

			Exit Do

		End If

		IF Len(res)>0 Then

			Exit Do

		End If

	Loop

End If

说明：xxxxxxxxxxxxxxx替换成密码串 提交成功后会返回一组字符串 直接用这个字符串每1秒循环get提交到http://aa.fatiegongju.com/api/result 即可 一直取到答案为止 取到答案判断 一下答案的第一个字符串 如果为“#” 即为报错了 如果不是#开头 即为返回的答案