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