引流脚本实现自动随机定位城市,修改定位

本节课主要讲解,在引流脚本开发过程中如何实现自动随机定位城市,修改定位

按键精灵手机版代码如下:

Dim get地址,返回数据,经度,纬度,intX,intY,经纬度,总行数,随机行,随机内容
经纬度=”/sdcard/jinweidu.txt”

总行数 = File.LinesNumber(经纬度)
TracePrint 总行数
If 总行数 < 500 Then
Call shanhai.GetHttpFile(“http://www.liuliang2.com/api/jinweidu.txt”, “/sdcard/jinweidu.txt”)
Else
随机行 = shanhai.RndEx(1, 总行数)
TracePrint 随机行
随机内容 = File.ReadLine(经纬度, 随机行)
TracePrint 随机内容
随机内容 = Split(随机内容, “东经”)
TracePrint 随机内容(0)
TracePrint 随机内容(1)
纬度 = 随机内容(0)
经度 = 随机内容(1)

jiange.Location(经度,纬度)

End If

 

 

 
http://v.youku.com/v_show/id_XNDA4MDY1NTQwMA==.html

0
分享到:

关于客服QQ更换为:24445818的说明

因为密保手机号码丢失找不回来了原来的QQ 278183852现更换为24445818,请各位会员朋友看到后添加下新的QQ

热线电话
QQ客服
  • 财神汇一哥 点击这里给我发消息
  • 定制开发 点击这里给我发消息
电子邮箱
  • 邮箱
QQ群
  • 交流2群 交流2群
  • 交流3群 交流3群
添加微信
  • 扫一扫,加一哥微信
回到顶部
没有账号? 忘记密码?