Kongsi antara muka untuk pertukaran data jejak

Question

Dim 标签,内容,字符数,网页,获取内容,上传内容,激活码
Import "ShanHai.lua"

\手机按键精灵案例
激活码= "001afdg6dg6fd66d6d26"
标签 = "000"
内容 = "bdfhgfhfh"
执行上传
执行获取

Delay 3000






Function 执行获取
TracePrint "正在执行获取数据。。。"
ShowMessage  "正在执行获取数据。。。"
For 100//循环次数
获取内容 = shanhai.GetHttp("http://lietianya.gotoip2.com/shuju/" &激活码& "/" & 标签 & ".html")
字符数 = UTF8.Len(获取内容)
If 1 > 字符数 then//循环次数
TracePrint "获取失败"
ShowMessage  "获取失败"
Delay 6000
Else 
TracePrint "获取成功"
ShowMessage "获取成功"
Exit For //循环退出
End If
Next//---结束循环
TracePrint "获取内容为："&获取内容
ShowMessage "获取内容为：" & 获取内容
End Function

Function 执行上传
TracePrint "正在执行上传数据。。。"
ShowMessage  "正在执行上传数据。。。"
For 100//循环次数
shanhai.GetHttp ("http://lietianya.gotoip2.com/shuju/" &激活码& "/api.php/api.php?title=" & 标签 & "&content=" & 内容 & "")
Delay 200
网页 = shanhai.GetHttp("http://lietianya.gotoip2.com/shuju/" &激活码& "/" & 标签 & ".html")
字符数 = UTF8.Len(网页)
If 1 > 字符数 then//循环次数
TracePrint "上传失败"
ShowMessage  "上传失败"
Delay 6000
Else 
TracePrint "上传成功"
ShowMessage "上传成功"
Exit For //循环退出
End If
Next//---结束循环
TracePrint "上传内容为："&网页
ShowMessage "上传内容为：" & 网页
上传内容=网页
End Function

Anda perlu memuat turun pemalam Shanhai