Dim 包名="com.tencent.tmgp.rxcq"
If 啟動遊戲(包名)
TracePrint "已成功啟動遊戲"
Delay 3000
End If
If 重啟遊戲(包名)
TracePrint "已成功重啟遊戲"
End If
Function 啟動遊戲(包名)
啟動遊戲=False
dim 自啟動
Dim arr()
arr=GetRunningApp()
For each n in arr
If n = 包名 Then 自啟動 = False:Exit For Else 自啟動 = True
Next
If 自啟動 Then TracePrint "自動啟動遊戲":RunApp 包名:啟動遊戲=true
End Function
Function 重啟遊戲(包名)
dim 自重啟
Dim arr()
arr=GetRunningApp()
For each n in arr
If n = 包名 Then 自重啟 = true:Exit For Else 自重啟 = False
Next
If 自重啟 Then
KillApp 包名
For i = 5 To 1 Step -1
TracePrint i&"秒後自動重啟遊戲"
Delay 1000
Next
if 啟動遊戲(包名)
重啟遊戲=true
End If
End If
End Function
Dim bāo míng ="com.Tencent.Tmgp.Rxcq"
If qǐdòng yóuxì (bāo míng)
TracePrint"yǐ chénggōng qǐdòng yóuxì"
Delay 3000
End If
If chóngqǐ yóuxì (bāo míng)
TracePrint"yǐ chénggōng chóngqǐ yóuxì"
End If
Function qǐdòng yóuxì (bāo míng)
qǐdòng yóuxì =False
dim zì qǐdòng
Dim arr()
arr=GetRunningApp()
For each n in arr
If n = bāo míng Then zì qǐdòng = False:Exit For Else zì qǐdòng = True
Next
If zì qǐdòng Then TracePrint"zìdòng qǐdòng yóuxì":RunApp bāo míng: Qǐdòng yóuxì =true
End Function
Function chóngqǐ yóuxì (bāo míng)
dim zì chóngqǐ
Dim arr()
arr=GetRunningApp()
For each n in arr
If n = bāo míng Then zì chóngqǐ = true:Exit For Else zì chóngqǐ = False
Next
If zì chóngqǐ Then
KillApp bāo míng
For i = 5 To 1 Step -1
TracePrint i&"miǎo hòu zìdòng chóngqǐ yóuxì"
Delay 1000
Next
if qǐdòng yóuxì (bāo míng)
chóngqǐ yóuxì =true
End If
End If
End Function
闽公网安备 35010002000112号