按键精灵

下面是案例可以参考自己实际情况做修改,按键精灵语法参考 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://dt1.hyocr.com:8080/uploadpic.php"
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://dt1.hyocr.com:8080/Query.php?sid="&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://dt1.hyocr.com:8080/Query.php 即可 一直取到答案为止 取到答案判断 一下答案的第一个字符串 如果为“#” 即为报错了 如果不是#开头 即为返回的答案