Private Sub Form_Load()
If AppPrevInstance = True Then
MsgBox "程序已经在运行", , "工程一"
Unload Me
End
End If
End Sub
民事判决中遗漏判项但主文中已对此事项明确阐述的，可以民事裁定形式予以补正，不属于程序违法情形。人民法院对上诉案件，经过审理，按照下列情形，分别处理：
（一）原判决认定事实清楚，适用法律正确的，判决驳回上诉，维持原判决；
（二）原判决适用法律错误的，依法改判；
（三）原判决认定事实错误，或者原判决认定事实不清，证据不足，裁定撤销原判决，发回原审人民法院重审，或者查清事实后改判；
（四）原判决违反法定程序，可能影响案件正确判决的，裁定撤销原判决，发回原审人民法院重审。当事人对重审案件的判决、裁定，可以上诉。
法律依据：
《中华人民共和国行政复议法》
第六条有下列情形之一的，公民、法人或者其他组织可以依照本法申请行政复议：（一）对行政机关作出的警告、罚款、没收违法所得、没收非法财物、责令停产停业、暂扣或者吊销许可证、暂扣或者吊销执照、行政拘留等行政处罚决定不服的；（二）对行政机关作出的限制人身自由或者查封、扣押、冻结财产等行政强制措施决定不服的；（三）对行政机关作出的有关许可证、执照、资质证、资格证等证书变更、中止、撤销的决定不服的；（四）对行政机关作出的关于确认土地、矿藏、水流、森林、山岭、草原、荒地、滩涂、海域等自然资源的所有权或者使用权的决定不服的；（五）认为行政机关侵犯合法的经营自主权的；（六）认为行政机关变更或者废止农业承包合同，侵犯其合法权益的；（七）认为行政机关违法集资、征收财物、摊派费用或者违法要求履行其他义务的；（八）认为符合法定条件，申请行政机关颁发许可证、执照、资质证、资格证等证书，或者申请行政机关审批、登记有关事项，行政机关没有依法办理的；（九）申请行政机关履行保护人身权利、财产权利、受教育权利的法定职责，行政机关没有依法履行的；（十）申请行政机关依法发放抚恤金、社会保险金或者最低生活保障费，行政机关没有依法发放的；（十一）认为行政机关的其他具体行政行为侵犯其合法权益的。
第九条公民、法人或者其他组织认为具体行政行为侵犯其合法权益的，可以自知道该具体行政行为之日起六十日内提出行政复议申请；但是法律规定的申请期限超过六十日的除外。因不可抗力或者其他正当理由耽误法定申请期限的，申请期限自障碍消除之日起继续计算。
第三十一条行政复议机关应当自受理申请之日起六十日内作出行政复议决定；但是法律规定的行政复议期限少于六十日的除外。情况复杂，不能在规定期限内作出行政复议决定的，经行政复议机关的负责人批准，可以适当延长，并告知申请人和被申请人；但是延长期限最多不超过三十日。行政复议机关作出行政复议决定，应当制作行政复议决定书，并加盖印章。行政复议决定书一经送达，即发生法律效力。
检测某程序是需要检测进程吧,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
#include <stdioh>
double jiafa(double x,double y);
double jianfa(double x,double y);
double chengfa(double x,double y);
double chufa(double x,double y);
int main()
{
double a;
double b;
char ch;
for(;;)
{
printf("请输入你的运算式:\n");
scanf("%lf%c%lf",&a,&ch,&b);
switch(ch)
{
case'+':
printf("运算结果为:%2lf\n",jiafa(a,b));
break;
case'-':
printf("运算结果为:%2lf\n",jianfa(a,b));
break;
case'':
printf("运算结果为:%2lf\n",chengfa(a,b));
break;
case'/':
printf("运算结果为:%2lf\n",chufa(a,b));
break;
default :printf("符号输入错误!");
}
printf("请问是否要继续(y:是,n:否):\n");
{
fflush(stdin);
char ch='y';
char x;
scanf("%c",&x);
if(x=='y')
{
system("cls");
continue;
}
else
break;
}
}
return 0;
}
double jiafa(double x,double y)
{double z;
z=x+y;
return z;
}
double jianfa(double x,double y)
{double z;
z=x-y;
return z;
}
double chengfa(double x,double y)
{double z;
z=xy;
return z;
}
double chufa(double x,double y)
{double z;
if(y==0)
{ printf("错误!除数不能为零!\n");
z=0;}
else
z=x/y;
return z;
}
如果是联网的程序就联网验证在线就行锁定一个全局的内核对象 比如自己的执行文件,如果这样还怕不保险的话,可以安装的时候往system32文件夹中写一个没用的文件,启动的时候锁定一下这个文件,下次启动因为已经被锁,就没法再锁定了,这样就只允许一个了
分类: 电脑/网络 >> *** 作系统/系统故障
解析:
这个是可以的，使用Win自带的添加删除程序即可完全的卸载程序！
一、 为何不能用“Shift+Del"删除软件经常下载软件的朋友可能注意到了有些软件解压的时候会提示“该软件为绿色软件，直接解压到硬盘上即可使用"．对于这类绿色软件，由于它们不会向系统中添加任何信息．因此可以像删除普通文件一样，直接用”shift+Del”组合键将软件目录删除。 但对于大多数软件来说，需要执行它们的安装程序后才能使用。这些软件在安装的时候会在注册表中添加自己的信息有的还会在系统目录(例如windows系统目录“C:\system32”)中添加一些文件。如果采用上面的方法来处理，则删除的仅仅是软件的安装目录，而它们安装时添加到其它目录中的文件并没有被删除，注册表中的相关信息也没有清理干净。
二、解铃还譬系铃人现在多数软件安装后，都会提供相应的卸载程序，这为我们卸载软件提供了方便。当我们需要卸载软件时，只要直接运行这个卸载程序就可以达到目的了通常软件安装后,在"开始菜单"中会添加相应的程序组，而它的卸载程序大多也位于这里。下面我们以卸载winamp为例，看看如何使用它自带的卸载程序来达到清除它的目的(以下均以WindowsXP中的 *** 作为例)。点击“开始-程序-Winamp”，在它的程序组菜单中找到“卸载winamp”。点击后会打开卸载向导窗口，然后按照向导程序提示一步一步 *** 作，即可将它从系统中卸载干净。不过有的软件在安装时并没有在’开始’菜单中添加项目或即使添加了项目但没有卸载程序，如winRAR，这时该怎么办呢让我们到软件的安装目录去看看吧。进入WinRAR的安装目录里，我们可以发现，原来它的卸载程序Uninstallexe“躲”在这里呢,直接双击运行这个卸载程序即科将winRAR卸载
三、系统工具来帮忙也有一些软件安装后，并没有自带卸载程序，如MSN Messenger，在开始菜单和软件安装目录中都找不到它的卸载程序。要卸载这种软件，通过上面的方法就不行了。不过，Windows系统也为我们提供了一个很好的卸载工具—"添加或删除程序”，即使没有自带卸载程序的软件，我们也可以通过它来卸载。点击“开始-控制面板”，在“控制面板”窗口中找到“添加或删除程序”图标并双击,即可打开“添加或删除程序”窗口，如果你的系统是WindowsXP，d出来的窗口。这里显示的就是系统中已经安装的软件，在软件列表中找到你要删除的程序,如MSN Messenger，点击后可以看到这个软件的使用频率、大小等信息，要删除它，只要点击右边的"删除"或“更改／删除"(有的软件选择后只显示有一个“更改/删除)按钮，系统就会打开卸载程序向导，根据向导提示 *** 作即可。
四、卸载“后遗痖”不用怕有些软件由于某些原因，采用上面的方法卸载后，还可能会有一些"后遗症”影响我们的使用，让我们来看看一些典型的软件卸载“后遗症"吧。1．卸载后无法重装软件或重装后无法使用这方面最典型的要数RealOne Player了。例如有些朋友电脑上已经安装了RealPlayer80，再安装RealOne Player后，发现RealOne Player无法使用，在“添加或删除程序’里将它们都卸载后，只安装RealOne Player，还是无法使用。其实这个时候，我们需要讲究一点卸载技巧。打开RealOne Player的安装目录，在Setup目录有一个rlpclean．exe文件，双击该文件后会打开命令提示符窗口，在该窗口中根据提示输入两次"Y",，即可将Realone Player彻底删除干净，然后重新安装RealOne Player就可以正常使用了。2．卸载后“添加或删除程序"中还有软件的信息有些软件由于自身的原因，即使通过自带卸载程序或“添加或删除程序”卸载后，在“添加或删除程序”的程序列表中，依然有该软件的信息，虽不影响使用，但看了让人不痛快，还是把它清理干净吧。打开注册表编辑器，找到HKEY_LOCAL_MACHINE\SOFTWARE\Micrsoft\Windows\CurrentVersion\Uninstall分支，这下面显示的就是“添加或删除程序”中的项。将已删除的软件对应的项删除，则它们遗留在“添加或删除程序"中的信息就会被清理掉除了上面提到的软件卸载方法外，我们还可以借助一些专门的卸载工具来卸载软件，如<完美卸载XP>。相信结合这几种卸载方法，再也不会有"送"不走的软件了。
以上就是关于vb怎么判断当前程序是否正在运行全部的内容，包括:vb怎么判断当前程序是否正在运行、遗漏诉讼请求是否属于程序违法、如何用vb检测某程序是否在运行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）