皮皮网

1.易语言暂停多个进程
2.ART 深入浅出 - 为何 Thread.getStackTrace() 会崩溃？
3.用vb6可不可以设计多线程序的应用程序，如何实现

易语言暂停多个进程

       OpenProcess 取得 process handle 2.CreateToolhelpSnapshot 得到一个snapshot 3.然后调 ThreadFirst,ThreadNext 取线程

       源码：.版本 2.DLL命令 暂停线程, 整数型, "kernel.dll", "SuspendThread" .参数 hThread, 整数型, , 线程句柄.DLL命令 恢复线程, 整数型, "kernel.dll", "ResumeThread", , 解除挂起 .参数 hThread, , , 线程句柄.DLL命令 创建线程, 整数型, "kernel.dll", "CreateThread" .参数 lpThreadAttributes, 整数型 .参数 dwStackSize, 整数型 .参数 子程序指针, 子程序指针 .参数 参数, 整数型 .参数 dwCreationFlags, 整数型 .参数 线程ID, 整数型, 传址.DLL命令 销毁线程, , "kernel.dll", "TerminateThread" .参数 线程ID, 整数型 .参数 dwExitCode, 整数型

ART 深入浅出 - 为何 Thread.getStackTrace() 会崩溃？

       ART 深入浅出：Thread.getStackTrace() 崩溃原因剖析

       Thread.getStackTrace() 在卡顿检测中常被调用，但频繁调用可能导致崩溃，崩溃堆栈通常显示为：VMStack_getThreadStackTrace() -> ThreadList::SuspendThreadByPeer() 等。本文将逐步解析其崩溃机制。小照云支付源码

       在 ART (Android Runtime) 的源码 Android 版本中，VMStack.cc 的 GetThreadStack 函数是关键，它涉及线程挂起和回调生成调用栈的过程。首先，通过 SuspendThreadByPeer() 函数挂起线程，然后回调生成调用栈，最后恢复线程。借款源码然而，这个过程可能因超时引发问题，例如当 SuspendThreadByPeer() 在线程状态检查中判断线程未挂起时，超时会触发 ThreadSuspendByPeerWarning()，严重时会导致 Runtime::Abort。妈妈网源码

       通常，使用 ThreadList::SuspendThreadByThreadId() 函数可以避免这种 Crash，因为它在超时后只会产生警告，而不是终止。超时时间默认为 秒，人人贷源码如果线程长时间未能挂起，可能源于 ART 挂起线程的机制。在旧版 ART 中，挂起线程通过 ModifySuspendCount() 函数设置标志位，但在新版本中，微预订源码这个逻辑已有所改变。

       深入探究，Java 的 Check Point 概念在其中起关键作用。解释执行的 switch/case 语句和机器码执行都有检查点，这些检查点会暂停线程执行，进行垃圾回收、调试等操作。当 Thread.getStackTrace() 触发挂起时，会进入 CheckSuspend() 函数，依据状态标志位决定挂起或执行检查点。真正的挂起操作会在析构函数中执行，通过 wait 函数挂起线程，直到其他线程执行到唤醒操作。

       总结来说，Thread.getStackTrace() 崩溃源于线程挂起操作与检查点执行的同步问题。当线程未能及时进入检查点，getStackTrace() 的等待时间过长，从而导致崩溃。理解了这个机制，就能避免此类问题的发生。

