Code:

{HEADER}{DATA}

gde je {HEADER}:
[E][L][I][T][E][M][A][P] {VERSION:32b} (map name) {WIDTH:16b} {HEIGHT:16b} {HASH:32b} {FLAGS:32b}

a {DATA} niz bajtova:
[0,0][0,1]...[0,WIDTH-1][1,0][1,1]...[1,WIDTH-1]...[HEIGHT-1,WIDTH-1]

Code:

{HEADER}{DATA}

gde je {HEADER}:
[E][L][I][T][E][M][A][P] {VERSION:32b} (map name) {WIDTH:16b} {HEIGHT:16b} {HASH:32b} {FLAGS:32b}

a {DATA} niz bajtova:
[0,0][0,1]...[0,WIDTH-1][1,0][1,1]...[1,WIDTH-1]...[HEIGHT-1,WIDTH-1]
{COMMENT}

Code:

[Themes]
.
.
.
6=Visual Studio,8388608,255,0,0,0,0,0,0,0,0,268435584,128,8388608,8404992,8421376,0,0,0,16777215,0,10485760,16777215,37781504,64,0,16777215,16777215,15329769,16777215,15132390,0,0,16777215,0,16777215,0,12644592,0,12644592,0,4194432

Code:

EditFont=-15,0,Courier New
LnrFont=-12,0,Courier New
EditOpt=4,0,0,1,0,1,4,1,0,1,1,1,1,0,0,1,1,1,1,1
CodeFiles=.bas.bi.
CaseConvert=CWPp
CustColors=12644592,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Colors=8388608,255,0,0,0,0,0,0,0,0,268435584,128,8388608,8404992,8421376,0,0,0,0
C0="abs Abs access Access acos alias Alias allocate And Any append Append as As asc Asc asin asm atan2 atn Atn base Base Basic beep Beep bin bin$ Bin$ binary Binary bit bitreset bitset bload BLoad bsave BSave byref ByRef byval ByVal call Call callocate Calls Case Cast CByt cbyte CCur cdbl CDbl cdecl Cdecl chain Chain chdir ChDir ChDrive Chr chr$ Chr$ cint CInt circle clear Clear clng CLng clngint close Close cls Cls color Color Com command command$ Command$ common Common CompileLine CompileLine$ condbroadcast condcreate conddestroy condsignal condwait Const Constructor continue cos Cos cshort csign csng CSng csrlin CsrLin cubyte cuint culngint cunsg curdir CurDir$ cushort Cvb Cvc cvd Cvd cvi Cvi cvl Cvl cvs Cvs data Data date date$ Date$ deallocate Declare Def defbyte DefCur DefDbl defined DefInt DefLng defshort DefSng DefStr defubyte defuint defushort Destructor dim Dim dir dir$ Dir$ DisableBOPT DisableFold DisableIncDec DisablePeriodMsg DisableShifts DisableTest DisableTrim do Do draw dylibfree dylibload dylibsymbol dynamic Else ElseIf End EndIf enum environ Environ environ$ Environ$ eof Eof eqv Eqv erase Erase ErDev ErDev$ Erl err Err error Error Error$ escape Event exec exepath exit Exit exp Exp explicit Explicit export extern False Field FileAttr Files Fix fix flip For for Fortran Fre fre FreeFile freefile Function Get get getkey getmouse Go GoSub gosub GoTo goto hex Hex$ hex$ hibyte hiword If iif Imp imp InKey$ inkey$ Inp inp Input input Input$ input$ Instr instr Int int IoCtl IoCtl$ Is is Key Kill kill LBound lbound lcase LCase$ lcase$ left Left$ left$ Len len Let let Lib lib Line line LineNumber List lobyte Loc loc Local local Locate locate Lock lock Lof lof Log log Loop loop loword LPos LPrint LSet lset ltrim LTrim$ ltrim$ mid mid$ Mkb$ Mkc$ mkd Mkd$ mkd$ MkDir mkdir mki Mki$ mki$ mkl Mkl$ mkl$ mklongint mks Mks$ mks$ mkshort Mod mod multikey mutexcreate mutexdestroy mutexlock mutexunlock Name name Namespace Next next Not Null oct Oct$ oct$ Off Offset On on once Open open Operator Option option Or Out out Output output overload paint palette Pascal pascal pcopy Peek peek PeekByte PeekCurr peeki PeekLong peeks PeekWord Pen Play pmap point Pointer Poke poke PokeByte PokeCurr pokei PokeLong pokes PokeWord Pos pos Preserve preserve preset Print private procptr Property pset public Put put Random random Randomize randomize Read read reallocate ReDim redim Rem Reset reset Restore restore Resume resume resume Return return rgb right Right$ right$ RmDir rmdir Rnd rnd Rol Ror RSet rset rtrim RTrim$ rtrim$ Run run Sadd sadd Scope Screen screen screencopy screeninfo screenlock screenptr screenres screenset screenunlock Seek seek Seg Seg$ Select setenviron SetMem Sgn sgn Shared shared Shell shell Shl Shr Signal Sin sin sizeof Sleep sleep Sound space Space$ space$ Spc spc Sqr sqr Sseg Ssegadd Stack Static static Stdcall stdcall Step step Stick Stop stop Str Str$ str$ strcat strchr strcmp strcpy Strig String$ string$ strlen strncat strncmp strncpy strptr strrchr strstr Sub swap Syscall system Tab tab Tan tan Test TestNot Then threadcreate threadwait time Time$ time$ Timer timer To to trim Trim$ trim$ True Type UBound ubound ucase UCase$ ucase$ union unlock Until until Using using va_arg va_first va_next Val val val64 valint Var VarPtr varptr VarPtr$ VarSeg view wait wend while width WinCon window windowtitle WinGui with write Xor "
C1="#define #else #elseif #endif #endmacro #error #if #ifdef #ifndef #inclib #include #libpath #line #macro #pragma #print #undef "
C2=""
C3=""
C4=""
C5=""
C6=""
C7=""
C8=""
C9=""
C10="#define #include ACCELERATORS ALT AUTOCHECKBOX AUTORADIOBUTTON BEGIN BITMAP BLOCK CAPTION CLASS COMBOBOX CONTROL CURSOR DIALOGEX DISCARDABLE EDITTEXT END EXSTYLE FALSE FILEOS FILETYPE FILEVERSION FONT GROUPBOX ICON LISTBOX LTEXT MENU MENUITEM NOINVERT NULL POPUP PRODUCTVERSION PUSHBUTTON SEPARATOR SHIFT STRINGTABLE STYLE TRUE VALUE VERSIONINFO VIRTKEY "
C11="__DATE__ __FB_BIGENDIAN__ __FB_DEBUG__ __FB_DOS__ __FB_ERR__ __FB_LANG__ __FB_LINUX__ __FB_MAIN__ __FB_MIN_VERSION__ __FB_MT__ __FB_OPTION_BYVAL__ __FB_OPTION_DYNAMIC__ __FB_OPTION_ESCAPE__ __FB_OPTION_EXPLICIT__ __FB_OPTION_PRIVATE__ __FB_OUT_DLL__ __FB_OUT_EXE__ __FB_OUT_LIB__ __FB_OUT_OBJ__ __FB_SIGNATURE__ __FB_VER_MAJOR__ __FB_VER_MINOR__ __FB_VER_PATCH__ __FB_VERSION__ __FB_WIN32__ __FILE__ __File_Nq__ __FUNCTION__ __Function_Nq__ __LINE__ __PATH__ __TIME__ "
C12=""
C13=""
C14=""
C15=""
C16=""
C17=""
C18=""
C19=""

