// 查找到好友发信息
Import “shanhai.lua”
Dim Path,Ret_Txt,ii
ii = 0
path = “/sdcard/MobileAnjian/anjian.txt”
Dim 话术="/sdcard/MobileAnjian/ceshi.txt"//话术页面
TracePrint File.Read(话术)
Dim fx_hh1=“2-”
Dim fx_hh2=“3-”
Do
Call File.Write(path, shanhai.GetUIXml())
If Dir.Exist(path) = 1 Then
Ret_Txt = File.Read(path)'读取文本文件内容返回到Ret_Txt变量中了
TracePrint “已读取”
TracePrint File.Read(path) '严密一些
End If
For i = 1 To 8’分析的是一页中的好友
Dim Fx_str1=“com.ss.android.tuchong:id/follow_name”
Dim Fx_srr2=“text”
Dim Fx_srr3=“bounds”
Dim Ret_Int1
TracePrint Ret_Int1
Dim Str_len=len(Fx_str1)'获取字符串长度
Dim Ret_Ret=Ret_Int1+Str_len
Dim HaoYou1=Wbfx(Ret_Ret,Fx_str1, Fx_srr2)
TracePrint “好友:”& HaoYou1
//Fx_str1=“android:id/text1”
Fx_srr2 = “bounds”
Dim ZhuoBiao