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.
 
 
 
 
 

368 lines
11 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 = "BBIMContact"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Property Let ContactName(vData) '713400
loc_00713400: push ebp
loc_00713401: mov ebp, esp
loc_00713403: sub esp, 0000000Ch
loc_00713406: push 00412856h ; __vbaExceptHandler
loc_0071340B: mov eax, fs:[00000000h]
loc_00713411: push eax
loc_00713412: mov fs:[00000000h], esp
loc_00713419: sub esp, 0000000Ch
loc_0071341C: push ebx
loc_0071341D: push esi
loc_0071341E: push edi
loc_0071341F: mov var_C, esp
loc_00713422: mov var_8, 004111C0h
loc_00713429: xor edi, edi
loc_0071342B: mov var_4, edi
loc_0071342E: mov esi, Me
loc_00713431: push esi
loc_00713432: mov eax, [esi]
loc_00713434: call [eax+00000004h]
loc_00713437: mov edx, vData
loc_0071343A: mov var_18, edi
loc_0071343D: mov edi, [00401310h] ; __vbaStrCopy
loc_00713443: lea ecx, var_18
loc_00713446: call edi
loc_00713448: mov edx, var_18
loc_0071344B: lea ecx, [esi+0000003Ch]
loc_0071344E: call edi
loc_00713450: push 0071345Fh
loc_00713455: lea ecx, var_18
loc_00713458: call [00401430h] ; __vbaFreeStr
loc_0071345E: ret
loc_0071345F: mov eax, Me
loc_00713462: push eax
loc_00713463: mov ecx, [eax]
loc_00713465: call [ecx+00000008h]
loc_00713468: mov eax, var_4
loc_0071346B: mov ecx, var_14
loc_0071346E: pop edi
loc_0071346F: pop esi
loc_00713470: mov fs:[00000000h], ecx
loc_00713477: pop ebx
loc_00713478: mov esp, ebp
loc_0071347A: pop ebp
loc_0071347B: retn 0008h
End Sub
Public Property Get ContactName(arg_C) '713480
loc_00713480: push ebp
loc_00713481: mov ebp, esp
loc_00713483: sub esp, 0000000Ch
loc_00713486: push 00412856h ; __vbaExceptHandler
loc_0071348B: mov eax, fs:[00000000h]
loc_00713491: push eax
loc_00713492: mov fs:[00000000h], esp
loc_00713499: sub esp, 0000000Ch
loc_0071349C: push ebx
loc_0071349D: push esi
loc_0071349E: push edi
loc_0071349F: mov var_C, esp
loc_007134A2: mov var_8, 004111D0h
loc_007134A9: xor edi, edi
loc_007134AB: mov var_4, edi
loc_007134AE: mov esi, Me
loc_007134B1: push esi
loc_007134B2: mov eax, [esi]
loc_007134B4: call [eax+00000004h]
loc_007134B7: mov ecx, arg_C
loc_007134BA: mov var_18, edi
loc_007134BD: mov [ecx], edi
loc_007134BF: mov edx, [esi+0000003Ch]
loc_007134C2: lea ecx, var_18
loc_007134C5: call [00401310h] ; __vbaStrCopy
loc_007134CB: push 007134DDh
loc_007134D0: jmp 007134DCh
loc_007134D2: lea ecx, var_18
loc_007134D5: call [00401430h] ; __vbaFreeStr
loc_007134DB: ret
loc_007134DC: ret
loc_007134DD: mov eax, Me
loc_007134E0: push eax
loc_007134E1: mov edx, [eax]
loc_007134E3: call [edx+00000008h]
loc_007134E6: mov eax, arg_C
loc_007134E9: mov ecx, var_18
loc_007134EC: mov [eax], ecx
loc_007134EE: mov eax, var_4
loc_007134F1: mov ecx, var_14
loc_007134F4: pop edi
loc_007134F5: pop esi
loc_007134F6: mov fs:[00000000h], ecx
loc_007134FD: pop ebx
loc_007134FE: mov esp, ebp
loc_00713500: pop ebp
loc_00713501: retn 0008h
End Sub
Public Property Set ContactObject(vData) '713510
loc_00713510: push ebp
loc_00713511: mov ebp, esp
loc_00713513: sub esp, 0000000Ch
loc_00713516: push 00412856h ; __vbaExceptHandler
loc_0071351B: mov eax, fs:[00000000h]
loc_00713521: push eax
loc_00713522: mov fs:[00000000h], esp
loc_00713529: sub esp, 0000000Ch
loc_0071352C: push ebx
loc_0071352D: push esi
loc_0071352E: push edi
loc_0071352F: mov var_C, esp
loc_00713532: mov var_8, 004111E0h
loc_00713539: xor edi, edi
loc_0071353B: mov var_4, edi
loc_0071353E: mov esi, Me
loc_00713541: push esi
loc_00713542: mov eax, [esi]
loc_00713544: call [eax+00000004h]
loc_00713547: mov ecx, vData
loc_0071354A: lea edx, var_18
loc_0071354D: mov var_18, edi
loc_00713550: mov edi, [00401130h] ; __vbaObjSetAddref
loc_00713556: push ecx
loc_00713557: push edx
loc_00713558: call edi
loc_0071355A: mov eax, var_18
loc_0071355D: add esi, 00000038h
loc_00713560: push eax
loc_00713561: push esi
loc_00713562: call edi
loc_00713564: push 00713573h
loc_00713569: lea ecx, var_18
loc_0071356C: call [0040142Ch] ; __vbaFreeObj
loc_00713572: ret
loc_00713573: mov eax, Me
loc_00713576: push eax
loc_00713577: mov ecx, [eax]
loc_00713579: call [ecx+00000008h]
loc_0071357C: mov eax, var_4
loc_0071357F: mov ecx, var_14
loc_00713582: pop edi
loc_00713583: pop esi
loc_00713584: mov fs:[00000000h], ecx
loc_0071358B: pop ebx
loc_0071358C: mov esp, ebp
loc_0071358E: pop ebp
loc_0071358F: retn 0008h
End Sub
Public Property Get ContactObject(arg_C) '7135A0
loc_007135A0: push ebp
loc_007135A1: mov ebp, esp
loc_007135A3: sub esp, 0000000Ch
loc_007135A6: push 00412856h ; __vbaExceptHandler
loc_007135AB: mov eax, fs:[00000000h]
loc_007135B1: push eax
loc_007135B2: mov fs:[00000000h], esp
loc_007135B9: sub esp, 0000000Ch
loc_007135BC: push ebx
loc_007135BD: push esi
loc_007135BE: push edi
loc_007135BF: mov var_C, esp
loc_007135C2: mov var_8, 004111F0h
loc_007135C9: xor edi, edi
loc_007135CB: mov var_4, edi
loc_007135CE: mov esi, Me
loc_007135D1: push esi
loc_007135D2: mov eax, [esi]
loc_007135D4: call [eax+00000004h]
loc_007135D7: mov ecx, arg_C
loc_007135DA: lea eax, var_18
loc_007135DD: mov var_18, edi
loc_007135E0: mov [ecx], edi
loc_007135E2: mov edx, [esi+00000038h]
loc_007135E5: push edx
loc_007135E6: push eax
loc_007135E7: call [00401130h] ; __vbaObjSetAddref
loc_007135ED: push 007135FFh
loc_007135F2: jmp 007135FEh
loc_007135F4: lea ecx, var_18
loc_007135F7: call [0040142Ch] ; __vbaFreeObj
loc_007135FD: ret
loc_007135FE: ret
loc_007135FF: mov eax, Me
loc_00713602: push eax
loc_00713603: mov ecx, [eax]
loc_00713605: call [ecx+00000008h]
loc_00713608: mov edx, arg_C
loc_0071360B: mov eax, var_18
loc_0071360E: mov [edx], eax
loc_00713610: mov eax, var_4
loc_00713613: mov ecx, var_14
loc_00713616: pop edi
loc_00713617: pop esi
loc_00713618: mov fs:[00000000h], ecx
loc_0071361F: pop ebx
loc_00713620: mov esp, ebp
loc_00713622: pop ebp
loc_00713623: retn 0008h
End Sub
Public Property Let ListCount(vData) '713630
loc_00713630: push ebp
loc_00713631: mov ebp, esp
loc_00713633: sub esp, 0000000Ch
loc_00713636: push 00412856h ; __vbaExceptHandler
loc_0071363B: mov eax, fs:[00000000h]
loc_00713641: push eax
loc_00713642: mov fs:[00000000h], esp
loc_00713649: sub esp, 00000008h
loc_0071364C: push ebx
loc_0071364D: push esi
loc_0071364E: push edi
loc_0071364F: mov var_C, esp
loc_00713652: mov var_8, 00411200h
loc_00713659: mov var_4, 00000000h
loc_00713660: mov esi, Me
loc_00713663: push esi
loc_00713664: mov eax, [esi]
loc_00713666: call [eax+00000004h]
loc_00713669: mov ecx, vData
loc_0071366C: mov [esi+00000034h], ecx
loc_0071366F: mov eax, Me
loc_00713672: push eax
loc_00713673: mov edx, [eax]
loc_00713675: call [edx+00000008h]
loc_00713678: mov eax, var_4
loc_0071367B: mov ecx, var_14
loc_0071367E: pop edi
loc_0071367F: pop esi
loc_00713680: mov fs:[00000000h], ecx
loc_00713687: pop ebx
loc_00713688: mov esp, ebp
loc_0071368A: pop ebp
loc_0071368B: retn 0008h
End Sub
Public Property Get ListCount(arg_C) '713690
loc_00713690: push ebp
loc_00713691: mov ebp, esp
loc_00713693: sub esp, 0000000Ch
loc_00713696: push 00412856h ; __vbaExceptHandler
loc_0071369B: mov eax, fs:[00000000h]
loc_007136A1: push eax
loc_007136A2: mov fs:[00000000h], esp
loc_007136A9: sub esp, 0000000Ch
loc_007136AC: push ebx
loc_007136AD: push esi
loc_007136AE: push edi
loc_007136AF: mov var_C, esp
loc_007136B2: mov var_8, 00411208h
loc_007136B9: xor edi, edi
loc_007136BB: mov var_4, edi
loc_007136BE: mov esi, Me
loc_007136C1: push esi
loc_007136C2: mov eax, [esi]
loc_007136C4: call [eax+00000004h]
loc_007136C7: mov ecx, [esi+00000034h]
loc_007136CA: mov var_18, edi
loc_007136CD: mov var_18, ecx
loc_007136D0: mov eax, Me
loc_007136D3: push eax
loc_007136D4: mov edx, [eax]
loc_007136D6: call [edx+00000008h]
loc_007136D9: mov eax, arg_C
loc_007136DC: mov ecx, var_18
loc_007136DF: mov [eax], ecx
loc_007136E1: mov eax, var_4
loc_007136E4: mov ecx, var_14
loc_007136E7: pop edi
loc_007136E8: pop esi
loc_007136E9: mov fs:[00000000h], ecx
loc_007136F0: pop ebx
loc_007136F1: mov esp, ebp
loc_007136F3: pop ebp
loc_007136F4: retn 0008h
End Sub
Public Property Get Ignored(arg_C) '713700
loc_00713700: push ebp
loc_00713701: mov ebp, esp
loc_00713703: sub esp, 0000000Ch
loc_00713706: push 00412856h ; __vbaExceptHandler
loc_0071370B: mov eax, fs:[00000000h]
loc_00713711: push eax
loc_00713712: mov fs:[00000000h], esp
loc_00713719: sub esp, 0000000Ch
loc_0071371C: push ebx
loc_0071371D: push esi
loc_0071371E: push edi
loc_0071371F: mov var_C, esp
loc_00713722: mov var_8, 00411210h
loc_00713729: xor edi, edi
loc_0071372B: mov var_4, edi
loc_0071372E: mov esi, Me
loc_00713731: push esi
loc_00713732: mov eax, [esi]
loc_00713734: call [eax+00000004h]
loc_00713737: mov cx, [esi+00000040h]
loc_0071373B: mov var_18, edi
loc_0071373E: mov var_18, ecx
loc_00713741: mov eax, Me
loc_00713744: push eax
loc_00713745: mov edx, [eax]
loc_00713747: call [edx+00000008h]
loc_0071374A: mov eax, arg_C
loc_0071374D: mov cx, var_18
loc_00713751: mov [eax], cx
loc_00713754: mov eax, var_4
loc_00713757: mov ecx, var_14
loc_0071375A: pop edi
loc_0071375B: pop esi
loc_0071375C: mov fs:[00000000h], ecx
loc_00713763: pop ebx
loc_00713764: mov esp, ebp
loc_00713766: pop ebp
loc_00713767: retn 0008h
End Sub
Public Property Let Ignored(vNewValue) '713770
loc_00713770: push ebp
loc_00713771: mov ebp, esp
loc_00713773: sub esp, 0000000Ch
loc_00713776: push 00412856h ; __vbaExceptHandler
loc_0071377B: mov eax, fs:[00000000h]
loc_00713781: push eax
loc_00713782: mov fs:[00000000h], esp
loc_00713789: sub esp, 00000008h
loc_0071378C: push ebx
loc_0071378D: push esi
loc_0071378E: push edi
loc_0071378F: mov var_C, esp
loc_00713792: mov var_8, 00411218h
loc_00713799: mov var_4, 00000000h
loc_007137A0: mov esi, Me
loc_007137A3: push esi
loc_007137A4: mov eax, [esi]
loc_007137A6: call [eax+00000004h]
loc_007137A9: mov cx, vNewValue
loc_007137AD: mov [esi+00000040h], cx
loc_007137B1: mov eax, Me
loc_007137B4: push eax
loc_007137B5: mov edx, [eax]
loc_007137B7: call [edx+00000008h]
loc_007137BA: mov eax, var_4
loc_007137BD: mov ecx, var_14
loc_007137C0: pop edi
loc_007137C1: pop esi
loc_007137C2: mov fs:[00000000h], ecx
loc_007137C9: pop ebx
loc_007137CA: mov esp, ebp
loc_007137CC: pop ebp
loc_007137CD: retn 0008h
End Sub