Code:

2=Black Night,16744448,16744448,16744448,8421440,16711680,33521664,16744448,16744448,16744448,33521664,285179904,16744448,4227327,16711680,16711680,16711680,65535,65535,0,12632256,10485760,16777215,8454143,16777215,255,4868682,15420,3158064,12632256,8421504,8388608,8421504,15263976,0,15329769,0,12644592,0,12644592,0,4194432

Code:

 _______________________
| E1|   |   |   |   | E2|
|___|___|___|___|___|___|
| P | P |   | P | P | P |
|___|___|___|___|___|___|
| P | P |   |   |   |   |
|___|___|___|___|___|___|
| c |   |   | P | P |   |
|_z_|___|___|___|___|___|
|   |   |   | P |   |   |
|___|___|___|___|___|___|
| P |   | P | P |   | P |
|___|___|___|___|___|___|
|   |   |   |   |   |   |
|___|___|___|___|___|___|
|   | T | O |   |   |   |
|___|___|___|___|___|___|

Code:
Declare Sub PlayFX(effect As SoundEffects, x As Single = CENTER_X, y As Single = CENTER_Y, volume = -1)

Code:

Type Point
   X    As Single
   Y    As Single
End Type

Type MapPosition
   Row  As Integer
   Col   As Integer
End Type

