如何界定是否进入二审程序

二审程序又称上诉审程序，是指由于刑事诉讼的当事人不服第一审法院未生效的第一审裁判而在法定期间内向上一级人民法院提起上诉而引起的诉讼程序，是第二审级的人民法院审理上诉案件所适用的程序。它是刑事诉讼中一个独立的诉讼阶段。如果二审法院接到诉讼状，交纳诉讼费就进入二审程序。

检测某程序是需要检测进程吧,FindWindow是查找窗口别人把窗口隐藏了你找什么去~~~~~

先把找进程的贴出来,再贴查版本的

进程查找:(我是把代码全搬出来了,有些其他你不要的函数自己清理下)

(模块)

声明:

'进程-查找

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String 1024

End Type

Private Const TH32CS_SNAPHEAPLIST = &H1

Private Const TH32CS_SNAPPROCESS = &H2

Private Const TH32CS_SNAPTHREAD = &H4

Private Const TH32CS_SNAPMODULE = &H8

Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)

Private Const TH32CS_INHERIT = &H80000000

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

Private WM_TASKBARCREATED As Long

'------------------------------------------------------------------------------

'进程 *** 作部分：--------此部分只作为主程序的专有部分，其他子程序暂无 *** 作进程功能-------------------------

'查找函数

Public Function FindPro(ByVal sExePro As String, ByRef lProID As Long) As Integer '1找到该进程，0没找到

Dim my As PROCESSENTRY32

Dim l As Long

Dim l1 As Long

Dim mName As String

Dim i As Integer

Dim PID

FindPro = 0

sExePro = LCase(sExePro)

l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

If l Then

mydwSize = 1060

If (Process32First(l, my)) Then '遍历开始

Do

i = InStr(1, myszExeFile, Chr(0))

mName = LCase(Left(myszExeFile, i - 1))

If mName = sExePro Then

PID = myth32ProcessID

'pname = mName

Dim mProcID As Long

mProcID = OpenProcess(1&, -1&, PID)

lProID = mProcID

'MsgBox pname

'TerminateProcess mProcID, 0&

FindPro = 1 '找到进程

Exit Function

End If

Loop Until (Process32Next(l, my) < 1)

End If

l1 = CloseHandle(l)

End If

End Function

'结束进程（查找进程，如存在则结束，不存在则无 *** 作）

Public Function SetEndPro(ByVal sExePro As String) As Integer '1成功结束，-1无此进程，0结束进程失败

Dim lProID As Long

Dim tmBack As Long

lProID = -1

If FindPro(sExePro, lProID) = 1 Then

tmBack = TerminateProcess(lProID, 0&)

If tmBack <> 0 Then

SetEndPro = 1 '成功结束进程

Else

SetEndPro = 0 '失败

End If

CloseHandle lProID

Exit Function

Else

SetEndPro = -1 '不存在

End If

End Function

'--------------------------------------------------------

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'(完了再贴检测版本,你自己组合下函数就好了仍然有很多你不要的函数声明,自己清理下)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''Ver for AOSexe'''''''''''''''''''

Type VS_FIXEDFILEINFO

dwSignature As Long

dwStrucVersionl As Integer ' eg = &h0000 = 0

dwStrucVersionh As Integer ' eg = &h0042 = 42

dwFileVersionMSl As Integer ' eg = &h0003 = 3

dwFileVersionMSh As Integer ' eg = &h0075 = 75

dwFileVersionLSl As Integer ' eg = &h0000 = 0

dwFileVersionLSh As Integer ' eg = &h0031 = 31

dwProductVersionMSl As Integer ' eg = &h0003 = 3

dwProductVersionMSh As Integer ' eg = &h0010 = 1

dwProductVersionLSl As Integer ' eg = &h0000 = 0

dwProductVersionLSh As Integer ' eg = &h0031 = 31

dwFileFlagsMask As Long ' = &h3F for version "042"

dwFileFlags As Long ' eg VFF_DEBUG Or VFF_PRERELEASE

dwFileOS As Long ' eg VOS_DOS_WINDOWS16

dwFileType As Long ' eg VFT_DRIVER

dwFileSubtype As Long ' eg VFT2_DRV_KEYBOARD

dwFileDateMS As Long ' eg 0

dwFileDateLS As Long ' eg 0

End Type

Declare Function GetFileVersionInfo Lib "Versiondll" Alias _

"GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal _

dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long

Declare Function GetFileVersionInfoSize Lib "Versiondll" Alias _

"GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, _

lpdwHandle As Long) As Long

Declare Function VerQueryValue Lib "Versiondll" Alias _

"VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, _

lplpBuffer As Any, puLen As Long) As Long

Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _

(dest As Any, ByVal Source As Long, ByVal Length As Long)

Public Function GetVer(Optional ExePath) As String

' Get Version Info

If Not IsMissing(ExePath) Then

fullfilename = ExePath

Else

fullfilename = AppEXEName + "exe"

End If

Dim FileVer As String

Dim rc As Long

Dim lDummy As Long

Dim sBuffer() As Byte

Dim lBufferLen As Long

Dim lVerPointer As Long

Dim udtVerBuffer As VS_FIXEDFILEINFO

Dim lVerbufferLen As Long

' Get size

lBufferLen = GetFileVersionInfoSize(fullfilename, lDummy)

If lBufferLen < 1 Then

'MsgBox "该文件没有版本信息!", vbInformation

Exit Function

End If

' Store info to udtVerBuffer struct

ReDim sBuffer(lBufferLen)

rc = GetFileVersionInfo(fullfilename, 0&, lBufferLen, sBuffer(0))

rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)

MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)

' Determine File Version number

FileVer = Format$(udtVerBufferdwFileVersionMSh) & "" & _

Format$(udtVerBufferdwFileVersionMSl) & "" & _

Format$(udtVerBufferdwFileVersionLSh) & "" & _

Format$(udtVerBufferdwFileVersionLSl) '倒数第二句Format$(udtVerBufferdwFileVersionLSh) & ""

GetVer = FileVer

End Function

以上就是关于如何界定是否进入二审程序全部的内容，包括:如何界定是否进入二审程序、如何用vb检测某程序是否在运行、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！