易截截图软件、单文件、免安装、纯绿色、仅160KB

VB怎样判断、防止程序重复执行

Private Sub Form_load()
    '判断程序是否已经运行
    If App.PrevInstance
Then
     MsgBox "本程序已经运行!", vbInformation Or vbOKOnly, "提示信息"
     Unload
Me
     Exit Sub
    End If
    '以下是主要程序
    ' ……
    End
Sub
    附:另一个例子:
    Option Explicit
    Public Sub CheckExist(fm
As Form) '防止程序重复执行
      Dim title As String
      If App.PrevInstance
Then
      title = App.title
      Call MsgBox("这程序已执行",
vbCritical)
      App.title = "" '如此才不会 Avtivate 到自己
      fm.Caption =
""
      AppActivate title 'activate 先前就已运行的程序
      End ' 结束
      End
If
    End Sub
    Private Sub Form_Load()
     Call
CheckExist(Me)
    End Sub


相关文档:

目前发现的最强悍的VB隐藏进程方法

VB隐藏进程问题的讨论由来已久,效果有好有坏,反正是各有各的招,偶然机会看到planet-source一段隐藏进程的文章,作者说采用了kernel mode driver!方法,
单从技术方法而言,这是目前见到隐藏进程中最强悍的了(个人见解,井底之蛙了),不过这种东西用在正义的人手上是一个除暴安良的利器,用心叵测者就不好说了,但是技术终归是技术 ......

VB模拟按键

键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作 总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么 我们怎样才 ......

VB六个数取最大值和最小数

mxl=1                          && 最大的文本框编号
mnl=1                  &n ......

VB窗口全屏与置顶

全屏
Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.WindowState = 2
End Sub
置顶
1.在VB的通用代码里写入API声明
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
  &n ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号