Type Field
   Position   As MapPosition
   Base       As MapFieldType
   Cover      As MapFieldType
End Type

Code:

<Script> ::= <OptNL> <ScriptId> <Globals>

<ScriptId> ::= 'script' StringLiteral 'class' StringLiteral <NL>

<NL> ::= NewLine <NL>
 | NewLine

<OptNL> ::= <NL>
    |

<Globals> ::= <GlobalScope> <NL> <Globals>
      | <GlobalScope>
      |

<GlobalScope> ::= <Declarations> <NL>
      | <EventHandler> <NL>
      | <Function> <NL>


<EventHandler> ::= 'handler' Identifier '.' Identifier <OptParamList> <NL> <Statements> 'end' 'handler'

<Function> ::= 'function' Identifier <OptParamList> <NL> <Statements> 'end' 'function'

<OptParamList> ::= '(' <ParamList> ')'
       | '(' ')'
       |

<Declarations> ::= 'var' <InitList>

<InitList> ::= <DeclListItem> ',' <InitList>
       | <DeclListItem>

<DeclListItem> ::= Identifier '=' <Expression>
       | Identifier

<ParamList> ::= <ParamlListItem> ',' <ParamList>
    | <ParamListItem>

<ParamListItem> ::= Identifier
        | 'ref' Identifier


<Statements> ::= <Statement> <NL> <Statements>
     |

<Statement> ::= <Declarations>
    | <IfStatement>
    | <ForStatement>
    | <LoopStatement>
    | <SelectStatement>
    | <FunctionCall>
    | <RaiseEvent>
    | <Assignment>
    | <ReturnExpression>
    | <Expression>
    | 'exit' 'handler'
    | 'exit' 'function'
    | 'exit' 'do'
    | 'exit' 'loop'
    | 'exit' 'for'
    | 'continue'
    | 'lock' <QualifiedId>
    | 'unlock' <QualifiedId>
    

<IfStatement> ::= 'if' <Expression> 'then' <NL> <Statements> <ElseBlocks> 'end' 'if'

<ElseBlocks> ::= 'else' <NL> <Statements>
     | 'elseif' <Expression> 'then' <NL>    <Statements> <ElseBlocks>
     |

<ForStatement> ::= 'for' <OptVar> Identifier '=' <Expression> 'to' <Expression> <OptStep> <NL> <Statements> 'next'
       | 'foreach' <OptVar> Identifier 'in' <Expression> <NL> <Statements> 'next'

<OptVar> ::= 'var'
     |

<OptStep> ::= 'step' <Expression>
      |

<LoopStatement> ::= 'do' <NL> <Statements> <Condition> <Expression>
        | <Condition> <Expression> 'do' <NL> <Statements> 'loop'

<Condition> ::= 'until'
    | 'while'

