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
需要下載一個山海外掛程式