من یه مشکل با 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 28
سلام دوستان
من یه مشکل با Thread داشتم لطف کنید کد نویسیمو تصحیح کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.