用vb6可不可以设计多线程序的应用程序，如何实现

       å¤šçº¿ç¨‹æ˜¯å¯ä»¥å•Šï¼Œåªæ˜¯ä¸å¤ªå®‰å…¨ï¼Œå®¹æ˜“非法操作，

        源代码如下：

       çª—体中的代码：

       Option Explicit

       '开始

       Private Sub Command1_Click()

       On Error Resume Next

       With myThreadleft

        .Initialize AddressOf Fillleft '传递过程地址给线程

        .ThreadEnabled = True

        End With

        With myThreadright

        .Initialize AddressOf Fillright

        .ThreadEnabled = True

        End With

        With myThreadbottom

        .Initialize AddressOf Fillbottom

        .ThreadEnabled = True

        End With

       MsgBox "多线程正在运行...，看看图片框控件的变色效果！", , "信息"

       '终止线程运行

        Set myThreadleft = Nothing

        Set myThreadright = Nothing

        Set myThreadbottom = Nothing

       End Sub

       '结束

       Private Sub Command2_Click()

        Unload Me

       End Sub

       æ¨¡å—中的代码：

       Option Explicit

       '时间计数API

       Private Declare Function GetTickCount Lib "kernel" () As Long

       '声明cls_thread类的对象变量

       Public myThreadleft As New cls_thread, myThreadright As New cls_thread, myThreadbottom As New cls_thread

       Sub Main()

        Load Form1

        Form1.Show

       End Sub

       Public Sub Fillleft()

        Static Bkgcolor As Long

        Dim LongTick As Long, Longcounter As Long

        On Error Resume Next

        For Longcounter = 0 To

        DoEvents

        Bkgcolor = Longcounter Mod

        Form1.Picture1.BackColor = RGB(Bkgcolor, 0, 0)

        LongTick = GetTickCount

        While GetTickCount - LongTick < '延时毫秒,下同

        Wend

        Next

        Set myThreadleft = Nothing '如果循环结束则终止当前线程运行，下同

       End Sub

       Public Sub Fillright()

        Static Bkgcolor As Long

        Dim LongTickValue As Long, Longcounter As Long

        On Error Resume Next

        For Longcounter = 0 To

        DoEvents

        Bkgcolor = Longcounter Mod

        Form1.Picture2.BackColor = RGB(0, Bkgcolor, 0)

        LongTickValue = GetTickCount

        While GetTickCount - LongTickValue <

        Wend

        Next

       Set myThreadright = Nothing

       End Sub

       Public Sub Fillbottom()

        Static Bkgcolor As Long

        Dim LongTick As Long, Longcounter As Long

        On Error Resume Next

        For Longcounter = 0 To

        DoEvents

        Bkgcolor = Longcounter Mod

        Form1.Picture3.BackColor = RGB(0, 0, Bkgcolor)

        LongTick = GetTickCount

        While GetTickCount - LongTick <

        Wend

        Next

        Set myThreadright = Nothing

       End Sub

       ç±»æ¨¡å—中的代码：

       '功能：创建多线程类，用于初始化线程。 类名：cls_Thread

       '参数：LongPointFunction 用于接收主调过程传递过来的函数地址值

       '调用方法：1.声明线程类对象变量 Dim mythread as cls_Thread

       ' 2.调用形式：With mythread

       ' .Initialize AddressOf 自定义过程或函数名 '(初始化线程) .

       ' .ThreadEnabled = True '(设置线程是否激活)

       ' End With

       ' 3.终止调用： Set mythread = Nothing

       ' Crate By : 陈宇 On .5. Copyright(C).Ldt By CY-soft --

       ' Email:4y4ycoco@.com

       ' Test On： VB6.0+Win AND VB6.0+WinXP It's Pass ！

       Option Explicit

       '创建线程API

       'æ­¤API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用：

       '因为函数的入口地址由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址

       Private Declare Function CreateThread Lib "kernel" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long

       '终止线程API

       Private Declare Function TerminateThread Lib "kernel" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

       '激活线程API

       Private Declare Function ResumeThread Lib "kernel" (ByVal hThread As Long) As Long

       '挂起线程API

       Private Declare Function SuspendThread Lib "kernel" (ByVal hThread As Long) As Long

       Private Const CREATE_SUSPENDED = &H4 '线程挂起常量

       '自定义线程结构类型

       Private Type udtThread

        Handle As Long

        Enabled As Boolean

       End Type

       Private meTheard As udtThread

       '初始化线程

       Public Sub Initialize(ByVal LongPointFunction As Long)

        Dim LongStackSize As Long, LongCreationFlags As Long, LpthreadId As Long, LongNull As Long

        On Error Resume Next

        LongNull = 0

        LongStackSize = 0

        LongCreationFlags = CREATE_SUSPENDED '创建线程后先挂起，由程序激活线程

       '创建线程并返线程句柄

        meTheard.Handle = CreateThread(LongNull, LongStackSize, ByVal LongPointFunction, LongNull, LongCreationFlags, LpthreadId)

       If meTheard.Handle = LongNull Then

        MsgBox "线程创建失败！", , "错误"

        End If

       End Sub

       '获取线程是否激活属性

       Public Property Get ThreadEnabled() As Boolean

        On Error Resume Next

        Enabled = meTheard.Enabled

       End Property

       '设置线程是否激活属性

       Public Property Let ThreadEnabled(ByVal Newvalue As Boolean)

        On Error Resume Next

        '若激活线程（Newvalue为真）设为TRUE且此线程原来没有激活时激活此线程

        If Newvalue And (Not meTheard.Enabled) Then

        ResumeThread meTheard.Handle

        meTheard.Enabled = True

        Else '若激活线程（Newvalue为真）且此线程原来已激活则挂起此线程

        If meTheard.Enabled Then

        SuspendThread meTheard.Handle

        meTheard.Enabled = False

        End If

        End If

       End Property

       '终止线程事件

       Private Sub Class_Terminate()

        On Error Resume Next

        Call TerminateThread(meTheard.Handle, 0)

       End Sub