android app 按键精灵,安卓按键精灵的，关闭app程序问题！

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Dim txf

txf = Chr("10") //跳行符

Call 判断正在运行的程序()

Sub 判断正在运行的程序()

Dim arr() //定义一个数组变量

Dim 程序名文本//定义文本内容中的所有程序的变量

Dim 跳行符在第几位

Dim 程序字符第几位

Dim 程序名

Dim 程序名位数

Dim 文件夹2

文件夹2 = "/sdcard/小宙喊话脚本"

If Dir.Exist(文件夹2) <>2 Then //2为如果没找到创建的文件，就创建文件夹，防止创建一次了，下次运行又创建

Dir.Create (文件夹2)

Delay 50

End If

文件夹2="/sdcard/小宙喊话脚本/所有程序名.txt"

arr=GetRunningApp() //获取所有应用程序包名并将它们合并到arr数组中保存

Call File.WriteLines(文件夹2, arr) //写入数组内容到文件，

程序名文本 = File.Read(文件夹2)//读取文件内容，把文本内容赋予变量

程序字符第几位 = UTF8.InStr(1,程序名文本, "com.tencent.mobileq") //查找(com.yinhan.hunter.)在第几位字符//(1)为起始位置：整数型，开始搜索的字符位置

TracePrint "找到不完整的半程序(com.yinhan.hunter.******)名，在第"&程序字符第几位&"位"

ShowMessage 程序字符第几位

Delay 3000

跳行符在第几位 = UTF8.InStr(程序字符第几位,程序名文本, txf) //从(com.yinhan.hunter.)的位置，开始查找跳行符在第几位

TracePrint "找到【跳行符】在第"&程序字符第几位&"位"

ShowMessage 跳行符在第几位

Delay 3000

程序名位数=跳行符在第几位-程序字符第几位

TracePrint "跳行符位数-半程序名字符位数="&程序名位数

程序名 = UTF8.Mid(程序名文本, 程序字符第几位, 程序名位数)

TracePrint "您查找到的全程序包完整名为："&程序名//输出"精灵"

Dim AA

AA = """" & 程序名 & """"

TracePrint AA

KillApp 程序名

KillApp AA //结束程序

ShowMessage "程序名"&程序名&txf&"AA:"&AA

Delay 3000

End Sub

//关不了程序qq