<SelectStatement> ::= 'select' 'case' <Expression> <NL> <CaseStatement> <CaseBlocks> 'end' 'select'

<CaseStatement> ::= 'case' <OptIs> <Expression> <NL> <Statements>

<CaseBlocks> ::= <CaseStatement> <CaseBlocks>
     | 'case' 'else' <NL> <Statements>
     |

<OptIs> ::= 'is' <CompareOp>
    |

<FunctionCall> ::= 'call' <QualifiedId> <OptArgList>
       | <QualifiedId> <OptArgList>
       | <QualifiedId> <ExpList>

<RaiseEvent> ::= 'raise' <QualifiedId> <OptArgList>
     | 'raise' <QualifiedId> <ExpList>

<ArgList> ::= '(' <ExpList> ')'
      | '(' ')'

<OptArgList> ::= <ArgList>
     |

<ExpList> ::= <Expression> ',' <ExpList>
      | <Expression>


<QualifiedId> ::= <QualifiedIdPart> '.' <QualifiedId>
      | <QualifiedIdPart>

<QualifiedIdPart> ::= Identifier <OptIndex>
          | Identifier <ArgList> <OptIndex>

<OptIndex> ::= '[' <Expression> ']'
       |

<Assignment> ::= <QualifiedId> <OptIndex> '=' <Expression>

<ReturnExpression> ::= 'return' <Expression>
           | 'return'


<Expression> ::= 'Iif' '(' <OrExp> ',' <Expression> ',' <Expression> ')'
     | <OrExp>

<OrExp> ::= <OrExp> 'Or' <XorExp>
    | <XorExp>

<XorExp> ::= <XorExp> 'Xor' <AndExp>
     | <AndExp>

<AndExp> ::= <AndExp> 'And' <CmpExp>
     | <CmpExp>

<CompareOp> ::=  '<' | '>' | '<=' | '>=' | '=<' | '=>' | '<>' | '='

<CmpExp> ::= <CmpExp> <CompareOp> <ShiftExp>
     | <ShiftExp>

<ShiftExp> ::= <ShiftExp> 'Shl' <AddExp>
       | <ShiftExp> 'Shr' <AddExp>
       | <AddExp>

<AddExp> ::= <AddExp> '+' <MulExp>
     | <AddExp> '-' <MulExp>
     | <MulExp>

<MulExp> ::= <MulOp> '*' <UnaryOp>
     | <MulOp> '\' <UnaryOp>
     | <MulOp> '/' <UnaryOp>
     | <MulOp> 'Mod' <UnaryOp>
     | <UnaryOp>

<UnaryOp> ::= 'ref' <UnaryOp>
      | '-' <UnaryOp>
      | '+' <UnaryOp>
      | 'Not' <UnaryOp>
      | <PrimaryExp>

<PrimaryExp> ::= <QualifiedId>
     | StringLiteral
     | IntLiteral
     | RealLiteral
     | BinLiteral
     | HexLiteral
     | OctLiteral
     | 'true'
     | 'false'
     | 'null'


