【开源项目】花密（Flower Password）VB版之IDE模块

最新推荐文章于 2022-11-20 08:54:37 发布

xLsDg

最新推荐文章于 2022-11-20 08:54:37 发布

阅读量434

点赞数

分类专栏：开源代码文章标签： vb ide string function date blog

本文链接：https://blog.csdn.net/xlsdg/article/details/7445312

版权

这是一个VB编写的开源项目——花密（Flower Password）的一部分，该模块用于检测程序是否在IDE环境中运行。通过调用`GetModuleFileName`函数获取当前模块文件名，并与应用程序的EXE名称比较，从而判断程序运行状态。

摘要由CSDN通过智能技术生成

'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
'      Author : xLsDg @ Xiao Lu Software Development Group
'        Blog : http://hi.baidu.com/xlsdg
'          QQ : 4 4 7 4 0 5 7 4 0
'     Version : 1 . 0 . 0 . 0
'        Date : 2 0 1 2 / 0 4 / 0 7
' Description :
'     History :
'*****************************************************************
Option Explicit

Private Declare Function GetModuleFileName _
                Lib "kernel32.dll" _
                Alias "GetModuleFileNameA" (ByVal hModule As Long, _
                                            ByVal lpFileName As String, _
                                            ByVal nSize As Long) As Long

Public Function isRunInIDEMode() As Boolean

    Dim strFileName As String, lngCount As Long, strAppName As String, lngAppName As Long

    strFileName = St