В среде VB6 это выполняется следующим образом - в VB NET этот код игнорируется:
- Код: Выделить всё
' Демонстрационная версия может работать на любой VB платформе, дизайне или времени выполнения
Public Function IsVBEnvironment() As Boolean
Dim thismod&
Dim thisfile$
Dim basename$
Dim thispos%
Dim thischar$
On Error GoTo nogo
thismod = GetModuleHandle("Проект1.exe")
thisfile = String$(262, Chr$(0))
Call GetModuleFileName(thismod, thisfile, 261)
thisfile = Left$(thisfile, InStr(thisfile, Chr$(0)) - 1)
thispos = Len(thisfile)
Do
thischar = Mid$(thisfile, thispos, 1)
If thischar = "\" Or thischar = ":" Then Exit Do
thispos = thispos - 1
Loop While thispos > 0
basename = LCase$(Mid$(thisfile, thispos + 1))
If basename = "vb.exe" Or basename = "vb32.exe" Or basename = "vb6.exe" Or basename = "devenv.exe" Then
IsVBEnvironment = True
End If
Exit Function
nogo:
End Function
