BonziBuddy Leaked Source Code by NixButterPlay
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 

447 lines
14 KiB

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsBonziEventQueueItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Property Get BBEvent(Index As Integer) '653740
loc_00653740: push ebp
loc_00653741: mov ebp, esp
loc_00653743: sub esp, 0000000Ch
loc_00653746: push 00412856h ; __vbaExceptHandler
loc_0065374B: mov eax, fs:[00000000h]
loc_00653751: push eax
loc_00653752: mov fs:[00000000h], esp
loc_00653759: sub esp, 0000000Ch
loc_0065375C: push ebx
loc_0065375D: push esi
loc_0065375E: push edi
loc_0065375F: mov var_C, esp
loc_00653762: mov var_8, 00406D68h
loc_00653769: xor edi, edi
loc_0065376B: mov var_4, edi
loc_0065376E: mov esi, Me
loc_00653771: push esi
loc_00653772: mov eax, [esi]
loc_00653774: call [eax+00000004h]
loc_00653777: mov ecx, Index
loc_0065377A: lea eax, var_18
loc_0065377D: mov var_18, edi
loc_00653780: mov [ecx], edi
loc_00653782: mov edx, [esi+00000034h]
loc_00653785: push edx
loc_00653786: push eax
loc_00653787: call [00401130h] ; __vbaObjSetAddref
loc_0065378D: push 0065379Fh
loc_00653792: jmp 0065379Eh
loc_00653794: lea ecx, var_18
loc_00653797: call [0040142Ch] ; __vbaFreeObj
loc_0065379D: ret
loc_0065379E: ret
loc_0065379F: mov eax, Me
loc_006537A2: push eax
loc_006537A3: mov ecx, [eax]
loc_006537A5: call [ecx+00000008h]
loc_006537A8: mov edx, Index
loc_006537AB: mov eax, var_18
loc_006537AE: mov [edx], eax
loc_006537B0: mov eax, var_4
loc_006537B3: mov ecx, var_14
loc_006537B6: pop edi
loc_006537B7: pop esi
loc_006537B8: mov fs:[00000000h], ecx
loc_006537BF: pop ebx
loc_006537C0: mov esp, ebp
loc_006537C2: pop ebp
loc_006537C3: retn 0008h
End Sub
Public Property Set BBEvent(NewBBEvent) '6537D0
loc_006537D0: push ebp
loc_006537D1: mov ebp, esp
loc_006537D3: sub esp, 0000000Ch
loc_006537D6: push 00412856h ; __vbaExceptHandler
loc_006537DB: mov eax, fs:[00000000h]
loc_006537E1: push eax
loc_006537E2: mov fs:[00000000h], esp
loc_006537E9: sub esp, 00000008h
loc_006537EC: push ebx
loc_006537ED: push esi
loc_006537EE: push edi
loc_006537EF: mov var_C, esp
loc_006537F2: mov var_8, 00406D78h
loc_006537F9: mov var_4, 00000000h
loc_00653800: mov esi, Me
loc_00653803: push esi
loc_00653804: mov eax, [esi]
loc_00653806: call [eax+00000004h]
loc_00653809: mov ecx, NewBBEvent
loc_0065380C: add esi, 00000034h
loc_0065380F: mov edx, [ecx]
loc_00653811: push edx
loc_00653812: push esi
loc_00653813: call [00401130h] ; __vbaObjSetAddref
loc_00653819: mov eax, Me
loc_0065381C: push eax
loc_0065381D: mov ecx, [eax]
loc_0065381F: call [ecx+00000008h]
loc_00653822: mov eax, var_4
loc_00653825: mov ecx, var_14
loc_00653828: pop edi
loc_00653829: pop esi
loc_0065382A: mov fs:[00000000h], ecx
loc_00653831: pop ebx
loc_00653832: mov esp, ebp
loc_00653834: pop ebp
loc_00653835: retn 0008h
End Sub
Public Property Get MutuallyExclusive(arg_C) '653840
loc_00653840: push ebp
loc_00653841: mov ebp, esp
loc_00653843: sub esp, 0000000Ch
loc_00653846: push 00412856h ; __vbaExceptHandler
loc_0065384B: mov eax, fs:[00000000h]
loc_00653851: push eax
loc_00653852: mov fs:[00000000h], esp
loc_00653859: sub esp, 0000000Ch
loc_0065385C: push ebx
loc_0065385D: push esi
loc_0065385E: push edi
loc_0065385F: mov var_C, esp
loc_00653862: mov var_8, 00406D80h
loc_00653869: xor edi, edi
loc_0065386B: mov var_4, edi
loc_0065386E: mov esi, Me
loc_00653871: push esi
loc_00653872: mov eax, [esi]
loc_00653874: call [eax+00000004h]
loc_00653877: mov cx, [esi+00000038h]
loc_0065387B: mov var_18, edi
loc_0065387E: mov var_18, ecx
loc_00653881: mov eax, Me
loc_00653884: push eax
loc_00653885: mov edx, [eax]
loc_00653887: call [edx+00000008h]
loc_0065388A: mov eax, arg_C
loc_0065388D: mov cx, var_18
loc_00653891: mov [eax], cx
loc_00653894: mov eax, var_4
loc_00653897: mov ecx, var_14
loc_0065389A: pop edi
loc_0065389B: pop esi
loc_0065389C: mov fs:[00000000h], ecx
loc_006538A3: pop ebx
loc_006538A4: mov esp, ebp
loc_006538A6: pop ebp
loc_006538A7: retn 0008h
End Sub
Public Property Let MutuallyExclusive(NewMutuallyExclusive) '6538B0
loc_006538B0: push ebp
loc_006538B1: mov ebp, esp
loc_006538B3: sub esp, 0000000Ch
loc_006538B6: push 00412856h ; __vbaExceptHandler
loc_006538BB: mov eax, fs:[00000000h]
loc_006538C1: push eax
loc_006538C2: mov fs:[00000000h], esp
loc_006538C9: sub esp, 00000008h
loc_006538CC: push ebx
loc_006538CD: push esi
loc_006538CE: push edi
loc_006538CF: mov var_C, esp
loc_006538D2: mov var_8, 00406D88h
loc_006538D9: mov var_4, 00000000h
loc_006538E0: mov esi, Me
loc_006538E3: push esi
loc_006538E4: mov eax, [esi]
loc_006538E6: call [eax+00000004h]
loc_006538E9: mov ecx, NewMutuallyExclusive
loc_006538EC: mov dx, [ecx]
loc_006538EF: mov [esi+00000038h], dx
loc_006538F3: mov eax, Me
loc_006538F6: push eax
loc_006538F7: mov ecx, [eax]
loc_006538F9: call [ecx+00000008h]
loc_006538FC: mov eax, var_4
loc_006538FF: mov ecx, var_14
loc_00653902: pop edi
loc_00653903: pop esi
loc_00653904: mov fs:[00000000h], ecx
loc_0065390B: pop ebx
loc_0065390C: mov esp, ebp
loc_0065390E: pop ebp
loc_0065390F: retn 0008h
End Sub
Public Property Get Status(arg_C) '653920
loc_00653920: push ebp
loc_00653921: mov ebp, esp
loc_00653923: sub esp, 0000000Ch
loc_00653926: push 00412856h ; __vbaExceptHandler
loc_0065392B: mov eax, fs:[00000000h]
loc_00653931: push eax
loc_00653932: mov fs:[00000000h], esp
loc_00653939: sub esp, 0000000Ch
loc_0065393C: push ebx
loc_0065393D: push esi
loc_0065393E: push edi
loc_0065393F: mov var_C, esp
loc_00653942: mov var_8, 00406D90h
loc_00653949: xor edi, edi
loc_0065394B: mov var_4, edi
loc_0065394E: mov esi, Me
loc_00653951: push esi
loc_00653952: mov eax, [esi]
loc_00653954: call [eax+00000004h]
loc_00653957: mov ecx, [esi+0000003Ch]
loc_0065395A: mov var_18, edi
loc_0065395D: mov var_18, ecx
loc_00653960: mov eax, Me
loc_00653963: push eax
loc_00653964: mov edx, [eax]
loc_00653966: call [edx+00000008h]
loc_00653969: mov eax, arg_C
loc_0065396C: mov ecx, var_18
loc_0065396F: mov [eax], ecx
loc_00653971: mov eax, var_4
loc_00653974: mov ecx, var_14
loc_00653977: pop edi
loc_00653978: pop esi
loc_00653979: mov fs:[00000000h], ecx
loc_00653980: pop ebx
loc_00653981: mov esp, ebp
loc_00653983: pop ebp
loc_00653984: retn 0008h
End Sub
Public Property Let Status(NewStatus) '653990
loc_00653990: push ebp
loc_00653991: mov ebp, esp
loc_00653993: sub esp, 0000000Ch
loc_00653996: push 00412856h ; __vbaExceptHandler
loc_0065399B: mov eax, fs:[00000000h]
loc_006539A1: push eax
loc_006539A2: mov fs:[00000000h], esp
loc_006539A9: sub esp, 00000008h
loc_006539AC: push ebx
loc_006539AD: push esi
loc_006539AE: push edi
loc_006539AF: mov var_C, esp
loc_006539B2: mov var_8, 00406D98h
loc_006539B9: mov var_4, 00000000h
loc_006539C0: mov esi, Me
loc_006539C3: push esi
loc_006539C4: mov eax, [esi]
loc_006539C6: call [eax+00000004h]
loc_006539C9: mov ecx, NewStatus
loc_006539CC: mov edx, [ecx]
loc_006539CE: mov [esi+0000003Ch], edx
loc_006539D1: mov eax, Me
loc_006539D4: push eax
loc_006539D5: mov ecx, [eax]
loc_006539D7: call [ecx+00000008h]
loc_006539DA: mov eax, var_4
loc_006539DD: mov ecx, var_14
loc_006539E0: pop edi
loc_006539E1: pop esi
loc_006539E2: mov fs:[00000000h], ecx
loc_006539E9: pop ebx
loc_006539EA: mov esp, ebp
loc_006539EC: pop ebp
loc_006539ED: retn 0008h
End Sub
Public Property Get EventType(arg_C) '6539F0
loc_006539F0: push ebp
loc_006539F1: mov ebp, esp
loc_006539F3: sub esp, 0000000Ch
loc_006539F6: push 00412856h ; __vbaExceptHandler
loc_006539FB: mov eax, fs:[00000000h]
loc_00653A01: push eax
loc_00653A02: mov fs:[00000000h], esp
loc_00653A09: sub esp, 0000000Ch
loc_00653A0C: push ebx
loc_00653A0D: push esi
loc_00653A0E: push edi
loc_00653A0F: mov var_C, esp
loc_00653A12: mov var_8, 00406DA0h
loc_00653A19: xor edi, edi
loc_00653A1B: mov var_4, edi
loc_00653A1E: mov esi, Me
loc_00653A21: push esi
loc_00653A22: mov eax, [esi]
loc_00653A24: call [eax+00000004h]
loc_00653A27: mov ecx, [esi+00000040h]
loc_00653A2A: mov var_18, edi
loc_00653A2D: mov var_18, ecx
loc_00653A30: mov eax, Me
loc_00653A33: push eax
loc_00653A34: mov edx, [eax]
loc_00653A36: call [edx+00000008h]
loc_00653A39: mov eax, arg_C
loc_00653A3C: mov ecx, var_18
loc_00653A3F: mov [eax], ecx
loc_00653A41: mov eax, var_4
loc_00653A44: mov ecx, var_14
loc_00653A47: pop edi
loc_00653A48: pop esi
loc_00653A49: mov fs:[00000000h], ecx
loc_00653A50: pop ebx
loc_00653A51: mov esp, ebp
loc_00653A53: pop ebp
loc_00653A54: retn 0008h
End Sub
Public Property Let EventType(NewType) '653A60
loc_00653A60: push ebp
loc_00653A61: mov ebp, esp
loc_00653A63: sub esp, 0000000Ch
loc_00653A66: push 00412856h ; __vbaExceptHandler
loc_00653A6B: mov eax, fs:[00000000h]
loc_00653A71: push eax
loc_00653A72: mov fs:[00000000h], esp
loc_00653A79: sub esp, 00000008h
loc_00653A7C: push ebx
loc_00653A7D: push esi
loc_00653A7E: push edi
loc_00653A7F: mov var_C, esp
loc_00653A82: mov var_8, 00406DA8h
loc_00653A89: mov var_4, 00000000h
loc_00653A90: mov esi, Me
loc_00653A93: push esi
loc_00653A94: mov eax, [esi]
loc_00653A96: call [eax+00000004h]
loc_00653A99: mov ecx, NewType
loc_00653A9C: mov edx, [ecx]
loc_00653A9E: mov [esi+00000040h], edx
loc_00653AA1: mov eax, Me
loc_00653AA4: push eax
loc_00653AA5: mov ecx, [eax]
loc_00653AA7: call [ecx+00000008h]
loc_00653AAA: mov eax, var_4
loc_00653AAD: mov ecx, var_14
loc_00653AB0: pop edi
loc_00653AB1: pop esi
loc_00653AB2: mov fs:[00000000h], ecx
loc_00653AB9: pop ebx
loc_00653ABA: mov esp, ebp
loc_00653ABC: pop ebp
loc_00653ABD: retn 0008h
End Sub
Public Sub RunEvent() '653AC0
loc_00653AC0: push ebp
loc_00653AC1: mov ebp, esp
loc_00653AC3: sub esp, 0000000Ch
loc_00653AC6: push 00412856h ; __vbaExceptHandler
loc_00653ACB: mov eax, fs:[00000000h]
loc_00653AD1: push eax
loc_00653AD2: mov fs:[00000000h], esp
loc_00653AD9: sub esp, 00000008h
loc_00653ADC: push ebx
loc_00653ADD: push esi
loc_00653ADE: push edi
loc_00653ADF: mov var_C, esp
loc_00653AE2: mov var_8, 00406DB0h
loc_00653AE9: mov var_4, 00000000h
loc_00653AF0: mov esi, Me
loc_00653AF3: push esi
loc_00653AF4: mov eax, [esi]
loc_00653AF6: call [eax+00000004h]
loc_00653AF9: mov ecx, [esi+00000034h]
loc_00653AFC: push 00000000h
loc_00653AFE: push 00452534h ; "RunEvent"
loc_00653B03: push ecx
loc_00653B04: call [00401360h] ; __vbaLateMemCall
loc_00653B0A: add esp, 0000000Ch
loc_00653B0D: mov eax, Me
loc_00653B10: push eax
loc_00653B11: mov edx, [eax]
loc_00653B13: call [edx+00000008h]
loc_00653B16: mov eax, var_4
loc_00653B19: mov ecx, var_14
loc_00653B1C: pop edi
loc_00653B1D: pop esi
loc_00653B1E: mov fs:[00000000h], ecx
loc_00653B25: pop ebx
loc_00653B26: mov esp, ebp
loc_00653B28: pop ebp
loc_00653B29: retn 0004h
End Sub
Private Sub Proc_31_9_653B30
loc_00653B30: push ebp
loc_00653B31: mov ebp, esp
loc_00653B33: sub esp, 0000000Ch
loc_00653B36: push 00412856h ; __vbaExceptHandler
loc_00653B3B: mov eax, fs:[00000000h]
loc_00653B41: push eax
loc_00653B42: mov fs:[00000000h], esp
loc_00653B49: sub esp, 00000010h
loc_00653B4C: push ebx
loc_00653B4D: push esi
loc_00653B4E: push edi
loc_00653B4F: mov var_C, esp
loc_00653B52: mov var_8, 00406DB8h
loc_00653B59: mov esi, Me
loc_00653B5C: mov eax, esi
loc_00653B5E: and eax, 00000001h
loc_00653B61: mov var_4, eax
loc_00653B64: and esi, FFFFFFFEh
loc_00653B67: push esi
loc_00653B68: mov Me, esi
loc_00653B6B: mov ecx, [esi]
loc_00653B6D: call [ecx+00000004h]
loc_00653B70: mov edx, [esi]
loc_00653B72: lea eax, var_18
loc_00653B75: xor edi, edi
loc_00653B77: push eax
loc_00653B78: mov var_18, edi
loc_00653B7B: push esi
loc_00653B7C: mov var_18, edi
loc_00653B7F: call [edx+00000030h]
loc_00653B82: cmp eax, edi
loc_00653B84: jge 00653B95h
loc_00653B86: push 00000030h
loc_00653B88: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
loc_00653B8D: push esi
loc_00653B8E: push eax
loc_00653B8F: call [004010CCh] ; __vbaHresultCheckObj
loc_00653B95: mov ecx, [esi]
loc_00653B97: lea edx, var_18
loc_00653B9A: push edx
loc_00653B9B: push esi
loc_00653B9C: mov var_18, edi
loc_00653B9F: call [ecx+00000038h]
loc_00653BA2: cmp eax, edi
loc_00653BA4: jge 00653BB5h
loc_00653BA6: push 00000038h
loc_00653BA8: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
loc_00653BAD: push esi
loc_00653BAE: push eax
loc_00653BAF: call [004010CCh] ; __vbaHresultCheckObj
loc_00653BB5: mov var_4, edi
loc_00653BB8: mov eax, Me
loc_00653BBB: push eax
loc_00653BBC: mov ecx, [eax]
loc_00653BBE: call [ecx+00000008h]
loc_00653BC1: mov eax, var_4
loc_00653BC4: mov ecx, var_14
loc_00653BC7: pop edi
loc_00653BC8: pop esi
loc_00653BC9: mov fs:[00000000h], ecx
loc_00653BD0: pop ebx
loc_00653BD1: mov esp, ebp
loc_00653BD3: pop ebp
loc_00653BD4: retn 0004h
End Sub