由于该楼层涉嫌违规,系统将其折叠并隐藏,以显示该楼层
Dim txf
TXF=chr('10 )//换行符
Call判断正在执行的程序() ) )
Sub判断正在执行的程序() )
Dim arr ()//定义数组变量
定义Dim程序名称文本//文本内容中所有程序的变量
Dim跳跃字符是第几个
Dim程序字符是第几个
Dim程序名称
Dim程序名称的位数
Dim文件夹2
文件夹2='/sdcard/lydxlb调用脚本'
If Dir.Exist (文件夹2 ) 2如果找不到您创建的文件,请创建一个文件夹,使其不能再创建,然后下次运行再创建2 Then //2
Dir.Create (文件夹2 ) )。
延迟50
End If
文件夹2='/sdcard/lydxlb调用脚本/所有程序名称. txt '
arr=GetRunningApp ()//获取所有APP应用程序包名称,并将它们合并并保存在arr数组中
将Call File.WriteLines (文件夹2,arr ) /数组的内容写入文件。
读取程序名称文本=File.Read (文件夹2 )//文件的内容,将文本的内容赋予变量
程序字符中的第几个=utf8.instr(1,程序名称文本,' com.tencent.mobileq ' ) /查找(com.yinhan.hunter.)是第几个字符//)
TracePrint '是一个不完整的半程序(com.yinhan.hunter.****** ) ) ) ) ) ) )的名称,(程序字符的第几位) )
ShowMessage程序的字符是第几个
延迟3000
从换行第几个=UTF8.InStr (程序字符第几个,程序名称文本,txf )//(com.Yinhan.Hunter.) )的位置开始寻找换行第几个
TracePrint '找到了“程序字符的第几位”中的【插入记号】
ShowMessage的换行是第几个
延迟3000
程序名称的位数=换行是第几个-程序字符是第几个
TracePrint '换行位数-半程序名字符位数='程序名位数
程序名=UTF8.Mid (程序名文本、程序字符多少位、程序名位数) )。
TracePrint '找到的包的完整名称是“程序名称//输出”向导
Dim AA
AA=“”程序名称“”
跟踪打印aa
KillApp程序名称
退出KillApp AA //程序
ShowMessage '程序名称'程序名称txf'AA:'AA
延迟3000
结束子
//无法关闭程序qq