{String Chars}  = {Printable} - ["]
{Hex Digit}     = {Digit} + [abcdef]
{Oct Digit}     = [01234567]
{Bin Digit}     = [01]

{WS}            = {Whitespace} - {CR} - {LF}
{Id Head}       = {Letter} + [_]
{Id Chars}      = {Id Head} + {Digit}


NewLine        = {CR}{LF}? | ':'
Whitespace     = {WS}+ ( '_' {WS}* ( {CR}{LF}? | ':' ) )?

ID             = {Id Head}{Id Chars}*

StringLiteral  = '"' ( {String Chars} | '""' )* '"'

IntLiteral     = {Digit}+
HexLiteral     = '&H' {Hex Digit}+
OctLiteral     = '&O' {Oct Literal}+
BinLiteral     = '&B' {Bin Literal}+

RealLiteral    = {Digit}* '.' {Digit}+ ( 'E' [+-]? {Digit}+ )?
           | {Digit}+ 'E' [+-]? {Digit}+

Code:
SetCurrentDirectory(CFile)

Code:
SetCurrentDirectory("C:\NekiFolder\gfx\")

Code:
\

Code:

Private Sub Slider1_Change()
SetVolume CLng(Slider1.value)
End Sub

Code:

SetVolume CLng(Slider1.value) * NeskiBroj

Code:

' ovo je samo za testiranje, bice deklarisano u glavnom modulu
#define SCREEN_WIDTH 800
#define SCREEN_HEIGHT 600
#define CENTER_X SCREEN_WIDTH / 2
#define CENTER_Y SCREEN_HEIGHT / 2
Dim Shared SFXVolumeLevel As Integer = 75 ' u intervalu 0 - 100
Dim Shared PlayerY As Single = CENTER_Y ' ovo ce biti definisano u glavnom modulu, a predstavlja tenutnu Y poziciju igraca na ekranu

Enum SFXType ' i ovo ce biti deklarisano u glavnom modulu...
   sfxExplosion = 0
   sfxBullet = 1
   sfxWallHit = 2 ' ovo navodim samo kao primere...
End Enum

#include "bass.bi"

Namespace Music

   Sub Initialize
        BASS_Init -1, 44100, 0, 0, 0
   End Sub

   Sub Shutdown
         BASS_Free
   End Sub

   Sub PlaySFX(sfx As SFXType, X As Single = CENTER_X, Y As Single = CENTER_Y)

       Dim memloc As Byte Pointer
       Dim length As Integer

       ' za ovo pogledajte dole (bice definisano u nekom od drugih modula)
       GetSoundData sfx, memloc, length

       Dim stream As Integer

       stream = BASS_STreamCreateFile(1, memloc, 0, length, BASS_STREAM_AUTOFREE) ' ovde je potrebno autofree
       
       Dim As Integer vol, pan

       ' balance:
       pan = (X / SCREEN_WIDTH) * 200 - 100  ' u intervalu od -100 (levi zvucnik) do +100 (desni zvucnik)

       ' volume: (ovo me mrzelo da malo bolje uradim, ali uglavnom sto je dogadjaj udaljeniji od igraca slabije se cuje)
       vol = SFXVolumeLevel - Max(Min((Abs(Y - PlayerY) / SCREEN_HEIGHT, 0.8), 0.5) * SFXVolumeLevel

       BASS_ChannelSEtAttributes stream, -1, vol, pan

       BASS_ChannelPlay stream, 0

    End Sub

End Namespace

Code:

Type MemoryFile
   Data As Byte Pointer
   Size As UInteger
   Declare DEstructor
End Type

Destructor MemoryFile
  If This.size > 0 Then Delete[] This.Data
End DEstructor

Function LoadFileToMemory(Filename as String) As MemoryFile Pointer
   Dim fn As Integer = FreeFile
   Dim size as UInteger
   dim mf As MemoryFile POinter = New MemoryFile
   Open Filename For Binary As fn
      mf->Size = LOF(fn)
      mf->Data = New Byte[mf->size]
      GEt #fn, , *(mf->Data), mf->Size
   Close fn
   Return mf
ENd FUnction

' ovako se fja koristi:
Dim Shared mf1 As MemoryFile Pointer
Dim Shared mf2 As MemoryFile Pointer

mf1 = LoadFileToMemory("C:\bla.wav")
mf2 = LoadFileToMemory("C:\blabla.wav")

' funkcija za "prevodjenje" SFXType vrednosti u memorijsku lokaciju i velicinu
Sub GetSoundData(sfx As Integer, byRef memloc As Byte Pointer, byref length As UInteger)
      Select Case sfx
          Case 0
                 memloc = mf1->data
                 length = mf1->size
          Case 1
                 memloc = mf2->data
                 length = mf2->size
      End Select
End Sub

' "pustanje" zvuka

#include "music.bas"

Music.Initialize

Music.PlaySFX fxExplosion
Sleep 2000 ' nisam bas siguran dal ce ovo da zaustavi zvuk (nadam se da nece)
Music.PlaySFX fxBullet
sleep 3000

' ovo je vazno:
Music.Shutdown
Delete mf1
Delete mf2

Code:
Dim Shared SFXVolumeLevel As Integer = 75
#Include "bass.bi"
Namespace Music
    Sub Initialize
        BASS_Init -1, 44100, 0, 0, 0
    End Sub
    Sub Shutdown
        BASS_Free
    End Sub
    Sub PlaySFX(sfx As SFXType,X As Single = CENTER_X,Y As Single = CENTER_Y)
       Dim memloc As Byte Pointer
       Dim length As Integer

       GetSoundData sfx, memloc, length
       Dim stream As Integer
       stream = BASS_StreamCreateFile(1, memloc, 0, length, BASS_STREAM_AUTOFREE)
       Dim As Integer vol, pan
       pan = (X / SCREEN_WIDTH) * 200 - 100
       vol = SFXVolumeLevel - Max(Min((Abs(Y - PlayerY) / SCREEN_HEIGHT, 0.8), 0.5) * SFXVolumeLevel)
       BASS_ChannelSetAttributes stream, -1, vol, pan
       BASS_ChannelPlay stream, 0
    End Sub
    Sub PlayBGND(vol As Integer,Repeat As Integer,Rand As Integer)
        If Rand = 1 Then Randomize song 'gde je song enum gde su definisani background pesme(verovatno u glavnom modulu)
                If Rand = 0 Then song = 0
        Dim bstream As Integer
        If Repeat = 0 Then bstream = BASS_StreamCreateFile(1,song,0,0,BASS_STREAM_AUTOFREE)
        If Repeat = 1 Then bstream = BASS_StreamCreateFile(1,song,0,0,BASS_SAMPLE_LOOP)
        BASS_ChannelSetAttributes bstream, -1, vol, -101
        BASS_ChannelPlay stream, 0
    End Sub
End Namespace

Code:

GEt #fn, , *(mf->Data), mf->Size ' @(mf->Data)

Code:

   Dim hStream As Long = 0
   Dim lpFile As ZString*260

Code:

   Dim Shared hStream As Long = 0
   Dim Shared lpFile As ZString*260

Code:

Case IDC_PLAY
'Ovde
   If Not lpCurrentFile = ""  Then 
    'If Not Music.PlayFile() Then 
    'Music.LoadFile(Music.lpFile)
    Music.PlayFile() 
    'EndIf
    Else

Code:

plavi tenk | zeleni tenk  | f-ja
    R       strelica gore | ubrzanje
    F       strelica dole | kocenje
    D       strelica levo | okretanje u levu stranu
    G       strelica desno| okretanje u desnu stranu
    A            CTRL     | pucanje

Code:

&HFFFFFF - 24 bita
  RRGGBB

Code:

&HFFFFFFFF
  RRGGBBAA

Code:

do while not multikey(1)
     ' Ne mora nista da se radi u petlji
loop

Code:

do while not multikey(1)
sleep 30
loop

Code:

'' include fbgfx.bi for some useful definitions
#include "fbgfx.bi"

Using fb

Dim e As EVENT
Dim As Integer x, y, pressed, col
Dim As Any Ptr img

ScreenRes 384, 64, 32,, GFX_SHAPED_WINDOW

'' create a fancy window shape
img = ImageCreate(48,8)
Draw String img, (0, 0), "GfxLib"
For y = 0 To 63
    For x = 0 To 383
        col = Point(x \ 8, y \ 8, img)
        If (col <> RGB(255, 0, 255)) Then
            col = RGB((x + y) And &hFF, (x + y) And &hFF, (x + y) And &hFF)
        End If
        PSet (x, y), col
    Next x
Next y

pressed = 0
Do
    If (ScreenEvent(@e)) Then
        Select Case e.type
        Case EVENT_MOUSE_BUTTON_PRESS
            pressed = -1
        Case EVENT_MOUSE_BUTTON_RELEASE
            pressed = 0
        Case EVENT_MOUSE_MOVE
            If (pressed) Then
                ScreenControl GET_WINDOW_POS, x, y
                ScreenControl SET_WINDOW_POS, x + e.dx, y + e.dy
            End If
        End Select
    End If
    Sleep 5
Loop While Not MultiKey(1)

Code:

do
    sleep 5
loop until mutlikey(1)

Code:

+-<Game install dir>
|
+---+-<src>
|   |
|   +---<mapedit>   ... mapeditor source
|   |
|   +---<game>        ... game source
|   |
|   +---<esc>         ... esc source
|
+---+-<snd>
|   |
|   +---<sfx>         ... ovde su specijalni efekti (zvucni)
|   |
|   +---<music>       ... ovde je "pozadinska" muzika
|
+---+-<gfx>
|   |
|   +--+<0>
|   |  |
|   |  +--- 0.png
|   |  |
|   |  +--- 1.png     ... i tako dalje
|   |
|   +--+<1>
|      |
|      +--- 0.png
|      |
|      +--- 1.png     ... i tako dalje
|
+---+-<maps>
|   |
|   +--- 0.map
|   |
|   +--- 1.map        ... i tako dalje
|
+---+-<scripts>
|   |
|   +--- enemy0.esx
|   |
|   +--- enemy1.esx   ... i tako dalje
|
+--- mapedit.exe
|
+--- game.exe
|
+--- esc.exe
|
+--- game.conf

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim ProzorHwnd as Long
Private Sub Form_Load()
        ProzorHwnd = FindWindow("Notepad", vbNullString) ' Ja sam stavio da trazi Notepad, ali tu upisujes ime prozora
End Sub

Code:

Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long


Public Function LookupWindow(Optional ByVal ClassName As String, Optional ByVal Title As String, Optional UseLike As Boolean = False, Optional ByVal Parent As Long) As Long
    LookupWindow = GetChild(Parent, ClassName, Title, UseLike)
End Function
'

Private Function GetChild(Optional ByVal hwnd As Long, Optional ByVal ClassName As String, Optional ByVal Title As String, Optional UseLike As Boolean = False)
    
    Dim lHandle     As Long
    Dim lRet        As Long
    Dim sBuffer     As String
    Dim bClassMatch As Boolean
    Dim bTitleMatch As Boolean
    
    Do
        lHandle = FindWindowEx(hwnd, lHandle, vbNullString, vbNullString)
        
        bClassMatch = False
        bTitleMatch = False
        
        If lHandle <> 0 Then
            
            bClassMatch = LenB(ClassName) = 0
            bTitleMatch = LenB(Title) = 0
            
            If Not bClassMatch Then
                    
                sBuffer = String(160, 0)
                lRet = GetClassName(lHandle, sBuffer, 160)
                sBuffer = Left$(sBuffer, lRet)
                
                bClassMatch = (UseLike And (sBuffer Like ClassName)) Or (Not UseLike And (ClassName = sBuffer))
            
            End If
            
            If Not bTitleMatch Then
                
                sBuffer = String(160, 0)
                lRet = GetWindowText(lHandle, sBuffer, 160)
                sBuffer = Left$(sBuffer, lRet)
                
                bTitleMatch = (UseLike And (sBuffer Like Title)) Or (Not UseLike And (Title = sBuffer))
            
            End If
            
            If bClassMatch And bTitleMatch Then
                
                GetChild = lHandle
                Exit Function
            
            Else
                
                lRet = GetChild(lHandle, ClassName, Title, UseLike)
                
                If lRet <> 0 Then
                    
                    GetChild = lRet
                    Exit Function
                
                End If
                
            End If
        
        End If
    
    Loop While lHandle

End Function