من یه مشکل با Thread داشتم لطف کنید کد نویسیمو تصحیح کنید
#Region Service Attributes
#StartAtBoot: False
#ExcludeFromLibrary: True
#End Region
Sub Process_Globals
Dim Thread1 As Thread
End Sub
Sub Service_Create
Dim args(0) As Object
Thread1.Initialise("thread1")
Thread1.Name = "Thread1"
Thread1.Start(Null, "ThreadSub1", args)
End Sub
Sub ThreadSub1
Dim l As List
l.Initialize
l.Clear
Dim am As ActivityManager
Dim tasks() As RunningTaskInfo = am.GetRunningTasks
'Dim appname(10) As String
Dim i As Int
For Each task As RunningTaskInfo In tasks
l.Add( task.GetApplicationName)
i=i+1
Next
'For j=1 To l.Size-1
'ListView1.AddSingleLine(l.Get(j))
'Next
For i=0 To l.Size-1
Dim g As String
g=l.Get(i)
If g.Contains("Task") =True Then
ToastMessageShow("okkkk", False)
End If
Next
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
End Sub
سوال
shahan148 27
سلام دوستان
من یه مشکل با Thread داشتم لطف کنید کد نویسیمو تصحیح کنید
#Region Service Attributes #StartAtBoot: False #ExcludeFromLibrary: True #End Region Sub Process_Globals Dim Thread1 As Thread End Sub Sub Service_Create Dim args(0) As Object Thread1.Initialise("thread1") Thread1.Name = "Thread1" Thread1.Start(Null, "ThreadSub1", args) End Sub Sub ThreadSub1 Dim l As List l.Initialize l.Clear Dim am As ActivityManager Dim tasks() As RunningTaskInfo = am.GetRunningTasks 'Dim appname(10) As String Dim i As Int For Each task As RunningTaskInfo In tasks l.Add( task.GetApplicationName) i=i+1 Next 'For j=1 To l.Size-1 'ListView1.AddSingleLine(l.Get(j)) 'Next For i=0 To l.Size-1 Dim g As String g=l.Get(i) If g.Contains("Task") =True Then ToastMessageShow("okkkk", False) End If Next End Sub Sub Service_Start (StartingIntent As Intent) End Sub Sub Service_Destroy End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.