archive
/
bonzibuddy
mirror of https://github.com/NixButterPlay/BonziBuddy
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Add files via upload

main
NixButterPlay 2 years ago
committed by GitHub
parent
e2820e1b75
commit
f98ccae4b2
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
100 changed files with 377414 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 368
      Src Code/BBIMContact.cls
  2. 1068
      Src Code/BBIMContacts.cls
  3. 356
      Src Code/BBIMSession.cls
  4. 836
      Src Code/BBIMSessions.cls
  5. 2303
      Src Code/CCalendarVBMethods.cls
  6. 188
      Src Code/CCalendarVBPeriod.cls
  7. 958
      Src Code/CCalendarVBPeriods.cls
  8. 1726
      Src Code/CCalendarVBVars.cls
  9. 4320
      Src Code/CDraw.cls
  10. 1075
      Src Code/CMemoryDC.cls
  11. 188
      Src Code/CPeriod.cls
  12. 949
      Src Code/CPeriods.cls
  13. 32056
      Src Code/CalendarVB.ctl
  14. BIN
      Src Code/CalendarVB.ctx
  15. 2970
      Src Code/cFlatControl.cls
  16. 1553
      Src Code/clsAddressBook.cls
  17. 945
      Src Code/clsBBPlayer.cls
  18. 3513
      Src Code/clsBBuddyMoveClass.cls
  19. 3417
      Src Code/clsBonziEventDaily.cls
  20. 2345
      Src Code/clsBonziEventEmail.cls
  21. 2680
      Src Code/clsBonziEventProduct.cls
  22. 1318
      Src Code/clsBonziEventQueue.cls
  23. 447
      Src Code/clsBonziEventQueueItem.cls
  24. 257
      Src Code/clsBonziEventSkeleton.cls
  25. 5055
      Src Code/clsBonziEventTap.cls
  26. 3994
      Src Code/clsBonziEventUpdate.cls
  27. 1431
      Src Code/clsClickTheButton.cls
  28. 453
      Src Code/clsDownloadManager.cls
  29. 2257
      Src Code/clsDrawPictures.cls
  30. 704
      Src Code/clsRegistration.cls
  31. 729
      Src Code/clsStoryReader.cls
  32. 774
      Src Code/frmAddFile.frm
  33. BIN
      Src Code/frmAddFile.frx
  34. 4069
      Src Code/frmAddressBook.frm
  35. BIN
      Src Code/frmAddressBook.frx
  36. 929
      Src Code/frmAddressProperties.frm
  37. 87918
      Src Code/frmAgent.frm
  38. BIN
      Src Code/frmAgent.frx
  39. 4376
      Src Code/frmAppointment.frm
  40. BIN
      Src Code/frmAppointment.frx
  41. 330
      Src Code/frmBBIMDialog.frm
  42. BIN
      Src Code/frmBBIMDialog.frx
  43. 22028
      Src Code/frmBBIMMain.frm
  44. BIN
      Src Code/frmBBIMMain.frx
  45. 8325
      Src Code/frmBBIMOptions.frm
  46. BIN
      Src Code/frmBBIMOptions.frx
  47. 1954
      Src Code/frmBBIMReverseList.frm
  48. BIN
      Src Code/frmBBIMReverseList.frx
  49. 8626
      Src Code/frmBBIMSession.frm
  50. BIN
      Src Code/frmBBIMSession.frx
  51. 174
      Src Code/frmBBIMUserProperties.frm
  52. BIN
      Src Code/frmBBIMUserProperties.frx
  53. 580
      Src Code/frmCTBMsgBox.frm
  54. BIN
      Src Code/frmCTBMsgBox.frx
  55. 9511
      Src Code/frmCalendar2.frm
  56. BIN
      Src Code/frmCalendar2.frx
  57. 128
      Src Code/frmCalendarReminder.frm
  58. BIN
      Src Code/frmCalendarReminder.frx
  59. 735
      Src Code/frmConnectionType.frm
  60. BIN
      Src Code/frmConnectionType.frx
  61. 1240
      Src Code/frmDialog.frm
  62. BIN
      Src Code/frmDialog.frx
  63. 28886
      Src Code/frmDownloader.frm
  64. BIN
      Src Code/frmDownloader.frx
  65. 1488
      Src Code/frmDownloaderOptions.frm
  66. 1130
      Src Code/frmEmailConfirm.frm
  67. BIN
      Src Code/frmEmailConfirm.frx
  68. 13310
      Src Code/frmEmailQueue.frm
  69. BIN
      Src Code/frmEmailQueue.frx
  70. 2560
      Src Code/frmGoldChangePassword.frm
  71. 974
      Src Code/frmGoldLogin.frm
  72. 8973
      Src Code/frmGoldOptions.frm
  73. BIN
      Src Code/frmGoldOptions.frx
  74. 334
      Src Code/frmGoldPasswordEntry.frm
  75. BIN
      Src Code/frmGoldPasswordEntry.frx
  76. 990
      Src Code/frmInput.frm
  77. BIN
      Src Code/frmInput.frx
  78. 3099
      Src Code/frmMailSetup.frm
  79. BIN
      Src Code/frmMailSetup.frx
  80. 14108
      Src Code/frmMsgEdit.frm
  81. BIN
      Src Code/frmMsgEdit.frx
  82. 981
      Src Code/frmMusicLicense.frm
  83. 1450
      Src Code/frmNBAbout.frm
  84. BIN
      Src Code/frmNBAbout.frx
  85. 482
      Src Code/frmNBProgress.frm
  86. BIN
      Src Code/frmNBProgress.frx
  87. 11831
      Src Code/frmNetBOOST.frm
  88. BIN
      Src Code/frmNetBOOST.frx
  89. 17916
      Src Code/frmOptionsTabbed.frm
  90. BIN
      Src Code/frmOptionsTabbed.frx
  91. 307
      Src Code/frmPrivacyPolicy.frm
  92. BIN
      Src Code/frmPrivacyPolicy.frx
  93. 143
      Src Code/frmProgress.frm
  94. BIN
      Src Code/frmProgress.frx
  95. 20447
      Src Code/frmRegistration.frm
  96. BIN
      Src Code/frmRegistration.frx
  97. 14649
      Src Code/frmSingSong.frm
  98. BIN
      Src Code/frmSingSong.frx
  99. 1200
      Src Code/frmSpeak.frm
  100. BIN
      Src Code/frmSpeak.frx

368
Src Code/BBIMContact.cls
View File

@ -0,0 +1,368 @@
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

1068
Src Code/BBIMContacts.cls
File diff suppressed because it is too large
View File

356
Src Code/BBIMSession.cls
View File

@ -0,0 +1,356 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "BBIMSession"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Property Let SessionName(vData) '7143F0
loc_007143F0: push ebp
loc_007143F1: mov ebp, esp
loc_007143F3: sub esp, 0000000Ch
loc_007143F6: push 00412856h ; __vbaExceptHandler
loc_007143FB: mov eax, fs:[00000000h]
loc_00714401: push eax
loc_00714402: mov fs:[00000000h], esp
loc_00714409: sub esp, 0000000Ch
loc_0071440C: push ebx
loc_0071440D: push esi
loc_0071440E: push edi
loc_0071440F: mov var_C, esp
loc_00714412: mov var_8, 004112E8h
loc_00714419: xor edi, edi
loc_0071441B: mov var_4, edi
loc_0071441E: mov esi, Me
loc_00714421: push esi
loc_00714422: mov eax, [esi]
loc_00714424: call [eax+00000004h]
loc_00714427: mov edx, vData
loc_0071442A: mov var_18, edi
loc_0071442D: mov edi, [00401310h] ; __vbaStrCopy
loc_00714433: lea ecx, var_18
loc_00714436: call edi
loc_00714438: mov edx, var_18
loc_0071443B: lea ecx, [esi+0000003Ch]
loc_0071443E: call edi
loc_00714440: push 0071444Fh
loc_00714445: lea ecx, var_18
loc_00714448: call [00401430h] ; __vbaFreeStr
loc_0071444E: ret
loc_0071444F: mov eax, Me
loc_00714452: push eax
loc_00714453: mov ecx, [eax]
loc_00714455: call [ecx+00000008h]
loc_00714458: mov eax, var_4
loc_0071445B: mov ecx, var_14
loc_0071445E: pop edi
loc_0071445F: pop esi
loc_00714460: mov fs:[00000000h], ecx
loc_00714467: pop ebx
loc_00714468: mov esp, ebp
loc_0071446A: pop ebp
loc_0071446B: retn 0008h
End Sub
Public Property Get SessionName(arg_C) '714470
loc_00714470: push ebp
loc_00714471: mov ebp, esp
loc_00714473: sub esp, 0000000Ch
loc_00714476: push 00412856h ; __vbaExceptHandler
loc_0071447B: mov eax, fs:[00000000h]
loc_00714481: push eax
loc_00714482: mov fs:[00000000h], esp
loc_00714489: sub esp, 0000000Ch
loc_0071448C: push ebx
loc_0071448D: push esi
loc_0071448E: push edi
loc_0071448F: mov var_C, esp
loc_00714492: mov var_8, 004112F8h
loc_00714499: xor edi, edi
loc_0071449B: mov var_4, edi
loc_0071449E: mov esi, Me
loc_007144A1: push esi
loc_007144A2: mov eax, [esi]
loc_007144A4: call [eax+00000004h]
loc_007144A7: mov ecx, arg_C
loc_007144AA: mov var_18, edi
loc_007144AD: mov [ecx], edi
loc_007144AF: mov edx, [esi+0000003Ch]
loc_007144B2: lea ecx, var_18
loc_007144B5: call [00401310h] ; __vbaStrCopy
loc_007144BB: push 007144CDh
loc_007144C0: jmp 007144CCh
loc_007144C2: lea ecx, var_18
loc_007144C5: call [00401430h] ; __vbaFreeStr
loc_007144CB: ret
loc_007144CC: ret
loc_007144CD: mov eax, Me
loc_007144D0: push eax
loc_007144D1: mov edx, [eax]
loc_007144D3: call [edx+00000008h]
loc_007144D6: mov eax, arg_C
loc_007144D9: mov ecx, var_18
loc_007144DC: mov [eax], ecx
loc_007144DE: mov eax, var_4
loc_007144E1: mov ecx, var_14
loc_007144E4: pop edi
loc_007144E5: pop esi
loc_007144E6: mov fs:[00000000h], ecx
loc_007144ED: pop ebx
loc_007144EE: mov esp, ebp
loc_007144F0: pop ebp
loc_007144F1: retn 0008h
End Sub
Public Property Set SessionForm(vData) '714500
loc_00714500: push ebp
loc_00714501: mov ebp, esp
loc_00714503: sub esp, 0000000Ch
loc_00714506: push 00412856h ; __vbaExceptHandler
loc_0071450B: mov eax, fs:[00000000h]
loc_00714511: push eax
loc_00714512: mov fs:[00000000h], esp
loc_00714519: sub esp, 0000000Ch
loc_0071451C: push ebx
loc_0071451D: push esi
loc_0071451E: push edi
loc_0071451F: mov var_C, esp
loc_00714522: mov var_8, 00411308h
loc_00714529: xor edi, edi
loc_0071452B: mov var_4, edi
loc_0071452E: mov esi, Me
loc_00714531: push esi
loc_00714532: mov eax, [esi]
loc_00714534: call [eax+00000004h]
loc_00714537: mov ecx, vData
loc_0071453A: lea edx, var_18
loc_0071453D: mov var_18, edi
loc_00714540: mov edi, [00401130h] ; __vbaObjSetAddref
loc_00714546: push ecx
loc_00714547: push edx
loc_00714548: call edi
loc_0071454A: mov eax, var_18
loc_0071454D: add esi, 00000038h
loc_00714550: push eax
loc_00714551: push esi
loc_00714552: call edi
loc_00714554: push 00714563h
loc_00714559: lea ecx, var_18
loc_0071455C: call [0040142Ch] ; __vbaFreeObj
loc_00714562: ret
loc_00714563: mov eax, Me
loc_00714566: push eax
loc_00714567: mov ecx, [eax]
loc_00714569: call [ecx+00000008h]
loc_0071456C: mov eax, var_4
loc_0071456F: mov ecx, var_14
loc_00714572: pop edi
loc_00714573: pop esi
loc_00714574: mov fs:[00000000h], ecx
loc_0071457B: pop ebx
loc_0071457C: mov esp, ebp
loc_0071457E: pop ebp
loc_0071457F: retn 0008h
End Sub
Public Property Get SessionForm(arg_C) '714590
loc_00714590: push ebp
loc_00714591: mov ebp, esp
loc_00714593: sub esp, 0000000Ch
loc_00714596: push 00412856h ; __vbaExceptHandler
loc_0071459B: mov eax, fs:[00000000h]
loc_007145A1: push eax
loc_007145A2: mov fs:[00000000h], esp
loc_007145A9: sub esp, 0000000Ch
loc_007145AC: push ebx
loc_007145AD: push esi
loc_007145AE: push edi
loc_007145AF: mov var_C, esp
loc_007145B2: mov var_8, 00411318h
loc_007145B9: xor edi, edi
loc_007145BB: mov var_4, edi
loc_007145BE: mov esi, Me
loc_007145C1: push esi
loc_007145C2: mov eax, [esi]
loc_007145C4: call [eax+00000004h]
loc_007145C7: mov ecx, arg_C
loc_007145CA: lea eax, var_18
loc_007145CD: mov var_18, edi
loc_007145D0: mov [ecx], edi
loc_007145D2: mov edx, [esi+00000038h]
loc_007145D5: push edx
loc_007145D6: push eax
loc_007145D7: call [00401130h] ; __vbaObjSetAddref
loc_007145DD: push 007145EFh
loc_007145E2: jmp 007145EEh
loc_007145E4: lea ecx, var_18
loc_007145E7: call [0040142Ch] ; __vbaFreeObj
loc_007145ED: ret
loc_007145EE: ret
loc_007145EF: mov eax, Me
loc_007145F2: push eax
loc_007145F3: mov ecx, [eax]
loc_007145F5: call [ecx+00000008h]
loc_007145F8: mov edx, arg_C
loc_007145FB: mov eax, var_18
loc_007145FE: mov [edx], eax
loc_00714600: mov eax, var_4
loc_00714603: mov ecx, var_14
loc_00714606: pop edi
loc_00714607: pop esi
loc_00714608: mov fs:[00000000h], ecx
loc_0071460F: pop ebx
loc_00714610: mov esp, ebp
loc_00714612: pop ebp
loc_00714613: retn 0008h
End Sub
Public Property Set SessionObject(vData) '714690
loc_00714690: push ebp
loc_00714691: mov ebp, esp
loc_00714693: sub esp, 0000000Ch
loc_00714696: push 00412856h ; __vbaExceptHandler
loc_0071469B: mov eax, fs:[00000000h]
loc_007146A1: push eax
loc_007146A2: mov fs:[00000000h], esp
loc_007146A9: sub esp, 0000000Ch
loc_007146AC: push ebx
loc_007146AD: push esi
loc_007146AE: push edi
loc_007146AF: mov var_C, esp
loc_007146B2: mov var_8, 00411330h
loc_007146B9: xor edi, edi
loc_007146BB: mov var_4, edi
loc_007146BE: mov esi, Me
loc_007146C1: push esi
loc_007146C2: mov eax, [esi]
loc_007146C4: call [eax+00000004h]
loc_007146C7: mov ecx, vData
loc_007146CA: lea edx, var_18
loc_007146CD: mov var_18, edi
loc_007146D0: mov edi, [00401130h] ; __vbaObjSetAddref
loc_007146D6: push ecx
loc_007146D7: push edx
loc_007146D8: call edi
loc_007146DA: mov eax, var_18
loc_007146DD: add esi, 00000034h
loc_007146E0: push eax
loc_007146E1: push esi
loc_007146E2: call edi
loc_007146E4: push 007146F3h
loc_007146E9: lea ecx, var_18
loc_007146EC: call [0040142Ch] ; __vbaFreeObj
loc_007146F2: ret
loc_007146F3: mov eax, Me
loc_007146F6: push eax
loc_007146F7: mov ecx, [eax]
loc_007146F9: call [ecx+00000008h]
loc_007146FC: mov eax, var_4
loc_007146FF: mov ecx, var_14
loc_00714702: pop edi
loc_00714703: pop esi
loc_00714704: mov fs:[00000000h], ecx
loc_0071470B: pop ebx
loc_0071470C: mov esp, ebp
loc_0071470E: pop ebp
loc_0071470F: retn 0008h
End Sub
Public Property Get SessionObject(arg_C) '714720
loc_00714720: push ebp
loc_00714721: mov ebp, esp
loc_00714723: sub esp, 0000000Ch
loc_00714726: push 00412856h ; __vbaExceptHandler
loc_0071472B: mov eax, fs:[00000000h]
loc_00714731: push eax
loc_00714732: mov fs:[00000000h], esp
loc_00714739: sub esp, 0000000Ch
loc_0071473C: push ebx
loc_0071473D: push esi
loc_0071473E: push edi
loc_0071473F: mov var_C, esp
loc_00714742: mov var_8, 00411340h
loc_00714749: xor edi, edi
loc_0071474B: mov var_4, edi
loc_0071474E: mov esi, Me
loc_00714751: push esi
loc_00714752: mov eax, [esi]
loc_00714754: call [eax+00000004h]
loc_00714757: mov ecx, arg_C
loc_0071475A: lea eax, var_18
loc_0071475D: mov var_18, edi
loc_00714760: mov [ecx], edi
loc_00714762: mov edx, [esi+00000034h]
loc_00714765: push edx
loc_00714766: push eax
loc_00714767: call [00401130h] ; __vbaObjSetAddref
loc_0071476D: push 0071477Fh
loc_00714772: jmp 0071477Eh
loc_00714774: lea ecx, var_18
loc_00714777: call [0040142Ch] ; __vbaFreeObj
loc_0071477D: ret
loc_0071477E: ret
loc_0071477F: mov eax, Me
loc_00714782: push eax
loc_00714783: mov ecx, [eax]
loc_00714785: call [ecx+00000008h]
loc_00714788: mov edx, arg_C
loc_0071478B: mov eax, var_18
loc_0071478E: mov [edx], eax
loc_00714790: mov eax, var_4
loc_00714793: mov ecx, var_14
loc_00714796: pop edi
loc_00714797: pop esi
loc_00714798: mov fs:[00000000h], ecx
loc_0071479F: pop ebx
loc_007147A0: mov esp, ebp
loc_007147A2: pop ebp
loc_007147A3: retn 0008h
End Sub
Private Sub Proc_66_6_714620
loc_00714620: push ebp
loc_00714621: mov ebp, esp
loc_00714623: sub esp, 0000000Ch
loc_00714626: push 00412856h ; __vbaExceptHandler
loc_0071462B: mov eax, fs:[00000000h]
loc_00714631: push eax
loc_00714632: mov fs:[00000000h], esp
loc_00714639: sub esp, 00000008h
loc_0071463C: push ebx
loc_0071463D: push esi
loc_0071463E: push edi
loc_0071463F: mov var_C, esp
loc_00714642: mov var_8, 00411328h
loc_00714649: mov eax, Me
loc_0071464C: mov ecx, eax
loc_0071464E: and ecx, 00000001h
loc_00714651: mov var_4, ecx
loc_00714654: and al, FEh
loc_00714656: push eax
loc_00714657: mov Me, eax
loc_0071465A: mov edx, [eax]
loc_0071465C: call [edx+00000004h]
loc_0071465F: mov var_4, 00000000h
loc_00714666: mov eax, Me
loc_00714669: push eax
loc_0071466A: mov ecx, [eax]
loc_0071466C: call [ecx+00000008h]
loc_0071466F: mov eax, var_4
loc_00714672: mov ecx, var_14
loc_00714675: pop edi
loc_00714676: pop esi
loc_00714677: mov fs:[00000000h], ecx
loc_0071467E: pop ebx
loc_0071467F: mov esp, ebp
loc_00714681: pop ebp
loc_00714682: retn 0004h
End Sub

836
Src Code/BBIMSessions.cls
View File

@ -0,0 +1,836 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "BBIMSessions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Function Add(objSession, frmSessionForm, sKey) '7147B0
loc_007147B0: push ebp
loc_007147B1: mov ebp, esp
loc_007147B3: sub esp, 00000014h
loc_007147B6: push 00412856h ; __vbaExceptHandler
loc_007147BB: mov eax, fs:[00000000h]
loc_007147C1: push eax
loc_007147C2: mov fs:[00000000h], esp
loc_007147C9: sub esp, 000000B0h
loc_007147CF: push ebx
loc_007147D0: push esi
loc_007147D1: push edi
loc_007147D2: mov var_14, esp
loc_007147D5: mov var_10, 00411350h
loc_007147DC: xor esi, esi
loc_007147DE: mov var_C, esi
loc_007147E1: mov var_8, esi
loc_007147E4: mov ebx, Me
loc_007147E7: mov eax, [ebx]
loc_007147E9: push ebx
loc_007147EA: call [eax+00000004h]
loc_007147ED: mov var_20, esi
loc_007147F0: mov var_24, esi
loc_007147F3: mov var_28, esi
loc_007147F6: mov var_2C, esi
loc_007147F9: mov var_3C, esi
loc_007147FC: mov var_4C, esi
loc_007147FF: mov var_5C, esi
loc_00714802: mov var_6C, esi
loc_00714805: mov var_7C, esi
loc_00714808: mov var_8C, esi
loc_0071480E: mov ecx, arg_18
loc_00714811: mov [ecx], esi
loc_00714813: push 00000001h
loc_00714815: call [00401124h] ; __vbaOnError
loc_0071481B: push esi
loc_0071481C: mov edi, objSession
loc_0071481F: mov edx, [edi]
loc_00714821: push edx
loc_00714822: call [00401238h] ; __vbaObjIs
loc_00714828: mov dx, ax
loc_0071482B: neg dx
loc_0071482E: sbb edx, edx
loc_00714830: inc edx
loc_00714831: push esi
loc_00714832: mov eax, frmSessionForm
loc_00714835: mov ecx, [eax]
loc_00714837: push ecx
loc_00714838: mov var_C8, edx
loc_0071483E: call [00401238h] ; __vbaObjIs
loc_00714844: neg ax
loc_00714847: sbb eax, eax
loc_00714849: inc eax
loc_0071484A: mov edx, var_C8
loc_00714850: test eax, edx
loc_00714852: jz 00714B41h
loc_00714858: push 004140D4h
loc_0071485D: call [0040122Ch] ; __vbaNew
loc_00714863: push eax
loc_00714864: lea eax, var_24
loc_00714867: push eax
loc_00714868: call [00401128h] ; __vbaObjSet
loc_0071486E: mov ecx, var_24
loc_00714871: mov edx, [ecx]
loc_00714873: mov eax, [edi]
loc_00714875: push eax
loc_00714876: lea ecx, var_2C
loc_00714879: push ecx
loc_0071487A: mov esi, [00401130h] ; __vbaObjSetAddref
loc_00714880: mov var_CC, edx
loc_00714886: call __vbaObjSetAddref
loc_00714888: push eax
loc_00714889: mov edx, var_24
loc_0071488C: push edx
loc_0071488D: mov eax, var_CC
loc_00714893: call [eax+0000002Ch]
loc_00714896: fnclex
loc_00714898: test eax, eax
loc_0071489A: jge 007148AEh
loc_0071489C: push 0000002Ch
loc_0071489E: push 0047276Ch
loc_007148A3: mov ecx, var_24
loc_007148A6: push ecx
loc_007148A7: push eax
loc_007148A8: call [004010CCh] ; __vbaHresultCheckObj
loc_007148AE: lea ecx, var_2C
loc_007148B1: call [0040142Ch] ; __vbaFreeObj
loc_007148B7: mov edx, var_24
loc_007148BA: mov edi, [edx]
loc_007148BC: mov eax, frmSessionForm
loc_007148BF: mov ecx, [eax]
loc_007148C1: push ecx
loc_007148C2: lea edx, var_2C
loc_007148C5: push edx
loc_007148C6: call __vbaObjSetAddref
loc_007148C8: push eax
loc_007148C9: mov eax, var_24
loc_007148CC: push eax
loc_007148CD: call [edi+00000024h]
loc_007148D0: fnclex
loc_007148D2: test eax, eax
loc_007148D4: jge 007148E8h
loc_007148D6: push 00000024h
loc_007148D8: push 0047276Ch
loc_007148DD: mov ecx, var_24
loc_007148E0: push ecx
loc_007148E1: push eax
loc_007148E2: call [004010CCh] ; __vbaHresultCheckObj
loc_007148E8: lea ecx, var_2C
loc_007148EB: call [0040142Ch] ; __vbaFreeObj
loc_007148F1: mov eax, var_24
loc_007148F4: mov edx, [eax]
loc_007148F6: mov edi, sKey
loc_007148F9: mov ecx, [edi]
loc_007148FB: push ecx
loc_007148FC: push eax
loc_007148FD: call [edx+0000001Ch]
loc_00714900: fnclex
loc_00714902: test eax, eax
loc_00714904: jge 00714918h
loc_00714906: push 0000001Ch
loc_00714908: push 0047276Ch
loc_0071490D: mov edx, var_24
loc_00714910: push edx
loc_00714911: push eax
loc_00714912: call [004010CCh] ; __vbaHresultCheckObj
loc_00714918: mov eax, [edi]
loc_0071491A: push eax
loc_0071491B: call [00401044h] ; __vbaLenBstr
loc_00714921: test eax, eax
loc_00714923: mov ecx, 80020004h
loc_00714928: jnz 007149CEh
loc_0071492E: mov var_54, ecx
loc_00714931: mov eax, 0000000Ah
loc_00714936: mov var_5C, eax
loc_00714939: mov var_44, ecx
loc_0071493C: mov var_4C, eax
loc_0071493F: mov var_34, ecx
loc_00714942: mov var_3C, eax
loc_00714945: mov ecx, var_24
loc_00714948: push ecx
loc_00714949: lea edx, var_2C
loc_0071494C: push edx
loc_0071494D: call __vbaObjSetAddref
loc_0071494F: lea eax, var_2C
loc_00714952: mov var_74, eax
loc_00714955: mov var_7C, 00004009h
loc_0071495C: mov eax, [ebx+00000034h]
loc_0071495F: mov ecx, [eax]
loc_00714961: lea edx, var_5C
loc_00714964: push edx
loc_00714965: lea edx, var_4C
loc_00714968: push edx
loc_00714969: lea edx, var_3C
loc_0071496C: push edx
loc_0071496D: lea edx, var_7C
loc_00714970: push edx
loc_00714971: push eax
loc_00714972: call [ecx+00000020h]
loc_00714975: fnclex
loc_00714977: test eax, eax
loc_00714979: jge 0071498Dh
loc_0071497B: push 00000020h
loc_0071497D: push 00447B68h
loc_00714982: mov ecx, [ebx+00000034h]
loc_00714985: push ecx
loc_00714986: push eax
loc_00714987: call [004010CCh] ; __vbaHresultCheckObj
loc_0071498D: push 0047276Ch
loc_00714992: mov edx, var_2C
loc_00714995: push edx
loc_00714996: mov edi, [004013C4h] ; __vbaCastObj
loc_0071499C: call edi
loc_0071499E: push eax
loc_0071499F: lea eax, var_24
loc_007149A2: push eax
loc_007149A3: call [00401128h] ; __vbaObjSet
loc_007149A9: lea ecx, var_2C
loc_007149AC: call [0040142Ch] ; __vbaFreeObj
loc_007149B2: lea ecx, var_5C
loc_007149B5: push ecx
loc_007149B6: lea edx, var_4C
loc_007149B9: push edx
loc_007149BA: lea eax, var_3C
loc_007149BD: push eax
loc_007149BE: push 00000003h
loc_007149C0: call [00401050h] ; __vbaFreeVarList
loc_007149C6: add esp, 00000010h
loc_007149C9: jmp 00714A72h
loc_007149CE: mov var_44, ecx
loc_007149D1: mov eax, 0000000Ah
loc_007149D6: mov var_4C, eax
loc_007149D9: mov var_34, ecx
loc_007149DC: mov var_3C, eax
loc_007149DF: mov var_84, edi
loc_007149E5: mov var_8C, 00004008h
loc_007149EF: mov ecx, var_24
loc_007149F2: push ecx
loc_007149F3: lea edx, var_2C
loc_007149F6: push edx
loc_007149F7: call __vbaObjSetAddref
loc_007149F9: lea eax, var_2C
loc_007149FC: mov var_74, eax
loc_007149FF: mov var_7C, 00004009h
loc_00714A06: mov eax, [ebx+00000034h]
loc_00714A09: mov ecx, [eax]
loc_00714A0B: lea edx, var_4C
loc_00714A0E: push edx
loc_00714A0F: lea edx, var_3C
loc_00714A12: push edx
loc_00714A13: lea edx, var_8C
loc_00714A19: push edx
loc_00714A1A: lea edx, var_7C
loc_00714A1D: push edx
loc_00714A1E: push eax
loc_00714A1F: call [ecx+00000020h]
loc_00714A22: fnclex
loc_00714A24: test eax, eax
loc_00714A26: jge 00714A3Ah
loc_00714A28: push 00000020h
loc_00714A2A: push 00447B68h
loc_00714A2F: mov ecx, [ebx+00000034h]
loc_00714A32: push ecx
loc_00714A33: push eax
loc_00714A34: call [004010CCh] ; __vbaHresultCheckObj
loc_00714A3A: push 0047276Ch
loc_00714A3F: mov edx, var_2C
loc_00714A42: push edx
loc_00714A43: mov edi, [004013C4h] ; __vbaCastObj
loc_00714A49: call edi
loc_00714A4B: push eax
loc_00714A4C: lea eax, var_24
loc_00714A4F: push eax
loc_00714A50: call [00401128h] ; __vbaObjSet
loc_00714A56: lea ecx, var_2C
loc_00714A59: call [0040142Ch] ; __vbaFreeObj
loc_00714A5F: lea ecx, var_4C
loc_00714A62: push ecx
loc_00714A63: lea edx, var_3C
loc_00714A66: push edx
loc_00714A67: push 00000002h
loc_00714A69: call [00401050h] ; __vbaFreeVarList
loc_00714A6F: add esp, 0000000Ch
loc_00714A72: mov eax, var_24
loc_00714A75: push eax
loc_00714A76: lea ecx, var_20
loc_00714A79: push ecx
loc_00714A7A: call __vbaObjSetAddref
loc_00714A7C: push 0047276Ch
loc_00714A81: push 00000000h
loc_00714A83: call edi
loc_00714A85: push eax
loc_00714A86: lea edx, var_24
loc_00714A89: push edx
loc_00714A8A: call [00401128h] ; __vbaObjSet
loc_00714A90: jmp 00714B41h
loc_00714A95: mov ecx, 80020004h
loc_00714A9A: mov var_64, ecx
loc_00714A9D: mov eax, 0000000Ah
loc_00714AA2: mov var_6C, eax
loc_00714AA5: mov var_54, ecx
loc_00714AA8: mov var_5C, eax
loc_00714AAB: mov var_44, ecx
loc_00714AAE: mov var_4C, eax
loc_00714AB1: call [00401340h] ; rtcErrObj
loc_00714AB7: push eax
loc_00714AB8: lea eax, var_2C
loc_00714ABB: push eax
loc_00714ABC: call [00401128h] ; __vbaObjSet
loc_00714AC2: mov esi, eax
loc_00714AC4: mov ecx, [esi]
loc_00714AC6: lea edx, var_28
loc_00714AC9: push edx
loc_00714ACA: push esi
loc_00714ACB: call [ecx+0000002Ch]
loc_00714ACE: fnclex
loc_00714AD0: test eax, eax
loc_00714AD2: jge 00714AE3h
loc_00714AD4: push 0000002Ch
loc_00714AD6: push 00443540h
loc_00714ADB: push esi
loc_00714ADC: push eax
loc_00714ADD: call [004010CCh] ; __vbaHresultCheckObj
loc_00714AE3: push 00474FC8h ; "Error adding new session: "
loc_00714AE8: mov eax, var_28
loc_00714AEB: push eax
loc_00714AEC: call [00401098h] ; __vbaStrCat
loc_00714AF2: mov var_34, eax
loc_00714AF5: mov var_3C, 00000008h
loc_00714AFC: lea ecx, var_6C
loc_00714AFF: push ecx
loc_00714B00: lea edx, var_5C
loc_00714B03: push edx
loc_00714B04: lea eax, var_4C
loc_00714B07: push eax
loc_00714B08: push 00000000h
loc_00714B0A: lea ecx, var_3C
loc_00714B0D: push ecx
loc_00714B0E: call [00401120h] ; rtcMsgBox
loc_00714B14: lea ecx, var_28
loc_00714B17: call [00401430h] ; __vbaFreeStr
loc_00714B1D: lea ecx, var_2C
loc_00714B20: call [0040142Ch] ; __vbaFreeObj
loc_00714B26: lea edx, var_6C
loc_00714B29: push edx
loc_00714B2A: lea eax, var_5C
loc_00714B2D: push eax
loc_00714B2E: lea ecx, var_4C
loc_00714B31: push ecx
loc_00714B32: lea edx, var_3C
loc_00714B35: push edx
loc_00714B36: push 00000004h
loc_00714B38: call [00401050h] ; __vbaFreeVarList
loc_00714B3E: add esp, 00000014h
loc_00714B41: call [00401114h] ; __vbaExitProc
loc_00714B47: push 00714B95h
loc_00714B4C: jmp 00714B8Bh
loc_00714B4E: test var_C, 04h
loc_00714B52: jz 00714B5Dh
loc_00714B54: lea ecx, var_20
loc_00714B57: call [0040142Ch] ; __vbaFreeObj
loc_00714B5D: lea ecx, var_28
loc_00714B60: call [00401430h] ; __vbaFreeStr
loc_00714B66: lea ecx, var_2C
loc_00714B69: call [0040142Ch] ; __vbaFreeObj
loc_00714B6F: lea eax, var_6C
loc_00714B72: push eax
loc_00714B73: lea ecx, var_5C
loc_00714B76: push ecx
loc_00714B77: lea edx, var_4C
loc_00714B7A: push edx
loc_00714B7B: lea eax, var_3C
loc_00714B7E: push eax
loc_00714B7F: push 00000004h
loc_00714B81: call [00401050h] ; __vbaFreeVarList
loc_00714B87: add esp, 00000014h
loc_00714B8A: ret
loc_00714B8B: lea ecx, var_24
loc_00714B8E: call [0040142Ch] ; __vbaFreeObj
loc_00714B94: ret
loc_00714B95: mov eax, Me
loc_00714B98: mov ecx, [eax]
loc_00714B9A: push eax
loc_00714B9B: call [ecx+00000008h]
loc_00714B9E: mov edx, arg_18
loc_00714BA1: mov eax, var_20
loc_00714BA4: mov [edx], eax
loc_00714BA6: mov eax, var_C
loc_00714BA9: mov ecx, var_1C
loc_00714BAC: mov fs:[00000000h], ecx
loc_00714BB3: pop edi
loc_00714BB4: pop esi
loc_00714BB5: pop ebx
loc_00714BB6: mov esp, ebp
loc_00714BB8: pop ebp
loc_00714BB9: retn 0014h
End Function
Public Property Get Item(vntIndexKey) '714BC0
loc_00714BC0: push ebp
loc_00714BC1: mov ebp, esp
loc_00714BC3: sub esp, 00000018h
loc_00714BC6: push 00412856h ; __vbaExceptHandler
loc_00714BCB: mov eax, fs:[00000000h]
loc_00714BD1: push eax
loc_00714BD2: mov fs:[00000000h], esp
loc_00714BD9: mov eax, 00000044h
loc_00714BDE: call 00412850h ; __vbaChkstk
loc_00714BE3: push ebx
loc_00714BE4: push esi
loc_00714BE5: push edi
loc_00714BE6: mov var_18, esp
loc_00714BE9: mov var_14, 00411378h ; "-"
loc_00714BF0: mov var_10, 00000000h
loc_00714BF7: mov var_C, 00000000h
loc_00714BFE: mov eax, Me
loc_00714C01: mov ecx, [eax]
loc_00714C03: mov edx, Me
loc_00714C06: push edx
loc_00714C07: call [ecx+00000004h]
loc_00714C0A: mov var_4, 00000001h
loc_00714C11: mov eax, arg_10
loc_00714C14: mov [eax], 00000000h
loc_00714C1A: mov var_4, 00000002h
loc_00714C21: push FFFFFFFFh
loc_00714C23: call [00401124h] ; __vbaOnError
loc_00714C29: mov var_4, 00000003h
loc_00714C30: lea ecx, var_38
loc_00714C33: push ecx
loc_00714C34: mov edx, vntIndexKey
loc_00714C37: push edx
loc_00714C38: mov eax, Me
loc_00714C3B: mov ecx, [eax+00000034h]
loc_00714C3E: mov edx, Me
loc_00714C41: mov eax, [edx+00000034h]
loc_00714C44: mov edx, [eax]
loc_00714C46: push ecx
loc_00714C47: call [edx+0000001Ch]
loc_00714C4A: fnclex
loc_00714C4C: mov var_40, eax
loc_00714C4F: cmp var_40, 00000000h
loc_00714C53: jge 00714C72h
loc_00714C55: push 0000001Ch
loc_00714C57: push 00447B68h
loc_00714C5C: mov eax, Me
loc_00714C5F: mov ecx, [eax+00000034h]
loc_00714C62: push ecx
loc_00714C63: mov edx, var_40
loc_00714C66: push edx
loc_00714C67: call [004010CCh] ; __vbaHresultCheckObj
loc_00714C6D: mov var_60, eax
loc_00714C70: jmp 00714C79h
loc_00714C72: mov var_60, 00000000h
loc_00714C79: push 0047276Ch
loc_00714C7E: lea eax, var_38
loc_00714C81: push eax
loc_00714C82: call [004011F8h] ; __vbaCastObjVar
loc_00714C88: push eax
loc_00714C89: lea ecx, var_24
loc_00714C8C: push ecx
loc_00714C8D: call [00401128h] ; __vbaObjSet
loc_00714C93: lea ecx, var_38
loc_00714C96: call [00401030h] ; __vbaFreeVar
loc_00714C9C: mov var_4, 00000004h
loc_00714CA3: call [00401340h] ; rtcErrObj
loc_00714CA9: push eax
loc_00714CAA: lea edx, var_28
loc_00714CAD: push edx
loc_00714CAE: call [00401128h] ; __vbaObjSet
loc_00714CB4: mov var_40, eax
loc_00714CB7: lea eax, var_3C
loc_00714CBA: push eax
loc_00714CBB: mov ecx, var_40
loc_00714CBE: mov edx, [ecx]
loc_00714CC0: mov eax, var_40
loc_00714CC3: push eax
loc_00714CC4: call [edx+0000001Ch]
loc_00714CC7: fnclex
loc_00714CC9: mov var_44, eax
loc_00714CCC: cmp var_44, 00000000h
loc_00714CD0: jge 00714CECh
loc_00714CD2: push 0000001Ch
loc_00714CD4: push 00443540h
loc_00714CD9: mov ecx, var_40
loc_00714CDC: push ecx
loc_00714CDD: mov edx, var_44
loc_00714CE0: push edx
loc_00714CE1: call [004010CCh] ; __vbaHresultCheckObj
loc_00714CE7: mov var_64, eax
loc_00714CEA: jmp 00714CF3h
loc_00714CEC: mov var_64, 00000000h
loc_00714CF3: xor eax, eax
loc_00714CF5: cmp var_3C, 00000000h
loc_00714CF9: setnz al
loc_00714CFC: neg eax
loc_00714CFE: mov var_48, ax
loc_00714D02: lea ecx, var_28
loc_00714D05: call [0040142Ch] ; __vbaFreeObj
loc_00714D0B: movsx ecx, var_48
loc_00714D0F: test ecx, ecx
loc_00714D11: jz 00714D32h
loc_00714D13: mov var_4, 00000005h
loc_00714D1A: push 0047276Ch
loc_00714D1F: push 00000000h
loc_00714D21: call [004013C4h] ; __vbaCastObj
loc_00714D27: push eax
loc_00714D28: lea edx, var_24
loc_00714D2B: push edx
loc_00714D2C: call [00401128h] ; __vbaObjSet
loc_00714D32: push 00714D60h
loc_00714D37: jmp 00714D5Fh
loc_00714D39: mov eax, var_10
loc_00714D3C: and eax, 00000004h
loc_00714D3F: test eax, eax
loc_00714D41: jz 00714D4Ch
loc_00714D43: lea ecx, var_24
loc_00714D46: call [0040142Ch] ; __vbaFreeObj
loc_00714D4C: lea ecx, var_28
loc_00714D4F: call [0040142Ch] ; __vbaFreeObj
loc_00714D55: lea ecx, var_38
loc_00714D58: call [00401030h] ; __vbaFreeVar
loc_00714D5E: ret
loc_00714D5F: ret
loc_00714D60: mov ecx, Me
loc_00714D63: mov edx, [ecx]
loc_00714D65: mov eax, Me
loc_00714D68: push eax
loc_00714D69: call [edx+00000008h]
loc_00714D6C: mov ecx, arg_10
loc_00714D6F: mov edx, var_24
loc_00714D72: mov [ecx], edx
loc_00714D74: mov eax, var_10
loc_00714D77: mov ecx, var_20
loc_00714D7A: mov fs:[00000000h], ecx
loc_00714D81: pop edi
loc_00714D82: pop esi
loc_00714D83: pop ebx
loc_00714D84: mov esp, ebp
loc_00714D86: pop ebp
loc_00714D87: retn 000Ch
End Sub
Public Property Get Count(arg_C) '714D90
loc_00714D90: push ebp
loc_00714D91: mov ebp, esp
loc_00714D93: sub esp, 0000000Ch
loc_00714D96: push 00412856h ; __vbaExceptHandler
loc_00714D9B: mov eax, fs:[00000000h]
loc_00714DA1: push eax
loc_00714DA2: mov fs:[00000000h], esp
loc_00714DA9: sub esp, 00000014h
loc_00714DAC: push ebx
loc_00714DAD: push esi
loc_00714DAE: push edi
loc_00714DAF: mov var_C, esp
loc_00714DB2: mov var_8, 004113B8h
loc_00714DB9: xor edi, edi
loc_00714DBB: mov var_4, edi
loc_00714DBE: mov esi, Me
loc_00714DC1: push esi
loc_00714DC2: mov eax, [esi]
loc_00714DC4: call [eax+00000004h]
loc_00714DC7: mov eax, [esi+00000034h]
loc_00714DCA: lea edx, var_1C
loc_00714DCD: mov var_1C, edi
loc_00714DD0: push edx
loc_00714DD1: mov ecx, [eax]
loc_00714DD3: push eax
loc_00714DD4: mov var_18, edi
loc_00714DD7: call [ecx+00000024h]
loc_00714DDA: cmp eax, edi
loc_00714DDC: fnclex
loc_00714DDE: jge 00714DF2h
loc_00714DE0: mov ecx, [esi+00000034h]
loc_00714DE3: push 00000024h
loc_00714DE5: push 00447B68h
loc_00714DEA: push ecx
loc_00714DEB: push eax
loc_00714DEC: call [004010CCh] ; __vbaHresultCheckObj
loc_00714DF2: mov edx, var_1C
loc_00714DF5: mov var_18, edx
loc_00714DF8: mov eax, Me
loc_00714DFB: push eax
loc_00714DFC: mov ecx, [eax]
loc_00714DFE: call [ecx+00000008h]
loc_00714E01: mov edx, arg_C
loc_00714E04: mov eax, var_18
loc_00714E07: mov [edx], eax
loc_00714E09: mov eax, var_4
loc_00714E0C: mov ecx, var_14
loc_00714E0F: pop edi
loc_00714E10: pop esi
loc_00714E11: mov fs:[00000000h], ecx
loc_00714E18: pop ebx
loc_00714E19: mov esp, ebp
loc_00714E1B: pop ebp
loc_00714E1C: retn 0008h
End Sub
Public Sub Remove(vntIndexKey) '714E20
loc_00714E20: push ebp
loc_00714E21: mov ebp, esp
loc_00714E23: sub esp, 00000018h
loc_00714E26: push 00412856h ; __vbaExceptHandler
loc_00714E2B: mov eax, fs:[00000000h]
loc_00714E31: push eax
loc_00714E32: mov fs:[00000000h], esp
loc_00714E39: mov eax, 0000001Ch
loc_00714E3E: call 00412850h ; __vbaChkstk
loc_00714E43: push ebx
loc_00714E44: push esi
loc_00714E45: push edi
loc_00714E46: mov var_18, esp
loc_00714E49: mov var_14, 004113C0h
loc_00714E50: mov var_10, 00000000h
loc_00714E57: mov var_C, 00000000h
loc_00714E5E: mov eax, Me
loc_00714E61: mov ecx, [eax]
loc_00714E63: mov edx, Me
loc_00714E66: push edx
loc_00714E67: call [ecx+00000004h]
loc_00714E6A: mov var_4, 00000001h
loc_00714E71: mov var_4, 00000002h
loc_00714E78: push FFFFFFFFh
loc_00714E7A: call [00401124h] ; __vbaOnError
loc_00714E80: mov var_4, 00000003h
loc_00714E87: mov eax, vntIndexKey
loc_00714E8A: push eax
loc_00714E8B: mov ecx, Me
loc_00714E8E: mov edx, [ecx+00000034h]
loc_00714E91: mov eax, Me
loc_00714E94: mov ecx, [eax+00000034h]
loc_00714E97: mov eax, [ecx]
loc_00714E99: push edx
loc_00714E9A: call [eax+00000028h]
loc_00714E9D: fnclex
loc_00714E9F: mov var_24, eax
loc_00714EA2: cmp var_24, 00000000h
loc_00714EA6: jge 00714EC5h
loc_00714EA8: push 00000028h
loc_00714EAA: push 00447B68h
loc_00714EAF: mov ecx, Me
loc_00714EB2: mov edx, [ecx+00000034h]
loc_00714EB5: push edx
loc_00714EB6: mov eax, var_24
loc_00714EB9: push eax
loc_00714EBA: call [004010CCh] ; __vbaHresultCheckObj
loc_00714EC0: mov var_3C, eax
loc_00714EC3: jmp 00714ECCh
loc_00714EC5: mov var_3C, 00000000h
loc_00714ECC: mov ecx, Me
loc_00714ECF: mov edx, [ecx]
loc_00714ED1: mov eax, Me
loc_00714ED4: push eax
loc_00714ED5: call [edx+00000008h]
loc_00714ED8: mov eax, var_10
loc_00714EDB: mov ecx, var_20
loc_00714EDE: mov fs:[00000000h], ecx
loc_00714EE5: pop edi
loc_00714EE6: pop esi
loc_00714EE7: pop ebx
loc_00714EE8: mov esp, ebp
loc_00714EEA: pop ebp
loc_00714EEB: retn 0008h
End Sub
Public Property Get NewEnum(arg_C) '714EF0
loc_00714EF0: push ebp
loc_00714EF1: mov ebp, esp
loc_00714EF3: sub esp, 0000000Ch
loc_00714EF6: push 00412856h ; __vbaExceptHandler
loc_00714EFB: mov eax, fs:[00000000h]
loc_00714F01: push eax
loc_00714F02: mov fs:[00000000h], esp
loc_00714F09: sub esp, 00000014h
loc_00714F0C: push ebx
loc_00714F0D: push esi
loc_00714F0E: push edi
loc_00714F0F: mov var_C, esp
loc_00714F12: mov var_8, 004113F0h
loc_00714F19: xor edi, edi
loc_00714F1B: mov var_4, edi
loc_00714F1E: mov esi, Me
loc_00714F21: push esi
loc_00714F22: mov eax, [esi]
loc_00714F24: call [eax+00000004h]
loc_00714F27: mov ecx, arg_C
loc_00714F2A: mov var_18, edi
loc_00714F2D: mov var_1C, edi
loc_00714F30: mov [ecx], edi
loc_00714F32: mov eax, [esi+00000034h]
loc_00714F35: lea ecx, var_1C
loc_00714F38: mov edx, [eax]
loc_00714F3A: push ecx
loc_00714F3B: push eax
loc_00714F3C: call [edx+0000002Ch]
loc_00714F3F: cmp eax, edi
loc_00714F41: fnclex
loc_00714F43: jge 00714F57h
loc_00714F45: mov edx, [esi+00000034h]
loc_00714F48: push 0000002Ch
loc_00714F4A: push 00447B68h
loc_00714F4F: push edx
loc_00714F50: push eax
loc_00714F51: call [004010CCh] ; __vbaHresultCheckObj
loc_00714F57: mov eax, var_1C
loc_00714F5A: push 00447558h
loc_00714F5F: push eax
loc_00714F60: call [004013C4h] ; __vbaCastObj
loc_00714F66: lea ecx, var_18
loc_00714F69: push eax
loc_00714F6A: push ecx
loc_00714F6B: call [00401128h] ; __vbaObjSet
loc_00714F71: lea ecx, var_1C
loc_00714F74: call [0040142Ch] ; __vbaFreeObj
loc_00714F7A: push 00714F9Bh
loc_00714F7F: jmp 00714F9Ah
loc_00714F81: test var_4, 04h
loc_00714F85: jz 00714F90h
loc_00714F87: lea ecx, var_18
loc_00714F8A: call [0040142Ch] ; __vbaFreeObj
loc_00714F90: lea ecx, var_1C
loc_00714F93: call [0040142Ch] ; __vbaFreeObj
loc_00714F99: ret
loc_00714F9A: ret
loc_00714F9B: mov eax, Me
loc_00714F9E: push eax
loc_00714F9F: mov edx, [eax]
loc_00714FA1: call [edx+00000008h]
loc_00714FA4: mov eax, arg_C
loc_00714FA7: mov ecx, var_18
loc_00714FAA: mov [eax], ecx
loc_00714FAC: mov eax, var_4
loc_00714FAF: mov ecx, var_14
loc_00714FB2: pop edi
loc_00714FB3: pop esi
loc_00714FB4: mov fs:[00000000h], ecx
loc_00714FBB: pop ebx
loc_00714FBC: mov esp, ebp
loc_00714FBE: pop ebp
loc_00714FBF: retn 0008h
End Sub
Private Sub Proc_67_5_714FD0
loc_00714FD0: push ebp
loc_00714FD1: mov ebp, esp
loc_00714FD3: sub esp, 0000000Ch
loc_00714FD6: push 00412856h ; __vbaExceptHandler
loc_00714FDB: mov eax, fs:[00000000h]
loc_00714FE1: push eax
loc_00714FE2: mov fs:[00000000h], esp
loc_00714FE9: sub esp, 0000000Ch
loc_00714FEC: push ebx
loc_00714FED: push esi
loc_00714FEE: push edi
loc_00714FEF: mov var_C, esp
loc_00714FF2: mov var_8, 00411400h
loc_00714FF9: mov esi, Me
loc_00714FFC: mov eax, esi
loc_00714FFE: and eax, 00000001h
loc_00715001: mov var_4, eax
loc_00715004: and esi, FFFFFFFEh
loc_00715007: push esi
loc_00715008: mov Me, esi
loc_0071500B: mov ecx, [esi]
loc_0071500D: call [ecx+00000004h]
loc_00715010: xor edi, edi
loc_00715012: push 00447B78h
loc_00715017: mov var_18, edi
loc_0071501A: call [0040122Ch] ; __vbaNew
loc_00715020: lea edx, var_18
loc_00715023: push eax
loc_00715024: push edx
loc_00715025: call [00401128h] ; __vbaObjSet
loc_0071502B: add esi, 00000034h
loc_0071502E: push eax
loc_0071502F: push esi
loc_00715030: call [00401130h] ; __vbaObjSetAddref
loc_00715036: lea ecx, var_18
loc_00715039: call [0040142Ch] ; __vbaFreeObj
loc_0071503F: mov var_4, edi
loc_00715042: push 00715054h
loc_00715047: jmp 00715053h
loc_00715049: lea ecx, var_18
loc_0071504C: call [0040142Ch] ; __vbaFreeObj
loc_00715052: ret
loc_00715053: ret
loc_00715054: mov eax, Me
loc_00715057: push eax
loc_00715058: mov ecx, [eax]
loc_0071505A: call [ecx+00000008h]
loc_0071505D: mov eax, var_4
loc_00715060: mov ecx, var_14
loc_00715063: pop edi
loc_00715064: pop esi
loc_00715065: mov fs:[00000000h], ecx
loc_0071506C: pop ebx
loc_0071506D: mov esp, ebp
loc_0071506F: pop ebp
loc_00715070: retn 0004h
End Sub
Private Sub Proc_67_6_715080
loc_00715080: push ebp
loc_00715081: mov ebp, esp
loc_00715083: sub esp, 0000000Ch
loc_00715086: push 00412856h ; __vbaExceptHandler
loc_0071508B: mov eax, fs:[00000000h]
loc_00715091: push eax
loc_00715092: mov fs:[00000000h], esp
loc_00715099: sub esp, 0000000Ch
loc_0071509C: push ebx
loc_0071509D: push esi
loc_0071509E: push edi
loc_0071509F: mov var_C, esp
loc_007150A2: mov var_8, 00411410h
loc_007150A9: mov esi, Me
loc_007150AC: mov eax, esi
loc_007150AE: and eax, 00000001h
loc_007150B1: mov var_4, eax
loc_007150B4: and esi, FFFFFFFEh
loc_007150B7: push esi
loc_007150B8: mov Me, esi
loc_007150BB: mov ecx, [esi]
loc_007150BD: call [ecx+00000004h]
loc_007150C0: xor edi, edi
loc_007150C2: push 00447B68h
loc_007150C7: push edi
loc_007150C8: mov var_18, edi
loc_007150CB: call [004013C4h] ; __vbaCastObj
loc_007150D1: lea edx, var_18
loc_007150D4: push eax
loc_007150D5: push edx
loc_007150D6: call [00401128h] ; __vbaObjSet
loc_007150DC: add esi, 00000034h
loc_007150DF: push eax
loc_007150E0: push esi
loc_007150E1: call [00401130h] ; __vbaObjSetAddref
loc_007150E7: lea ecx, var_18
loc_007150EA: call [0040142Ch] ; __vbaFreeObj
loc_007150F0: mov var_4, edi
loc_007150F3: push 00715105h
loc_007150F8: jmp 00715104h
loc_007150FA: lea ecx, var_18
loc_007150FD: call [0040142Ch] ; __vbaFreeObj
loc_00715103: ret
loc_00715104: ret
loc_00715105: mov eax, Me
loc_00715108: push eax
loc_00715109: mov ecx, [eax]
loc_0071510B: call [ecx+00000008h]
loc_0071510E: mov eax, var_4
loc_00715111: mov ecx, var_14
loc_00715114: pop edi
loc_00715115: pop esi
loc_00715116: mov fs:[00000000h], ecx
loc_0071511D: pop ebx
loc_0071511E: mov esp, ebp
loc_00715120: pop ebp
loc_00715121: retn 0004h
End Sub

2303
Src Code/CCalendarVBMethods.cls
File diff suppressed because it is too large
View File

188
Src Code/CCalendarVBPeriod.cls
View File

@ -0,0 +1,188 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CCalendarVBPeriod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Get Name(Index As Integer) '706220
loc_00706220: push ebp
loc_00706221: mov ebp, esp
loc_00706223: sub esp, 0000000Ch
loc_00706226: push 00412856h ; __vbaExceptHandler
loc_0070622B: mov eax, fs:[00000000h]
loc_00706231: push eax
loc_00706232: mov fs:[00000000h], esp
loc_00706239: sub esp, 0000000Ch
loc_0070623C: push ebx
loc_0070623D: push esi
loc_0070623E: push edi
loc_0070623F: mov var_C, esp
loc_00706242: mov var_8, 00410510h
loc_00706249: xor edi, edi
loc_0070624B: mov var_4, edi
loc_0070624E: mov esi, Me
loc_00706251: push esi
loc_00706252: mov eax, [esi]
loc_00706254: call [eax+00000004h]
loc_00706257: mov ecx, Index
loc_0070625A: mov var_18, edi
loc_0070625D: mov [ecx], edi
loc_0070625F: mov edx, [esi+00000038h]
loc_00706262: lea ecx, var_18
loc_00706265: call [00401310h] ; __vbaStrCopy
loc_0070626B: push 0070627Dh
loc_00706270: jmp 0070627Ch
loc_00706272: lea ecx, var_18
loc_00706275: call [00401430h] ; __vbaFreeStr
loc_0070627B: ret
loc_0070627C: ret
loc_0070627D: mov eax, Me
loc_00706280: push eax
loc_00706281: mov edx, [eax]
loc_00706283: call [edx+00000008h]
loc_00706286: mov eax, Index
loc_00706289: mov ecx, var_18
loc_0070628C: mov [eax], ecx
loc_0070628E: mov eax, var_4
loc_00706291: mov ecx, var_14
loc_00706294: pop edi
loc_00706295: pop esi
loc_00706296: mov fs:[00000000h], ecx
loc_0070629D: pop ebx
loc_0070629E: mov esp, ebp
loc_007062A0: pop ebp
loc_007062A1: retn 0008h
End Sub
Public Property Let Name(sName) '7062B0
loc_007062B0: push ebp
loc_007062B1: mov ebp, esp
loc_007062B3: sub esp, 0000000Ch
loc_007062B6: push 00412856h ; __vbaExceptHandler
loc_007062BB: mov eax, fs:[00000000h]
loc_007062C1: push eax
loc_007062C2: mov fs:[00000000h], esp
loc_007062C9: sub esp, 0000000Ch
loc_007062CC: push ebx
loc_007062CD: push esi
loc_007062CE: push edi
loc_007062CF: mov var_C, esp
loc_007062D2: mov var_8, 00410520h
loc_007062D9: xor edi, edi
loc_007062DB: mov var_4, edi
loc_007062DE: mov esi, Me
loc_007062E1: push esi
loc_007062E2: mov eax, [esi]
loc_007062E4: call [eax+00000004h]
loc_007062E7: mov edx, sName
loc_007062EA: mov var_18, edi
loc_007062ED: mov edi, [00401310h] ; __vbaStrCopy
loc_007062F3: lea ecx, var_18
loc_007062F6: call edi
loc_007062F8: mov edx, var_18
loc_007062FB: lea ecx, [esi+00000038h]
loc_007062FE: call edi
loc_00706300: push 0070630Fh
loc_00706305: lea ecx, var_18
loc_00706308: call [00401430h] ; __vbaFreeStr
loc_0070630E: ret
loc_0070630F: mov eax, Me
loc_00706312: push eax
loc_00706313: mov ecx, [eax]
loc_00706315: call [ecx+00000008h]
loc_00706318: mov eax, var_4
loc_0070631B: mov ecx, var_14
loc_0070631E: pop edi
loc_0070631F: pop esi
loc_00706320: mov fs:[00000000h], ecx
loc_00706327: pop ebx
loc_00706328: mov esp, ebp
loc_0070632A: pop ebp
loc_0070632B: retn 0008h
End Sub
Public Property Get NumberOfWeeks(arg_C) '706330
loc_00706330: push ebp
loc_00706331: mov ebp, esp
loc_00706333: sub esp, 0000000Ch
loc_00706336: push 00412856h ; __vbaExceptHandler
loc_0070633B: mov eax, fs:[00000000h]
loc_00706341: push eax
loc_00706342: mov fs:[00000000h], esp
loc_00706349: sub esp, 0000000Ch
loc_0070634C: push ebx
loc_0070634D: push esi
loc_0070634E: push edi
loc_0070634F: mov var_C, esp
loc_00706352: mov var_8, 00410530h
loc_00706359: xor edi, edi
loc_0070635B: mov var_4, edi
loc_0070635E: mov esi, Me
loc_00706361: push esi
loc_00706362: mov eax, [esi]
loc_00706364: call [eax+00000004h]
loc_00706367: mov cx, [esi+00000034h]
loc_0070636B: mov var_18, edi
loc_0070636E: mov var_18, ecx
loc_00706371: mov eax, Me
loc_00706374: push eax
loc_00706375: mov edx, [eax]
loc_00706377: call [edx+00000008h]
loc_0070637A: mov eax, arg_C
loc_0070637D: mov cx, var_18
loc_00706381: mov [eax], cx
loc_00706384: mov eax, var_4
loc_00706387: mov ecx, var_14
loc_0070638A: pop edi
loc_0070638B: pop esi
loc_0070638C: mov fs:[00000000h], ecx
loc_00706393: pop ebx
loc_00706394: mov esp, ebp
loc_00706396: pop ebp
loc_00706397: retn 0008h
End Sub
Public Property Let NumberOfWeeks(nNumberOfWeeks) '7063A0
loc_007063A0: push ebp
loc_007063A1: mov ebp, esp
loc_007063A3: sub esp, 0000000Ch
loc_007063A6: push 00412856h ; __vbaExceptHandler
loc_007063AB: mov eax, fs:[00000000h]
loc_007063B1: push eax
loc_007063B2: mov fs:[00000000h], esp
loc_007063B9: sub esp, 00000008h
loc_007063BC: push ebx
loc_007063BD: push esi
loc_007063BE: push edi
loc_007063BF: mov var_C, esp
loc_007063C2: mov var_8, 00410538h
loc_007063C9: mov var_4, 00000000h
loc_007063D0: mov esi, Me
loc_007063D3: push esi
loc_007063D4: mov eax, [esi]
loc_007063D6: call [eax+00000004h]
loc_007063D9: mov cx, nNumberOfWeeks
loc_007063DD: mov [esi+00000034h], cx
loc_007063E1: mov eax, Me
loc_007063E4: push eax
loc_007063E5: mov edx, [eax]
loc_007063E7: call [edx+00000008h]
loc_007063EA: mov eax, var_4
loc_007063ED: mov ecx, var_14
loc_007063F0: pop edi
loc_007063F1: pop esi
loc_007063F2: mov fs:[00000000h], ecx
loc_007063F9: pop ebx
loc_007063FA: mov esp, ebp
loc_007063FC: pop ebp
loc_007063FD: retn 0008h
End Sub

958
Src Code/CCalendarVBPeriods.cls
View File

@ -0,0 +1,958 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CCalendarVBPeriods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function Add(sName, nNumberOfWeeks) '7064B0
loc_007064B0: push ebp
loc_007064B1: mov ebp, esp
loc_007064B3: sub esp, 00000018h
loc_007064B6: push 00412856h ; __vbaExceptHandler
loc_007064BB: mov eax, fs:[00000000h]
loc_007064C1: push eax
loc_007064C2: mov fs:[00000000h], esp
loc_007064C9: mov eax, 00000118h
loc_007064CE: call 00412850h ; __vbaChkstk
loc_007064D3: push ebx
loc_007064D4: push esi
loc_007064D5: push edi
loc_007064D6: mov var_18, esp
loc_007064D9: mov var_14, 00410550h ; "/"
loc_007064E0: mov var_10, 00000000h
loc_007064E7: mov var_C, 00000000h
loc_007064EE: mov eax, Me
loc_007064F1: mov ecx, [eax]
loc_007064F3: mov edx, Me
loc_007064F6: push edx
loc_007064F7: call [ecx+00000004h]
loc_007064FA: mov var_4, 00000001h
loc_00706501: mov edx, sName
loc_00706504: lea ecx, var_24
loc_00706507: call [00401310h] ; __vbaStrCopy
loc_0070650D: mov eax, arg_14
loc_00706510: mov [eax], 00000000h
loc_00706516: mov var_4, 00000002h
loc_0070651D: push FFFFFFFFh
loc_0070651F: call [00401124h] ; __vbaOnError
loc_00706525: mov var_4, 00000003h
loc_0070652C: cmp var_34, 00000000h
loc_00706530: jnz 0070654Ch
loc_00706532: lea ecx, var_34
loc_00706535: push ecx
loc_00706536: push 004139ECh
loc_0070653B: call [004012FCh] ; __vbaNew2
loc_00706541: lea edx, var_34
loc_00706544: mov var_FC, edx
loc_0070654A: jmp 00706555h
loc_0070654C: lea eax, var_34
loc_0070654F: mov var_FC, eax
loc_00706555: mov ecx, var_FC
loc_0070655B: mov edx, [ecx]
loc_0070655D: mov var_C0, edx
loc_00706563: mov eax, var_24
loc_00706566: push eax
loc_00706567: mov ecx, var_C0
loc_0070656D: mov edx, [ecx]
loc_0070656F: mov eax, var_C0
loc_00706575: push eax
loc_00706576: call [edx+00000020h]
loc_00706579: fnclex
loc_0070657B: mov var_C4, eax
loc_00706581: cmp var_C4, 00000000h
loc_00706588: jge 007065ADh
loc_0070658A: push 00000020h
loc_0070658C: push 00446E9Ch
loc_00706591: mov ecx, var_C0
loc_00706597: push ecx
loc_00706598: mov edx, var_C4
loc_0070659E: push edx
loc_0070659F: call [004010CCh] ; __vbaHresultCheckObj
loc_007065A5: mov var_100, eax
loc_007065AB: jmp 007065B7h
loc_007065AD: mov var_100, 00000000h
loc_007065B7: mov var_4, 00000004h
loc_007065BE: cmp var_34, 00000000h
loc_007065C2: jnz 007065DEh
loc_007065C4: lea eax, var_34
loc_007065C7: push eax
loc_007065C8: push 004139ECh
loc_007065CD: call [004012FCh] ; __vbaNew2
loc_007065D3: lea ecx, var_34
loc_007065D6: mov var_104, ecx
loc_007065DC: jmp 007065E7h
loc_007065DE: lea edx, var_34
loc_007065E1: mov var_104, edx
loc_007065E7: mov eax, var_104
loc_007065ED: mov ecx, [eax]
loc_007065EF: mov var_C0, ecx
loc_007065F5: mov dx, nNumberOfWeeks
loc_007065F9: push edx
loc_007065FA: mov eax, var_C0
loc_00706600: mov ecx, [eax]
loc_00706602: mov edx, var_C0
loc_00706608: push edx
loc_00706609: call [ecx+00000028h]
loc_0070660C: fnclex
loc_0070660E: mov var_C4, eax
loc_00706614: cmp var_C4, 00000000h
loc_0070661B: jge 00706640h
loc_0070661D: push 00000028h
loc_0070661F: push 00446E9Ch
loc_00706624: mov eax, var_C0
loc_0070662A: push eax
loc_0070662B: mov ecx, var_C4
loc_00706631: push ecx
loc_00706632: call [004010CCh] ; __vbaHresultCheckObj
loc_00706638: mov var_108, eax
loc_0070663E: jmp 0070664Ah
loc_00706640: mov var_108, 00000000h
loc_0070664A: mov var_4, 00000005h
loc_00706651: mov var_50, 80020004h
loc_00706658: mov var_58, 0000000Ah
loc_0070665F: mov var_40, 80020004h
loc_00706666: mov var_48, 0000000Ah
loc_0070666D: lea edx, var_24
loc_00706670: mov var_90, edx
loc_00706676: mov var_98, 00004008h
loc_00706680: cmp var_34, 00000000h
loc_00706684: jnz 007066A0h
loc_00706686: lea eax, var_34
loc_00706689: push eax
loc_0070668A: push 004139ECh
loc_0070668F: call [004012FCh] ; __vbaNew2
loc_00706695: lea ecx, var_34
loc_00706698: mov var_10C, ecx
loc_0070669E: jmp 007066A9h
loc_007066A0: lea edx, var_34
loc_007066A3: mov var_10C, edx
loc_007066A9: mov eax, var_10C
loc_007066AF: mov ecx, [eax]
loc_007066B1: push ecx
loc_007066B2: lea edx, var_38
loc_007066B5: push edx
loc_007066B6: call [00401130h] ; __vbaObjSetAddref
loc_007066BC: lea eax, var_38
loc_007066BF: mov var_80, eax
loc_007066C2: mov var_88, 00004009h
loc_007066CC: lea ecx, var_58
loc_007066CF: push ecx
loc_007066D0: lea edx, var_48
loc_007066D3: push edx
loc_007066D4: lea eax, var_98
loc_007066DA: push eax
loc_007066DB: lea ecx, var_88
loc_007066E1: push ecx
loc_007066E2: mov edx, Me
loc_007066E5: mov eax, [edx+00000038h]
loc_007066E8: mov ecx, Me
loc_007066EB: mov edx, [ecx+00000038h]
loc_007066EE: mov ecx, [edx]
loc_007066F0: push eax
loc_007066F1: call [ecx+00000020h]
loc_007066F4: fnclex
loc_007066F6: mov var_C0, eax
loc_007066FC: cmp var_C0, 00000000h
loc_00706703: jge 00706728h
loc_00706705: push 00000020h
loc_00706707: push 00447B68h
loc_0070670C: mov edx, Me
loc_0070670F: mov eax, [edx+00000038h]
loc_00706712: push eax
loc_00706713: mov ecx, var_C0
loc_00706719: push ecx
loc_0070671A: call [004010CCh] ; __vbaHresultCheckObj
loc_00706720: mov var_110, eax
loc_00706726: jmp 00706732h
loc_00706728: mov var_110, 00000000h
loc_00706732: push 00446E9Ch
loc_00706737: mov edx, var_38
loc_0070673A: push edx
loc_0070673B: call [004013C4h] ; __vbaCastObj
loc_00706741: push eax
loc_00706742: lea eax, var_34
loc_00706745: push eax
loc_00706746: call [00401128h] ; __vbaObjSet
loc_0070674C: lea ecx, var_38
loc_0070674F: call [0040142Ch] ; __vbaFreeObj
loc_00706755: lea ecx, var_58
loc_00706758: push ecx
loc_00706759: lea edx, var_48
loc_0070675C: push edx
loc_0070675D: push 00000002h
loc_0070675F: call [00401050h] ; __vbaFreeVarList
loc_00706765: add esp, 0000000Ch
loc_00706768: mov var_4, 00000006h
loc_0070676F: lea eax, var_BC
loc_00706775: push eax
loc_00706776: mov ecx, Me
loc_00706779: mov edx, [ecx+00000038h]
loc_0070677C: mov eax, Me
loc_0070677F: mov ecx, [eax+00000038h]
loc_00706782: mov eax, [ecx]
loc_00706784: push edx
loc_00706785: call [eax+00000024h]
loc_00706788: fnclex
loc_0070678A: mov var_C0, eax
loc_00706790: cmp var_C0, 00000000h
loc_00706797: jge 007067BCh
loc_00706799: push 00000024h
loc_0070679B: push 00447B68h
loc_007067A0: mov ecx, Me
loc_007067A3: mov edx, [ecx+00000038h]
loc_007067A6: push edx
loc_007067A7: mov eax, var_C0
loc_007067AD: push eax
loc_007067AE: call [004010CCh] ; __vbaHresultCheckObj
loc_007067B4: mov var_114, eax
loc_007067BA: jmp 007067C6h
loc_007067BC: mov var_114, 00000000h
loc_007067C6: mov ecx, var_BC
loc_007067CC: call [004011E4h] ; __vbaI2I4
loc_007067D2: mov var_28, ax
loc_007067D6: mov var_4, 00000007h
loc_007067DD: push 00000001h
loc_007067DF: movsx ecx, var_28
loc_007067E3: push ecx
loc_007067E4: push 00000001h
loc_007067E6: push 00000002h
loc_007067E8: mov edx, Me
loc_007067EB: add edx, 00000034h
loc_007067EE: push edx
loc_007067EF: push 00000002h
loc_007067F1: push 00000080h
loc_007067F6: call [00401220h] ; __vbaRedim
loc_007067FC: add esp, 0000001Ch
loc_007067FF: mov var_4, 00000008h
loc_00706806: mov ax, var_28
loc_0070680A: mov var_E0, ax
loc_00706811: mov var_DC, 0001h
loc_0070681A: mov var_2C, 0001h
loc_00706820: jmp 00706837h
loc_00706822: mov cx, var_2C
loc_00706826: add cx, var_DC
loc_0070682D: jo 00706C3Fh
loc_00706833: mov var_2C, cx
loc_00706837: mov dx, var_2C
loc_0070683B: cmp dx, var_E0
loc_00706842: jg 00706B74h
loc_00706848: mov var_4, 00000009h
loc_0070684F: lea eax, var_2C
loc_00706852: mov var_80, eax
loc_00706855: mov var_88, 00004002h
loc_0070685F: lea ecx, var_48
loc_00706862: push ecx
loc_00706863: lea edx, var_88
loc_00706869: push edx
loc_0070686A: mov eax, Me
loc_0070686D: mov ecx, [eax+00000038h]
loc_00706870: mov edx, Me
loc_00706873: mov eax, [edx+00000038h]
loc_00706876: mov edx, [eax]
loc_00706878: push ecx
loc_00706879: call [edx+0000001Ch]
loc_0070687C: fnclex
loc_0070687E: mov var_C0, eax
loc_00706884: cmp var_C0, 00000000h
loc_0070688B: jge 007068B0h
loc_0070688D: push 0000001Ch
loc_0070688F: push 00447B68h
loc_00706894: mov eax, Me
loc_00706897: mov ecx, [eax+00000038h]
loc_0070689A: push ecx
loc_0070689B: mov edx, var_C0
loc_007068A1: push edx
loc_007068A2: call [004010CCh] ; __vbaHresultCheckObj
loc_007068A8: mov var_118, eax
loc_007068AE: jmp 007068BAh
loc_007068B0: mov var_118, 00000000h
loc_007068BA: lea edx, var_48
loc_007068BD: lea ecx, var_D8
loc_007068C3: call [00401180h] ; __vbaVarZero
loc_007068C9: lea eax, var_D8
loc_007068CF: mov var_E4, eax
loc_007068D5: mov var_4, 0000000Ah
loc_007068DC: cmp var_2C, 0001h
loc_007068E1: jnz 00706975h
loc_007068E7: mov var_4, 0000000Bh
loc_007068EE: mov ecx, Me
loc_007068F1: cmp [ecx+00000034h], 00000000h
loc_007068F5: jz 0070694Fh
loc_007068F7: mov edx, Me
loc_007068FA: mov eax, [edx+00000034h]
loc_007068FD: cmp [eax], 0001h
loc_00706901: jnz 0070694Fh
loc_00706903: movsx ecx, var_2C
loc_00706907: mov edx, Me
loc_0070690A: mov eax, [edx+00000034h]
loc_0070690D: sub ecx, [eax+00000014h]
loc_00706910: mov var_C0, ecx
loc_00706916: mov ecx, Me
loc_00706919: mov edx, [ecx+00000034h]
loc_0070691C: mov eax, var_C0
loc_00706922: cmp eax, [edx+00000010h]
loc_00706925: jae 00706933h
loc_00706927: mov var_11C, 00000000h
loc_00706931: jmp 0070693Fh
loc_00706933: call [004011A8h] ; __vbaGenerateBoundsError
loc_00706939: mov var_11C, eax
loc_0070693F: mov ecx, var_C0
loc_00706945: shl ecx, 01h
loc_00706947: mov var_120, ecx
loc_0070694D: jmp 0070695Bh
loc_0070694F: call [004011A8h] ; __vbaGenerateBoundsError
loc_00706955: mov var_120, eax
loc_0070695B: mov edx, Me
loc_0070695E: mov eax, [edx+00000034h]
loc_00706961: mov ecx, [eax+0000000Ch]
loc_00706964: mov edx, var_120
loc_0070696A: mov [ecx+edx], 0000h
loc_00706970: jmp 00706B57h
loc_00706975: mov var_4, 0000000Dh
loc_0070697C: mov eax, Me
loc_0070697F: cmp [eax+00000034h], 00000000h
loc_00706983: jz 007069EAh
loc_00706985: mov ecx, Me
loc_00706988: mov edx, [ecx+00000034h]
loc_0070698B: cmp [edx], 0001h
loc_0070698F: jnz 007069EAh
loc_00706991: mov ax, var_2C
loc_00706995: sub ax, 0001h
loc_00706999: jo 00706C3Fh
loc_0070699F: movsx ecx, ax
loc_007069A2: mov edx, Me
loc_007069A5: mov eax, [edx+00000034h]
loc_007069A8: sub ecx, [eax+00000014h]
loc_007069AB: mov var_C4, ecx
loc_007069B1: mov ecx, Me
loc_007069B4: mov edx, [ecx+00000034h]
loc_007069B7: mov eax, var_C4
loc_007069BD: cmp eax, [edx+00000010h]
loc_007069C0: jae 007069CEh
loc_007069C2: mov var_124, 00000000h
loc_007069CC: jmp 007069DAh
loc_007069CE: call [004011A8h] ; __vbaGenerateBoundsError
loc_007069D4: mov var_124, eax
loc_007069DA: mov ecx, var_C4
loc_007069E0: shl ecx, 01h
loc_007069E2: mov var_128, ecx
loc_007069E8: jmp 007069F6h
loc_007069EA: call [004011A8h] ; __vbaGenerateBoundsError
loc_007069F0: mov var_128, eax
loc_007069F6: mov edx, Me
loc_007069F9: mov eax, [edx+00000034h]
loc_007069FC: mov ecx, [eax+0000000Ch]
loc_007069FF: mov edx, var_128
loc_00706A05: mov ax, [ecx+edx]
loc_00706A09: mov var_90, ax
loc_00706A10: mov var_98, 00000002h
loc_00706A1A: mov cx, var_2C
loc_00706A1E: sub cx, 0001h
loc_00706A22: jo 00706C3Fh
loc_00706A28: mov var_40, cx
loc_00706A2C: mov var_48, 00000002h
loc_00706A33: lea edx, var_58
loc_00706A36: push edx
loc_00706A37: lea eax, var_48
loc_00706A3A: push eax
loc_00706A3B: mov ecx, Me
loc_00706A3E: mov edx, [ecx+00000038h]
loc_00706A41: mov eax, Me
loc_00706A44: mov ecx, [eax+00000038h]
loc_00706A47: mov eax, [ecx]
loc_00706A49: push edx
loc_00706A4A: call [eax+0000001Ch]
loc_00706A4D: fnclex
loc_00706A4F: mov var_C8, eax
loc_00706A55: cmp var_C8, 00000000h
loc_00706A5C: jge 00706A81h
loc_00706A5E: push 0000001Ch
loc_00706A60: push 00447B68h
loc_00706A65: mov ecx, Me
loc_00706A68: mov edx, [ecx+00000038h]
loc_00706A6B: push edx
loc_00706A6C: mov eax, var_C8
loc_00706A72: push eax
loc_00706A73: call [004010CCh] ; __vbaHresultCheckObj
loc_00706A79: mov var_12C, eax
loc_00706A7F: jmp 00706A8Bh
loc_00706A81: mov var_12C, 00000000h
loc_00706A8B: mov ecx, Me
loc_00706A8E: cmp [ecx+00000034h], 00000000h
loc_00706A92: jz 00706AECh
loc_00706A94: mov edx, Me
loc_00706A97: mov eax, [edx+00000034h]
loc_00706A9A: cmp [eax], 0001h
loc_00706A9E: jnz 00706AECh
loc_00706AA0: movsx ecx, var_2C
loc_00706AA4: mov edx, Me
loc_00706AA7: mov eax, [edx+00000034h]
loc_00706AAA: sub ecx, [eax+00000014h]
loc_00706AAD: mov var_C0, ecx
loc_00706AB3: mov ecx, Me
loc_00706AB6: mov edx, [ecx+00000034h]
loc_00706AB9: mov eax, var_C0
loc_00706ABF: cmp eax, [edx+00000010h]
loc_00706AC2: jae 00706AD0h
loc_00706AC4: mov var_130, 00000000h
loc_00706ACE: jmp 00706ADCh
loc_00706AD0: call [004011A8h] ; __vbaGenerateBoundsError
loc_00706AD6: mov var_130, eax
loc_00706ADC: mov ecx, var_C0
loc_00706AE2: shl ecx, 01h
loc_00706AE4: mov var_134, ecx
loc_00706AEA: jmp 00706AF8h
loc_00706AEC: call [004011A8h] ; __vbaGenerateBoundsError
loc_00706AF2: mov var_134, eax
loc_00706AF8: lea edx, var_98
loc_00706AFE: push edx
loc_00706AFF: push 00000000h
loc_00706B01: push 00447B88h ; "NumberOfWeeks"
loc_00706B06: lea eax, var_58
loc_00706B09: push eax
loc_00706B0A: lea ecx, var_68
loc_00706B0D: push ecx
loc_00706B0E: call [00401390h] ; __vbaVarLateMemCallLd
loc_00706B14: add esp, 00000010h
loc_00706B17: push eax
loc_00706B18: lea edx, var_78
loc_00706B1B: push edx
loc_00706B1C: call [0040135Ch] ; __vbaVarAdd
loc_00706B22: push eax
loc_00706B23: call [004012C0h] ; __vbaI2Var
loc_00706B29: mov ecx, Me
loc_00706B2C: mov edx, [ecx+00000034h]
loc_00706B2F: mov ecx, [edx+0000000Ch]
loc_00706B32: mov edx, var_134
loc_00706B38: mov [ecx+edx], ax
loc_00706B3C: lea eax, var_78
loc_00706B3F: push eax
loc_00706B40: lea ecx, var_68
loc_00706B43: push ecx
loc_00706B44: lea edx, var_58
loc_00706B47: push edx
loc_00706B48: lea eax, var_48
loc_00706B4B: push eax
loc_00706B4C: push 00000004h
loc_00706B4E: call [00401050h] ; __vbaFreeVarList
loc_00706B54: add esp, 00000014h
loc_00706B57: mov var_4, 0000000Fh
loc_00706B5E: mov var_E4, 00000000h
loc_00706B68: mov var_4, 00000010h
loc_00706B6F: jmp 00706822h
loc_00706B74: mov var_4, 00000011h
loc_00706B7B: cmp var_34, 00000000h
loc_00706B7F: jnz 00706B9Bh
loc_00706B81: lea ecx, var_34
loc_00706B84: push ecx
loc_00706B85: push 004139ECh
loc_00706B8A: call [004012FCh] ; __vbaNew2
loc_00706B90: lea edx, var_34
loc_00706B93: mov var_138, edx
loc_00706B99: jmp 00706BA4h
loc_00706B9B: lea eax, var_34
loc_00706B9E: mov var_138, eax
loc_00706BA4: mov ecx, var_138
loc_00706BAA: mov edx, [ecx]
loc_00706BAC: push edx
loc_00706BAD: lea eax, var_30
loc_00706BB0: push eax
loc_00706BB1: call [00401130h] ; __vbaObjSetAddref
loc_00706BB7: push 00706C15h
loc_00706BBC: jmp 00706BF6h
loc_00706BBE: mov ecx, var_10
loc_00706BC1: and ecx, 00000004h
loc_00706BC4: test ecx, ecx
loc_00706BC6: jz 00706BD1h
loc_00706BC8: lea ecx, var_30
loc_00706BCB: call [0040142Ch] ; __vbaFreeObj
loc_00706BD1: lea ecx, var_38
loc_00706BD4: call [0040142Ch] ; __vbaFreeObj
loc_00706BDA: lea edx, var_78
loc_00706BDD: push edx
loc_00706BDE: lea eax, var_68
loc_00706BE1: push eax
loc_00706BE2: lea ecx, var_58
loc_00706BE5: push ecx
loc_00706BE6: lea edx, var_48
loc_00706BE9: push edx
loc_00706BEA: push 00000004h
loc_00706BEC: call [00401050h] ; __vbaFreeVarList
loc_00706BF2: add esp, 00000014h
loc_00706BF5: ret
loc_00706BF6: lea ecx, var_D8
loc_00706BFC: call [00401030h] ; __vbaFreeVar
loc_00706C02: lea ecx, var_24
loc_00706C05: call [00401430h] ; __vbaFreeStr
loc_00706C0B: lea ecx, var_34
loc_00706C0E: call [0040142Ch] ; __vbaFreeObj
loc_00706C14: ret
loc_00706C15: mov eax, Me
loc_00706C18: mov ecx, [eax]
loc_00706C1A: mov edx, Me
loc_00706C1D: push edx
loc_00706C1E: call [ecx+00000008h]
loc_00706C21: mov eax, arg_14
loc_00706C24: mov ecx, var_30
loc_00706C27: mov [eax], ecx
loc_00706C29: mov eax, var_10
loc_00706C2C: mov ecx, var_20
loc_00706C2F: mov fs:[00000000h], ecx
loc_00706C36: pop edi
loc_00706C37: pop esi
loc_00706C38: pop ebx
loc_00706C39: mov esp, ebp
loc_00706C3B: pop ebp
loc_00706C3C: retn 0010h
End Function
Public Function NewEnum(arg_C) '706C50
loc_00706C50: push ebp
loc_00706C51: mov ebp, esp
loc_00706C53: sub esp, 0000000Ch
loc_00706C56: push 00412856h ; __vbaExceptHandler
loc_00706C5B: mov eax, fs:[00000000h]
loc_00706C61: push eax
loc_00706C62: mov fs:[00000000h], esp
loc_00706C69: sub esp, 00000014h
loc_00706C6C: push ebx
loc_00706C6D: push esi
loc_00706C6E: push edi
loc_00706C6F: mov var_C, esp
loc_00706C72: mov var_8, 004105B8h
loc_00706C79: xor edi, edi
loc_00706C7B: mov var_4, edi
loc_00706C7E: mov esi, Me
loc_00706C81: push esi
loc_00706C82: mov eax, [esi]
loc_00706C84: call [eax+00000004h]
loc_00706C87: mov ecx, arg_C
loc_00706C8A: mov var_18, edi
loc_00706C8D: mov var_1C, edi
loc_00706C90: mov [ecx], edi
loc_00706C92: mov eax, [esi+00000038h]
loc_00706C95: lea ecx, var_1C
loc_00706C98: mov edx, [eax]
loc_00706C9A: push ecx
loc_00706C9B: push eax
loc_00706C9C: call [edx+0000002Ch]
loc_00706C9F: cmp eax, edi
loc_00706CA1: fnclex
loc_00706CA3: jge 00706CB7h
loc_00706CA5: mov edx, [esi+00000038h]
loc_00706CA8: push 0000002Ch
loc_00706CAA: push 00447B68h
loc_00706CAF: push edx
loc_00706CB0: push eax
loc_00706CB1: call [004010CCh] ; __vbaHresultCheckObj
loc_00706CB7: mov eax, var_1C
loc_00706CBA: push 00447558h
loc_00706CBF: push eax
loc_00706CC0: call [004013C4h] ; __vbaCastObj
loc_00706CC6: lea ecx, var_18
loc_00706CC9: push eax
loc_00706CCA: push ecx
loc_00706CCB: call [00401128h] ; __vbaObjSet
loc_00706CD1: lea ecx, var_1C
loc_00706CD4: call [0040142Ch] ; __vbaFreeObj
loc_00706CDA: push 00706CFBh
loc_00706CDF: jmp 00706CFAh
loc_00706CE1: test var_4, 04h
loc_00706CE5: jz 00706CF0h
loc_00706CE7: lea ecx, var_18
loc_00706CEA: call [0040142Ch] ; __vbaFreeObj
loc_00706CF0: lea ecx, var_1C
loc_00706CF3: call [0040142Ch] ; __vbaFreeObj
loc_00706CF9: ret
loc_00706CFA: ret
loc_00706CFB: mov eax, Me
loc_00706CFE: push eax
loc_00706CFF: mov edx, [eax]
loc_00706D01: call [edx+00000008h]
loc_00706D04: mov eax, arg_C
loc_00706D07: mov ecx, var_18
loc_00706D0A: mov [eax], ecx
loc_00706D0C: mov eax, var_4
loc_00706D0F: mov ecx, var_14
loc_00706D12: pop edi
loc_00706D13: pop esi
loc_00706D14: mov fs:[00000000h], ecx
loc_00706D1B: pop ebx
loc_00706D1C: mov esp, ebp
loc_00706D1E: pop ebp
loc_00706D1F: retn 0008h
End Function
Public Sub Remove(index) '706D30
loc_00706D30: push ebp
loc_00706D31: mov ebp, esp
loc_00706D33: sub esp, 00000018h
loc_00706D36: push 00412856h ; __vbaExceptHandler
loc_00706D3B: mov eax, fs:[00000000h]
loc_00706D41: push eax
loc_00706D42: mov fs:[00000000h], esp
loc_00706D49: mov eax, 0000001Ch
loc_00706D4E: call 00412850h ; __vbaChkstk
loc_00706D53: push ebx
loc_00706D54: push esi
loc_00706D55: push edi
loc_00706D56: mov var_18, esp
loc_00706D59: mov var_14, 004105C8h
loc_00706D60: mov var_10, 00000000h
loc_00706D67: mov var_C, 00000000h
loc_00706D6E: mov eax, Me
loc_00706D71: mov ecx, [eax]
loc_00706D73: mov edx, Me
loc_00706D76: push edx
loc_00706D77: call [ecx+00000004h]
loc_00706D7A: mov var_4, 00000001h
loc_00706D81: mov var_4, 00000002h
loc_00706D88: push FFFFFFFFh
loc_00706D8A: call [00401124h] ; __vbaOnError
loc_00706D90: mov var_4, 00000003h
loc_00706D97: mov eax, index
loc_00706D9A: push eax
loc_00706D9B: mov ecx, Me
loc_00706D9E: mov edx, [ecx+00000038h]
loc_00706DA1: mov eax, Me
loc_00706DA4: mov ecx, [eax+00000038h]
loc_00706DA7: mov eax, [ecx]
loc_00706DA9: push edx
loc_00706DAA: call [eax+00000028h]
loc_00706DAD: fnclex
loc_00706DAF: mov var_24, eax
loc_00706DB2: cmp var_24, 00000000h
loc_00706DB6: jge 00706DD5h
loc_00706DB8: push 00000028h
loc_00706DBA: push 00447B68h
loc_00706DBF: mov ecx, Me
loc_00706DC2: mov edx, [ecx+00000038h]
loc_00706DC5: push edx
loc_00706DC6: mov eax, var_24
loc_00706DC9: push eax
loc_00706DCA: call [004010CCh] ; __vbaHresultCheckObj
loc_00706DD0: mov var_3C, eax
loc_00706DD3: jmp 00706DDCh
loc_00706DD5: mov var_3C, 00000000h
loc_00706DDC: mov ecx, Me
loc_00706DDF: mov edx, [ecx]
loc_00706DE1: mov eax, Me
loc_00706DE4: push eax
loc_00706DE5: call [edx+00000008h]
loc_00706DE8: mov eax, var_10
loc_00706DEB: mov ecx, var_20
loc_00706DEE: mov fs:[00000000h], ecx
loc_00706DF5: pop edi
loc_00706DF6: pop esi
loc_00706DF7: pop ebx
loc_00706DF8: mov esp, ebp
loc_00706DFA: pop ebp
loc_00706DFB: retn 0008h
End Sub
Public Function Item(index) '706E00
loc_00706E00: push ebp
loc_00706E01: mov ebp, esp
loc_00706E03: sub esp, 00000018h
loc_00706E06: push 00412856h ; __vbaExceptHandler
loc_00706E0B: mov eax, fs:[00000000h]
loc_00706E11: push eax
loc_00706E12: mov fs:[00000000h], esp
loc_00706E19: mov eax, 00000030h
loc_00706E1E: call 00412850h ; __vbaChkstk
loc_00706E23: push ebx
loc_00706E24: push esi
loc_00706E25: push edi
loc_00706E26: mov var_18, esp
loc_00706E29: mov var_14, 004105F8h ; "-"
loc_00706E30: mov var_10, 00000000h
loc_00706E37: mov var_C, 00000000h
loc_00706E3E: mov eax, Me
loc_00706E41: mov ecx, [eax]
loc_00706E43: mov edx, Me
loc_00706E46: push edx
loc_00706E47: call [ecx+00000004h]
loc_00706E4A: mov var_4, 00000001h
loc_00706E51: mov eax, arg_10
loc_00706E54: mov [eax], 00000000h
loc_00706E5A: mov var_4, 00000002h
loc_00706E61: push FFFFFFFFh
loc_00706E63: call [00401124h] ; __vbaOnError
loc_00706E69: mov var_4, 00000003h
loc_00706E70: lea ecx, var_34
loc_00706E73: push ecx
loc_00706E74: mov edx, index
loc_00706E77: push edx
loc_00706E78: mov eax, Me
loc_00706E7B: mov ecx, [eax+00000038h]
loc_00706E7E: mov edx, Me
loc_00706E81: mov eax, [edx+00000038h]
loc_00706E84: mov edx, [eax]
loc_00706E86: push ecx
loc_00706E87: call [edx+0000001Ch]
loc_00706E8A: fnclex
loc_00706E8C: mov var_38, eax
loc_00706E8F: cmp var_38, 00000000h
loc_00706E93: jge 00706EB2h
loc_00706E95: push 0000001Ch
loc_00706E97: push 00447B68h
loc_00706E9C: mov eax, Me
loc_00706E9F: mov ecx, [eax+00000038h]
loc_00706EA2: push ecx
loc_00706EA3: mov edx, var_38
loc_00706EA6: push edx
loc_00706EA7: call [004010CCh] ; __vbaHresultCheckObj
loc_00706EAD: mov var_50, eax
loc_00706EB0: jmp 00706EB9h
loc_00706EB2: mov var_50, 00000000h
loc_00706EB9: push 00446E9Ch
loc_00706EBE: lea eax, var_34
loc_00706EC1: push eax
loc_00706EC2: call [004011F8h] ; __vbaCastObjVar
loc_00706EC8: push eax
loc_00706EC9: lea ecx, var_24
loc_00706ECC: push ecx
loc_00706ECD: call [00401128h] ; __vbaObjSet
loc_00706ED3: lea ecx, var_34
loc_00706ED6: call [00401030h] ; __vbaFreeVar
loc_00706EDC: push 00706F01h
loc_00706EE1: jmp 00706F00h
loc_00706EE3: mov edx, var_10
loc_00706EE6: and edx, 00000004h
loc_00706EE9: test edx, edx
loc_00706EEB: jz 00706EF6h
loc_00706EED: lea ecx, var_24
loc_00706EF0: call [0040142Ch] ; __vbaFreeObj
loc_00706EF6: lea ecx, var_34
loc_00706EF9: call [00401030h] ; __vbaFreeVar
loc_00706EFF: ret
loc_00706F00: ret
loc_00706F01: mov eax, Me
loc_00706F04: mov ecx, [eax]
loc_00706F06: mov edx, Me
loc_00706F09: push edx
loc_00706F0A: call [ecx+00000008h]
loc_00706F0D: mov eax, arg_10
loc_00706F10: mov ecx, var_24
loc_00706F13: mov [eax], ecx
loc_00706F15: mov eax, var_10
loc_00706F18: mov ecx, var_20
loc_00706F1B: mov fs:[00000000h], ecx
loc_00706F22: pop edi
loc_00706F23: pop esi
loc_00706F24: pop ebx
loc_00706F25: mov esp, ebp
loc_00706F27: pop ebp
loc_00706F28: retn 000Ch
End Function
Public Property Get Count(arg_C) '706F30
loc_00706F30: push ebp
loc_00706F31: mov ebp, esp
loc_00706F33: sub esp, 0000000Ch
loc_00706F36: push 00412856h ; __vbaExceptHandler
loc_00706F3B: mov eax, fs:[00000000h]
loc_00706F41: push eax
loc_00706F42: mov fs:[00000000h], esp
loc_00706F49: sub esp, 00000014h
loc_00706F4C: push ebx
loc_00706F4D: push esi
loc_00706F4E: push edi
loc_00706F4F: mov var_C, esp
loc_00706F52: mov var_8, 00410628h
loc_00706F59: xor edi, edi
loc_00706F5B: mov var_4, edi
loc_00706F5E: mov esi, Me
loc_00706F61: push esi
loc_00706F62: mov eax, [esi]
loc_00706F64: call [eax+00000004h]
loc_00706F67: mov eax, [esi+00000038h]
loc_00706F6A: lea edx, var_1C
loc_00706F6D: mov var_1C, edi
loc_00706F70: push edx
loc_00706F71: mov ecx, [eax]
loc_00706F73: push eax
loc_00706F74: mov var_18, edi
loc_00706F77: call [ecx+00000024h]
loc_00706F7A: cmp eax, edi
loc_00706F7C: fnclex
loc_00706F7E: jge 00706F92h
loc_00706F80: mov ecx, [esi+00000038h]
loc_00706F83: push 00000024h
loc_00706F85: push 00447B68h
loc_00706F8A: push ecx
loc_00706F8B: push eax
loc_00706F8C: call [004010CCh] ; __vbaHresultCheckObj
loc_00706F92: mov edx, var_1C
loc_00706F95: mov var_18, edx
loc_00706F98: mov eax, Me
loc_00706F9B: push eax
loc_00706F9C: mov ecx, [eax]
loc_00706F9E: call [ecx+00000008h]
loc_00706FA1: mov edx, arg_C
loc_00706FA4: mov eax, var_18
loc_00706FA7: mov [edx], eax
loc_00706FA9: mov eax, var_4
loc_00706FAC: mov ecx, var_14
loc_00706FAF: pop edi
loc_00706FB0: pop esi
loc_00706FB1: mov fs:[00000000h], ecx
loc_00706FB8: pop ebx
loc_00706FB9: mov esp, ebp
loc_00706FBB: pop ebp
loc_00706FBC: retn 0008h
End Sub
Public Function WeeksFromFirstOfYear(iIndex) '706FC0
loc_00706FC0: push ebp
loc_00706FC1: mov ebp, esp
loc_00706FC3: sub esp, 0000000Ch
loc_00706FC6: push 00412856h ; __vbaExceptHandler
loc_00706FCB: mov eax, fs:[00000000h]
loc_00706FD1: push eax
loc_00706FD2: mov fs:[00000000h], esp
loc_00706FD9: sub esp, 0000002Ch
loc_00706FDC: push ebx
loc_00706FDD: push esi
loc_00706FDE: push edi
loc_00706FDF: mov var_C, esp
loc_00706FE2: mov var_8, 00410630h
loc_00706FE9: xor esi, esi
loc_00706FEB: mov var_4, esi
loc_00706FEE: mov edi, Me
loc_00706FF1: push edi
loc_00706FF2: mov eax, [edi]
loc_00706FF4: call [eax+00000004h]
loc_00706FF7: mov ecx, arg_10
loc_00706FFA: mov bx, iIndex
loc_00706FFE: mov var_24, esi
loc_00707001: mov var_34, esi
loc_00707004: mov [ecx], esi
loc_00707006: mov edx, [edi+00000034h]
loc_00707009: push edx
loc_0070700A: push 00000001h
loc_0070700C: movsx esi, bx
loc_0070700F: call [004012A4h] ; __vbaUbound
loc_00707015: cmp esi, eax
loc_00707017: jg 00707069h
loc_00707019: test bx, bx
loc_0070701C: jle 00707069h
loc_0070701E: mov eax, [edi+00000034h]
loc_00707021: test eax, eax
loc_00707023: jz 00707042h
loc_00707025: cmp [eax], 0001h
loc_00707029: jnz 00707042h
loc_0070702B: mov edx, [eax+00000014h]
loc_0070702E: mov ecx, [eax+00000010h]
loc_00707031: sub esi, edx
loc_00707033: cmp esi, ecx
loc_00707035: jb 0070703Dh
loc_00707037: call [004011A8h] ; __vbaGenerateBoundsError
loc_0070703D: lea eax, [esi+esi]
loc_00707040: jmp 00707048h
loc_00707042: call [004011A8h] ; __vbaGenerateBoundsError
loc_00707048: mov ecx, [edi+00000034h]
loc_0070704B: mov edx, [ecx+0000000Ch]
loc_0070704E: lea ecx, var_24
loc_00707051: mov ax, [edx+eax]
loc_00707055: lea edx, var_34
loc_00707058: mov var_2C, ax
loc_0070705C: mov var_34, 00000002h
loc_00707063: call [00401020h] ; __vbaVarMove
loc_00707069: push 0070707Bh
loc_0070706E: jmp 0070707Ah
loc_00707070: lea ecx, var_24
loc_00707073: call [00401030h] ; __vbaFreeVar
loc_00707079: ret
loc_0070707A: ret
loc_0070707B: mov eax, Me
loc_0070707E: push eax
loc_0070707F: mov ecx, [eax]
loc_00707081: call [ecx+00000008h]
loc_00707084: mov edx, arg_10
loc_00707087: mov eax, var_24
loc_0070708A: mov ecx, var_20
loc_0070708D: mov [edx], eax
loc_0070708F: mov eax, var_1C
loc_00707092: mov [edx+00000004h], ecx
loc_00707095: mov ecx, var_18
loc_00707098: mov [edx+00000008h], eax
loc_0070709B: mov [edx+0000000Ch], ecx
loc_0070709E: mov eax, var_4
loc_007070A1: mov ecx, var_14
loc_007070A4: pop edi
loc_007070A5: pop esi
loc_007070A6: mov fs:[00000000h], ecx
loc_007070AD: pop ebx
loc_007070AE: mov esp, ebp
loc_007070B0: pop ebp
loc_007070B1: retn 000Ch
End Function
Private Sub Proc_57_6_706400
loc_00706400: push ebp
loc_00706401: mov ebp, esp
loc_00706403: sub esp, 0000000Ch
loc_00706406: push 00412856h ; __vbaExceptHandler
loc_0070640B: mov eax, fs:[00000000h]
loc_00706411: push eax
loc_00706412: mov fs:[00000000h], esp
loc_00706419: sub esp, 0000000Ch
loc_0070641C: push ebx
loc_0070641D: push esi
loc_0070641E: push edi
loc_0070641F: mov var_C, esp
loc_00706422: mov var_8, 00410540h
loc_00706429: mov esi, Me
loc_0070642C: mov eax, esi
loc_0070642E: and eax, 00000001h
loc_00706431: mov var_4, eax
loc_00706434: and esi, FFFFFFFEh
loc_00706437: push esi
loc_00706438: mov Me, esi
loc_0070643B: mov ecx, [esi]
loc_0070643D: call [ecx+00000004h]
loc_00706440: xor edi, edi
loc_00706442: push 00447B78h
loc_00706447: mov var_18, edi
loc_0070644A: call [0040122Ch] ; __vbaNew
loc_00706450: lea edx, var_18
loc_00706453: push eax
loc_00706454: push edx
loc_00706455: call [00401128h] ; __vbaObjSet
loc_0070645B: add esi, 00000038h
loc_0070645E: push eax
loc_0070645F: push esi
loc_00706460: call [00401130h] ; __vbaObjSetAddref
loc_00706466: lea ecx, var_18
loc_00706469: call [0040142Ch] ; __vbaFreeObj
loc_0070646F: mov var_4, edi
loc_00706472: push 00706484h
loc_00706477: jmp 00706483h
loc_00706479: lea ecx, var_18
loc_0070647C: call [0040142Ch] ; __vbaFreeObj
loc_00706482: ret
loc_00706483: ret
loc_00706484: mov eax, Me
loc_00706487: push eax
loc_00706488: mov ecx, [eax]
loc_0070648A: call [ecx+00000008h]
loc_0070648D: mov eax, var_4
loc_00706490: mov ecx, var_14
loc_00706493: pop edi
loc_00706494: pop esi
loc_00706495: mov fs:[00000000h], ecx
loc_0070649C: pop ebx
loc_0070649D: mov esp, ebp
loc_0070649F: pop ebp
loc_007064A0: retn 0004h
End Sub

1726
Src Code/CCalendarVBVars.cls
File diff suppressed because it is too large
View File

4320
Src Code/CDraw.cls
File diff suppressed because it is too large
View File

1075
Src Code/CMemoryDC.cls
File diff suppressed because it is too large
View File

188
Src Code/CPeriod.cls
View File

@ -0,0 +1,188 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CPeriod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Get Name(Index As Integer) '5FAAE0
loc_005FAAE0: push ebp
loc_005FAAE1: mov ebp, esp
loc_005FAAE3: sub esp, 0000000Ch
loc_005FAAE6: push 00412856h ; __vbaExceptHandler
loc_005FAAEB: mov eax, fs:[00000000h]
loc_005FAAF1: push eax
loc_005FAAF2: mov fs:[00000000h], esp
loc_005FAAF9: sub esp, 0000000Ch
loc_005FAAFC: push ebx
loc_005FAAFD: push esi
loc_005FAAFE: push edi
loc_005FAAFF: mov var_C, esp
loc_005FAB02: mov var_8, 00403D38h
loc_005FAB09: xor edi, edi
loc_005FAB0B: mov var_4, edi
loc_005FAB0E: mov esi, Me
loc_005FAB11: push esi
loc_005FAB12: mov eax, [esi]
loc_005FAB14: call [eax+00000004h]
loc_005FAB17: mov ecx, Index
loc_005FAB1A: mov var_18, edi
loc_005FAB1D: mov [ecx], edi
loc_005FAB1F: mov edx, [esi+00000038h]
loc_005FAB22: lea ecx, var_18
loc_005FAB25: call [00401310h] ; __vbaStrCopy
loc_005FAB2B: push 005FAB3Dh
loc_005FAB30: jmp 005FAB3Ch
loc_005FAB32: lea ecx, var_18
loc_005FAB35: call [00401430h] ; __vbaFreeStr
loc_005FAB3B: ret
loc_005FAB3C: ret
loc_005FAB3D: mov eax, Me
loc_005FAB40: push eax
loc_005FAB41: mov edx, [eax]
loc_005FAB43: call [edx+00000008h]
loc_005FAB46: mov eax, Index
loc_005FAB49: mov ecx, var_18
loc_005FAB4C: mov [eax], ecx
loc_005FAB4E: mov eax, var_4
loc_005FAB51: mov ecx, var_14
loc_005FAB54: pop edi
loc_005FAB55: pop esi
loc_005FAB56: mov fs:[00000000h], ecx
loc_005FAB5D: pop ebx
loc_005FAB5E: mov esp, ebp
loc_005FAB60: pop ebp
loc_005FAB61: retn 0008h
End Sub
Public Property Let Name(sName) '5FAB70
loc_005FAB70: push ebp
loc_005FAB71: mov ebp, esp
loc_005FAB73: sub esp, 0000000Ch
loc_005FAB76: push 00412856h ; __vbaExceptHandler
loc_005FAB7B: mov eax, fs:[00000000h]
loc_005FAB81: push eax
loc_005FAB82: mov fs:[00000000h], esp
loc_005FAB89: sub esp, 0000000Ch
loc_005FAB8C: push ebx
loc_005FAB8D: push esi
loc_005FAB8E: push edi
loc_005FAB8F: mov var_C, esp
loc_005FAB92: mov var_8, 00403D48h
loc_005FAB99: xor edi, edi
loc_005FAB9B: mov var_4, edi
loc_005FAB9E: mov esi, Me
loc_005FABA1: push esi
loc_005FABA2: mov eax, [esi]
loc_005FABA4: call [eax+00000004h]
loc_005FABA7: mov edx, sName
loc_005FABAA: mov var_18, edi
loc_005FABAD: mov edi, [00401310h] ; __vbaStrCopy
loc_005FABB3: lea ecx, var_18
loc_005FABB6: call edi
loc_005FABB8: mov edx, var_18
loc_005FABBB: lea ecx, [esi+00000038h]
loc_005FABBE: call edi
loc_005FABC0: push 005FABCFh
loc_005FABC5: lea ecx, var_18
loc_005FABC8: call [00401430h] ; __vbaFreeStr
loc_005FABCE: ret
loc_005FABCF: mov eax, Me
loc_005FABD2: push eax
loc_005FABD3: mov ecx, [eax]
loc_005FABD5: call [ecx+00000008h]
loc_005FABD8: mov eax, var_4
loc_005FABDB: mov ecx, var_14
loc_005FABDE: pop edi
loc_005FABDF: pop esi
loc_005FABE0: mov fs:[00000000h], ecx
loc_005FABE7: pop ebx
loc_005FABE8: mov esp, ebp
loc_005FABEA: pop ebp
loc_005FABEB: retn 0008h
End Sub
Public Property Get NumberOfWeeks(arg_C) '5FABF0
loc_005FABF0: push ebp
loc_005FABF1: mov ebp, esp
loc_005FABF3: sub esp, 0000000Ch
loc_005FABF6: push 00412856h ; __vbaExceptHandler
loc_005FABFB: mov eax, fs:[00000000h]
loc_005FAC01: push eax
loc_005FAC02: mov fs:[00000000h], esp
loc_005FAC09: sub esp, 0000000Ch
loc_005FAC0C: push ebx
loc_005FAC0D: push esi
loc_005FAC0E: push edi
loc_005FAC0F: mov var_C, esp
loc_005FAC12: mov var_8, 00403D58h
loc_005FAC19: xor edi, edi
loc_005FAC1B: mov var_4, edi
loc_005FAC1E: mov esi, Me
loc_005FAC21: push esi
loc_005FAC22: mov eax, [esi]
loc_005FAC24: call [eax+00000004h]
loc_005FAC27: mov cx, [esi+00000034h]
loc_005FAC2B: mov var_18, edi
loc_005FAC2E: mov var_18, ecx
loc_005FAC31: mov eax, Me
loc_005FAC34: push eax
loc_005FAC35: mov edx, [eax]
loc_005FAC37: call [edx+00000008h]
loc_005FAC3A: mov eax, arg_C
loc_005FAC3D: mov cx, var_18
loc_005FAC41: mov [eax], cx
loc_005FAC44: mov eax, var_4
loc_005FAC47: mov ecx, var_14
loc_005FAC4A: pop edi
loc_005FAC4B: pop esi
loc_005FAC4C: mov fs:[00000000h], ecx
loc_005FAC53: pop ebx
loc_005FAC54: mov esp, ebp
loc_005FAC56: pop ebp
loc_005FAC57: retn 0008h
End Sub
Public Property Let NumberOfWeeks(nNumberOfWeeks) '5FAC60
loc_005FAC60: push ebp
loc_005FAC61: mov ebp, esp
loc_005FAC63: sub esp, 0000000Ch
loc_005FAC66: push 00412856h ; __vbaExceptHandler
loc_005FAC6B: mov eax, fs:[00000000h]
loc_005FAC71: push eax
loc_005FAC72: mov fs:[00000000h], esp
loc_005FAC79: sub esp, 00000008h
loc_005FAC7C: push ebx
loc_005FAC7D: push esi
loc_005FAC7E: push edi
loc_005FAC7F: mov var_C, esp
loc_005FAC82: mov var_8, 00403D60h
loc_005FAC89: mov var_4, 00000000h
loc_005FAC90: mov esi, Me
loc_005FAC93: push esi
loc_005FAC94: mov eax, [esi]
loc_005FAC96: call [eax+00000004h]
loc_005FAC99: mov cx, nNumberOfWeeks
loc_005FAC9D: mov [esi+00000034h], cx
loc_005FACA1: mov eax, Me
loc_005FACA4: push eax
loc_005FACA5: mov edx, [eax]
loc_005FACA7: call [edx+00000008h]
loc_005FACAA: mov eax, var_4
loc_005FACAD: mov ecx, var_14
loc_005FACB0: pop edi
loc_005FACB1: pop esi
loc_005FACB2: mov fs:[00000000h], ecx
loc_005FACB9: pop ebx
loc_005FACBA: mov esp, ebp
loc_005FACBC: pop ebp
loc_005FACBD: retn 0008h
End Sub

949
Src Code/CPeriods.cls
View File

@ -0,0 +1,949 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CPeriods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function Add(sName, nNumberOfWeeks) '5FAD70
loc_005FAD70: push ebp
loc_005FAD71: mov ebp, esp
loc_005FAD73: sub esp, 00000018h
loc_005FAD76: push 00412856h ; __vbaExceptHandler
loc_005FAD7B: mov eax, fs:[00000000h]
loc_005FAD81: push eax
loc_005FAD82: mov fs:[00000000h], esp
loc_005FAD89: mov eax, 00000118h
loc_005FAD8E: call 00412850h ; __vbaChkstk
loc_005FAD93: push ebx
loc_005FAD94: push esi
loc_005FAD95: push edi
loc_005FAD96: mov var_18, esp
loc_005FAD99: mov var_14, 00403D78h ; "/"
loc_005FADA0: mov var_10, 00000000h
loc_005FADA7: mov var_C, 00000000h
loc_005FADAE: mov eax, Me
loc_005FADB1: mov ecx, [eax]
loc_005FADB3: mov edx, Me
loc_005FADB6: push edx
loc_005FADB7: call [ecx+00000004h]
loc_005FADBA: mov var_4, 00000001h
loc_005FADC1: mov edx, sName
loc_005FADC4: lea ecx, var_24
loc_005FADC7: call [00401310h] ; __vbaStrCopy
loc_005FADCD: mov eax, arg_14
loc_005FADD0: mov [eax], 00000000h
loc_005FADD6: mov var_4, 00000002h
loc_005FADDD: push FFFFFFFFh
loc_005FADDF: call [00401124h] ; __vbaOnError
loc_005FADE5: mov var_4, 00000003h
loc_005FADEC: cmp var_34, 00000000h
loc_005FADF0: jnz 005FAE0Ch
loc_005FADF2: lea ecx, var_34
loc_005FADF5: push ecx
loc_005FADF6: push 00413AF8h
loc_005FADFB: call [004012FCh] ; __vbaNew2
loc_005FAE01: lea edx, var_34
loc_005FAE04: mov var_FC, edx
loc_005FAE0A: jmp 005FAE15h
loc_005FAE0C: lea eax, var_34
loc_005FAE0F: mov var_FC, eax
loc_005FAE15: mov ecx, var_FC
loc_005FAE1B: mov edx, [ecx]
loc_005FAE1D: mov var_C0, edx
loc_005FAE23: mov eax, var_24
loc_005FAE26: push eax
loc_005FAE27: mov ecx, var_C0
loc_005FAE2D: mov edx, [ecx]
loc_005FAE2F: mov eax, var_C0
loc_005FAE35: push eax
loc_005FAE36: call [edx+00000020h]
loc_005FAE39: fnclex
loc_005FAE3B: mov var_C4, eax
loc_005FAE41: cmp var_C4, 00000000h
loc_005FAE48: jge 005FAE6Dh
loc_005FAE4A: push 00000020h
loc_005FAE4C: push 00447B04h
loc_005FAE51: mov ecx, var_C0
loc_005FAE57: push ecx
loc_005FAE58: mov edx, var_C4
loc_005FAE5E: push edx
loc_005FAE5F: call [004010CCh] ; __vbaHresultCheckObj
loc_005FAE65: mov var_100, eax
loc_005FAE6B: jmp 005FAE77h
loc_005FAE6D: mov var_100, 00000000h
loc_005FAE77: mov var_4, 00000004h
loc_005FAE7E: cmp var_34, 00000000h
loc_005FAE82: jnz 005FAE9Eh
loc_005FAE84: lea eax, var_34
loc_005FAE87: push eax
loc_005FAE88: push 00413AF8h
loc_005FAE8D: call [004012FCh] ; __vbaNew2
loc_005FAE93: lea ecx, var_34
loc_005FAE96: mov var_104, ecx
loc_005FAE9C: jmp 005FAEA7h
loc_005FAE9E: lea edx, var_34
loc_005FAEA1: mov var_104, edx
loc_005FAEA7: mov eax, var_104
loc_005FAEAD: mov ecx, [eax]
loc_005FAEAF: mov var_C0, ecx
loc_005FAEB5: mov dx, nNumberOfWeeks
loc_005FAEB9: push edx
loc_005FAEBA: mov eax, var_C0
loc_005FAEC0: mov ecx, [eax]
loc_005FAEC2: mov edx, var_C0
loc_005FAEC8: push edx
loc_005FAEC9: call [ecx+00000028h]
loc_005FAECC: fnclex
loc_005FAECE: mov var_C4, eax
loc_005FAED4: cmp var_C4, 00000000h
loc_005FAEDB: jge 005FAF00h
loc_005FAEDD: push 00000028h
loc_005FAEDF: push 00447B04h
loc_005FAEE4: mov eax, var_C0
loc_005FAEEA: push eax
loc_005FAEEB: mov ecx, var_C4
loc_005FAEF1: push ecx
loc_005FAEF2: call [004010CCh] ; __vbaHresultCheckObj
loc_005FAEF8: mov var_108, eax
loc_005FAEFE: jmp 005FAF0Ah
loc_005FAF00: mov var_108, 00000000h
loc_005FAF0A: mov var_4, 00000005h
loc_005FAF11: mov var_50, 80020004h
loc_005FAF18: mov var_58, 0000000Ah
loc_005FAF1F: mov var_40, 80020004h
loc_005FAF26: mov var_48, 0000000Ah
loc_005FAF2D: lea edx, var_24
loc_005FAF30: mov var_90, edx
loc_005FAF36: mov var_98, 00004008h
loc_005FAF40: cmp var_34, 00000000h
loc_005FAF44: jnz 005FAF60h
loc_005FAF46: lea eax, var_34
loc_005FAF49: push eax
loc_005FAF4A: push 00413AF8h
loc_005FAF4F: call [004012FCh] ; __vbaNew2
loc_005FAF55: lea ecx, var_34
loc_005FAF58: mov var_10C, ecx
loc_005FAF5E: jmp 005FAF69h
loc_005FAF60: lea edx, var_34
loc_005FAF63: mov var_10C, edx
loc_005FAF69: mov eax, var_10C
loc_005FAF6F: mov ecx, [eax]
loc_005FAF71: push ecx
loc_005FAF72: lea edx, var_38
loc_005FAF75: push edx
loc_005FAF76: call [00401130h] ; __vbaObjSetAddref
loc_005FAF7C: lea eax, var_38
loc_005FAF7F: mov var_80, eax
loc_005FAF82: mov var_88, 00004009h
loc_005FAF8C: lea ecx, var_58
loc_005FAF8F: push ecx
loc_005FAF90: lea edx, var_48
loc_005FAF93: push edx
loc_005FAF94: lea eax, var_98
loc_005FAF9A: push eax
loc_005FAF9B: lea ecx, var_88
loc_005FAFA1: push ecx
loc_005FAFA2: mov edx, Me
loc_005FAFA5: mov eax, [edx+00000038h]
loc_005FAFA8: mov ecx, Me
loc_005FAFAB: mov edx, [ecx+00000038h]
loc_005FAFAE: mov ecx, [edx]
loc_005FAFB0: push eax
loc_005FAFB1: call [ecx+00000020h]
loc_005FAFB4: fnclex
loc_005FAFB6: mov var_C0, eax
loc_005FAFBC: cmp var_C0, 00000000h
loc_005FAFC3: jge 005FAFE8h
loc_005FAFC5: push 00000020h
loc_005FAFC7: push 00447B68h
loc_005FAFCC: mov edx, Me
loc_005FAFCF: mov eax, [edx+00000038h]
loc_005FAFD2: push eax
loc_005FAFD3: mov ecx, var_C0
loc_005FAFD9: push ecx
loc_005FAFDA: call [004010CCh] ; __vbaHresultCheckObj
loc_005FAFE0: mov var_110, eax
loc_005FAFE6: jmp 005FAFF2h
loc_005FAFE8: mov var_110, 00000000h
loc_005FAFF2: push 00447B04h
loc_005FAFF7: mov edx, var_38
loc_005FAFFA: push edx
loc_005FAFFB: call [004013C4h] ; __vbaCastObj
loc_005FB001: push eax
loc_005FB002: lea eax, var_34
loc_005FB005: push eax
loc_005FB006: call [00401128h] ; __vbaObjSet
loc_005FB00C: lea ecx, var_38
loc_005FB00F: call [0040142Ch] ; __vbaFreeObj
loc_005FB015: lea ecx, var_58
loc_005FB018: push ecx
loc_005FB019: lea edx, var_48
loc_005FB01C: push edx
loc_005FB01D: push 00000002h
loc_005FB01F: call [00401050h] ; __vbaFreeVarList
loc_005FB025: add esp, 0000000Ch
loc_005FB028: mov var_4, 00000006h
loc_005FB02F: lea eax, var_BC
loc_005FB035: push eax
loc_005FB036: mov ecx, Me
loc_005FB039: mov edx, [ecx+00000038h]
loc_005FB03C: mov eax, Me
loc_005FB03F: mov ecx, [eax+00000038h]
loc_005FB042: mov eax, [ecx]
loc_005FB044: push edx
loc_005FB045: call [eax+00000024h]
loc_005FB048: fnclex
loc_005FB04A: mov var_C0, eax
loc_005FB050: cmp var_C0, 00000000h
loc_005FB057: jge 005FB07Ch
loc_005FB059: push 00000024h
loc_005FB05B: push 00447B68h
loc_005FB060: mov ecx, Me
loc_005FB063: mov edx, [ecx+00000038h]
loc_005FB066: push edx
loc_005FB067: mov eax, var_C0
loc_005FB06D: push eax
loc_005FB06E: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB074: mov var_114, eax
loc_005FB07A: jmp 005FB086h
loc_005FB07C: mov var_114, 00000000h
loc_005FB086: mov ecx, var_BC
loc_005FB08C: call [004011E4h] ; __vbaI2I4
loc_005FB092: mov var_28, ax
loc_005FB096: mov var_4, 00000007h
loc_005FB09D: push 00000001h
loc_005FB09F: movsx ecx, var_28
loc_005FB0A3: push ecx
loc_005FB0A4: push 00000001h
loc_005FB0A6: push 00000002h
loc_005FB0A8: mov edx, Me
loc_005FB0AB: add edx, 00000034h
loc_005FB0AE: push edx
loc_005FB0AF: push 00000002h
loc_005FB0B1: push 00000080h
loc_005FB0B6: call [00401220h] ; __vbaRedim
loc_005FB0BC: add esp, 0000001Ch
loc_005FB0BF: mov var_4, 00000008h
loc_005FB0C6: mov ax, var_28
loc_005FB0CA: mov var_E0, ax
loc_005FB0D1: mov var_DC, 0001h
loc_005FB0DA: mov var_2C, 0001h
loc_005FB0E0: jmp 005FB0F7h
loc_005FB0E2: mov cx, var_2C
loc_005FB0E6: add cx, var_DC
loc_005FB0ED: jo 005FB4FFh
loc_005FB0F3: mov var_2C, cx
loc_005FB0F7: mov dx, var_2C
loc_005FB0FB: cmp dx, var_E0
loc_005FB102: jg 005FB434h
loc_005FB108: mov var_4, 00000009h
loc_005FB10F: lea eax, var_2C
loc_005FB112: mov var_80, eax
loc_005FB115: mov var_88, 00004002h
loc_005FB11F: lea ecx, var_48
loc_005FB122: push ecx
loc_005FB123: lea edx, var_88
loc_005FB129: push edx
loc_005FB12A: mov eax, Me
loc_005FB12D: mov ecx, [eax+00000038h]
loc_005FB130: mov edx, Me
loc_005FB133: mov eax, [edx+00000038h]
loc_005FB136: mov edx, [eax]
loc_005FB138: push ecx
loc_005FB139: call [edx+0000001Ch]
loc_005FB13C: fnclex
loc_005FB13E: mov var_C0, eax
loc_005FB144: cmp var_C0, 00000000h
loc_005FB14B: jge 005FB170h
loc_005FB14D: push 0000001Ch
loc_005FB14F: push 00447B68h
loc_005FB154: mov eax, Me
loc_005FB157: mov ecx, [eax+00000038h]
loc_005FB15A: push ecx
loc_005FB15B: mov edx, var_C0
loc_005FB161: push edx
loc_005FB162: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB168: mov var_118, eax
loc_005FB16E: jmp 005FB17Ah
loc_005FB170: mov var_118, 00000000h
loc_005FB17A: lea edx, var_48
loc_005FB17D: lea ecx, var_D8
loc_005FB183: call [00401180h] ; __vbaVarZero
loc_005FB189: lea eax, var_D8
loc_005FB18F: mov var_E4, eax
loc_005FB195: mov var_4, 0000000Ah
loc_005FB19C: cmp var_2C, 0001h
loc_005FB1A1: jnz 005FB235h
loc_005FB1A7: mov var_4, 0000000Bh
loc_005FB1AE: mov ecx, Me
loc_005FB1B1: cmp [ecx+00000034h], 00000000h
loc_005FB1B5: jz 005FB20Fh
loc_005FB1B7: mov edx, Me
loc_005FB1BA: mov eax, [edx+00000034h]
loc_005FB1BD: cmp [eax], 0001h
loc_005FB1C1: jnz 005FB20Fh
loc_005FB1C3: movsx ecx, var_2C
loc_005FB1C7: mov edx, Me
loc_005FB1CA: mov eax, [edx+00000034h]
loc_005FB1CD: sub ecx, [eax+00000014h]
loc_005FB1D0: mov var_C0, ecx
loc_005FB1D6: mov ecx, Me
loc_005FB1D9: mov edx, [ecx+00000034h]
loc_005FB1DC: mov eax, var_C0
loc_005FB1E2: cmp eax, [edx+00000010h]
loc_005FB1E5: jae 005FB1F3h
loc_005FB1E7: mov var_11C, 00000000h
loc_005FB1F1: jmp 005FB1FFh
loc_005FB1F3: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB1F9: mov var_11C, eax
loc_005FB1FF: mov ecx, var_C0
loc_005FB205: shl ecx, 01h
loc_005FB207: mov var_120, ecx
loc_005FB20D: jmp 005FB21Bh
loc_005FB20F: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB215: mov var_120, eax
loc_005FB21B: mov edx, Me
loc_005FB21E: mov eax, [edx+00000034h]
loc_005FB221: mov ecx, [eax+0000000Ch]
loc_005FB224: mov edx, var_120
loc_005FB22A: mov [ecx+edx], 0000h
loc_005FB230: jmp 005FB417h
loc_005FB235: mov var_4, 0000000Dh
loc_005FB23C: mov eax, Me
loc_005FB23F: cmp [eax+00000034h], 00000000h
loc_005FB243: jz 005FB2AAh
loc_005FB245: mov ecx, Me
loc_005FB248: mov edx, [ecx+00000034h]
loc_005FB24B: cmp [edx], 0001h
loc_005FB24F: jnz 005FB2AAh
loc_005FB251: mov ax, var_2C
loc_005FB255: sub ax, 0001h
loc_005FB259: jo 005FB4FFh
loc_005FB25F: movsx ecx, ax
loc_005FB262: mov edx, Me
loc_005FB265: mov eax, [edx+00000034h]
loc_005FB268: sub ecx, [eax+00000014h]
loc_005FB26B: mov var_C4, ecx
loc_005FB271: mov ecx, Me
loc_005FB274: mov edx, [ecx+00000034h]
loc_005FB277: mov eax, var_C4
loc_005FB27D: cmp eax, [edx+00000010h]
loc_005FB280: jae 005FB28Eh
loc_005FB282: mov var_124, 00000000h
loc_005FB28C: jmp 005FB29Ah
loc_005FB28E: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB294: mov var_124, eax
loc_005FB29A: mov ecx, var_C4
loc_005FB2A0: shl ecx, 01h
loc_005FB2A2: mov var_128, ecx
loc_005FB2A8: jmp 005FB2B6h
loc_005FB2AA: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB2B0: mov var_128, eax
loc_005FB2B6: mov edx, Me
loc_005FB2B9: mov eax, [edx+00000034h]
loc_005FB2BC: mov ecx, [eax+0000000Ch]
loc_005FB2BF: mov edx, var_128
loc_005FB2C5: mov ax, [ecx+edx]
loc_005FB2C9: mov var_90, ax
loc_005FB2D0: mov var_98, 00000002h
loc_005FB2DA: mov cx, var_2C
loc_005FB2DE: sub cx, 0001h
loc_005FB2E2: jo 005FB4FFh
loc_005FB2E8: mov var_40, cx
loc_005FB2EC: mov var_48, 00000002h
loc_005FB2F3: lea edx, var_58
loc_005FB2F6: push edx
loc_005FB2F7: lea eax, var_48
loc_005FB2FA: push eax
loc_005FB2FB: mov ecx, Me
loc_005FB2FE: mov edx, [ecx+00000038h]
loc_005FB301: mov eax, Me
loc_005FB304: mov ecx, [eax+00000038h]
loc_005FB307: mov eax, [ecx]
loc_005FB309: push edx
loc_005FB30A: call [eax+0000001Ch]
loc_005FB30D: fnclex
loc_005FB30F: mov var_C8, eax
loc_005FB315: cmp var_C8, 00000000h
loc_005FB31C: jge 005FB341h
loc_005FB31E: push 0000001Ch
loc_005FB320: push 00447B68h
loc_005FB325: mov ecx, Me
loc_005FB328: mov edx, [ecx+00000038h]
loc_005FB32B: push edx
loc_005FB32C: mov eax, var_C8
loc_005FB332: push eax
loc_005FB333: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB339: mov var_12C, eax
loc_005FB33F: jmp 005FB34Bh
loc_005FB341: mov var_12C, 00000000h
loc_005FB34B: mov ecx, Me
loc_005FB34E: cmp [ecx+00000034h], 00000000h
loc_005FB352: jz 005FB3ACh
loc_005FB354: mov edx, Me
loc_005FB357: mov eax, [edx+00000034h]
loc_005FB35A: cmp [eax], 0001h
loc_005FB35E: jnz 005FB3ACh
loc_005FB360: movsx ecx, var_2C
loc_005FB364: mov edx, Me
loc_005FB367: mov eax, [edx+00000034h]
loc_005FB36A: sub ecx, [eax+00000014h]
loc_005FB36D: mov var_C0, ecx
loc_005FB373: mov ecx, Me
loc_005FB376: mov edx, [ecx+00000034h]
loc_005FB379: mov eax, var_C0
loc_005FB37F: cmp eax, [edx+00000010h]
loc_005FB382: jae 005FB390h
loc_005FB384: mov var_130, 00000000h
loc_005FB38E: jmp 005FB39Ch
loc_005FB390: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB396: mov var_130, eax
loc_005FB39C: mov ecx, var_C0
loc_005FB3A2: shl ecx, 01h
loc_005FB3A4: mov var_134, ecx
loc_005FB3AA: jmp 005FB3B8h
loc_005FB3AC: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB3B2: mov var_134, eax
loc_005FB3B8: lea edx, var_98
loc_005FB3BE: push edx
loc_005FB3BF: push 00000000h
loc_005FB3C1: push 00447B88h ; "NumberOfWeeks"
loc_005FB3C6: lea eax, var_58
loc_005FB3C9: push eax
loc_005FB3CA: lea ecx, var_68
loc_005FB3CD: push ecx
loc_005FB3CE: call [00401390h] ; __vbaVarLateMemCallLd
loc_005FB3D4: add esp, 00000010h
loc_005FB3D7: push eax
loc_005FB3D8: lea edx, var_78
loc_005FB3DB: push edx
loc_005FB3DC: call [0040135Ch] ; __vbaVarAdd
loc_005FB3E2: push eax
loc_005FB3E3: call [004012C0h] ; __vbaI2Var
loc_005FB3E9: mov ecx, Me
loc_005FB3EC: mov edx, [ecx+00000034h]
loc_005FB3EF: mov ecx, [edx+0000000Ch]
loc_005FB3F2: mov edx, var_134
loc_005FB3F8: mov [ecx+edx], ax
loc_005FB3FC: lea eax, var_78
loc_005FB3FF: push eax
loc_005FB400: lea ecx, var_68
loc_005FB403: push ecx
loc_005FB404: lea edx, var_58
loc_005FB407: push edx
loc_005FB408: lea eax, var_48
loc_005FB40B: push eax
loc_005FB40C: push 00000004h
loc_005FB40E: call [00401050h] ; __vbaFreeVarList
loc_005FB414: add esp, 00000014h
loc_005FB417: mov var_4, 0000000Fh
loc_005FB41E: mov var_E4, 00000000h
loc_005FB428: mov var_4, 00000010h
loc_005FB42F: jmp 005FB0E2h
loc_005FB434: mov var_4, 00000011h
loc_005FB43B: cmp var_34, 00000000h
loc_005FB43F: jnz 005FB45Bh
loc_005FB441: lea ecx, var_34
loc_005FB444: push ecx
loc_005FB445: push 00413AF8h
loc_005FB44A: call [004012FCh] ; __vbaNew2
loc_005FB450: lea edx, var_34
loc_005FB453: mov var_138, edx
loc_005FB459: jmp 005FB464h
loc_005FB45B: lea eax, var_34
loc_005FB45E: mov var_138, eax
loc_005FB464: mov ecx, var_138
loc_005FB46A: mov edx, [ecx]
loc_005FB46C: push edx
loc_005FB46D: lea eax, var_30
loc_005FB470: push eax
loc_005FB471: call [00401130h] ; __vbaObjSetAddref
loc_005FB477: push 005FB4D5h
loc_005FB47C: jmp 005FB4B6h
loc_005FB47E: mov ecx, var_10
loc_005FB481: and ecx, 00000004h
loc_005FB484: test ecx, ecx
loc_005FB486: jz 005FB491h
loc_005FB488: lea ecx, var_30
loc_005FB48B: call [0040142Ch] ; __vbaFreeObj
loc_005FB491: lea ecx, var_38
loc_005FB494: call [0040142Ch] ; __vbaFreeObj
loc_005FB49A: lea edx, var_78
loc_005FB49D: push edx
loc_005FB49E: lea eax, var_68
loc_005FB4A1: push eax
loc_005FB4A2: lea ecx, var_58
loc_005FB4A5: push ecx
loc_005FB4A6: lea edx, var_48
loc_005FB4A9: push edx
loc_005FB4AA: push 00000004h
loc_005FB4AC: call [00401050h] ; __vbaFreeVarList
loc_005FB4B2: add esp, 00000014h
loc_005FB4B5: ret
loc_005FB4B6: lea ecx, var_D8
loc_005FB4BC: call [00401030h] ; __vbaFreeVar
loc_005FB4C2: lea ecx, var_24
loc_005FB4C5: call [00401430h] ; __vbaFreeStr
loc_005FB4CB: lea ecx, var_34
loc_005FB4CE: call [0040142Ch] ; __vbaFreeObj
loc_005FB4D4: ret
loc_005FB4D5: mov eax, Me
loc_005FB4D8: mov ecx, [eax]
loc_005FB4DA: mov edx, Me
loc_005FB4DD: push edx
loc_005FB4DE: call [ecx+00000008h]
loc_005FB4E1: mov eax, arg_14
loc_005FB4E4: mov ecx, var_30
loc_005FB4E7: mov [eax], ecx
loc_005FB4E9: mov eax, var_10
loc_005FB4EC: mov ecx, var_20
loc_005FB4EF: mov fs:[00000000h], ecx
loc_005FB4F6: pop edi
loc_005FB4F7: pop esi
loc_005FB4F8: pop ebx
loc_005FB4F9: mov esp, ebp
loc_005FB4FB: pop ebp
loc_005FB4FC: retn 0010h
End Function
Public Function NewEnum(arg_C) '5FB510
loc_005FB510: push ebp
loc_005FB511: mov ebp, esp
loc_005FB513: sub esp, 0000000Ch
loc_005FB516: push 00412856h ; __vbaExceptHandler
loc_005FB51B: mov eax, fs:[00000000h]
loc_005FB521: push eax
loc_005FB522: mov fs:[00000000h], esp
loc_005FB529: sub esp, 00000014h
loc_005FB52C: push ebx
loc_005FB52D: push esi
loc_005FB52E: push edi
loc_005FB52F: mov var_C, esp
loc_005FB532: mov var_8, 00403DE0h
loc_005FB539: xor edi, edi
loc_005FB53B: mov var_4, edi
loc_005FB53E: mov esi, Me
loc_005FB541: push esi
loc_005FB542: mov eax, [esi]
loc_005FB544: call [eax+00000004h]
loc_005FB547: mov ecx, arg_C
loc_005FB54A: mov var_18, edi
loc_005FB54D: mov var_1C, edi
loc_005FB550: mov [ecx], edi
loc_005FB552: mov eax, [esi+00000038h]
loc_005FB555: lea ecx, var_1C
loc_005FB558: mov edx, [eax]
loc_005FB55A: push ecx
loc_005FB55B: push eax
loc_005FB55C: call [edx+0000002Ch]
loc_005FB55F: cmp eax, edi
loc_005FB561: fnclex
loc_005FB563: jge 005FB577h
loc_005FB565: mov edx, [esi+00000038h]
loc_005FB568: push 0000002Ch
loc_005FB56A: push 00447B68h
loc_005FB56F: push edx
loc_005FB570: push eax
loc_005FB571: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB577: mov eax, var_1C
loc_005FB57A: push 00447558h
loc_005FB57F: push eax
loc_005FB580: call [004013C4h] ; __vbaCastObj
loc_005FB586: lea ecx, var_18
loc_005FB589: push eax
loc_005FB58A: push ecx
loc_005FB58B: call [00401128h] ; __vbaObjSet
loc_005FB591: lea ecx, var_1C
loc_005FB594: call [0040142Ch] ; __vbaFreeObj
loc_005FB59A: push 005FB5BBh
loc_005FB59F: jmp 005FB5BAh
loc_005FB5A1: test var_4, 04h
loc_005FB5A5: jz 005FB5B0h
loc_005FB5A7: lea ecx, var_18
loc_005FB5AA: call [0040142Ch] ; __vbaFreeObj
loc_005FB5B0: lea ecx, var_1C
loc_005FB5B3: call [0040142Ch] ; __vbaFreeObj
loc_005FB5B9: ret
loc_005FB5BA: ret
loc_005FB5BB: mov eax, Me
loc_005FB5BE: push eax
loc_005FB5BF: mov edx, [eax]
loc_005FB5C1: call [edx+00000008h]
loc_005FB5C4: mov eax, arg_C
loc_005FB5C7: mov ecx, var_18
loc_005FB5CA: mov [eax], ecx
loc_005FB5CC: mov eax, var_4
loc_005FB5CF: mov ecx, var_14
loc_005FB5D2: pop edi
loc_005FB5D3: pop esi
loc_005FB5D4: mov fs:[00000000h], ecx
loc_005FB5DB: pop ebx
loc_005FB5DC: mov esp, ebp
loc_005FB5DE: pop ebp
loc_005FB5DF: retn 0008h
End Function
Public Sub Remove(index) '5FB5F0
loc_005FB5F0: push ebp
loc_005FB5F1: mov ebp, esp
loc_005FB5F3: sub esp, 00000018h
loc_005FB5F6: push 00412856h ; __vbaExceptHandler
loc_005FB5FB: mov eax, fs:[00000000h]
loc_005FB601: push eax
loc_005FB602: mov fs:[00000000h], esp
loc_005FB609: mov eax, 0000001Ch
loc_005FB60E: call 00412850h ; __vbaChkstk
loc_005FB613: push ebx
loc_005FB614: push esi
loc_005FB615: push edi
loc_005FB616: mov var_18, esp
loc_005FB619: mov var_14, 00403DF0h
loc_005FB620: mov var_10, 00000000h
loc_005FB627: mov var_C, 00000000h
loc_005FB62E: mov eax, Me
loc_005FB631: mov ecx, [eax]
loc_005FB633: mov edx, Me
loc_005FB636: push edx
loc_005FB637: call [ecx+00000004h]
loc_005FB63A: mov var_4, 00000001h
loc_005FB641: mov var_4, 00000002h
loc_005FB648: push FFFFFFFFh
loc_005FB64A: call [00401124h] ; __vbaOnError
loc_005FB650: mov var_4, 00000003h
loc_005FB657: mov eax, index
loc_005FB65A: push eax
loc_005FB65B: mov ecx, Me
loc_005FB65E: mov edx, [ecx+00000038h]
loc_005FB661: mov eax, Me
loc_005FB664: mov ecx, [eax+00000038h]
loc_005FB667: mov eax, [ecx]
loc_005FB669: push edx
loc_005FB66A: call [eax+00000028h]
loc_005FB66D: fnclex
loc_005FB66F: mov var_24, eax
loc_005FB672: cmp var_24, 00000000h
loc_005FB676: jge 005FB695h
loc_005FB678: push 00000028h
loc_005FB67A: push 00447B68h
loc_005FB67F: mov ecx, Me
loc_005FB682: mov edx, [ecx+00000038h]
loc_005FB685: push edx
loc_005FB686: mov eax, var_24
loc_005FB689: push eax
loc_005FB68A: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB690: mov var_3C, eax
loc_005FB693: jmp 005FB69Ch
loc_005FB695: mov var_3C, 00000000h
loc_005FB69C: mov ecx, Me
loc_005FB69F: mov edx, [ecx]
loc_005FB6A1: mov eax, Me
loc_005FB6A4: push eax
loc_005FB6A5: call [edx+00000008h]
loc_005FB6A8: mov eax, var_10
loc_005FB6AB: mov ecx, var_20
loc_005FB6AE: mov fs:[00000000h], ecx
loc_005FB6B5: pop edi
loc_005FB6B6: pop esi
loc_005FB6B7: pop ebx
loc_005FB6B8: mov esp, ebp
loc_005FB6BA: pop ebp
loc_005FB6BB: retn 0008h
End Sub
Public Function Item(index) '5FB6C0
loc_005FB6C0: push ebp
loc_005FB6C1: mov ebp, esp
loc_005FB6C3: sub esp, 00000018h
loc_005FB6C6: push 00412856h ; __vbaExceptHandler
loc_005FB6CB: mov eax, fs:[00000000h]
loc_005FB6D1: push eax
loc_005FB6D2: mov fs:[00000000h], esp
loc_005FB6D9: mov eax, 00000030h
loc_005FB6DE: call 00412850h ; __vbaChkstk
loc_005FB6E3: push ebx
loc_005FB6E4: push esi
loc_005FB6E5: push edi
loc_005FB6E6: mov var_18, esp
loc_005FB6E9: mov var_14, 00403E20h ; "-"
loc_005FB6F0: mov var_10, 00000000h
loc_005FB6F7: mov var_C, 00000000h
loc_005FB6FE: mov eax, Me
loc_005FB701: mov ecx, [eax]
loc_005FB703: mov edx, Me
loc_005FB706: push edx
loc_005FB707: call [ecx+00000004h]
loc_005FB70A: mov var_4, 00000001h
loc_005FB711: mov eax, arg_10
loc_005FB714: mov [eax], 00000000h
loc_005FB71A: mov var_4, 00000002h
loc_005FB721: push FFFFFFFFh
loc_005FB723: call [00401124h] ; __vbaOnError
loc_005FB729: mov var_4, 00000003h
loc_005FB730: lea ecx, var_34
loc_005FB733: push ecx
loc_005FB734: mov edx, index
loc_005FB737: push edx
loc_005FB738: mov eax, Me
loc_005FB73B: mov ecx, [eax+00000038h]
loc_005FB73E: mov edx, Me
loc_005FB741: mov eax, [edx+00000038h]
loc_005FB744: mov edx, [eax]
loc_005FB746: push ecx
loc_005FB747: call [edx+0000001Ch]
loc_005FB74A: fnclex
loc_005FB74C: mov var_38, eax
loc_005FB74F: cmp var_38, 00000000h
loc_005FB753: jge 005FB772h
loc_005FB755: push 0000001Ch
loc_005FB757: push 00447B68h
loc_005FB75C: mov eax, Me
loc_005FB75F: mov ecx, [eax+00000038h]
loc_005FB762: push ecx
loc_005FB763: mov edx, var_38
loc_005FB766: push edx
loc_005FB767: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB76D: mov var_50, eax
loc_005FB770: jmp 005FB779h
loc_005FB772: mov var_50, 00000000h
loc_005FB779: push 00447B04h
loc_005FB77E: lea eax, var_34
loc_005FB781: push eax
loc_005FB782: call [004011F8h] ; __vbaCastObjVar
loc_005FB788: push eax
loc_005FB789: lea ecx, var_24
loc_005FB78C: push ecx
loc_005FB78D: call [00401128h] ; __vbaObjSet
loc_005FB793: lea ecx, var_34
loc_005FB796: call [00401030h] ; __vbaFreeVar
loc_005FB79C: push 005FB7C1h
loc_005FB7A1: jmp 005FB7C0h
loc_005FB7A3: mov edx, var_10
loc_005FB7A6: and edx, 00000004h
loc_005FB7A9: test edx, edx
loc_005FB7AB: jz 005FB7B6h
loc_005FB7AD: lea ecx, var_24
loc_005FB7B0: call [0040142Ch] ; __vbaFreeObj
loc_005FB7B6: lea ecx, var_34
loc_005FB7B9: call [00401030h] ; __vbaFreeVar
loc_005FB7BF: ret
loc_005FB7C0: ret
loc_005FB7C1: mov eax, Me
loc_005FB7C4: mov ecx, [eax]
loc_005FB7C6: mov edx, Me
loc_005FB7C9: push edx
loc_005FB7CA: call [ecx+00000008h]
loc_005FB7CD: mov eax, arg_10
loc_005FB7D0: mov ecx, var_24
loc_005FB7D3: mov [eax], ecx
loc_005FB7D5: mov eax, var_10
loc_005FB7D8: mov ecx, var_20
loc_005FB7DB: mov fs:[00000000h], ecx
loc_005FB7E2: pop edi
loc_005FB7E3: pop esi
loc_005FB7E4: pop ebx
loc_005FB7E5: mov esp, ebp
loc_005FB7E7: pop ebp
loc_005FB7E8: retn 000Ch
End Function
Public Property Get Count(arg_C) '5FB7F0
loc_005FB7F0: push ebp
loc_005FB7F1: mov ebp, esp
loc_005FB7F3: sub esp, 0000000Ch
loc_005FB7F6: push 00412856h ; __vbaExceptHandler
loc_005FB7FB: mov eax, fs:[00000000h]
loc_005FB801: push eax
loc_005FB802: mov fs:[00000000h], esp
loc_005FB809: sub esp, 00000014h
loc_005FB80C: push ebx
loc_005FB80D: push esi
loc_005FB80E: push edi
loc_005FB80F: mov var_C, esp
loc_005FB812: mov var_8, 00403E50h
loc_005FB819: xor edi, edi
loc_005FB81B: mov var_4, edi
loc_005FB81E: mov esi, Me
loc_005FB821: push esi
loc_005FB822: mov eax, [esi]
loc_005FB824: call [eax+00000004h]
loc_005FB827: mov eax, [esi+00000038h]
loc_005FB82A: lea edx, var_1C
loc_005FB82D: mov var_1C, edi
loc_005FB830: push edx
loc_005FB831: mov ecx, [eax]
loc_005FB833: push eax
loc_005FB834: mov var_18, edi
loc_005FB837: call [ecx+00000024h]
loc_005FB83A: cmp eax, edi
loc_005FB83C: fnclex
loc_005FB83E: jge 005FB852h
loc_005FB840: mov ecx, [esi+00000038h]
loc_005FB843: push 00000024h
loc_005FB845: push 00447B68h
loc_005FB84A: push ecx
loc_005FB84B: push eax
loc_005FB84C: call [004010CCh] ; __vbaHresultCheckObj
loc_005FB852: mov edx, var_1C
loc_005FB855: mov var_18, edx
loc_005FB858: mov eax, Me
loc_005FB85B: push eax
loc_005FB85C: mov ecx, [eax]
loc_005FB85E: call [ecx+00000008h]
loc_005FB861: mov edx, arg_C
loc_005FB864: mov eax, var_18
loc_005FB867: mov [edx], eax
loc_005FB869: mov eax, var_4
loc_005FB86C: mov ecx, var_14
loc_005FB86F: pop edi
loc_005FB870: pop esi
loc_005FB871: mov fs:[00000000h], ecx
loc_005FB878: pop ebx
loc_005FB879: mov esp, ebp
loc_005FB87B: pop ebp
loc_005FB87C: retn 0008h
End Sub
Public Function WeeksFromFirstOfYear(iIndex) '5FB880
loc_005FB880: push ebp
loc_005FB881: mov ebp, esp
loc_005FB883: sub esp, 0000000Ch
loc_005FB886: push 00412856h ; __vbaExceptHandler
loc_005FB88B: mov eax, fs:[00000000h]
loc_005FB891: push eax
loc_005FB892: mov fs:[00000000h], esp
loc_005FB899: sub esp, 0000002Ch
loc_005FB89C: push ebx
loc_005FB89D: push esi
loc_005FB89E: push edi
loc_005FB89F: mov var_C, esp
loc_005FB8A2: mov var_8, 00403E58h
loc_005FB8A9: xor esi, esi
loc_005FB8AB: mov var_4, esi
loc_005FB8AE: mov edi, Me
loc_005FB8B1: push edi
loc_005FB8B2: mov eax, [edi]
loc_005FB8B4: call [eax+00000004h]
loc_005FB8B7: mov ecx, arg_10
loc_005FB8BA: mov var_24, esi
loc_005FB8BD: mov var_34, esi
loc_005FB8C0: mov [ecx], esi
loc_005FB8C2: mov eax, [edi+00000034h]
loc_005FB8C5: cmp eax, esi
loc_005FB8C7: jz 005FB8EAh
loc_005FB8C9: cmp [eax], 0001h
loc_005FB8CD: jnz 005FB8EAh
loc_005FB8CF: movsx esi, iIndex
loc_005FB8D3: mov edx, [eax+00000014h]
loc_005FB8D6: mov ecx, [eax+00000010h]
loc_005FB8D9: sub esi, edx
loc_005FB8DB: cmp esi, ecx
loc_005FB8DD: jb 005FB8E5h
loc_005FB8DF: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB8E5: lea eax, [esi+esi]
loc_005FB8E8: jmp 005FB8F0h
loc_005FB8EA: call [004011A8h] ; __vbaGenerateBoundsError
loc_005FB8F0: mov edx, [edi+00000034h]
loc_005FB8F3: mov ecx, [edx+0000000Ch]
loc_005FB8F6: mov dx, [ecx+eax]
loc_005FB8FA: lea ecx, var_24
loc_005FB8FD: mov var_2C, dx
loc_005FB901: lea edx, var_34
loc_005FB904: mov var_34, 00000002h
loc_005FB90B: call [00401020h] ; __vbaVarMove
loc_005FB911: push 005FB923h
loc_005FB916: jmp 005FB922h
loc_005FB918: lea ecx, var_24
loc_005FB91B: call [00401030h] ; __vbaFreeVar
loc_005FB921: ret
loc_005FB922: ret
loc_005FB923: mov eax, Me
loc_005FB926: push eax
loc_005FB927: mov ecx, [eax]
loc_005FB929: call [ecx+00000008h]
loc_005FB92C: mov edx, arg_10
loc_005FB92F: mov eax, var_24
loc_005FB932: mov ecx, var_20
loc_005FB935: mov [edx], eax
loc_005FB937: mov eax, var_1C
loc_005FB93A: mov [edx+00000004h], ecx
loc_005FB93D: mov ecx, var_18
loc_005FB940: mov [edx+00000008h], eax
loc_005FB943: mov [edx+0000000Ch], ecx
loc_005FB946: mov eax, var_4
loc_005FB949: mov ecx, var_14
loc_005FB94C: pop edi
loc_005FB94D: pop esi
loc_005FB94E: mov fs:[00000000h], ecx
loc_005FB955: pop ebx
loc_005FB956: mov esp, ebp
loc_005FB958: pop ebp
loc_005FB959: retn 000Ch
End Function
Private Sub Proc_12_6_5FACC0
loc_005FACC0: push ebp
loc_005FACC1: mov ebp, esp
loc_005FACC3: sub esp, 0000000Ch
loc_005FACC6: push 00412856h ; __vbaExceptHandler
loc_005FACCB: mov eax, fs:[00000000h]
loc_005FACD1: push eax
loc_005FACD2: mov fs:[00000000h], esp
loc_005FACD9: sub esp, 0000000Ch
loc_005FACDC: push ebx
loc_005FACDD: push esi
loc_005FACDE: push edi
loc_005FACDF: mov var_C, esp
loc_005FACE2: mov var_8, 00403D68h
loc_005FACE9: mov esi, Me
loc_005FACEC: mov eax, esi
loc_005FACEE: and eax, 00000001h
loc_005FACF1: mov var_4, eax
loc_005FACF4: and esi, FFFFFFFEh
loc_005FACF7: push esi
loc_005FACF8: mov Me, esi
loc_005FACFB: mov ecx, [esi]
loc_005FACFD: call [ecx+00000004h]
loc_005FAD00: xor edi, edi
loc_005FAD02: push 00447B78h
loc_005FAD07: mov var_18, edi
loc_005FAD0A: call [0040122Ch] ; __vbaNew
loc_005FAD10: lea edx, var_18
loc_005FAD13: push eax
loc_005FAD14: push edx
loc_005FAD15: call [00401128h] ; __vbaObjSet
loc_005FAD1B: add esi, 00000038h
loc_005FAD1E: push eax
loc_005FAD1F: push esi
loc_005FAD20: call [00401130h] ; __vbaObjSetAddref
loc_005FAD26: lea ecx, var_18
loc_005FAD29: call [0040142Ch] ; __vbaFreeObj
loc_005FAD2F: mov var_4, edi
loc_005FAD32: push 005FAD44h
loc_005FAD37: jmp 005FAD43h
loc_005FAD39: lea ecx, var_18
loc_005FAD3C: call [0040142Ch] ; __vbaFreeObj
loc_005FAD42: ret
loc_005FAD43: ret
loc_005FAD44: mov eax, Me
loc_005FAD47: push eax
loc_005FAD48: mov ecx, [eax]
loc_005FAD4A: call [ecx+00000008h]
loc_005FAD4D: mov eax, var_4
loc_005FAD50: mov ecx, var_14
loc_005FAD53: pop edi
loc_005FAD54: pop esi
loc_005FAD55: mov fs:[00000000h], ecx
loc_005FAD5C: pop ebx
loc_005FAD5D: mov esp, ebp
loc_005FAD5F: pop ebp
loc_005FAD60: retn 0004h
End Sub

32056
Src Code/CalendarVB.ctl
File diff suppressed because it is too large
View File

BIN
Src Code/CalendarVB.ctx
View File

2970
Src Code/cFlatControl.cls
File diff suppressed because it is too large
View File

1553
Src Code/clsAddressBook.cls
File diff suppressed because it is too large
View File

945
Src Code/clsBBPlayer.cls
View File

@ -0,0 +1,945 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsBBPlayer"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Let BBPlayerIsPlaying(blnNewBBPlayerIsPlaying) '702590
loc_00702590: push ebp
loc_00702591: mov ebp, esp
loc_00702593: sub esp, 0000000Ch
loc_00702596: push 00412856h ; __vbaExceptHandler
loc_0070259B: mov eax, fs:[00000000h]
loc_007025A1: push eax
loc_007025A2: mov fs:[00000000h], esp
loc_007025A9: sub esp, 00000008h
loc_007025AC: push ebx
loc_007025AD: push esi
loc_007025AE: push edi
loc_007025AF: mov var_C, esp
loc_007025B2: mov var_8, 00410348h
loc_007025B9: mov var_4, 00000000h
loc_007025C0: mov esi, Me
loc_007025C3: push esi
loc_007025C4: mov eax, [esi]
loc_007025C6: call [eax+00000004h]
loc_007025C9: mov ecx, blnNewBBPlayerIsPlaying
loc_007025CC: mov dx, [ecx]
loc_007025CF: mov [esi+0000003Ch], dx
loc_007025D3: mov eax, Me
loc_007025D6: push eax
loc_007025D7: mov ecx, [eax]
loc_007025D9: call [ecx+00000008h]
loc_007025DC: mov eax, var_4
loc_007025DF: mov ecx, var_14
loc_007025E2: pop edi
loc_007025E3: pop esi
loc_007025E4: mov fs:[00000000h], ecx
loc_007025EB: pop ebx
loc_007025EC: mov esp, ebp
loc_007025EE: pop ebp
loc_007025EF: retn 0008h
End Sub
Public Property Get BBPlayerIsPlaying(arg_C) '702600
loc_00702600: push ebp
loc_00702601: mov ebp, esp
loc_00702603: sub esp, 0000000Ch
loc_00702606: push 00412856h ; __vbaExceptHandler
loc_0070260B: mov eax, fs:[00000000h]
loc_00702611: push eax
loc_00702612: mov fs:[00000000h], esp
loc_00702619: sub esp, 0000000Ch
loc_0070261C: push ebx
loc_0070261D: push esi
loc_0070261E: push edi
loc_0070261F: mov var_C, esp
loc_00702622: mov var_8, 00410350h
loc_00702629: xor edi, edi
loc_0070262B: mov var_4, edi
loc_0070262E: mov esi, Me
loc_00702631: push esi
loc_00702632: mov eax, [esi]
loc_00702634: call [eax+00000004h]
loc_00702637: mov cx, [esi+0000003Ch]
loc_0070263B: mov var_18, edi
loc_0070263E: mov var_18, ecx
loc_00702641: mov eax, Me
loc_00702644: push eax
loc_00702645: mov edx, [eax]
loc_00702647: call [edx+00000008h]
loc_0070264A: mov eax, arg_C
loc_0070264D: mov cx, var_18
loc_00702651: mov [eax], cx
loc_00702654: mov eax, var_4
loc_00702657: mov ecx, var_14
loc_0070265A: pop edi
loc_0070265B: pop esi
loc_0070265C: mov fs:[00000000h], ecx
loc_00702663: pop ebx
loc_00702664: mov esp, ebp
loc_00702666: pop ebp
loc_00702667: retn 0008h
End Sub
Public Property Let BBPlayerWasInterrupted(blnNewBBPlayerWasInterrupted) '702670
loc_00702670: push ebp
loc_00702671: mov ebp, esp
loc_00702673: sub esp, 0000000Ch
loc_00702676: push 00412856h ; __vbaExceptHandler
loc_0070267B: mov eax, fs:[00000000h]
loc_00702681: push eax
loc_00702682: mov fs:[00000000h], esp
loc_00702689: sub esp, 00000008h
loc_0070268C: push ebx
loc_0070268D: push esi
loc_0070268E: push edi
loc_0070268F: mov var_C, esp
loc_00702692: mov var_8, 00410358h
loc_00702699: mov var_4, 00000000h
loc_007026A0: mov esi, Me
loc_007026A3: push esi
loc_007026A4: mov eax, [esi]
loc_007026A6: call [eax+00000004h]
loc_007026A9: mov ecx, blnNewBBPlayerWasInterrupted
loc_007026AC: mov dx, [ecx]
loc_007026AF: mov [esi+0000003Eh], dx
loc_007026B3: mov eax, Me
loc_007026B6: push eax
loc_007026B7: mov ecx, [eax]
loc_007026B9: call [ecx+00000008h]
loc_007026BC: mov eax, var_4
loc_007026BF: mov ecx, var_14
loc_007026C2: pop edi
loc_007026C3: pop esi
loc_007026C4: mov fs:[00000000h], ecx
loc_007026CB: pop ebx
loc_007026CC: mov esp, ebp
loc_007026CE: pop ebp
loc_007026CF: retn 0008h
End Sub
Public Property Get BBPlayerWasInterrupted(arg_C) '7026E0
loc_007026E0: push ebp
loc_007026E1: mov ebp, esp
loc_007026E3: sub esp, 0000000Ch
loc_007026E6: push 00412856h ; __vbaExceptHandler
loc_007026EB: mov eax, fs:[00000000h]
loc_007026F1: push eax
loc_007026F2: mov fs:[00000000h], esp
loc_007026F9: sub esp, 0000000Ch
loc_007026FC: push ebx
loc_007026FD: push esi
loc_007026FE: push edi
loc_007026FF: mov var_C, esp
loc_00702702: mov var_8, 00410360h
loc_00702709: xor edi, edi
loc_0070270B: mov var_4, edi
loc_0070270E: mov esi, Me
loc_00702711: push esi
loc_00702712: mov eax, [esi]
loc_00702714: call [eax+00000004h]
loc_00702717: mov cx, [esi+0000003Eh]
loc_0070271B: mov var_18, edi
loc_0070271E: mov var_18, ecx
loc_00702721: mov eax, Me
loc_00702724: push eax
loc_00702725: mov edx, [eax]
loc_00702727: call [edx+00000008h]
loc_0070272A: mov eax, arg_C
loc_0070272D: mov cx, var_18
loc_00702731: mov [eax], cx
loc_00702734: mov eax, var_4
loc_00702737: mov ecx, var_14
loc_0070273A: pop edi
loc_0070273B: pop esi
loc_0070273C: mov fs:[00000000h], ecx
loc_00702743: pop ebx
loc_00702744: mov esp, ebp
loc_00702746: pop ebp
loc_00702747: retn 0008h
End Sub
Public Sub StartUpCharacter() '702750
loc_00702750: push ebp
loc_00702751: mov ebp, esp
loc_00702753: sub esp, 0000000Ch
loc_00702756: push 00412856h ; __vbaExceptHandler
loc_0070275B: mov eax, fs:[00000000h]
loc_00702761: push eax
loc_00702762: mov fs:[00000000h], esp
loc_00702769: sub esp, 00000030h
loc_0070276C: push ebx
loc_0070276D: push esi
loc_0070276E: push edi
loc_0070276F: mov var_C, esp
loc_00702772: mov var_8, 00410368h
loc_00702779: mov var_4, 00000000h
loc_00702780: mov eax, Me
loc_00702783: push eax
loc_00702784: mov ecx, [eax]
loc_00702786: call [ecx+00000004h]
loc_00702789: mov eax, [0073A254h]
loc_0070278E: test eax, eax
loc_00702790: jnz 007027A2h
loc_00702792: push 0073A254h
loc_00702797: push 00431838h
loc_0070279C: call [004012FCh] ; __vbaNew2
loc_007027A2: sub esp, 00000010h
loc_007027A5: mov ecx, 0000000Ah
loc_007027AA: mov ebx, esp
loc_007027AC: mov var_24, ecx
loc_007027AF: mov eax, 80020004h
loc_007027B4: sub esp, 00000010h
loc_007027B7: mov [ebx], ecx
loc_007027B9: mov ecx, var_30
loc_007027BC: mov edx, eax
loc_007027BE: mov esi, [0073A254h]
loc_007027C4: mov [ebx+00000004h], ecx
loc_007027C7: mov ecx, esp
loc_007027C9: mov edi, [esi]
loc_007027CB: push esi
loc_007027CC: mov [ebx+00000008h], eax
loc_007027CF: mov eax, var_28
loc_007027D2: mov [ebx+0000000Ch], eax
loc_007027D5: mov eax, var_24
loc_007027D8: mov [ecx], eax
loc_007027DA: mov eax, var_20
loc_007027DD: mov [ecx+00000004h], eax
loc_007027E0: mov [ecx+00000008h], edx
loc_007027E3: mov edx, var_18
loc_007027E6: mov [ecx+0000000Ch], edx
loc_007027E9: call [edi+000002B0h]
loc_007027EF: test eax, eax
loc_007027F1: fnclex
loc_007027F3: jge 00702807h
loc_007027F5: push 000002B0h
loc_007027FA: push 00440B20h
loc_007027FF: push esi
loc_00702800: push eax
loc_00702801: call [004010CCh] ; __vbaHresultCheckObj
loc_00702807: mov eax, Me
loc_0070280A: push eax
loc_0070280B: mov ecx, [eax]
loc_0070280D: call [ecx+00000008h]
loc_00702810: mov eax, var_4
loc_00702813: mov ecx, var_14
loc_00702816: pop edi
loc_00702817: pop esi
loc_00702818: mov fs:[00000000h], ecx
loc_0070281F: pop ebx
loc_00702820: mov esp, ebp
loc_00702822: pop ebp
loc_00702823: retn 0004h
End Sub
Public Sub ShutDownCharacter() '702830
loc_00702830: push ebp
loc_00702831: mov ebp, esp
loc_00702833: sub esp, 0000000Ch
loc_00702836: push 00412856h ; __vbaExceptHandler
loc_0070283B: mov eax, fs:[00000000h]
loc_00702841: push eax
loc_00702842: mov fs:[00000000h], esp
loc_00702849: sub esp, 00000014h
loc_0070284C: push ebx
loc_0070284D: push esi
loc_0070284E: push edi
loc_0070284F: mov var_C, esp
loc_00702852: mov var_8, 00410370h
loc_00702859: xor edi, edi
loc_0070285B: mov var_4, edi
loc_0070285E: mov eax, Me
loc_00702861: push eax
loc_00702862: mov ecx, [eax]
loc_00702864: call [ecx+00000004h]
loc_00702867: mov eax, [0073C818h]
loc_0070286C: mov var_18, edi
loc_0070286F: cmp eax, edi
loc_00702871: jnz 00702883h
loc_00702873: push 0073C818h
loc_00702878: push 00441F00h
loc_0070287D: call [004012FCh] ; __vbaNew2
loc_00702883: mov eax, [0073A254h]
loc_00702888: mov esi, [0073C818h]
loc_0070288E: cmp eax, edi
loc_00702890: jnz 007028A2h
loc_00702892: push 0073A254h
loc_00702897: push 00431838h
loc_0070289C: call [004012FCh] ; __vbaNew2
loc_007028A2: mov edx, [0073A254h]
loc_007028A8: mov ebx, [esi]
loc_007028AA: lea eax, var_18
loc_007028AD: push edx
loc_007028AE: push eax
loc_007028AF: call [00401130h] ; __vbaObjSetAddref
loc_007028B5: push eax
loc_007028B6: push esi
loc_007028B7: call [ebx+00000010h]
loc_007028BA: cmp eax, edi
loc_007028BC: fnclex
loc_007028BE: jge 007028CFh
loc_007028C0: push 00000010h
loc_007028C2: push 00441EF0h
loc_007028C7: push esi
loc_007028C8: push eax
loc_007028C9: call [004010CCh] ; __vbaHresultCheckObj
loc_007028CF: lea ecx, var_18
loc_007028D2: call [0040142Ch] ; __vbaFreeObj
loc_007028D8: push 007028EAh
loc_007028DD: jmp 007028E9h
loc_007028DF: lea ecx, var_18
loc_007028E2: call [0040142Ch] ; __vbaFreeObj
loc_007028E8: ret
loc_007028E9: ret
loc_007028EA: mov eax, Me
loc_007028ED: push eax
loc_007028EE: mov ecx, [eax]
loc_007028F0: call [ecx+00000008h]
loc_007028F3: mov eax, var_4
loc_007028F6: mov ecx, var_14
loc_007028F9: pop edi
loc_007028FA: pop esi
loc_007028FB: mov fs:[00000000h], ecx
loc_00702902: pop ebx
loc_00702903: mov esp, ebp
loc_00702905: pop ebp
loc_00702906: retn 0004h
End Sub
Public Sub FireBBPlayerStop() '702910
loc_00702910: push ebp
loc_00702911: mov ebp, esp
loc_00702913: sub esp, 0000000Ch
loc_00702916: push 00412856h ; __vbaExceptHandler
loc_0070291B: mov eax, fs:[00000000h]
loc_00702921: push eax
loc_00702922: mov fs:[00000000h], esp
loc_00702929: sub esp, 00000008h
loc_0070292C: push ebx
loc_0070292D: push esi
loc_0070292E: push edi
loc_0070292F: mov var_C, esp
loc_00702932: mov var_8, 00410380h
loc_00702939: mov var_4, 00000000h
loc_00702940: mov esi, Me
loc_00702943: push esi
loc_00702944: mov eax, [esi]
loc_00702946: call [eax+00000004h]
loc_00702949: push 00000000h
loc_0070294B: push 00000001h
loc_0070294D: push esi
loc_0070294E: call [00401064h] ; __vbaRaiseEvent
loc_00702954: add esp, 0000000Ch
loc_00702957: mov eax, Me
loc_0070295A: push eax
loc_0070295B: mov ecx, [eax]
loc_0070295D: call [ecx+00000008h]
loc_00702960: mov eax, var_4
loc_00702963: mov ecx, var_14
loc_00702966: pop edi
loc_00702967: pop esi
loc_00702968: mov fs:[00000000h], ecx
loc_0070296F: pop ebx
loc_00702970: mov esp, ebp
loc_00702972: pop ebp
loc_00702973: retn 0004h
End Sub
Public Sub FireBBPlayerContinue() '702980
loc_00702980: push ebp
loc_00702981: mov ebp, esp
loc_00702983: sub esp, 0000000Ch
loc_00702986: push 00412856h ; __vbaExceptHandler
loc_0070298B: mov eax, fs:[00000000h]
loc_00702991: push eax
loc_00702992: mov fs:[00000000h], esp
loc_00702999: sub esp, 00000008h
loc_0070299C: push ebx
loc_0070299D: push esi
loc_0070299E: push edi
loc_0070299F: mov var_C, esp
loc_007029A2: mov var_8, 00410388h
loc_007029A9: xor edi, edi
loc_007029AB: mov var_4, edi
loc_007029AE: mov esi, Me
loc_007029B1: push esi
loc_007029B2: mov eax, [esi]
loc_007029B4: call [eax+00000004h]
loc_007029B7: push edi
loc_007029B8: push 00000002h
loc_007029BA: push esi
loc_007029BB: call [00401064h] ; __vbaRaiseEvent
loc_007029C1: add esp, 0000000Ch
loc_007029C4: mov [esi+0000003Eh], di
loc_007029C8: mov eax, Me
loc_007029CB: push eax
loc_007029CC: mov ecx, [eax]
loc_007029CE: call [ecx+00000008h]
loc_007029D1: mov eax, var_4
loc_007029D4: mov ecx, var_14
loc_007029D7: pop edi
loc_007029D8: pop esi
loc_007029D9: mov fs:[00000000h], ecx
loc_007029E0: pop ebx
loc_007029E1: mov esp, ebp
loc_007029E3: pop ebp
loc_007029E4: retn 0004h
End Sub
Public Sub FireBBPlayerShutDown() '7029F0
loc_007029F0: push ebp
loc_007029F1: mov ebp, esp
loc_007029F3: sub esp, 0000000Ch
loc_007029F6: push 00412856h ; __vbaExceptHandler
loc_007029FB: mov eax, fs:[00000000h]
loc_00702A01: push eax
loc_00702A02: mov fs:[00000000h], esp
loc_00702A09: sub esp, 00000018h
loc_00702A0C: push ebx
loc_00702A0D: push esi
loc_00702A0E: push edi
loc_00702A0F: mov var_C, esp
loc_00702A12: mov var_8, 00410390h
loc_00702A19: xor ebx, ebx
loc_00702A1B: mov var_4, ebx
loc_00702A1E: mov esi, Me
loc_00702A21: push esi
loc_00702A22: mov eax, [esi]
loc_00702A24: call [eax+00000004h]
loc_00702A27: push ebx
loc_00702A28: push 00000003h
loc_00702A2A: push esi
loc_00702A2B: mov var_18, ebx
loc_00702A2E: mov var_1C, ebx
loc_00702A31: call [00401064h] ; __vbaRaiseEvent
loc_00702A37: mov eax, [0073A254h]
loc_00702A3C: add esp, 0000000Ch
loc_00702A3F: cmp eax, ebx
loc_00702A41: jnz 00702A53h
loc_00702A43: push 0073A254h
loc_00702A48: push 00431838h
loc_00702A4D: call [004012FCh] ; __vbaNew2
loc_00702A53: mov edi, [00401310h] ; __vbaStrCopy
loc_00702A59: mov esi, [0073A254h]
loc_00702A5F: mov edx, 004745C8h ; "FireBBPlayerShutDown"
loc_00702A64: lea ecx, var_1C
loc_00702A67: call edi
loc_00702A69: mov edx, 00474594h ; "Shutting down BBPlayer."
loc_00702A6E: lea ecx, var_18
loc_00702A71: call edi
loc_00702A73: mov ecx, [esi]
loc_00702A75: lea edx, var_1C
loc_00702A78: lea eax, var_18
loc_00702A7B: push edx
loc_00702A7C: push eax
loc_00702A7D: push esi
loc_00702A7E: call [ecx+00000748h]
loc_00702A84: cmp eax, ebx
loc_00702A86: fnclex
loc_00702A88: jge 00702A9Ch
loc_00702A8A: push 00000748h
loc_00702A8F: push 004408D0h
loc_00702A94: push esi
loc_00702A95: push eax
loc_00702A96: call [004010CCh] ; __vbaHresultCheckObj
loc_00702A9C: lea ecx, var_1C
loc_00702A9F: lea edx, var_18
loc_00702AA2: push ecx
loc_00702AA3: push edx
loc_00702AA4: push 00000002h
loc_00702AA6: call [00401324h] ; __vbaFreeStrList
loc_00702AAC: add esp, 0000000Ch
loc_00702AAF: push 00702ACBh
loc_00702AB4: jmp 00702ACAh
loc_00702AB6: lea eax, var_1C
loc_00702AB9: lea ecx, var_18
loc_00702ABC: push eax
loc_00702ABD: push ecx
loc_00702ABE: push 00000002h
loc_00702AC0: call [00401324h] ; __vbaFreeStrList
loc_00702AC6: add esp, 0000000Ch
loc_00702AC9: ret
loc_00702ACA: ret
loc_00702ACB: mov eax, Me
loc_00702ACE: push eax
loc_00702ACF: mov edx, [eax]
loc_00702AD1: call [edx+00000008h]
loc_00702AD4: mov eax, var_4
loc_00702AD7: mov ecx, var_14
loc_00702ADA: pop edi
loc_00702ADB: pop esi
loc_00702ADC: mov fs:[00000000h], ecx
loc_00702AE3: pop ebx
loc_00702AE4: mov esp, ebp
loc_00702AE6: pop ebp
loc_00702AE7: retn 0004h
End Sub
Public Sub BBPlayerStartup(objBBPlayer) '702AF0
loc_00702AF0: push ebp
loc_00702AF1: mov ebp, esp
loc_00702AF3: sub esp, 0000000Ch
loc_00702AF6: push 00412856h ; __vbaExceptHandler
loc_00702AFB: mov eax, fs:[00000000h]
loc_00702B01: push eax
loc_00702B02: mov fs:[00000000h], esp
loc_00702B09: sub esp, 00000008h
loc_00702B0C: push ebx
loc_00702B0D: push esi
loc_00702B0E: push edi
loc_00702B0F: mov var_C, esp
loc_00702B12: mov var_8, 004103A0h
loc_00702B19: mov var_4, 00000000h
loc_00702B20: mov eax, Me
loc_00702B23: push eax
loc_00702B24: mov ecx, [eax]
loc_00702B26: call [ecx+00000004h]
loc_00702B29: mov edx, objBBPlayer
loc_00702B2C: mov eax, [edx]
loc_00702B2E: push eax
loc_00702B2F: push 0073A210h
loc_00702B34: call [00401130h] ; __vbaObjSetAddref
loc_00702B3A: mov eax, Me
loc_00702B3D: push eax
loc_00702B3E: mov ecx, [eax]
loc_00702B40: call [ecx+00000008h]
loc_00702B43: mov eax, var_4
loc_00702B46: mov ecx, var_14
loc_00702B49: pop edi
loc_00702B4A: pop esi
loc_00702B4B: mov fs:[00000000h], ecx
loc_00702B52: pop ebx
loc_00702B53: mov esp, ebp
loc_00702B55: pop ebp
loc_00702B56: retn 0008h
End Sub
Public Sub BBPlayerShutDown() '702B60
loc_00702B60: push ebp
loc_00702B61: mov ebp, esp
loc_00702B63: sub esp, 0000000Ch
loc_00702B66: push 00412856h ; __vbaExceptHandler
loc_00702B6B: mov eax, fs:[00000000h]
loc_00702B71: push eax
loc_00702B72: mov fs:[00000000h], esp
loc_00702B79: sub esp, 00000008h
loc_00702B7C: push ebx
loc_00702B7D: push esi
loc_00702B7E: push edi
loc_00702B7F: mov var_C, esp
loc_00702B82: mov var_8, 004103A8h
loc_00702B89: mov var_4, 00000000h
loc_00702B90: mov eax, Me
loc_00702B93: push eax
loc_00702B94: mov ecx, [eax]
loc_00702B96: call [ecx+00000004h]
loc_00702B99: push 004523B0h
loc_00702B9E: push 00000000h
loc_00702BA0: call [004013C4h] ; __vbaCastObj
loc_00702BA6: push eax
loc_00702BA7: push 0073A210h
loc_00702BAC: call [00401128h] ; __vbaObjSet
loc_00702BB2: mov eax, Me
loc_00702BB5: push eax
loc_00702BB6: mov edx, [eax]
loc_00702BB8: call [edx+00000008h]
loc_00702BBB: mov eax, var_4
loc_00702BBE: mov ecx, var_14
loc_00702BC1: pop edi
loc_00702BC2: pop esi
loc_00702BC3: mov fs:[00000000h], ecx
loc_00702BCA: pop ebx
loc_00702BCB: mov esp, ebp
loc_00702BCD: pop ebp
loc_00702BCE: retn 0004h
End Sub
Public Sub BBPlayerPausePlayback(strCaller) '702BE0
loc_00702BE0: push ebp
loc_00702BE1: mov ebp, esp
loc_00702BE3: sub esp, 0000000Ch
loc_00702BE6: push 00412856h ; __vbaExceptHandler
loc_00702BEB: mov eax, fs:[00000000h]
loc_00702BF1: push eax
loc_00702BF2: mov fs:[00000000h], esp
loc_00702BF9: sub esp, 0000001Ch
loc_00702BFC: push ebx
loc_00702BFD: push esi
loc_00702BFE: push edi
loc_00702BFF: mov var_C, esp
loc_00702C02: mov var_8, 004103B0h
loc_00702C09: xor ebx, ebx
loc_00702C0B: mov var_4, ebx
loc_00702C0E: mov esi, Me
loc_00702C11: push esi
loc_00702C12: mov eax, [esi]
loc_00702C14: call [eax+00000004h]
loc_00702C17: mov edi, strCaller
loc_00702C1A: mov var_18, ebx
loc_00702C1D: mov var_1C, ebx
loc_00702C20: mov var_20, ebx
loc_00702C23: mov ecx, [edi]
loc_00702C25: push ecx
loc_00702C26: call [00401044h] ; __vbaLenBstr
loc_00702C2C: test eax, eax
loc_00702C2E: jz 00702C34h
loc_00702C30: mov edx, [edi]
loc_00702C32: jmp 00702C39h
loc_00702C34: mov edx, 004745F8h ; "BBPlayerPausePlayback"
loc_00702C39: lea ecx, var_18
loc_00702C3C: call [00401310h] ; __vbaStrCopy
loc_00702C42: mov edx, [esi]
loc_00702C44: lea eax, var_20
loc_00702C47: push eax
loc_00702C48: push esi
loc_00702C49: call [edx+00000020h]
loc_00702C4C: cmp eax, ebx
loc_00702C4E: jge 00702C63h
loc_00702C50: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_00702C56: push 00000020h
loc_00702C58: push 004523B0h
loc_00702C5D: push esi
loc_00702C5E: push eax
loc_00702C5F: call edi
loc_00702C61: jmp 00702C69h
loc_00702C63: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_00702C69: cmp var_20, bx
loc_00702C6D: jz 00702DC3h
loc_00702C73: cmp [0073A254h], ebx
loc_00702C79: jnz 00702C8Bh
loc_00702C7B: push 0073A254h
loc_00702C80: push 00431838h
loc_00702C85: call [004012FCh] ; __vbaNew2
loc_00702C8B: mov esi, [0073A254h]
loc_00702C91: mov edx, 00447910h ; "Stopping Playback"
loc_00702C96: lea ecx, var_1C
loc_00702C99: call [00401310h] ; __vbaStrCopy
loc_00702C9F: mov ecx, [esi]
loc_00702CA1: lea edx, var_18
loc_00702CA4: lea eax, var_1C
loc_00702CA7: push edx
loc_00702CA8: push eax
loc_00702CA9: push esi
loc_00702CAA: call [ecx+00000748h]
loc_00702CB0: cmp eax, ebx
loc_00702CB2: fnclex
loc_00702CB4: jge 00702CC4h
loc_00702CB6: push 00000748h
loc_00702CBB: push 004408D0h
loc_00702CC0: push esi
loc_00702CC1: push eax
loc_00702CC2: call edi
loc_00702CC4: lea ecx, var_1C
loc_00702CC7: call [00401430h] ; __vbaFreeStr
loc_00702CCD: mov eax, [0073A210h]
loc_00702CD2: push eax
loc_00702CD3: mov ecx, [eax]
loc_00702CD5: call [ecx+00000034h]
loc_00702CD8: cmp eax, ebx
loc_00702CDA: fnclex
loc_00702CDC: jge 00702CEFh
loc_00702CDE: mov edx, [0073A210h]
loc_00702CE4: push 00000034h
loc_00702CE6: push 004523B0h
loc_00702CEB: push edx
loc_00702CEC: push eax
loc_00702CED: call edi
loc_00702CEF: mov eax, [0073A210h]
loc_00702CF4: lea edx, var_20
loc_00702CF7: mov var_20, FFFFFFFFh
loc_00702CFE: push edx
loc_00702CFF: mov ecx, [eax]
loc_00702D01: push eax
loc_00702D02: call [ecx+00000024h]
loc_00702D05: cmp eax, ebx
loc_00702D07: fnclex
loc_00702D09: jge 00702D1Ch
loc_00702D0B: mov ecx, [0073A210h]
loc_00702D11: push 00000024h
loc_00702D13: push 004523B0h
loc_00702D18: push ecx
loc_00702D19: push eax
loc_00702D1A: call edi
loc_00702D1C: mov esi, [00401238h] ; __vbaObjIs
loc_00702D22: mov ebx, [0040113Ch] ; rtcDoEvents
loc_00702D28: mov eax, [0073A210h]
loc_00702D2D: lea ecx, var_20
loc_00702D30: push ecx
loc_00702D31: push eax
loc_00702D32: mov edx, [eax]
loc_00702D34: call [edx+00000020h]
loc_00702D37: test eax, eax
loc_00702D39: fnclex
loc_00702D3B: jge 00702D4Eh
loc_00702D3D: mov edx, [0073A210h]
loc_00702D43: push 00000020h
loc_00702D45: push 004523B0h
loc_00702D4A: push edx
loc_00702D4B: push eax
loc_00702D4C: call edi
loc_00702D4E: cmp var_20, 0000h
loc_00702D53: jz 00702D68h
loc_00702D55: mov eax, [0073A210h]
loc_00702D5A: push 00000000h
loc_00702D5C: push eax
loc_00702D5D: call __vbaObjIs
loc_00702D5F: test ax, ax
loc_00702D62: jnz 00702D68h
loc_00702D64: call ebx
loc_00702D66: jmp 00702D28h
loc_00702D68: mov eax, [0073A254h]
loc_00702D6D: test eax, eax
loc_00702D6F: jnz 00702D81h
loc_00702D71: push 0073A254h
loc_00702D76: push 00431838h
loc_00702D7B: call [004012FCh] ; __vbaNew2
loc_00702D81: mov esi, [0073A254h]
loc_00702D87: mov edx, 00447938h ; "Stopped Playback"
loc_00702D8C: lea ecx, var_1C
loc_00702D8F: call [00401310h] ; __vbaStrCopy
loc_00702D95: mov ecx, [esi]
loc_00702D97: lea edx, var_18
loc_00702D9A: lea eax, var_1C
loc_00702D9D: push edx
loc_00702D9E: push eax
loc_00702D9F: push esi
loc_00702DA0: call [ecx+00000748h]
loc_00702DA6: test eax, eax
loc_00702DA8: fnclex
loc_00702DAA: jge 00702DBAh
loc_00702DAC: push 00000748h
loc_00702DB1: push 004408D0h
loc_00702DB6: push esi
loc_00702DB7: push eax
loc_00702DB8: call edi
loc_00702DBA: lea ecx, var_1C
loc_00702DBD: call [00401430h] ; __vbaFreeStr
loc_00702DC3: push 00702DDEh
loc_00702DC8: jmp 00702DD4h
loc_00702DCA: lea ecx, var_1C
loc_00702DCD: call [00401430h] ; __vbaFreeStr
loc_00702DD3: ret
loc_00702DD4: lea ecx, var_18
loc_00702DD7: call [00401430h] ; __vbaFreeStr
loc_00702DDD: ret
loc_00702DDE: mov eax, Me
loc_00702DE1: push eax
loc_00702DE2: mov ecx, [eax]
loc_00702DE4: call [ecx+00000008h]
loc_00702DE7: mov eax, var_4
loc_00702DEA: mov ecx, var_14
loc_00702DED: pop edi
loc_00702DEE: pop esi
loc_00702DEF: mov fs:[00000000h], ecx
loc_00702DF6: pop ebx
loc_00702DF7: mov esp, ebp
loc_00702DF9: pop ebp
loc_00702DFA: retn 0008h
End Sub
Public Sub BBPlayerResumePlayback(strCaller) '702E00
loc_00702E00: push ebp
loc_00702E01: mov ebp, esp
loc_00702E03: sub esp, 0000000Ch
loc_00702E06: push 00412856h ; __vbaExceptHandler
loc_00702E0B: mov eax, fs:[00000000h]
loc_00702E11: push eax
loc_00702E12: mov fs:[00000000h], esp
loc_00702E19: sub esp, 0000001Ch
loc_00702E1C: push ebx
loc_00702E1D: push esi
loc_00702E1E: push edi
loc_00702E1F: mov var_C, esp
loc_00702E22: mov var_8, 004103C0h
loc_00702E29: xor ebx, ebx
loc_00702E2B: mov var_4, ebx
loc_00702E2E: mov eax, Me
loc_00702E31: push eax
loc_00702E32: mov ecx, [eax]
loc_00702E34: call [ecx+00000004h]
loc_00702E37: mov esi, strCaller
loc_00702E3A: mov var_18, ebx
loc_00702E3D: mov var_1C, ebx
loc_00702E40: mov var_20, ebx
loc_00702E43: mov edx, [esi]
loc_00702E45: push edx
loc_00702E46: call [00401044h] ; __vbaLenBstr
loc_00702E4C: test eax, eax
loc_00702E4E: jz 00702E54h
loc_00702E50: mov edx, [esi]
loc_00702E52: jmp 00702E59h
loc_00702E54: mov edx, 00474628h ; "BBPlayerResumePlayback"
loc_00702E59: lea ecx, var_18
loc_00702E5C: call [00401310h] ; __vbaStrCopy
loc_00702E62: mov eax, [0073A210h]
loc_00702E67: lea edx, var_20
loc_00702E6A: push edx
loc_00702E6B: push eax
loc_00702E6C: mov ecx, [eax]
loc_00702E6E: call [ecx+00000028h]
loc_00702E71: cmp eax, ebx
loc_00702E73: fnclex
loc_00702E75: jge 00702E90h
loc_00702E77: mov ecx, [0073A210h]
loc_00702E7D: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_00702E83: push 00000028h
loc_00702E85: push 004523B0h
loc_00702E8A: push ecx
loc_00702E8B: push eax
loc_00702E8C: call edi
loc_00702E8E: jmp 00702E96h
loc_00702E90: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_00702E96: cmp var_20, bx
loc_00702E9A: jz 00702F75h
loc_00702EA0: cmp [0073A254h], ebx
loc_00702EA6: jnz 00702EB8h
loc_00702EA8: push 0073A254h
loc_00702EAD: push 00431838h
loc_00702EB2: call [004012FCh] ; __vbaNew2
loc_00702EB8: mov esi, [0073A254h]
loc_00702EBE: mov edx, 0047465Ch ; "Continuing Playback"
loc_00702EC3: lea ecx, var_1C
loc_00702EC6: call [00401310h] ; __vbaStrCopy
loc_00702ECC: mov edx, [esi]
loc_00702ECE: lea eax, var_18
loc_00702ED1: lea ecx, var_1C
loc_00702ED4: push eax
loc_00702ED5: push ecx
loc_00702ED6: push esi
loc_00702ED7: call [edx+00000748h]
loc_00702EDD: cmp eax, ebx
loc_00702EDF: fnclex
loc_00702EE1: jge 00702EF1h
loc_00702EE3: push 00000748h
loc_00702EE8: push 004408D0h
loc_00702EED: push esi
loc_00702EEE: push eax
loc_00702EEF: call edi
loc_00702EF1: mov ebx, [00401430h] ; __vbaFreeStr
loc_00702EF7: lea ecx, var_1C
loc_00702EFA: call ebx
loc_00702EFC: mov eax, [0073A210h]
loc_00702F01: push eax
loc_00702F02: mov edx, [eax]
loc_00702F04: call [edx+00000038h]
loc_00702F07: test eax, eax
loc_00702F09: fnclex
loc_00702F0B: jge 00702F1Eh
loc_00702F0D: mov ecx, [0073A210h]
loc_00702F13: push 00000038h
loc_00702F15: push 004523B0h
loc_00702F1A: push ecx
loc_00702F1B: push eax
loc_00702F1C: call edi
loc_00702F1E: mov eax, [0073A254h]
loc_00702F23: test eax, eax
loc_00702F25: jnz 00702F37h
loc_00702F27: push 0073A254h
loc_00702F2C: push 00431838h
loc_00702F31: call [004012FCh] ; __vbaNew2
loc_00702F37: mov esi, [0073A254h]
loc_00702F3D: mov edx, 00474688h ; "Continued Playback"
loc_00702F42: lea ecx, var_1C
loc_00702F45: call [00401310h] ; __vbaStrCopy
loc_00702F4B: mov edx, [esi]
loc_00702F4D: lea eax, var_18
loc_00702F50: lea ecx, var_1C
loc_00702F53: push eax
loc_00702F54: push ecx
loc_00702F55: push esi
loc_00702F56: call [edx+00000748h]
loc_00702F5C: test eax, eax
loc_00702F5E: fnclex
loc_00702F60: jge 00702F70h
loc_00702F62: push 00000748h
loc_00702F67: push 004408D0h
loc_00702F6C: push esi
loc_00702F6D: push eax
loc_00702F6E: call edi
loc_00702F70: lea ecx, var_1C
loc_00702F73: call ebx
loc_00702F75: push 00702F90h
loc_00702F7A: jmp 00702F86h
loc_00702F7C: lea ecx, var_1C
loc_00702F7F: call [00401430h] ; __vbaFreeStr
loc_00702F85: ret
loc_00702F86: lea ecx, var_18
loc_00702F89: call [00401430h] ; __vbaFreeStr
loc_00702F8F: ret
loc_00702F90: mov eax, Me
loc_00702F93: push eax
loc_00702F94: mov edx, [eax]
loc_00702F96: call [edx+00000008h]
loc_00702F99: mov eax, var_4
loc_00702F9C: mov ecx, var_14
loc_00702F9F: pop edi
loc_00702FA0: pop esi
loc_00702FA1: mov fs:[00000000h], ecx
loc_00702FA8: pop ebx
loc_00702FA9: mov esp, ebp
loc_00702FAB: pop ebp
loc_00702FAC: retn 0008h
End Sub
Public Function IsConnected(arg_C) '702FB0
loc_00702FB0: push ebp
loc_00702FB1: mov ebp, esp
loc_00702FB3: sub esp, 0000000Ch
loc_00702FB6: push 00412856h ; __vbaExceptHandler
loc_00702FBB: mov eax, fs:[00000000h]
loc_00702FC1: push eax
loc_00702FC2: mov fs:[00000000h], esp
loc_00702FC9: sub esp, 00000010h
loc_00702FCC: push ebx
loc_00702FCD: push esi
loc_00702FCE: push edi
loc_00702FCF: mov var_C, esp
loc_00702FD2: mov var_8, 004103D0h
loc_00702FD9: xor esi, esi
loc_00702FDB: mov var_4, esi
loc_00702FDE: mov eax, Me
loc_00702FE1: push eax
loc_00702FE2: mov ecx, [eax]
loc_00702FE4: call [ecx+00000004h]
loc_00702FE7: mov eax, [0073A254h]
loc_00702FEC: mov var_18, esi
loc_00702FEF: cmp eax, esi
loc_00702FF1: mov var_1C, esi
loc_00702FF4: jnz 00703006h
loc_00702FF6: push 0073A254h
loc_00702FFB: push 00431838h
loc_00703000: call [004012FCh] ; __vbaNew2
loc_00703006: mov eax, [0073A254h]
loc_0070300B: lea edx, var_1C
loc_0070300E: push edx
loc_0070300F: push eax
loc_00703010: call 006A91B0h
loc_00703015: mov ecx, var_1C
loc_00703018: mov var_18, ecx
loc_0070301B: mov eax, Me
loc_0070301E: push eax
loc_0070301F: mov edx, [eax]
loc_00703021: call [edx+00000008h]
loc_00703024: mov eax, arg_C
loc_00703027: mov cx, var_18
loc_0070302B: mov [eax], cx
loc_0070302E: mov eax, var_4
loc_00703031: mov ecx, var_14
loc_00703034: pop edi
loc_00703035: pop esi
loc_00703036: mov fs:[00000000h], ecx
loc_0070303D: pop ebx
loc_0070303E: mov esp, ebp
loc_00703040: pop ebp
loc_00703041: retn 0008h
End Function

3513
Src Code/clsBBuddyMoveClass.cls
File diff suppressed because it is too large
View File

3417
Src Code/clsBonziEventDaily.cls
File diff suppressed because it is too large
View File

2345
Src Code/clsBonziEventEmail.cls
File diff suppressed because it is too large
View File

2680
Src Code/clsBonziEventProduct.cls
File diff suppressed because it is too large
View File

1318
Src Code/clsBonziEventQueue.cls
File diff suppressed because it is too large
View File

447
Src Code/clsBonziEventQueueItem.cls
View File

@ -0,0 +1,447 @@
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

257
Src Code/clsBonziEventSkeleton.cls
View File

@ -0,0 +1,257 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsBonziEventSkeleton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Sub RunEvent() '653BE0
loc_00653BE0: push ebp
loc_00653BE1: mov ebp, esp
loc_00653BE3: sub esp, 0000000Ch
loc_00653BE6: push 00412856h ; __vbaExceptHandler
loc_00653BEB: mov eax, fs:[00000000h]
loc_00653BF1: push eax
loc_00653BF2: mov fs:[00000000h], esp
loc_00653BF9: sub esp, 00000040h
loc_00653BFC: push ebx
loc_00653BFD: push esi
loc_00653BFE: push edi
loc_00653BFF: mov var_C, esp
loc_00653C02: mov var_8, 00406DC0h
loc_00653C09: xor edi, edi
loc_00653C0B: mov var_4, edi
loc_00653C0E: mov esi, Me
loc_00653C11: push esi
loc_00653C12: mov eax, [esi]
loc_00653C14: call [eax+00000004h]
loc_00653C17: movsx eax, [esi+00000034h]
loc_00653C1B: dec eax
loc_00653C1C: mov var_18, edi
loc_00653C1F: mov var_28, edi
loc_00653C22: mov var_38, edi
loc_00653C25: mov var_3C, edi
loc_00653C28: jz 00653C5Fh
loc_00653C2A: mov eax, [esi+00000038h]
loc_00653C2D: lea edx, var_3C
loc_00653C30: mov var_3C, 00000003h
loc_00653C37: push edx
loc_00653C38: mov ecx, [eax]
loc_00653C3A: push eax
loc_00653C3B: call [ecx+00000030h]
loc_00653C3E: cmp eax, edi
loc_00653C40: fnclex
loc_00653C42: jge 00653D3Ch
loc_00653C48: mov ecx, [esi+00000038h]
loc_00653C4B: push 00000030h
loc_00653C4D: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
loc_00653C52: push ecx
loc_00653C53: push eax
loc_00653C54: call [004010CCh] ; __vbaHresultCheckObj
loc_00653C5A: jmp 00653D3Ch
loc_00653C5F: call 00621930h
loc_00653C64: mov dx, [esi+00000034h]
loc_00653C68: add dx, 0001h
loc_00653C6C: jo 00653D6Dh
loc_00653C72: mov [esi+00000034h], dx
loc_00653C76: mov eax, [0073A254h]
loc_00653C7B: cmp eax, edi
loc_00653C7D: jnz 00653C8Fh
loc_00653C7F: push 0073A254h
loc_00653C84: push 00431838h
loc_00653C89: call [004012FCh] ; __vbaNew2
loc_00653C8F: mov esi, [0073A254h]
loc_00653C95: push esi
loc_00653C96: mov eax, [esi]
loc_00653C98: call [eax+0000074Ch]
loc_00653C9E: cmp eax, edi
loc_00653CA0: fnclex
loc_00653CA2: jge 00653CB6h
loc_00653CA4: push 0000074Ch
loc_00653CA9: push 004408D0h
loc_00653CAE: push esi
loc_00653CAF: push eax
loc_00653CB0: call [004010CCh] ; __vbaHresultCheckObj
loc_00653CB6: lea ebx, var_18
loc_00653CB9: mov ecx, 0000000Ah
loc_00653CBE: push ebx
loc_00653CBF: mov eax, 80020004h
loc_00653CC4: sub esp, 00000010h
loc_00653CC7: mov edi, [0073A08Ch]
loc_00653CCD: mov ebx, esp
loc_00653CCF: sub esp, 00000010h
loc_00653CD2: mov esi, 00000008h
loc_00653CD7: mov edi, [edi]
loc_00653CD9: mov [ebx], ecx
loc_00653CDB: mov ecx, var_34
loc_00653CDE: mov edx, 0045257Ch ; "last spoken text"
loc_00653CE3: mov [ebx+00000004h], ecx
loc_00653CE6: mov ecx, esp
loc_00653CE8: mov [ebx+00000008h], eax
loc_00653CEB: mov eax, var_2C
loc_00653CEE: mov [ebx+0000000Ch], eax
loc_00653CF1: mov eax, var_24
loc_00653CF4: mov [ecx], esi
loc_00653CF6: mov [ecx+00000004h], eax
loc_00653CF9: mov eax, [0073A08Ch]
loc_00653CFE: push eax
loc_00653CFF: mov [ecx+00000008h], edx
loc_00653D02: mov edx, var_1C
loc_00653D05: mov [ecx+0000000Ch], edx
loc_00653D08: call [edi+00000078h]
loc_00653D0B: test eax, eax
loc_00653D0D: fnclex
loc_00653D0F: jge 00653D26h
loc_00653D11: mov ecx, [0073A08Ch]
loc_00653D17: push 00000078h
loc_00653D19: push 004419ACh
loc_00653D1E: push ecx
loc_00653D1F: push eax
loc_00653D20: call [004010CCh] ; __vbaHresultCheckObj
loc_00653D26: mov eax, var_18
loc_00653D29: mov var_18, 00000000h
loc_00653D30: push eax
loc_00653D31: push 0073A208h
loc_00653D36: call [00401128h] ; __vbaObjSet
loc_00653D3C: push 00653D4Eh
loc_00653D41: jmp 00653D4Dh
loc_00653D43: lea ecx, var_18
loc_00653D46: call [0040142Ch] ; __vbaFreeObj
loc_00653D4C: ret
loc_00653D4D: ret
loc_00653D4E: mov eax, Me
loc_00653D51: push eax
loc_00653D52: mov edx, [eax]
loc_00653D54: call [edx+00000008h]
loc_00653D57: mov eax, var_4
loc_00653D5A: mov ecx, var_14
loc_00653D5D: pop edi
loc_00653D5E: pop esi
loc_00653D5F: mov fs:[00000000h], ecx
loc_00653D66: pop ebx
loc_00653D67: mov esp, ebp
loc_00653D69: pop ebp
loc_00653D6A: retn 0004h
End Sub
Public Sub SetParentReference(ParentObject) '653D80
loc_00653D80: push ebp
loc_00653D81: mov ebp, esp
loc_00653D83: sub esp, 0000000Ch
loc_00653D86: push 00412856h ; __vbaExceptHandler
loc_00653D8B: mov eax, fs:[00000000h]
loc_00653D91: push eax
loc_00653D92: mov fs:[00000000h], esp
loc_00653D99: sub esp, 00000014h
loc_00653D9C: push ebx
loc_00653D9D: push esi
loc_00653D9E: push edi
loc_00653D9F: mov var_C, esp
loc_00653DA2: mov var_8, 00406DD0h
loc_00653DA9: xor ebx, ebx
loc_00653DAB: mov var_4, ebx
loc_00653DAE: mov esi, Me
loc_00653DB1: push esi
loc_00653DB2: mov eax, [esi]
loc_00653DB4: call [eax+00000004h]
loc_00653DB7: mov ecx, ParentObject
loc_00653DBA: mov edi, [00401130h] ; __vbaObjSetAddref
loc_00653DC0: lea edx, var_18
loc_00653DC3: push ecx
loc_00653DC4: push edx
loc_00653DC5: mov var_18, ebx
loc_00653DC8: mov var_1C, ebx
loc_00653DCB: call edi
loc_00653DCD: mov eax, var_18
loc_00653DD0: add esi, 00000038h
loc_00653DD3: push eax
loc_00653DD4: push esi
loc_00653DD5: call edi
loc_00653DD7: mov ecx, [esi]
loc_00653DD9: push ebx
loc_00653DDA: push ecx
loc_00653DDB: call [00401238h] ; __vbaObjIs
loc_00653DE1: test ax, ax
loc_00653DE4: jnz 00653E0Ch
loc_00653DE6: mov eax, [esi]
loc_00653DE8: lea ecx, var_1C
loc_00653DEB: mov var_1C, ebx
loc_00653DEE: push ecx
loc_00653DEF: mov edx, [eax]
loc_00653DF1: push eax
loc_00653DF2: call [edx+00000038h]
loc_00653DF5: cmp eax, ebx
loc_00653DF7: fnclex
loc_00653DF9: jge 00653E0Ch
loc_00653DFB: mov edx, [esi]
loc_00653DFD: push 00000038h
loc_00653DFF: push 004523F0h ; "¤" & Chr(37) & "÷RîÆà@œ" & Chr(13) & "ÒX‰Y†'BBEvent"
loc_00653E04: push edx
loc_00653E05: push eax
loc_00653E06: call [004010CCh] ; __vbaHresultCheckObj
loc_00653E0C: push 00653E1Bh
loc_00653E11: lea ecx, var_18
loc_00653E14: call [0040142Ch] ; __vbaFreeObj
loc_00653E1A: ret
loc_00653E1B: mov eax, Me
loc_00653E1E: push eax
loc_00653E1F: mov ecx, [eax]
loc_00653E21: call [ecx+00000008h]
loc_00653E24: mov eax, var_4
loc_00653E27: mov ecx, var_14
loc_00653E2A: pop edi
loc_00653E2B: pop esi
loc_00653E2C: mov fs:[00000000h], ecx
loc_00653E33: pop ebx
loc_00653E34: mov esp, ebp
loc_00653E36: pop ebp
loc_00653E37: retn 0008h
End Sub
Private Sub Proc_32_2_653E40
loc_00653E40: push ebp
loc_00653E41: mov ebp, esp
loc_00653E43: sub esp, 0000000Ch
loc_00653E46: push 00412856h ; __vbaExceptHandler
loc_00653E4B: mov eax, fs:[00000000h]
loc_00653E51: push eax
loc_00653E52: mov fs:[00000000h], esp
loc_00653E59: sub esp, 00000008h
loc_00653E5C: push ebx
loc_00653E5D: push esi
loc_00653E5E: push edi
loc_00653E5F: mov var_C, esp
loc_00653E62: mov var_8, 00406DE0h
loc_00653E69: mov esi, Me
loc_00653E6C: mov eax, esi
loc_00653E6E: and eax, 00000001h
loc_00653E71: mov var_4, eax
loc_00653E74: and esi, FFFFFFFEh
loc_00653E77: push esi
loc_00653E78: mov Me, esi
loc_00653E7B: mov ecx, [esi]
loc_00653E7D: call [ecx+00000004h]
loc_00653E80: mov [esi+00000034h], 0001h
loc_00653E86: mov var_4, 00000000h
loc_00653E8D: mov eax, Me
loc_00653E90: push eax
loc_00653E91: mov edx, [eax]
loc_00653E93: call [edx+00000008h]
loc_00653E96: mov eax, var_4
loc_00653E99: mov ecx, var_14
loc_00653E9C: pop edi
loc_00653E9D: pop esi
loc_00653E9E: mov fs:[00000000h], ecx
loc_00653EA5: pop ebx
loc_00653EA6: mov esp, ebp
loc_00653EA8: pop ebp
loc_00653EA9: retn 0004h
End Sub

5055
Src Code/clsBonziEventTap.cls
File diff suppressed because it is too large
View File

3994
Src Code/clsBonziEventUpdate.cls
File diff suppressed because it is too large
View File

1431
Src Code/clsClickTheButton.cls
File diff suppressed because it is too large
View File

453
Src Code/clsDownloadManager.cls
View File

@ -0,0 +1,453 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsDownloadManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function DownloadManagerHandleDownload(strURL) '5F8B60
loc_005F8B60: push ebp
loc_005F8B61: mov ebp, esp
loc_005F8B63: sub esp, 00000014h
loc_005F8B66: push 00412856h ; __vbaExceptHandler
loc_005F8B6B: mov eax, fs:[00000000h]
loc_005F8B71: push eax
loc_005F8B72: mov fs:[00000000h], esp
loc_005F8B79: sub esp, 00000088h
loc_005F8B7F: push ebx
loc_005F8B80: push esi
loc_005F8B81: push edi
loc_005F8B82: mov var_14, esp
loc_005F8B85: mov var_10, 00403BA0h
loc_005F8B8C: xor esi, esi
loc_005F8B8E: mov var_C, esi
loc_005F8B91: mov var_8, esi
loc_005F8B94: mov eax, Me
loc_005F8B97: mov ecx, [eax]
loc_005F8B99: push eax
loc_005F8B9A: call [ecx+00000004h]
loc_005F8B9D: mov ecx, 00000008h
loc_005F8BA2: xor eax, eax
loc_005F8BA4: lea edi, var_3C
loc_005F8BA7: repz stosd
loc_005F8BA9: mov var_40, esi
loc_005F8BAC: mov var_44, esi
loc_005F8BAF: mov var_48, esi
loc_005F8BB2: mov var_4C, esi
loc_005F8BB5: mov var_50, esi
loc_005F8BB8: mov var_60, esi
loc_005F8BBB: mov var_70, esi
loc_005F8BBE: mov var_80, esi
loc_005F8BC1: mov var_84, esi
loc_005F8BC7: mov edx, strURL
loc_005F8BCA: lea ecx, var_44
loc_005F8BCD: call [00401310h] ; __vbaStrCopy
loc_005F8BD3: push 00000001h
loc_005F8BD5: call [00401124h] ; __vbaOnError
loc_005F8BDB: mov [0073A21Eh], FFFFFFh
loc_005F8BE4: cmp [0073A254h], esi
loc_005F8BEA: jnz 005F8BFCh
loc_005F8BEC: push 0073A254h
loc_005F8BF1: push 00431838h
loc_005F8BF6: call [004012FCh] ; __vbaNew2
loc_005F8BFC: mov esi, [0073A254h]
loc_005F8C02: mov eax, 80020004h
loc_005F8C07: mov var_78, eax
loc_005F8C0A: mov ecx, 0000000Ah
loc_005F8C0F: mov var_80, ecx
loc_005F8C12: mov edx, eax
loc_005F8C14: mov var_68, edx
loc_005F8C17: mov var_70, ecx
loc_005F8C1A: mov edi, [esi]
loc_005F8C1C: sub esp, 00000010h
loc_005F8C1F: mov ebx, esp
loc_005F8C21: mov [ebx], ecx
loc_005F8C23: mov ecx, var_7C
loc_005F8C26: mov [ebx+00000004h], ecx
loc_005F8C29: mov [ebx+00000008h], eax
loc_005F8C2C: mov eax, var_74
loc_005F8C2F: mov [ebx+0000000Ch], eax
loc_005F8C32: sub esp, 00000010h
loc_005F8C35: mov ecx, esp
loc_005F8C37: mov eax, var_70
loc_005F8C3A: mov [ecx], eax
loc_005F8C3C: mov eax, var_6C
loc_005F8C3F: mov [ecx+00000004h], eax
loc_005F8C42: mov [ecx+00000008h], edx
loc_005F8C45: mov edx, var_64
loc_005F8C48: mov [ecx+0000000Ch], edx
loc_005F8C4B: push esi
loc_005F8C4C: call [edi+000002B0h]
loc_005F8C52: fnclex
loc_005F8C54: test eax, eax
loc_005F8C56: jge 005F8C6Ah
loc_005F8C58: push 000002B0h
loc_005F8C5D: push 00440B20h
loc_005F8C62: push esi
loc_005F8C63: push eax
loc_005F8C64: call [004010CCh] ; __vbaHresultCheckObj
loc_005F8C6A: mov eax, [0073C818h]
loc_005F8C6F: test eax, eax
loc_005F8C71: jnz 005F8C87h
loc_005F8C73: push 0073C818h
loc_005F8C78: push 00441F00h
loc_005F8C7D: mov edi, [004012FCh] ; __vbaNew2
loc_005F8C83: call edi
loc_005F8C85: jmp 005F8C8Dh
loc_005F8C87: mov edi, [004012FCh] ; __vbaNew2
loc_005F8C8D: mov esi, [0073C818h]
loc_005F8C93: mov eax, [0073A2D4h]
loc_005F8C98: test eax, eax
loc_005F8C9A: jnz 005F8CA8h
loc_005F8C9C: push 0073A2D4h
loc_005F8CA1: push 00420A7Ch
loc_005F8CA6: call edi
loc_005F8CA8: mov ebx, [esi]
loc_005F8CAA: mov eax, [0073A2D4h]
loc_005F8CAF: push eax
loc_005F8CB0: lea ecx, var_50
loc_005F8CB3: push ecx
loc_005F8CB4: call [00401130h] ; __vbaObjSetAddref
loc_005F8CBA: push eax
loc_005F8CBB: push esi
loc_005F8CBC: call [ebx+0000000Ch]
loc_005F8CBF: fnclex
loc_005F8CC1: test eax, eax
loc_005F8CC3: jge 005F8CD4h
loc_005F8CC5: push 0000000Ch
loc_005F8CC7: push 00441EF0h
loc_005F8CCC: push esi
loc_005F8CCD: push eax
loc_005F8CCE: call [004010CCh] ; __vbaHresultCheckObj
loc_005F8CD4: lea ecx, var_50
loc_005F8CD7: call [0040142Ch] ; __vbaFreeObj
loc_005F8CDD: mov edx, var_44
loc_005F8CE0: push edx
loc_005F8CE1: mov esi, [00401088h] ; rtcTrimBstr
loc_005F8CE7: call rtcTrimBstr
loc_005F8CE9: mov edx, eax
loc_005F8CEB: lea ecx, var_48
loc_005F8CEE: call [004013C0h] ; __vbaStrMove
loc_005F8CF4: mov edx, eax
loc_005F8CF6: lea ecx, var_38
loc_005F8CF9: mov ebx, [00401310h] ; __vbaStrCopy
loc_005F8CFF: call ebx
loc_005F8D01: lea ecx, var_48
loc_005F8D04: call [00401430h] ; __vbaFreeStr
loc_005F8D0A: mov eax, [0073A2D4h]
loc_005F8D0F: test eax, eax
loc_005F8D11: jnz 005F8D1Fh
loc_005F8D13: push 0073A2D4h
loc_005F8D18: push 00420A7Ch
loc_005F8D1D: call edi
loc_005F8D1F: lea eax, var_4C
loc_005F8D22: push eax
loc_005F8D23: mov ecx, var_44
loc_005F8D26: push ecx
loc_005F8D27: call rtcTrimBstr
loc_005F8D29: mov edx, eax
loc_005F8D2B: lea ecx, var_48
loc_005F8D2E: call [004013C0h] ; __vbaStrMove
loc_005F8D34: push eax
loc_005F8D35: mov edx, [0073A2D4h]
loc_005F8D3B: push edx
loc_005F8D3C: call 005CB3F0h
loc_005F8D41: mov edx, var_4C
loc_005F8D44: lea ecx, var_3C
loc_005F8D47: call ebx
loc_005F8D49: lea eax, var_4C
loc_005F8D4C: push eax
loc_005F8D4D: lea ecx, var_48
loc_005F8D50: push ecx
loc_005F8D51: push 00000002h
loc_005F8D53: call [00401324h] ; __vbaFreeStrList
loc_005F8D59: add esp, 0000000Ch
loc_005F8D5C: mov edx, 0044379Ch ; "NEW"
loc_005F8D61: lea ecx, var_28
loc_005F8D64: call ebx
loc_005F8D66: mov eax, [0073A2D4h]
loc_005F8D6B: test eax, eax
loc_005F8D6D: jnz 005F8D7Bh
loc_005F8D6F: push 0073A2D4h
loc_005F8D74: push 00420A7Ch
loc_005F8D79: call edi
loc_005F8D7B: lea edx, var_84
loc_005F8D81: push edx
loc_005F8D82: lea eax, var_3C
loc_005F8D85: push eax
loc_005F8D86: mov ecx, [0073A2D4h]
loc_005F8D8C: push ecx
loc_005F8D8D: call 005C3670h
loc_005F8D92: cmp var_84, 0000h
loc_005F8D9A: jz 005F908Ch
loc_005F8DA0: mov eax, [0073A2D4h]
loc_005F8DA5: test eax, eax
loc_005F8DA7: jnz 005F8DB5h
loc_005F8DA9: push 0073A2D4h
loc_005F8DAE: push 00420A7Ch
loc_005F8DB3: call edi
loc_005F8DB5: mov edx, [0073A2D4h]
loc_005F8DBB: push edx
loc_005F8DBC: call 005C55E0h
loc_005F8DC1: mov eax, [0073A2D4h]
loc_005F8DC6: test eax, eax
loc_005F8DC8: jnz 005F8DD6h
loc_005F8DCA: push 0073A2D4h
loc_005F8DCF: push 00420A7Ch
loc_005F8DD4: call edi
loc_005F8DD6: mov esi, [0073A2D4h]
loc_005F8DDC: mov eax, [esi]
loc_005F8DDE: lea ecx, var_84
loc_005F8DE4: push ecx
loc_005F8DE5: push esi
loc_005F8DE6: call [eax+000006F8h]
loc_005F8DEC: fnclex
loc_005F8DEE: test eax, eax
loc_005F8DF0: jge 005F8E04h
loc_005F8DF2: push 000006F8h
loc_005F8DF7: push 00443270h ; "lmÕMI¸ŸI¢9Ë’ÄÙ£ímnuPopupEdit"
loc_005F8DFC: push esi
loc_005F8DFD: push eax
loc_005F8DFE: call [004010CCh] ; __vbaHresultCheckObj
loc_005F8E04: mov eax, [0073A254h]
loc_005F8E09: test eax, eax
loc_005F8E0B: jnz 005F8E19h
loc_005F8E0D: push 0073A254h
loc_005F8E12: push 00431838h
loc_005F8E17: call edi
loc_005F8E19: mov esi, [0073A254h]
loc_005F8E1F: mov edx, 004479E8h ; "DownloadManagerHandleDownload"
loc_005F8E24: lea ecx, var_4C
loc_005F8E27: call ebx
loc_005F8E29: mov var_68, 004479A0h ; "DownloadInProgress = "
loc_005F8E30: mov var_70, 00000008h
loc_005F8E37: mov dx, var_84
loc_005F8E3E: mov var_78, dx
loc_005F8E42: mov var_80, 0000000Bh
loc_005F8E49: lea eax, var_70
loc_005F8E4C: push eax
loc_005F8E4D: lea ecx, var_80
loc_005F8E50: push ecx
loc_005F8E51: lea edx, var_60
loc_005F8E54: push edx
loc_005F8E55: call [004012B0h] ; __vbaVarCat
loc_005F8E5B: push eax
loc_005F8E5C: call [00401040h] ; __vbaStrVarMove
loc_005F8E62: mov edx, eax
loc_005F8E64: lea ecx, var_48
loc_005F8E67: call [004013C0h] ; __vbaStrMove
loc_005F8E6D: mov eax, [esi]
loc_005F8E6F: lea ecx, var_4C
loc_005F8E72: push ecx
loc_005F8E73: lea edx, var_48
loc_005F8E76: push edx
loc_005F8E77: push esi
loc_005F8E78: call [eax+00000748h]
loc_005F8E7E: fnclex
loc_005F8E80: test eax, eax
loc_005F8E82: jge 005F8E9Ah
loc_005F8E84: push 00000748h
loc_005F8E89: push 004408D0h
loc_005F8E8E: push esi
loc_005F8E8F: push eax
loc_005F8E90: mov ebx, [004010CCh] ; __vbaHresultCheckObj
loc_005F8E96: call ebx
loc_005F8E98: jmp 005F8EA0h
loc_005F8E9A: mov ebx, [004010CCh] ; __vbaHresultCheckObj
loc_005F8EA0: lea eax, var_4C
loc_005F8EA3: push eax
loc_005F8EA4: lea ecx, var_48
loc_005F8EA7: push ecx
loc_005F8EA8: push 00000002h
loc_005F8EAA: call [00401324h] ; __vbaFreeStrList
loc_005F8EB0: lea edx, var_60
loc_005F8EB3: push edx
loc_005F8EB4: lea eax, var_80
loc_005F8EB7: push eax
loc_005F8EB8: push 00000002h
loc_005F8EBA: call [00401050h] ; __vbaFreeVarList
loc_005F8EC0: add esp, 00000018h
loc_005F8EC3: mov eax, [0073A2D4h]
loc_005F8EC8: test eax, eax
loc_005F8ECA: jnz 005F8ED8h
loc_005F8ECC: push 0073A2D4h
loc_005F8ED1: push 00420A7Ch
loc_005F8ED6: call edi
loc_005F8ED8: mov esi, [0073A2D4h]
loc_005F8EDE: mov ecx, [esi]
loc_005F8EE0: lea edx, var_84
loc_005F8EE6: push edx
loc_005F8EE7: push esi
loc_005F8EE8: call [ecx+000006F8h]
loc_005F8EEE: fnclex
loc_005F8EF0: test eax, eax
loc_005F8EF2: jge 005F8F02h
loc_005F8EF4: push 000006F8h
loc_005F8EF9: push 00443270h ; "lmÕMI¸ŸI¢9Ë’ÄÙ£ímnuPopupEdit"
loc_005F8EFE: push esi
loc_005F8EFF: push eax
loc_005F8F00: call ebx
loc_005F8F02: cmp var_84, 0000h
loc_005F8F0A: mov eax, [0073A2D4h]
loc_005F8F0F: jnz 005F8F72h
loc_005F8F11: test eax, eax
loc_005F8F13: jnz 005F8F21h
loc_005F8F15: push 0073A2D4h
loc_005F8F1A: push 00420A7Ch
loc_005F8F1F: call edi
loc_005F8F21: mov eax, [0073A2D4h]
loc_005F8F26: push eax
loc_005F8F27: call 005C80F0h
loc_005F8F2C: mov eax, [0073A2D4h]
loc_005F8F31: test eax, eax
loc_005F8F33: jnz 005F8F41h
loc_005F8F35: push 0073A2D4h
loc_005F8F3A: push 00420A7Ch
loc_005F8F3F: call edi
loc_005F8F41: mov ecx, [0073A2D4h]
loc_005F8F47: push ecx
loc_005F8F48: call 005C2CB0h
loc_005F8F4D: mov eax, [0073A2D4h]
loc_005F8F52: test eax, eax
loc_005F8F54: jnz 005F8F62h
loc_005F8F56: push 0073A2D4h
loc_005F8F5B: push 00420A7Ch
loc_005F8F60: call edi
loc_005F8F62: push 00000000h
loc_005F8F64: mov edx, [0073A2D4h]
loc_005F8F6A: push edx
loc_005F8F6B: call 005C18E0h
loc_005F8F70: jmp 005F8FB3h
loc_005F8F72: test eax, eax
loc_005F8F74: jnz 005F8F82h
loc_005F8F76: push 0073A2D4h
loc_005F8F7B: push 00420A7Ch
loc_005F8F80: call edi
loc_005F8F82: lea eax, var_3C
loc_005F8F85: push eax
loc_005F8F86: mov ecx, [0073A2D4h]
loc_005F8F8C: push ecx
loc_005F8F8D: call 005C7BE0h
loc_005F8F92: mov eax, [0073A2D4h]
loc_005F8F97: test eax, eax
loc_005F8F99: jnz 005F8FA7h
loc_005F8F9B: push 0073A2D4h
loc_005F8FA0: push 00420A7Ch
loc_005F8FA5: call edi
loc_005F8FA7: mov edx, [0073A2D4h]
loc_005F8FAD: push edx
loc_005F8FAE: call 005C1C60h
loc_005F8FB3: mov eax, [0073A2D4h]
loc_005F8FB8: test eax, eax
loc_005F8FBA: jnz 005F8FC8h
loc_005F8FBC: push 0073A2D4h
loc_005F8FC1: push 00420A7Ch
loc_005F8FC6: call edi
loc_005F8FC8: mov esi, [0073A2D4h]
loc_005F8FCE: mov eax, [esi]
loc_005F8FD0: lea ecx, var_84
loc_005F8FD6: push ecx
loc_005F8FD7: push esi
loc_005F8FD8: call [eax+000001B8h]
loc_005F8FDE: fnclex
loc_005F8FE0: test eax, eax
loc_005F8FE2: jge 005F8FF2h
loc_005F8FE4: push 000001B8h
loc_005F8FE9: push 00443240h
loc_005F8FEE: push esi
loc_005F8FEF: push eax
loc_005F8FF0: call ebx
loc_005F8FF2: cmp var_84, 0000h
loc_005F8FFA: jnz 005F9083h
loc_005F9000: mov eax, [0073A2D4h]
loc_005F9005: test eax, eax
loc_005F9007: jnz 005F9015h
loc_005F9009: push 0073A2D4h
loc_005F900E: push 00420A7Ch
loc_005F9013: call edi
loc_005F9015: mov esi, [0073A2D4h]
loc_005F901B: mov eax, 80020004h
loc_005F9020: mov var_78, eax
loc_005F9023: mov ecx, 0000000Ah
loc_005F9028: mov var_80, ecx
loc_005F902B: mov edx, eax
loc_005F902D: mov var_68, edx
loc_005F9030: mov var_70, ecx
loc_005F9033: mov edi, [esi]
loc_005F9035: sub esp, 00000010h
loc_005F9038: mov ebx, esp
loc_005F903A: mov [ebx], ecx
loc_005F903C: mov ecx, var_7C
loc_005F903F: mov [ebx+00000004h], ecx
loc_005F9042: mov [ebx+00000008h], eax
loc_005F9045: mov eax, var_74
loc_005F9048: mov [ebx+0000000Ch], eax
loc_005F904B: sub esp, 00000010h
loc_005F904E: mov ecx, esp
loc_005F9050: mov eax, var_70
loc_005F9053: mov [ecx], eax
loc_005F9055: mov eax, var_6C
loc_005F9058: mov [ecx+00000004h], eax
loc_005F905B: mov [ecx+00000008h], edx
loc_005F905E: mov edx, var_64
loc_005F9061: mov [ecx+0000000Ch], edx
loc_005F9064: push esi
loc_005F9065: call [edi+000002B0h]
loc_005F906B: fnclex
loc_005F906D: test eax, eax
loc_005F906F: jge 005F9083h
loc_005F9071: push 000002B0h
loc_005F9076: push 00443240h
loc_005F907B: push esi
loc_005F907C: push eax
loc_005F907D: call [004010CCh] ; __vbaHresultCheckObj
loc_005F9083: mov var_40, FFFFFFFFh
loc_005F908A: jmp 005F9093h
loc_005F908C: mov var_40, 00000000h
loc_005F9093: call [00401114h] ; __vbaExitProc
loc_005F9099: push 005F90DFh
loc_005F909E: jmp 005F90C6h
loc_005F90A0: lea eax, var_4C
loc_005F90A3: push eax
loc_005F90A4: lea ecx, var_48
loc_005F90A7: push ecx
loc_005F90A8: push 00000002h
loc_005F90AA: call [00401324h] ; __vbaFreeStrList
loc_005F90B0: add esp, 0000000Ch
loc_005F90B3: lea ecx, var_50
loc_005F90B6: call [0040142Ch] ; __vbaFreeObj
loc_005F90BC: lea ecx, var_60
loc_005F90BF: call [00401030h] ; __vbaFreeVar
loc_005F90C5: ret
loc_005F90C6: lea edx, var_3C
loc_005F90C9: push edx
loc_005F90CA: push 0043E41Ch ; ", "
loc_005F90CF: call [004010C0h] ; __vbaRecDestruct
loc_005F90D5: lea ecx, var_44
loc_005F90D8: call [00401430h] ; __vbaFreeStr
loc_005F90DE: ret
loc_005F90DF: mov eax, Me
loc_005F90E2: mov ecx, [eax]
loc_005F90E4: push eax
loc_005F90E5: call [ecx+00000008h]
loc_005F90E8: mov edx, arg_10
loc_005F90EB: mov ax, var_40
loc_005F90EF: mov [edx], ax
loc_005F90F2: mov eax, var_C
loc_005F90F5: mov ecx, var_1C
loc_005F90F8: mov fs:[00000000h], ecx
loc_005F90FF: pop edi
loc_005F9100: pop esi
loc_005F9101: pop ebx
loc_005F9102: mov esp, ebp
loc_005F9104: pop ebp
loc_005F9105: retn 000Ch
End Function

2257
Src Code/clsDrawPictures.cls
File diff suppressed because it is too large
View File

704
Src Code/clsRegistration.cls
View File

@ -0,0 +1,704 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsRegistration"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Let BuggerOff(vNewVal) '738030
loc_00738030: push ebp
loc_00738031: mov ebp, esp
loc_00738033: sub esp, 0000000Ch
loc_00738036: push 00412856h ; __vbaExceptHandler
loc_0073803B: mov eax, fs:[00000000h]
loc_00738041: push eax
loc_00738042: mov fs:[00000000h], esp
loc_00738049: sub esp, 00000008h
loc_0073804C: push ebx
loc_0073804D: push esi
loc_0073804E: push edi
loc_0073804F: mov var_C, esp
loc_00738052: mov var_8, 004127B8h
loc_00738059: mov var_4, 00000000h
loc_00738060: mov esi, Me
loc_00738063: push esi
loc_00738064: mov eax, [esi]
loc_00738066: call [eax+00000004h]
loc_00738069: mov ecx, vNewVal
loc_0073806C: mov dx, [ecx]
loc_0073806F: mov [esi+00000034h], dx
loc_00738073: mov eax, Me
loc_00738076: push eax
loc_00738077: mov ecx, [eax]
loc_00738079: call [ecx+00000008h]
loc_0073807C: mov eax, var_4
loc_0073807F: mov ecx, var_14
loc_00738082: pop edi
loc_00738083: pop esi
loc_00738084: mov fs:[00000000h], ecx
loc_0073808B: pop ebx
loc_0073808C: mov esp, ebp
loc_0073808E: pop ebp
loc_0073808F: retn 0008h
End Sub
Public Property Get BuggerOff(arg_C) '7380A0
loc_007380A0: push ebp
loc_007380A1: mov ebp, esp
loc_007380A3: sub esp, 0000000Ch
loc_007380A6: push 00412856h ; __vbaExceptHandler
loc_007380AB: mov eax, fs:[00000000h]
loc_007380B1: push eax
loc_007380B2: mov fs:[00000000h], esp
loc_007380B9: sub esp, 0000000Ch
loc_007380BC: push ebx
loc_007380BD: push esi
loc_007380BE: push edi
loc_007380BF: mov var_C, esp
loc_007380C2: mov var_8, 004127C0h
loc_007380C9: xor edi, edi
loc_007380CB: mov var_4, edi
loc_007380CE: mov esi, Me
loc_007380D1: push esi
loc_007380D2: mov eax, [esi]
loc_007380D4: call [eax+00000004h]
loc_007380D7: mov cx, [esi+00000034h]
loc_007380DB: mov var_18, edi
loc_007380DE: mov var_18, ecx
loc_007380E1: mov eax, Me
loc_007380E4: push eax
loc_007380E5: mov edx, [eax]
loc_007380E7: call [edx+00000008h]
loc_007380EA: mov eax, arg_C
loc_007380ED: mov cx, var_18
loc_007380F1: mov [eax], cx
loc_007380F4: mov eax, var_4
loc_007380F7: mov ecx, var_14
loc_007380FA: pop edi
loc_007380FB: pop esi
loc_007380FC: mov fs:[00000000h], ecx
loc_00738103: pop ebx
loc_00738104: mov esp, ebp
loc_00738106: pop ebp
loc_00738107: retn 0008h
End Sub
Public Property Let BuggerOffCount(vNewVal) '738110
loc_00738110: push ebp
loc_00738111: mov ebp, esp
loc_00738113: sub esp, 0000000Ch
loc_00738116: push 00412856h ; __vbaExceptHandler
loc_0073811B: mov eax, fs:[00000000h]
loc_00738121: push eax
loc_00738122: mov fs:[00000000h], esp
loc_00738129: sub esp, 00000008h
loc_0073812C: push ebx
loc_0073812D: push esi
loc_0073812E: push edi
loc_0073812F: mov var_C, esp
loc_00738132: mov var_8, 004127C8h
loc_00738139: mov var_4, 00000000h
loc_00738140: mov esi, Me
loc_00738143: push esi
loc_00738144: mov eax, [esi]
loc_00738146: call [eax+00000004h]
loc_00738149: mov ecx, vNewVal
loc_0073814C: mov dx, [ecx]
loc_0073814F: mov [esi+00000036h], dx
loc_00738153: mov eax, Me
loc_00738156: push eax
loc_00738157: mov ecx, [eax]
loc_00738159: call [ecx+00000008h]
loc_0073815C: mov eax, var_4
loc_0073815F: mov ecx, var_14
loc_00738162: pop edi
loc_00738163: pop esi
loc_00738164: mov fs:[00000000h], ecx
loc_0073816B: pop ebx
loc_0073816C: mov esp, ebp
loc_0073816E: pop ebp
loc_0073816F: retn 0008h
End Sub
Public Property Get BuggerOffCount(arg_C) '738180
loc_00738180: push ebp
loc_00738181: mov ebp, esp
loc_00738183: sub esp, 0000000Ch
loc_00738186: push 00412856h ; __vbaExceptHandler
loc_0073818B: mov eax, fs:[00000000h]
loc_00738191: push eax
loc_00738192: mov fs:[00000000h], esp
loc_00738199: sub esp, 0000000Ch
loc_0073819C: push ebx
loc_0073819D: push esi
loc_0073819E: push edi
loc_0073819F: mov var_C, esp
loc_007381A2: mov var_8, 004127D0h
loc_007381A9: xor edi, edi
loc_007381AB: mov var_4, edi
loc_007381AE: mov esi, Me
loc_007381B1: push esi
loc_007381B2: mov eax, [esi]
loc_007381B4: call [eax+00000004h]
loc_007381B7: mov cx, [esi+00000036h]
loc_007381BB: mov var_18, edi
loc_007381BE: mov var_18, ecx
loc_007381C1: mov eax, Me
loc_007381C4: push eax
loc_007381C5: mov edx, [eax]
loc_007381C7: call [edx+00000008h]
loc_007381CA: mov eax, arg_C
loc_007381CD: mov cx, var_18
loc_007381D1: mov [eax], cx
loc_007381D4: mov eax, var_4
loc_007381D7: mov ecx, var_14
loc_007381DA: pop edi
loc_007381DB: pop esi
loc_007381DC: mov fs:[00000000h], ecx
loc_007381E3: pop ebx
loc_007381E4: mov esp, ebp
loc_007381E6: pop ebp
loc_007381E7: retn 0008h
End Sub
Public Sub Save() '7381F0
loc_007381F0: push ebp
loc_007381F1: mov ebp, esp
loc_007381F3: sub esp, 0000000Ch
loc_007381F6: push 00412856h ; __vbaExceptHandler
loc_007381FB: mov eax, fs:[00000000h]
loc_00738201: push eax
loc_00738202: mov fs:[00000000h], esp
loc_00738209: sub esp, 0000002Ch
loc_0073820C: push ebx
loc_0073820D: push esi
loc_0073820E: push edi
loc_0073820F: mov var_C, esp
loc_00738212: mov var_8, 004127D8h
loc_00738219: xor edi, edi
loc_0073821B: mov var_4, edi
loc_0073821E: mov ebx, Me
loc_00738221: push ebx
loc_00738222: mov eax, [ebx]
loc_00738224: call [eax+00000004h]
loc_00738227: mov eax, [0073C818h]
loc_0073822C: mov var_18, edi
loc_0073822F: cmp eax, edi
loc_00738231: mov var_1C, edi
loc_00738234: mov var_20, edi
loc_00738237: mov var_24, edi
loc_0073823A: jnz 0073824Ch
loc_0073823C: push 0073C818h
loc_00738241: push 00441F00h
loc_00738246: call [004012FCh] ; __vbaNew2
loc_0073824C: mov esi, [0073C818h]
loc_00738252: lea edx, var_20
loc_00738255: push edx
loc_00738256: push esi
loc_00738257: mov ecx, [esi]
loc_00738259: call [ecx+00000014h]
loc_0073825C: cmp eax, edi
loc_0073825E: fnclex
loc_00738260: jge 00738275h
loc_00738262: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_00738268: push 00000014h
loc_0073826A: push 00441EF0h
loc_0073826F: push esi
loc_00738270: push eax
loc_00738271: call edi
loc_00738273: jmp 0073827Bh
loc_00738275: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_0073827B: mov eax, var_20
loc_0073827E: lea edx, var_18
loc_00738281: push edx
loc_00738282: push eax
loc_00738283: mov ecx, [eax]
loc_00738285: mov esi, eax
loc_00738287: call [ecx+00000060h]
loc_0073828A: test eax, eax
loc_0073828C: fnclex
loc_0073828E: jge 0073829Bh
loc_00738290: push 00000060h
loc_00738292: push 004437B4h
loc_00738297: push esi
loc_00738298: push eax
loc_00738299: call edi
loc_0073829B: mov eax, [ebx]
loc_0073829D: lea ecx, var_24
loc_007382A0: push ecx
loc_007382A1: push ebx
loc_007382A2: call [eax+00000020h]
loc_007382A5: test eax, eax
loc_007382A7: jge 007382B4h
loc_007382A9: push 00000020h
loc_007382AB: push 0044D8C4h
loc_007382B0: push ebx
loc_007382B1: push eax
loc_007382B2: call edi
loc_007382B4: mov edx, var_24
loc_007382B7: push edx
loc_007382B8: call [00401104h] ; __vbaStrBool
loc_007382BE: mov ebx, [004013C0h] ; __vbaStrMove
loc_007382C4: mov edx, eax
loc_007382C6: lea ecx, var_1C
loc_007382C9: call ebx
loc_007382CB: push eax
loc_007382CC: mov eax, var_18
loc_007382CF: push 00477B1Ch ; "RegSuppress"
loc_007382D4: push 0044317Ch ; "UserInfo"
loc_007382D9: push eax
loc_007382DA: call [00401010h] ; rtcSaveSetting
loc_007382E0: lea ecx, var_1C
loc_007382E3: lea edx, var_18
loc_007382E6: push ecx
loc_007382E7: push edx
loc_007382E8: push 00000002h
loc_007382EA: call [00401324h] ; __vbaFreeStrList
loc_007382F0: add esp, 0000000Ch
loc_007382F3: lea ecx, var_20
loc_007382F6: call [0040142Ch] ; __vbaFreeObj
loc_007382FC: mov eax, [0073C818h]
loc_00738301: test eax, eax
loc_00738303: jnz 00738315h
loc_00738305: push 0073C818h
loc_0073830A: push 00441F00h
loc_0073830F: call [004012FCh] ; __vbaNew2
loc_00738315: mov esi, [0073C818h]
loc_0073831B: lea ecx, var_20
loc_0073831E: push ecx
loc_0073831F: push esi
loc_00738320: mov eax, [esi]
loc_00738322: call [eax+00000014h]
loc_00738325: test eax, eax
loc_00738327: fnclex
loc_00738329: jge 00738336h
loc_0073832B: push 00000014h
loc_0073832D: push 00441EF0h
loc_00738332: push esi
loc_00738333: push eax
loc_00738334: call edi
loc_00738336: mov eax, var_20
loc_00738339: lea ecx, var_18
loc_0073833C: push ecx
loc_0073833D: push eax
loc_0073833E: mov edx, [eax]
loc_00738340: mov esi, eax
loc_00738342: call [edx+00000060h]
loc_00738345: test eax, eax
loc_00738347: fnclex
loc_00738349: jge 00738356h
loc_0073834B: push 00000060h
loc_0073834D: push 004437B4h
loc_00738352: push esi
loc_00738353: push eax
loc_00738354: call edi
loc_00738356: mov esi, Me
loc_00738359: lea eax, var_24
loc_0073835C: push eax
loc_0073835D: push esi
loc_0073835E: mov edx, [esi]
loc_00738360: call [edx+00000028h]
loc_00738363: test eax, eax
loc_00738365: jge 00738372h
loc_00738367: push 00000028h
loc_00738369: push 0044D8C4h
loc_0073836E: push esi
loc_0073836F: push eax
loc_00738370: call edi
loc_00738372: mov ecx, var_24
loc_00738375: push ecx
loc_00738376: call [0040100Ch] ; __vbaStrI2
loc_0073837C: mov edx, eax
loc_0073837E: lea ecx, var_1C
loc_00738381: call ebx
loc_00738383: mov edx, var_18
loc_00738386: push eax
loc_00738387: push 00477B38h ; "RegDismissedCount"
loc_0073838C: push 0044317Ch ; "UserInfo"
loc_00738391: push edx
loc_00738392: call [00401010h] ; rtcSaveSetting
loc_00738398: lea eax, var_1C
loc_0073839B: lea ecx, var_18
loc_0073839E: push eax
loc_0073839F: push ecx
loc_007383A0: push 00000002h
loc_007383A2: call [00401324h] ; __vbaFreeStrList
loc_007383A8: add esp, 0000000Ch
loc_007383AB: lea ecx, var_20
loc_007383AE: call [0040142Ch] ; __vbaFreeObj
loc_007383B4: push 007383D9h
loc_007383B9: jmp 007383D8h
loc_007383BB: lea edx, var_1C
loc_007383BE: lea eax, var_18
loc_007383C1: push edx
loc_007383C2: push eax
loc_007383C3: push 00000002h
loc_007383C5: call [00401324h] ; __vbaFreeStrList
loc_007383CB: add esp, 0000000Ch
loc_007383CE: lea ecx, var_20
loc_007383D1: call [0040142Ch] ; __vbaFreeObj
loc_007383D7: ret
loc_007383D8: ret
loc_007383D9: mov eax, Me
loc_007383DC: push eax
loc_007383DD: mov ecx, [eax]
loc_007383DF: call [ecx+00000008h]
loc_007383E2: mov eax, var_4
loc_007383E5: mov ecx, var_14
loc_007383E8: pop edi
loc_007383E9: pop esi
loc_007383EA: mov fs:[00000000h], ecx
loc_007383F1: pop ebx
loc_007383F2: mov esp, ebp
loc_007383F4: pop ebp
loc_007383F5: retn 0004h
End Sub
Private Sub Proc_79_5_738400
loc_00738400: push ebp
loc_00738401: mov ebp, esp
loc_00738403: sub esp, 00000018h
loc_00738406: push 00412856h ; __vbaExceptHandler
loc_0073840B: mov eax, fs:[00000000h]
loc_00738411: push eax
loc_00738412: mov fs:[00000000h], esp
loc_00738419: mov eax, 00000074h
loc_0073841E: call 00412850h ; __vbaChkstk
loc_00738423: push ebx
loc_00738424: push esi
loc_00738425: push edi
loc_00738426: mov var_18, esp
loc_00738429: mov var_14, 004127E8h
loc_00738430: mov eax, Me
loc_00738433: and eax, 00000001h
loc_00738436: mov var_10, eax
loc_00738439: mov ecx, Me
loc_0073843C: and ecx, FFFFFFFEh
loc_0073843F: mov Me, ecx
loc_00738442: mov var_C, 00000000h
loc_00738449: mov edx, Me
loc_0073844C: mov eax, [edx]
loc_0073844E: mov ecx, Me
loc_00738451: push ecx
loc_00738452: call [eax+00000004h]
loc_00738455: mov var_4, 00000001h
loc_0073845C: mov var_4, 00000002h
loc_00738463: push 00000001h
loc_00738465: call [00401124h] ; __vbaOnError
loc_0073846B: mov var_4, 00000003h
loc_00738472: cmp [0073C818h], 00000000h
loc_00738479: jnz 00738494h
loc_0073847B: push 0073C818h
loc_00738480: push 00441F00h
loc_00738485: call [004012FCh] ; __vbaNew2
loc_0073848B: mov var_6C, 0073C818h
loc_00738492: jmp 0073849Bh
loc_00738494: mov var_6C, 0073C818h
loc_0073849B: mov edx, var_6C
loc_0073849E: mov eax, [edx]
loc_007384A0: mov var_44, eax
loc_007384A3: lea ecx, var_2C
loc_007384A6: push ecx
loc_007384A7: mov edx, var_44
loc_007384AA: mov eax, [edx]
loc_007384AC: mov ecx, var_44
loc_007384AF: push ecx
loc_007384B0: call [eax+00000014h]
loc_007384B3: fnclex
loc_007384B5: mov var_48, eax
loc_007384B8: cmp var_48, 00000000h
loc_007384BC: jge 007384D8h
loc_007384BE: push 00000014h
loc_007384C0: push 00441EF0h
loc_007384C5: mov edx, var_44
loc_007384C8: push edx
loc_007384C9: mov eax, var_48
loc_007384CC: push eax
loc_007384CD: call [004010CCh] ; __vbaHresultCheckObj
loc_007384D3: mov var_70, eax
loc_007384D6: jmp 007384DFh
loc_007384D8: mov var_70, 00000000h
loc_007384DF: mov ecx, var_2C
loc_007384E2: mov var_4C, ecx
loc_007384E5: lea edx, var_24
loc_007384E8: push edx
loc_007384E9: mov eax, var_4C
loc_007384EC: mov ecx, [eax]
loc_007384EE: mov edx, var_4C
loc_007384F1: push edx
loc_007384F2: call [ecx+00000060h]
loc_007384F5: fnclex
loc_007384F7: mov var_50, eax
loc_007384FA: cmp var_50, 00000000h
loc_007384FE: jge 0073851Ah
loc_00738500: push 00000060h
loc_00738502: push 004437B4h
loc_00738507: mov eax, var_4C
loc_0073850A: push eax
loc_0073850B: mov ecx, var_50
loc_0073850E: push ecx
loc_0073850F: call [004010CCh] ; __vbaHresultCheckObj
loc_00738515: mov var_74, eax
loc_00738518: jmp 00738521h
loc_0073851A: mov var_74, 00000000h
loc_00738521: mov var_34, 00000000h
loc_00738528: mov var_3C, 0000000Bh
loc_0073852F: mov eax, 00000010h
loc_00738534: call 00412850h ; __vbaChkstk
loc_00738539: mov edx, esp
loc_0073853B: mov eax, var_3C
loc_0073853E: mov [edx], eax
loc_00738540: mov ecx, var_38
loc_00738543: mov [edx+00000004h], ecx
loc_00738546: mov eax, var_34
loc_00738549: mov [edx+00000008h], eax
loc_0073854C: mov ecx, var_30
loc_0073854F: mov [edx+0000000Ch], ecx
loc_00738552: push 00477B1Ch ; "RegSuppress"
loc_00738557: push 0044317Ch ; "UserInfo"
loc_0073855C: mov edx, var_24
loc_0073855F: push edx
loc_00738560: call [00401354h] ; rtcGetSetting
loc_00738566: mov edx, eax
loc_00738568: lea ecx, var_28
loc_0073856B: call [004013C0h] ; __vbaStrMove
loc_00738571: push eax
loc_00738572: call [00401108h] ; __vbaBoolStr
loc_00738578: mov var_40, ax
loc_0073857C: lea eax, var_40
loc_0073857F: push eax
loc_00738580: mov ecx, Me
loc_00738583: mov edx, [ecx]
loc_00738585: mov eax, Me
loc_00738588: push eax
loc_00738589: call [edx+0000001Ch]
loc_0073858C: mov var_54, eax
loc_0073858F: cmp var_54, 00000000h
loc_00738593: jge 007385AFh
loc_00738595: push 0000001Ch
loc_00738597: push 0044D8C4h
loc_0073859C: mov ecx, Me
loc_0073859F: push ecx
loc_007385A0: mov edx, var_54
loc_007385A3: push edx
loc_007385A4: call [004010CCh] ; __vbaHresultCheckObj
loc_007385AA: mov var_78, eax
loc_007385AD: jmp 007385B6h
loc_007385AF: mov var_78, 00000000h
loc_007385B6: lea eax, var_28
loc_007385B9: push eax
loc_007385BA: lea ecx, var_24
loc_007385BD: push ecx
loc_007385BE: push 00000002h
loc_007385C0: call [00401324h] ; __vbaFreeStrList
loc_007385C6: add esp, 0000000Ch
loc_007385C9: lea ecx, var_2C
loc_007385CC: call [0040142Ch] ; __vbaFreeObj
loc_007385D2: mov var_4, 00000004h
loc_007385D9: cmp [0073C818h], 00000000h
loc_007385E0: jnz 007385FBh
loc_007385E2: push 0073C818h
loc_007385E7: push 00441F00h
loc_007385EC: call [004012FCh] ; __vbaNew2
loc_007385F2: mov var_7C, 0073C818h
loc_007385F9: jmp 00738602h
loc_007385FB: mov var_7C, 0073C818h
loc_00738602: mov edx, var_7C
loc_00738605: mov eax, [edx]
loc_00738607: mov var_44, eax
loc_0073860A: lea ecx, var_2C
loc_0073860D: push ecx
loc_0073860E: mov edx, var_44
loc_00738611: mov eax, [edx]
loc_00738613: mov ecx, var_44
loc_00738616: push ecx
loc_00738617: call [eax+00000014h]
loc_0073861A: fnclex
loc_0073861C: mov var_48, eax
loc_0073861F: cmp var_48, 00000000h
loc_00738623: jge 0073863Fh
loc_00738625: push 00000014h
loc_00738627: push 00441EF0h
loc_0073862C: mov edx, var_44
loc_0073862F: push edx
loc_00738630: mov eax, var_48
loc_00738633: push eax
loc_00738634: call [004010CCh] ; __vbaHresultCheckObj
loc_0073863A: mov var_80, eax
loc_0073863D: jmp 00738646h
loc_0073863F: mov var_80, 00000000h
loc_00738646: mov ecx, var_2C
loc_00738649: mov var_4C, ecx
loc_0073864C: lea edx, var_24
loc_0073864F: push edx
loc_00738650: mov eax, var_4C
loc_00738653: mov ecx, [eax]
loc_00738655: mov edx, var_4C
loc_00738658: push edx
loc_00738659: call [ecx+00000060h]
loc_0073865C: fnclex
loc_0073865E: mov var_50, eax
loc_00738661: cmp var_50, 00000000h
loc_00738665: jge 00738684h
loc_00738667: push 00000060h
loc_00738669: push 004437B4h
loc_0073866E: mov eax, var_4C
loc_00738671: push eax
loc_00738672: mov ecx, var_50
loc_00738675: push ecx
loc_00738676: call [004010CCh] ; __vbaHresultCheckObj
loc_0073867C: mov var_84, eax
loc_00738682: jmp 0073868Eh
loc_00738684: mov var_84, 00000000h
loc_0073868E: mov var_34, 00000000h
loc_00738695: mov var_3C, 00000002h
loc_0073869C: mov eax, 00000010h
loc_007386A1: call 00412850h ; __vbaChkstk
loc_007386A6: mov edx, esp
loc_007386A8: mov eax, var_3C
loc_007386AB: mov [edx], eax
loc_007386AD: mov ecx, var_38
loc_007386B0: mov [edx+00000004h], ecx
loc_007386B3: mov eax, var_34
loc_007386B6: mov [edx+00000008h], eax
loc_007386B9: mov ecx, var_30
loc_007386BC: mov [edx+0000000Ch], ecx
loc_007386BF: push 00477B38h ; "RegDismissedCount"
loc_007386C4: push 0044317Ch ; "UserInfo"
loc_007386C9: mov edx, var_24
loc_007386CC: push edx
loc_007386CD: call [00401354h] ; rtcGetSetting
loc_007386D3: mov edx, eax
loc_007386D5: lea ecx, var_28
loc_007386D8: call [004013C0h] ; __vbaStrMove
loc_007386DE: push eax
loc_007386DF: call [0040127Ch] ; __vbaI2Str
loc_007386E5: mov var_40, ax
loc_007386E9: lea eax, var_40
loc_007386EC: push eax
loc_007386ED: mov ecx, Me
loc_007386F0: mov edx, [ecx]
loc_007386F2: mov eax, Me
loc_007386F5: push eax
loc_007386F6: call [edx+00000024h]
loc_007386F9: mov var_54, eax
loc_007386FC: cmp var_54, 00000000h
loc_00738700: jge 0073871Fh
loc_00738702: push 00000024h
loc_00738704: push 0044D8C4h
loc_00738709: mov ecx, Me
loc_0073870C: push ecx
loc_0073870D: mov edx, var_54
loc_00738710: push edx
loc_00738711: call [004010CCh] ; __vbaHresultCheckObj
loc_00738717: mov var_88, eax
loc_0073871D: jmp 00738729h
loc_0073871F: mov var_88, 00000000h
loc_00738729: lea eax, var_28
loc_0073872C: push eax
loc_0073872D: lea ecx, var_24
loc_00738730: push ecx
loc_00738731: push 00000002h
loc_00738733: call [00401324h] ; __vbaFreeStrList
loc_00738739: add esp, 0000000Ch
loc_0073873C: lea ecx, var_2C
loc_0073873F: call [0040142Ch] ; __vbaFreeObj
loc_00738745: jmp 0073882Ch
loc_0073874A: mov var_4, 00000007h
loc_00738751: call [00401340h] ; rtcErrObj
loc_00738757: push eax
loc_00738758: lea edx, var_2C
loc_0073875B: push edx
loc_0073875C: call [00401128h] ; __vbaObjSet
loc_00738762: mov var_8C, eax
loc_00738768: mov eax, var_8C
loc_0073876E: mov ecx, [eax]
loc_00738770: mov edx, var_8C
loc_00738776: push edx
loc_00738777: call [ecx+00000048h]
loc_0073877A: lea ecx, var_2C
loc_0073877D: call [0040142Ch] ; __vbaFreeObj
loc_00738783: mov var_4, 00000008h
loc_0073878A: mov var_40, 0000h
loc_00738790: lea eax, var_40
loc_00738793: push eax
loc_00738794: mov ecx, Me
loc_00738797: mov edx, [ecx]
loc_00738799: mov eax, Me
loc_0073879C: push eax
loc_0073879D: call [edx+0000001Ch]
loc_007387A0: mov var_44, eax
loc_007387A3: cmp var_44, 00000000h
loc_007387A7: jge 007387C6h
loc_007387A9: push 0000001Ch
loc_007387AB: push 0044D8C4h
loc_007387B0: mov ecx, Me
loc_007387B3: push ecx
loc_007387B4: mov edx, var_44
loc_007387B7: push edx
loc_007387B8: call [004010CCh] ; __vbaHresultCheckObj
loc_007387BE: mov var_90, eax
loc_007387C4: jmp 007387D0h
loc_007387C6: mov var_90, 00000000h
loc_007387D0: mov var_4, 00000009h
loc_007387D7: mov var_40, 0000h
loc_007387DD: lea eax, var_40
loc_007387E0: push eax
loc_007387E1: mov ecx, Me
loc_007387E4: mov edx, [ecx]
loc_007387E6: mov eax, Me
loc_007387E9: push eax
loc_007387EA: call [edx+00000024h]
loc_007387ED: mov var_44, eax
loc_007387F0: cmp var_44, 00000000h
loc_007387F4: jge 00738813h
loc_007387F6: push 00000024h
loc_007387F8: push 0044D8C4h
loc_007387FD: mov ecx, Me
loc_00738800: push ecx
loc_00738801: mov edx, var_44
loc_00738804: push edx
loc_00738805: call [004010CCh] ; __vbaHresultCheckObj
loc_0073880B: mov var_94, eax
loc_00738811: jmp 0073881Dh
loc_00738813: mov var_94, 00000000h
loc_0073881D: mov var_4, 0000000Ah
loc_00738824: push FFFFFFFFh
loc_00738826: call [00401090h] ; __vbaResume
loc_0073882C: call [00401114h] ; __vbaExitProc
loc_00738832: push 00738857h
loc_00738837: jmp 00738856h
loc_00738839: lea eax, var_28
loc_0073883C: push eax
loc_0073883D: lea ecx, var_24
loc_00738840: push ecx
loc_00738841: push 00000002h
loc_00738843: call [00401324h] ; __vbaFreeStrList
loc_00738849: add esp, 0000000Ch
loc_0073884C: lea ecx, var_2C
loc_0073884F: call [0040142Ch] ; __vbaFreeObj
loc_00738855: ret
loc_00738856: ret
loc_00738857: mov edx, Me
loc_0073885A: mov eax, [edx]
loc_0073885C: mov ecx, Me
loc_0073885F: push ecx
loc_00738860: call [eax+00000008h]
loc_00738863: mov eax, var_10
loc_00738866: mov ecx, var_20
loc_00738869: mov fs:[00000000h], ecx
loc_00738870: pop edi
loc_00738871: pop esi
loc_00738872: pop ebx
loc_00738873: mov esp, ebp
loc_00738875: pop ebp
loc_00738876: retn 0004h
End Sub

729
Src Code/clsStoryReader.cls
View File

@ -0,0 +1,729 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsStoryReader"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Let StoryReaderIsPlaying(blnNewStoryReaderIsPlaying) '5F82F0
loc_005F82F0: push ebp
loc_005F82F1: mov ebp, esp
loc_005F82F3: sub esp, 00000018h
loc_005F82F6: push 00412856h ; __vbaExceptHandler
loc_005F82FB: mov eax, fs:[00000000h]
loc_005F8301: push eax
loc_005F8302: mov fs:[00000000h], esp
loc_005F8309: mov eax, 00000020h
loc_005F830E: call 00412850h ; __vbaChkstk
loc_005F8313: push ebx
loc_005F8314: push esi
loc_005F8315: push edi
loc_005F8316: mov var_18, esp
loc_005F8319: mov var_14, 00403AF0h
loc_005F8320: mov var_10, 00000000h
loc_005F8327: mov var_C, 00000000h
loc_005F832E: mov eax, Me
loc_005F8331: mov ecx, [eax]
loc_005F8333: mov edx, Me
loc_005F8336: push edx
loc_005F8337: call [ecx+00000004h]
loc_005F833A: mov var_4, 00000001h
loc_005F8341: mov var_4, 00000002h
loc_005F8348: push FFFFFFFFh
loc_005F834A: call [00401124h] ; __vbaOnError
loc_005F8350: mov var_4, 00000003h
loc_005F8357: mov eax, Me
loc_005F835A: mov ecx, blnNewStoryReaderIsPlaying
loc_005F835D: mov dx, [ecx]
loc_005F8360: mov [eax+0000003Ch], dx
loc_005F8364: mov var_4, 00000004h
loc_005F836B: mov eax, Me
loc_005F836E: movsx ecx, [eax+0000003Ch]
loc_005F8372: test ecx, ecx
loc_005F8374: jz 005F83C2h
loc_005F8376: mov var_4, 00000005h
loc_005F837D: push 00000000h
loc_005F837F: mov edx, [0073A08Ch]
loc_005F8385: mov eax, [edx]
loc_005F8387: mov ecx, [0073A08Ch]
loc_005F838D: push ecx
loc_005F838E: call [eax+00000058h]
loc_005F8391: fnclex
loc_005F8393: mov var_24, eax
loc_005F8396: cmp var_24, 00000000h
loc_005F839A: jge 005F83B9h
loc_005F839C: push 00000058h
loc_005F839E: push 004419ACh
loc_005F83A3: mov edx, [0073A08Ch]
loc_005F83A9: push edx
loc_005F83AA: mov eax, var_24
loc_005F83AD: push eax
loc_005F83AE: call [004010CCh] ; __vbaHresultCheckObj
loc_005F83B4: mov var_3C, eax
loc_005F83B7: jmp 005F83C0h
loc_005F83B9: mov var_3C, 00000000h
loc_005F83C0: jmp 005F840Bh
loc_005F83C2: mov var_4, 00000007h
loc_005F83C9: push FFFFFFFFh
loc_005F83CB: mov ecx, [0073A08Ch]
loc_005F83D1: mov edx, [ecx]
loc_005F83D3: mov eax, [0073A08Ch]
loc_005F83D8: push eax
loc_005F83D9: call [edx+00000058h]
loc_005F83DC: fnclex
loc_005F83DE: mov var_24, eax
loc_005F83E1: cmp var_24, 00000000h
loc_005F83E5: jge 005F8404h
loc_005F83E7: push 00000058h
loc_005F83E9: push 004419ACh
loc_005F83EE: mov ecx, [0073A08Ch]
loc_005F83F4: push ecx
loc_005F83F5: mov edx, var_24
loc_005F83F8: push edx
loc_005F83F9: call [004010CCh] ; __vbaHresultCheckObj
loc_005F83FF: mov var_40, eax
loc_005F8402: jmp 005F840Bh
loc_005F8404: mov var_40, 00000000h
loc_005F840B: mov eax, Me
loc_005F840E: mov ecx, [eax]
loc_005F8410: mov edx, Me
loc_005F8413: push edx
loc_005F8414: call [ecx+00000008h]
loc_005F8417: mov eax, var_10
loc_005F841A: mov ecx, var_20
loc_005F841D: mov fs:[00000000h], ecx
loc_005F8424: pop edi
loc_005F8425: pop esi
loc_005F8426: pop ebx
loc_005F8427: mov esp, ebp
loc_005F8429: pop ebp
loc_005F842A: retn 0008h
End Sub
Public Property Get StoryReaderIsPlaying(arg_C) '5F8430
loc_005F8430: push ebp
loc_005F8431: mov ebp, esp
loc_005F8433: sub esp, 0000000Ch
loc_005F8436: push 00412856h ; __vbaExceptHandler
loc_005F843B: mov eax, fs:[00000000h]
loc_005F8441: push eax
loc_005F8442: mov fs:[00000000h], esp
loc_005F8449: sub esp, 0000000Ch
loc_005F844C: push ebx
loc_005F844D: push esi
loc_005F844E: push edi
loc_005F844F: mov var_C, esp
loc_005F8452: mov var_8, 00403B38h
loc_005F8459: xor edi, edi
loc_005F845B: mov var_4, edi
loc_005F845E: mov esi, Me
loc_005F8461: push esi
loc_005F8462: mov eax, [esi]
loc_005F8464: call [eax+00000004h]
loc_005F8467: mov cx, [esi+0000003Ch]
loc_005F846B: mov var_18, edi
loc_005F846E: mov var_18, ecx
loc_005F8471: mov eax, Me
loc_005F8474: push eax
loc_005F8475: mov edx, [eax]
loc_005F8477: call [edx+00000008h]
loc_005F847A: mov eax, arg_C
loc_005F847D: mov cx, var_18
loc_005F8481: mov [eax], cx
loc_005F8484: mov eax, var_4
loc_005F8487: mov ecx, var_14
loc_005F848A: pop edi
loc_005F848B: pop esi
loc_005F848C: mov fs:[00000000h], ecx
loc_005F8493: pop ebx
loc_005F8494: mov esp, ebp
loc_005F8496: pop ebp
loc_005F8497: retn 0008h
End Sub
Public Sub StartUpCharacter() '5F84A0
loc_005F84A0: push ebp
loc_005F84A1: mov ebp, esp
loc_005F84A3: sub esp, 0000000Ch
loc_005F84A6: push 00412856h ; __vbaExceptHandler
loc_005F84AB: mov eax, fs:[00000000h]
loc_005F84B1: push eax
loc_005F84B2: mov fs:[00000000h], esp
loc_005F84B9: sub esp, 00000030h
loc_005F84BC: push ebx
loc_005F84BD: push esi
loc_005F84BE: push edi
loc_005F84BF: mov var_C, esp
loc_005F84C2: mov var_8, 00403B40h
loc_005F84C9: mov var_4, 00000000h
loc_005F84D0: mov eax, Me
loc_005F84D3: push eax
loc_005F84D4: mov ecx, [eax]
loc_005F84D6: call [ecx+00000004h]
loc_005F84D9: mov eax, [0073A254h]
loc_005F84DE: test eax, eax
loc_005F84E0: jnz 005F84F2h
loc_005F84E2: push 0073A254h
loc_005F84E7: push 00431838h
loc_005F84EC: call [004012FCh] ; __vbaNew2
loc_005F84F2: sub esp, 00000010h
loc_005F84F5: mov ecx, 0000000Ah
loc_005F84FA: mov ebx, esp
loc_005F84FC: mov var_24, ecx
loc_005F84FF: mov eax, 80020004h
loc_005F8504: sub esp, 00000010h
loc_005F8507: mov [ebx], ecx
loc_005F8509: mov ecx, var_30
loc_005F850C: mov edx, eax
loc_005F850E: mov esi, [0073A254h]
loc_005F8514: mov [ebx+00000004h], ecx
loc_005F8517: mov ecx, esp
loc_005F8519: mov edi, [esi]
loc_005F851B: push esi
loc_005F851C: mov [ebx+00000008h], eax
loc_005F851F: mov eax, var_28
loc_005F8522: mov [ebx+0000000Ch], eax
loc_005F8525: mov eax, var_24
loc_005F8528: mov [ecx], eax
loc_005F852A: mov eax, var_20
loc_005F852D: mov [ecx+00000004h], eax
loc_005F8530: mov [ecx+00000008h], edx
loc_005F8533: mov edx, var_18
loc_005F8536: mov [ecx+0000000Ch], edx
loc_005F8539: call [edi+000002B0h]
loc_005F853F: test eax, eax
loc_005F8541: fnclex
loc_005F8543: jge 005F8557h
loc_005F8545: push 000002B0h
loc_005F854A: push 00440B20h
loc_005F854F: push esi
loc_005F8550: push eax
loc_005F8551: call [004010CCh] ; __vbaHresultCheckObj
loc_005F8557: mov eax, Me
loc_005F855A: push eax
loc_005F855B: mov ecx, [eax]
loc_005F855D: call [ecx+00000008h]
loc_005F8560: mov eax, var_4
loc_005F8563: mov ecx, var_14
loc_005F8566: pop edi
loc_005F8567: pop esi
loc_005F8568: mov fs:[00000000h], ecx
loc_005F856F: pop ebx
loc_005F8570: mov esp, ebp
loc_005F8572: pop ebp
loc_005F8573: retn 0004h
End Sub
Public Sub ShutDownCharacter() '5F8580
loc_005F8580: push ebp
loc_005F8581: mov ebp, esp
loc_005F8583: sub esp, 0000000Ch
loc_005F8586: push 00412856h ; __vbaExceptHandler
loc_005F858B: mov eax, fs:[00000000h]
loc_005F8591: push eax
loc_005F8592: mov fs:[00000000h], esp
loc_005F8599: sub esp, 00000014h
loc_005F859C: push ebx
loc_005F859D: push esi
loc_005F859E: push edi
loc_005F859F: mov var_C, esp
loc_005F85A2: mov var_8, 00403B48h
loc_005F85A9: xor edi, edi
loc_005F85AB: mov var_4, edi
loc_005F85AE: mov eax, Me
loc_005F85B1: push eax
loc_005F85B2: mov ecx, [eax]
loc_005F85B4: call [ecx+00000004h]
loc_005F85B7: mov eax, [0073C818h]
loc_005F85BC: mov var_18, edi
loc_005F85BF: cmp eax, edi
loc_005F85C1: jnz 005F85D3h
loc_005F85C3: push 0073C818h
loc_005F85C8: push 00441F00h
loc_005F85CD: call [004012FCh] ; __vbaNew2
loc_005F85D3: mov eax, [0073A254h]
loc_005F85D8: mov esi, [0073C818h]
loc_005F85DE: cmp eax, edi
loc_005F85E0: jnz 005F85F2h
loc_005F85E2: push 0073A254h
loc_005F85E7: push 00431838h
loc_005F85EC: call [004012FCh] ; __vbaNew2
loc_005F85F2: mov edx, [0073A254h]
loc_005F85F8: mov ebx, [esi]
loc_005F85FA: lea eax, var_18
loc_005F85FD: push edx
loc_005F85FE: push eax
loc_005F85FF: call [00401130h] ; __vbaObjSetAddref
loc_005F8605: push eax
loc_005F8606: push esi
loc_005F8607: call [ebx+00000010h]
loc_005F860A: cmp eax, edi
loc_005F860C: fnclex
loc_005F860E: jge 005F861Fh
loc_005F8610: push 00000010h
loc_005F8612: push 00441EF0h
loc_005F8617: push esi
loc_005F8618: push eax
loc_005F8619: call [004010CCh] ; __vbaHresultCheckObj
loc_005F861F: lea ecx, var_18
loc_005F8622: call [0040142Ch] ; __vbaFreeObj
loc_005F8628: push 005F863Ah
loc_005F862D: jmp 005F8639h
loc_005F862F: lea ecx, var_18
loc_005F8632: call [0040142Ch] ; __vbaFreeObj
loc_005F8638: ret
loc_005F8639: ret
loc_005F863A: mov eax, Me
loc_005F863D: push eax
loc_005F863E: mov ecx, [eax]
loc_005F8640: call [ecx+00000008h]
loc_005F8643: mov eax, var_4
loc_005F8646: mov ecx, var_14
loc_005F8649: pop edi
loc_005F864A: pop esi
loc_005F864B: mov fs:[00000000h], ecx
loc_005F8652: pop ebx
loc_005F8653: mov esp, ebp
loc_005F8655: pop ebp
loc_005F8656: retn 0004h
End Sub
Public Sub FireStoryReaderStop() '5F8660
loc_005F8660: push ebp
loc_005F8661: mov ebp, esp
loc_005F8663: sub esp, 0000000Ch
loc_005F8666: push 00412856h ; __vbaExceptHandler
loc_005F866B: mov eax, fs:[00000000h]
loc_005F8671: push eax
loc_005F8672: mov fs:[00000000h], esp
loc_005F8679: sub esp, 00000008h
loc_005F867C: push ebx
loc_005F867D: push esi
loc_005F867E: push edi
loc_005F867F: mov var_C, esp
loc_005F8682: mov var_8, 00403B58h
loc_005F8689: mov var_4, 00000000h
loc_005F8690: mov esi, Me
loc_005F8693: push esi
loc_005F8694: mov eax, [esi]
loc_005F8696: call [eax+00000004h]
loc_005F8699: push 00000000h
loc_005F869B: push 00000001h
loc_005F869D: push esi
loc_005F869E: call [00401064h] ; __vbaRaiseEvent
loc_005F86A4: add esp, 0000000Ch
loc_005F86A7: mov eax, Me
loc_005F86AA: push eax
loc_005F86AB: mov ecx, [eax]
loc_005F86AD: call [ecx+00000008h]
loc_005F86B0: mov eax, var_4
loc_005F86B3: mov ecx, var_14
loc_005F86B6: pop edi
loc_005F86B7: pop esi
loc_005F86B8: mov fs:[00000000h], ecx
loc_005F86BF: pop ebx
loc_005F86C0: mov esp, ebp
loc_005F86C2: pop ebp
loc_005F86C3: retn 0004h
End Sub
Public Sub FireStoryReaderNewBook(strNewPath) '5F86D0
loc_005F86D0: push ebp
loc_005F86D1: mov ebp, esp
loc_005F86D3: sub esp, 0000000Ch
loc_005F86D6: push 00412856h ; __vbaExceptHandler
loc_005F86DB: mov eax, fs:[00000000h]
loc_005F86E1: push eax
loc_005F86E2: mov fs:[00000000h], esp
loc_005F86E9: sub esp, 0000002Ch
loc_005F86EC: push ebx
loc_005F86ED: push esi
loc_005F86EE: push edi
loc_005F86EF: mov var_C, esp
loc_005F86F2: mov var_8, 00403B60h
loc_005F86F9: xor edi, edi
loc_005F86FB: mov var_4, edi
loc_005F86FE: mov esi, Me
loc_005F8701: push esi
loc_005F8702: mov eax, [esi]
loc_005F8704: call [eax+00000004h]
loc_005F8707: mov edx, strNewPath
loc_005F870A: lea ecx, var_18
loc_005F870D: mov var_18, edi
loc_005F8710: call [00401310h] ; __vbaStrCopy
loc_005F8716: sub esp, 00000010h
loc_005F8719: mov eax, var_18
loc_005F871C: mov edx, esp
loc_005F871E: mov ecx, 00000008h
loc_005F8723: push 00000001h
loc_005F8725: push 00000003h
loc_005F8727: mov [edx], ecx
loc_005F8729: mov ecx, var_24
loc_005F872C: push esi
loc_005F872D: mov [edx+00000004h], ecx
loc_005F8730: mov [edx+00000008h], eax
loc_005F8733: mov eax, var_1C
loc_005F8736: mov [edx+0000000Ch], eax
loc_005F8739: call [00401064h] ; __vbaRaiseEvent
loc_005F873F: add esp, 0000001Ch
loc_005F8742: push 005F8751h
loc_005F8747: lea ecx, var_18
loc_005F874A: call [00401430h] ; __vbaFreeStr
loc_005F8750: ret
loc_005F8751: mov eax, Me
loc_005F8754: push eax
loc_005F8755: mov ecx, [eax]
loc_005F8757: call [ecx+00000008h]
loc_005F875A: mov eax, var_4
loc_005F875D: mov ecx, var_14
loc_005F8760: pop edi
loc_005F8761: pop esi
loc_005F8762: mov fs:[00000000h], ecx
loc_005F8769: pop ebx
loc_005F876A: mov esp, ebp
loc_005F876C: pop ebp
loc_005F876D: retn 0008h
End Sub
Public Sub FireStoryReaderShutDown() '5F8770
loc_005F8770: push ebp
loc_005F8771: mov ebp, esp
loc_005F8773: sub esp, 0000000Ch
loc_005F8776: push 00412856h ; __vbaExceptHandler
loc_005F877B: mov eax, fs:[00000000h]
loc_005F8781: push eax
loc_005F8782: mov fs:[00000000h], esp
loc_005F8789: sub esp, 00000018h
loc_005F878C: push ebx
loc_005F878D: push esi
loc_005F878E: push edi
loc_005F878F: mov var_C, esp
loc_005F8792: mov var_8, 00403B70h
loc_005F8799: xor ebx, ebx
loc_005F879B: mov var_4, ebx
loc_005F879E: mov esi, Me
loc_005F87A1: push esi
loc_005F87A2: mov eax, [esi]
loc_005F87A4: call [eax+00000004h]
loc_005F87A7: push ebx
loc_005F87A8: push 00000002h
loc_005F87AA: push esi
loc_005F87AB: mov var_18, ebx
loc_005F87AE: mov var_1C, ebx
loc_005F87B1: call [00401064h] ; __vbaRaiseEvent
loc_005F87B7: mov eax, [0073A254h]
loc_005F87BC: add esp, 0000000Ch
loc_005F87BF: cmp eax, ebx
loc_005F87C1: jnz 005F87D3h
loc_005F87C3: push 0073A254h
loc_005F87C8: push 00431838h
loc_005F87CD: call [004012FCh] ; __vbaNew2
loc_005F87D3: mov edi, [00401310h] ; __vbaStrCopy
loc_005F87D9: mov esi, [0073A254h]
loc_005F87DF: mov edx, 004478A8h ; "FireStoryReaderShutDown"
loc_005F87E4: lea ecx, var_1C
loc_005F87E7: call edi
loc_005F87E9: mov edx, 0044786Ch ; "Shutting down StoryReader."
loc_005F87EE: lea ecx, var_18
loc_005F87F1: call edi
loc_005F87F3: mov ecx, [esi]
loc_005F87F5: lea edx, var_1C
loc_005F87F8: lea eax, var_18
loc_005F87FB: push edx
loc_005F87FC: push eax
loc_005F87FD: push esi
loc_005F87FE: call [ecx+00000748h]
loc_005F8804: cmp eax, ebx
loc_005F8806: fnclex
loc_005F8808: jge 005F881Ch
loc_005F880A: push 00000748h
loc_005F880F: push 004408D0h
loc_005F8814: push esi
loc_005F8815: push eax
loc_005F8816: call [004010CCh] ; __vbaHresultCheckObj
loc_005F881C: lea ecx, var_1C
loc_005F881F: lea edx, var_18
loc_005F8822: push ecx
loc_005F8823: push edx
loc_005F8824: push 00000002h
loc_005F8826: call [00401324h] ; __vbaFreeStrList
loc_005F882C: add esp, 0000000Ch
loc_005F882F: push 005F884Bh
loc_005F8834: jmp 005F884Ah
loc_005F8836: lea eax, var_1C
loc_005F8839: lea ecx, var_18
loc_005F883C: push eax
loc_005F883D: push ecx
loc_005F883E: push 00000002h
loc_005F8840: call [00401324h] ; __vbaFreeStrList
loc_005F8846: add esp, 0000000Ch
loc_005F8849: ret
loc_005F884A: ret
loc_005F884B: mov eax, Me
loc_005F884E: push eax
loc_005F884F: mov edx, [eax]
loc_005F8851: call [edx+00000008h]
loc_005F8854: mov eax, var_4
loc_005F8857: mov ecx, var_14
loc_005F885A: pop edi
loc_005F885B: pop esi
loc_005F885C: mov fs:[00000000h], ecx
loc_005F8863: pop ebx
loc_005F8864: mov esp, ebp
loc_005F8866: pop ebp
loc_005F8867: retn 0004h
End Sub
Public Sub StoryReaderStartup(objStoryReaderInstance) '5F8870
loc_005F8870: push ebp
loc_005F8871: mov ebp, esp
loc_005F8873: sub esp, 0000000Ch
loc_005F8876: push 00412856h ; __vbaExceptHandler
loc_005F887B: mov eax, fs:[00000000h]
loc_005F8881: push eax
loc_005F8882: mov fs:[00000000h], esp
loc_005F8889: sub esp, 00000008h
loc_005F888C: push ebx
loc_005F888D: push esi
loc_005F888E: push edi
loc_005F888F: mov var_C, esp
loc_005F8892: mov var_8, 00403B80h
loc_005F8899: mov var_4, 00000000h
loc_005F88A0: mov eax, Me
loc_005F88A3: push eax
loc_005F88A4: mov ecx, [eax]
loc_005F88A6: call [ecx+00000004h]
loc_005F88A9: mov edx, objStoryReaderInstance
loc_005F88AC: mov eax, [edx]
loc_005F88AE: push eax
loc_005F88AF: push 0073A214h
loc_005F88B4: call [00401130h] ; __vbaObjSetAddref
loc_005F88BA: mov eax, Me
loc_005F88BD: push eax
loc_005F88BE: mov ecx, [eax]
loc_005F88C0: call [ecx+00000008h]
loc_005F88C3: mov eax, var_4
loc_005F88C6: mov ecx, var_14
loc_005F88C9: pop edi
loc_005F88CA: pop esi
loc_005F88CB: mov fs:[00000000h], ecx
loc_005F88D2: pop ebx
loc_005F88D3: mov esp, ebp
loc_005F88D5: pop ebp
loc_005F88D6: retn 0008h
End Sub
Public Sub StoryReaderShutDown() '5F88E0
loc_005F88E0: push ebp
loc_005F88E1: mov ebp, esp
loc_005F88E3: sub esp, 0000000Ch
loc_005F88E6: push 00412856h ; __vbaExceptHandler
loc_005F88EB: mov eax, fs:[00000000h]
loc_005F88F1: push eax
loc_005F88F2: mov fs:[00000000h], esp
loc_005F88F9: sub esp, 00000008h
loc_005F88FC: push ebx
loc_005F88FD: push esi
loc_005F88FE: push edi
loc_005F88FF: mov var_C, esp
loc_005F8902: mov var_8, 00403B88h
loc_005F8909: mov var_4, 00000000h
loc_005F8910: mov eax, Me
loc_005F8913: push eax
loc_005F8914: mov ecx, [eax]
loc_005F8916: call [ecx+00000004h]
loc_005F8919: push 0044777Ch
loc_005F891E: push 00000000h
loc_005F8920: call [004013C4h] ; __vbaCastObj
loc_005F8926: push eax
loc_005F8927: push 0073A214h
loc_005F892C: call [00401128h] ; __vbaObjSet
loc_005F8932: mov eax, Me
loc_005F8935: push eax
loc_005F8936: mov edx, [eax]
loc_005F8938: call [edx+00000008h]
loc_005F893B: mov eax, var_4
loc_005F893E: mov ecx, var_14
loc_005F8941: pop edi
loc_005F8942: pop esi
loc_005F8943: mov fs:[00000000h], ecx
loc_005F894A: pop ebx
loc_005F894B: mov esp, ebp
loc_005F894D: pop ebp
loc_005F894E: retn 0004h
End Sub
Public Sub StoryReaderStopPlayback(strCaller) '5F8960
loc_005F8960: push ebp
loc_005F8961: mov ebp, esp
loc_005F8963: sub esp, 0000000Ch
loc_005F8966: push 00412856h ; __vbaExceptHandler
loc_005F896B: mov eax, fs:[00000000h]
loc_005F8971: push eax
loc_005F8972: mov fs:[00000000h], esp
loc_005F8979: sub esp, 0000001Ch
loc_005F897C: push ebx
loc_005F897D: push esi
loc_005F897E: push edi
loc_005F897F: mov var_C, esp
loc_005F8982: mov var_8, 00403B90h
loc_005F8989: xor ebx, ebx
loc_005F898B: mov var_4, ebx
loc_005F898E: mov esi, Me
loc_005F8991: push esi
loc_005F8992: mov eax, [esi]
loc_005F8994: call [eax+00000004h]
loc_005F8997: mov edi, strCaller
loc_005F899A: mov var_18, ebx
loc_005F899D: mov var_1C, ebx
loc_005F89A0: mov var_20, ebx
loc_005F89A3: mov ecx, [edi]
loc_005F89A5: push ecx
loc_005F89A6: call [00401044h] ; __vbaLenBstr
loc_005F89AC: test eax, eax
loc_005F89AE: jz 005F89B4h
loc_005F89B0: mov edx, [edi]
loc_005F89B2: jmp 005F89B9h
loc_005F89B4: mov edx, 004478DCh ; "StoryReaderStopPlayback"
loc_005F89B9: lea ecx, var_18
loc_005F89BC: call [00401310h] ; __vbaStrCopy
loc_005F89C2: mov edx, [esi]
loc_005F89C4: lea eax, var_20
loc_005F89C7: push eax
loc_005F89C8: push esi
loc_005F89C9: call [edx+00000020h]
loc_005F89CC: cmp eax, ebx
loc_005F89CE: jge 005F89E3h
loc_005F89D0: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_005F89D6: push 00000020h
loc_005F89D8: push 0044777Ch
loc_005F89DD: push esi
loc_005F89DE: push eax
loc_005F89DF: call edi
loc_005F89E1: jmp 005F89E9h
loc_005F89E3: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_005F89E9: cmp var_20, bx
loc_005F89ED: jz 005F8B17h
loc_005F89F3: cmp [0073A254h], ebx
loc_005F89F9: jnz 005F8A0Bh
loc_005F89FB: push 0073A254h
loc_005F8A00: push 00431838h
loc_005F8A05: call [004012FCh] ; __vbaNew2
loc_005F8A0B: mov esi, [0073A254h]
loc_005F8A11: mov edx, 00447910h ; "Stopping Playback"
loc_005F8A16: lea ecx, var_1C
loc_005F8A19: call [00401310h] ; __vbaStrCopy
loc_005F8A1F: mov ecx, [esi]
loc_005F8A21: lea edx, var_18
loc_005F8A24: lea eax, var_1C
loc_005F8A27: push edx
loc_005F8A28: push eax
loc_005F8A29: push esi
loc_005F8A2A: call [ecx+00000748h]
loc_005F8A30: cmp eax, ebx
loc_005F8A32: fnclex
loc_005F8A34: jge 005F8A44h
loc_005F8A36: push 00000748h
loc_005F8A3B: push 004408D0h
loc_005F8A40: push esi
loc_005F8A41: push eax
loc_005F8A42: call edi
loc_005F8A44: lea ecx, var_1C
loc_005F8A47: call [00401430h] ; __vbaFreeStr
loc_005F8A4D: mov eax, [0073A214h]
loc_005F8A52: push eax
loc_005F8A53: mov ecx, [eax]
loc_005F8A55: call [ecx+0000002Ch]
loc_005F8A58: cmp eax, ebx
loc_005F8A5A: fnclex
loc_005F8A5C: jge 005F8A6Fh
loc_005F8A5E: mov edx, [0073A214h]
loc_005F8A64: push 0000002Ch
loc_005F8A66: push 0044777Ch
loc_005F8A6B: push edx
loc_005F8A6C: push eax
loc_005F8A6D: call edi
loc_005F8A6F: mov esi, [00401238h] ; __vbaObjIs
loc_005F8A75: mov ebx, [0040113Ch] ; rtcDoEvents
loc_005F8A7B: mov eax, [0073A214h]
loc_005F8A80: lea edx, var_20
loc_005F8A83: push edx
loc_005F8A84: push eax
loc_005F8A85: mov ecx, [eax]
loc_005F8A87: call [ecx+00000020h]
loc_005F8A8A: test eax, eax
loc_005F8A8C: fnclex
loc_005F8A8E: jge 005F8AA1h
loc_005F8A90: mov ecx, [0073A214h]
loc_005F8A96: push 00000020h
loc_005F8A98: push 0044777Ch
loc_005F8A9D: push ecx
loc_005F8A9E: push eax
loc_005F8A9F: call edi
loc_005F8AA1: cmp var_20, 0000h
loc_005F8AA6: jz 005F8ABCh
loc_005F8AA8: mov edx, [0073A214h]
loc_005F8AAE: push 00000000h
loc_005F8AB0: push edx
loc_005F8AB1: call __vbaObjIs
loc_005F8AB3: test ax, ax
loc_005F8AB6: jnz 005F8ABCh
loc_005F8AB8: call ebx
loc_005F8ABA: jmp 005F8A7Bh
loc_005F8ABC: mov eax, [0073A254h]
loc_005F8AC1: test eax, eax
loc_005F8AC3: jnz 005F8AD5h
loc_005F8AC5: push 0073A254h
loc_005F8ACA: push 00431838h
loc_005F8ACF: call [004012FCh] ; __vbaNew2
loc_005F8AD5: mov esi, [0073A254h]
loc_005F8ADB: mov edx, 00447938h ; "Stopped Playback"
loc_005F8AE0: lea ecx, var_1C
loc_005F8AE3: call [00401310h] ; __vbaStrCopy
loc_005F8AE9: mov eax, [esi]
loc_005F8AEB: lea ecx, var_18
loc_005F8AEE: lea edx, var_1C
loc_005F8AF1: push ecx
loc_005F8AF2: push edx
loc_005F8AF3: push esi
loc_005F8AF4: call [eax+00000748h]
loc_005F8AFA: test eax, eax
loc_005F8AFC: fnclex
loc_005F8AFE: jge 005F8B0Eh
loc_005F8B00: push 00000748h
loc_005F8B05: push 004408D0h
loc_005F8B0A: push esi
loc_005F8B0B: push eax
loc_005F8B0C: call edi
loc_005F8B0E: lea ecx, var_1C
loc_005F8B11: call [00401430h] ; __vbaFreeStr
loc_005F8B17: push 005F8B32h
loc_005F8B1C: jmp 005F8B28h
loc_005F8B1E: lea ecx, var_1C
loc_005F8B21: call [00401430h] ; __vbaFreeStr
loc_005F8B27: ret
loc_005F8B28: lea ecx, var_18
loc_005F8B2B: call [00401430h] ; __vbaFreeStr
loc_005F8B31: ret
loc_005F8B32: mov eax, Me
loc_005F8B35: push eax
loc_005F8B36: mov ecx, [eax]
loc_005F8B38: call [ecx+00000008h]
loc_005F8B3B: mov eax, var_4
loc_005F8B3E: mov ecx, var_14
loc_005F8B41: pop edi
loc_005F8B42: pop esi
loc_005F8B43: mov fs:[00000000h], ecx
loc_005F8B4A: pop ebx
loc_005F8B4B: mov esp, ebp
loc_005F8B4D: pop ebp
loc_005F8B4E: retn 0008h
End Sub

774
Src Code/frmAddFile.frm
View File

@ -0,0 +1,774 @@
VERSION 5.00
Begin VB.Form frmAddFile
Caption = "Add File to Download List"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmAddFile.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 6030
ClientHeight = 3195
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame fraAddFile
Caption = "File Information"
Left = 240
Top = 1050
Width = 5565
Height = 1935
TabIndex = 4
Begin VB.TextBox txtURL
Left = 300
Top = 600
Width = 4995
Height = 315
TabIndex = 0
End
Begin VB.TextBox txtDescription
Left = 300
Top = 1380
Width = 4995
Height = 315
TabIndex = 1
End
Begin VB.Label lblURL
Caption = "File URL (Internet Address)"
Left = 300
Top = 360
Width = 1905
Height = 195
TabIndex = 6
AutoSize = -1 'True
End
Begin VB.Label lblDescription
Caption = "File Description"
Left = 300
Top = 1140
Width = 1080
Height = 195
TabIndex = 5
AutoSize = -1 'True
End
End
Begin VB.CommandButton CancelButton
Caption = "Cancel"
Left = 4680
Top = 570
Width = 1215
Height = 375
TabIndex = 3
Cancel = -1 'True
End
Begin VB.CommandButton OKButton
Caption = "OK"
Left = 4680
Top = 120
Width = 1215
Height = 375
TabIndex = 2
Default = -1 'True
End
Begin VB.Image imgInstruction
Picture = "frmAddFile.frx":0442
Left = 300
Top = 210
Width = 480
Height = 480
End
Begin VB.Label lblInstruction
Caption = "Enter or change the location (URL) of the file to add to the download list. You can also enter a description for the file."
Left = 1020
Top = 180
Width = 3495
Height = 645
TabIndex = 7
End
End
Attribute VB_Name = "frmAddFile"
Private Sub OKButton_Click() '5C1170
loc_005C1170: push ebp
loc_005C1171: mov ebp, esp
loc_005C1173: sub esp, 00000014h
loc_005C1176: push 00412856h ; __vbaExceptHandler
loc_005C117B: mov eax, fs:[00000000h]
loc_005C1181: push eax
loc_005C1182: mov fs:[00000000h], esp
loc_005C1189: sub esp, 000000C8h
loc_005C118F: push ebx
loc_005C1190: push esi
loc_005C1191: push edi
loc_005C1192: mov var_14, esp
loc_005C1195: mov var_10, 00401708h
loc_005C119C: mov esi, Me
loc_005C119F: mov eax, esi
loc_005C11A1: and eax, 00000001h
loc_005C11A4: mov var_C, eax
loc_005C11A7: and esi, FFFFFFFEh
loc_005C11AA: mov Me, esi
loc_005C11AD: xor ebx, ebx
loc_005C11AF: mov var_8, ebx
loc_005C11B2: mov ecx, [esi]
loc_005C11B4: push esi
loc_005C11B5: call [ecx+00000004h]
loc_005C11B8: mov ecx, 00000008h
loc_005C11BD: xor eax, eax
loc_005C11BF: lea edi, var_3C
loc_005C11C2: repz stosd
loc_005C11C4: mov var_40, ebx
loc_005C11C7: mov var_44, ebx
loc_005C11CA: mov var_54, ebx
loc_005C11CD: mov var_64, ebx
loc_005C11D0: mov var_74, ebx
loc_005C11D3: mov var_84, ebx
loc_005C11D9: mov var_94, ebx
loc_005C11DF: mov var_C8, ebx
loc_005C11E5: mov var_CC, ebx
loc_005C11EB: push 00000001h
loc_005C11ED: call [00401124h] ; __vbaOnError
loc_005C11F3: mov edx, [esi]
loc_005C11F5: push esi
loc_005C11F6: call [edx+00000300h]
loc_005C11FC: mov var_4C, eax
loc_005C11FF: mov var_54, 00000009h
loc_005C1206: lea eax, var_54
loc_005C1209: push eax
loc_005C120A: lea ecx, var_64
loc_005C120D: push ecx
loc_005C120E: mov ebx, [00401154h] ; rtcTrimVar
loc_005C1214: call ebx
loc_005C1216: mov var_8C, 0043C9F4h
loc_005C1220: mov var_94, 00008008h
loc_005C122A: lea edx, var_64
loc_005C122D: push edx
loc_005C122E: lea eax, var_94
loc_005C1234: push eax
loc_005C1235: call [00401348h] ; __vbaVarTstNe
loc_005C123B: mov var_D0, ax
loc_005C1242: lea ecx, var_64
loc_005C1245: push ecx
loc_005C1246: lea edx, var_54
loc_005C1249: push edx
loc_005C124A: push 00000002h
loc_005C124C: mov edi, [00401050h] ; __vbaFreeVarList
loc_005C1252: call edi
loc_005C1254: add esp, 0000000Ch
loc_005C1257: cmp var_D0, 0000h
loc_005C125F: jz 005C1596h
loc_005C1265: mov eax, [esi]
loc_005C1267: lea ecx, var_C8
loc_005C126D: push ecx
loc_005C126E: push esi
loc_005C126F: call [eax+000006F8h]
loc_005C1275: fnclex
loc_005C1277: test eax, eax
loc_005C1279: jge 005C128Dh
loc_005C127B: push 000006F8h
loc_005C1280: push 004425BCh ; "ç‘ýÿ‚m·M’³È˜á­×htxtDescription"
loc_005C1285: push esi
loc_005C1286: push eax
loc_005C1287: call [004010CCh] ; __vbaHresultCheckObj
loc_005C128D: cmp var_C8, 0000h
loc_005C1295: mov edx, [esi]
loc_005C1297: push esi
loc_005C1298: jnz 005C13FCh
loc_005C129E: call [edx+00000300h]
loc_005C12A4: mov var_4C, eax
loc_005C12A7: mov var_54, 00000009h
loc_005C12AE: lea eax, var_54
loc_005C12B1: push eax
loc_005C12B2: lea ecx, var_64
loc_005C12B5: push ecx
loc_005C12B6: call ebx
loc_005C12B8: lea edx, var_64
loc_005C12BB: push edx
loc_005C12BC: call [00401040h] ; __vbaStrVarMove
loc_005C12C2: mov edx, eax
loc_005C12C4: lea ecx, var_40
loc_005C12C7: call [004013C0h] ; __vbaStrMove
loc_005C12CD: mov edx, eax
loc_005C12CF: lea ecx, var_38
loc_005C12D2: call [00401310h] ; __vbaStrCopy
loc_005C12D8: lea ecx, var_40
loc_005C12DB: call [00401430h] ; __vbaFreeStr
loc_005C12E1: lea eax, var_64
loc_005C12E4: push eax
loc_005C12E5: lea ecx, var_54
loc_005C12E8: push ecx
loc_005C12E9: push 00000002h
loc_005C12EB: call edi
loc_005C12ED: add esp, 0000000Ch
loc_005C12F0: mov edx, [esi]
loc_005C12F2: push esi
loc_005C12F3: call [edx+00000304h]
loc_005C12F9: mov var_4C, eax
loc_005C12FC: mov var_54, 00000009h
loc_005C1303: lea eax, var_54
loc_005C1306: push eax
loc_005C1307: lea ecx, var_64
loc_005C130A: push ecx
loc_005C130B: call ebx
loc_005C130D: lea edx, var_64
loc_005C1310: push edx
loc_005C1311: call [00401040h] ; __vbaStrVarMove
loc_005C1317: mov edx, eax
loc_005C1319: lea ecx, var_40
loc_005C131C: call [004013C0h] ; __vbaStrMove
loc_005C1322: mov edx, eax
loc_005C1324: lea ecx, var_3C
loc_005C1327: call [00401310h] ; __vbaStrCopy
loc_005C132D: lea ecx, var_40
loc_005C1330: call [00401430h] ; __vbaFreeStr
loc_005C1336: lea eax, var_64
loc_005C1339: push eax
loc_005C133A: lea ecx, var_54
loc_005C133D: push ecx
loc_005C133E: push 00000002h
loc_005C1340: call edi
loc_005C1342: add esp, 0000000Ch
loc_005C1345: mov eax, [0073A2D4h]
loc_005C134A: test eax, eax
loc_005C134C: jnz 005C1362h
loc_005C134E: push 0073A2D4h
loc_005C1353: push 00420A7Ch
loc_005C1358: mov edi, [004012FCh] ; __vbaNew2
loc_005C135E: call edi
loc_005C1360: jmp 005C1368h
loc_005C1362: mov edi, [004012FCh] ; __vbaNew2
loc_005C1368: lea edx, var_C8
loc_005C136E: push edx
loc_005C136F: lea eax, var_3C
loc_005C1372: push eax
loc_005C1373: mov ecx, [0073A2D4h]
loc_005C1379: push ecx
loc_005C137A: call 005C3670h
loc_005C137F: mov eax, [0073A2D4h]
loc_005C1384: test eax, eax
loc_005C1386: jnz 005C1394h
loc_005C1388: push 0073A2D4h
loc_005C138D: push 00420A7Ch
loc_005C1392: call edi
loc_005C1394: mov edx, [0073A2D4h]
loc_005C139A: push edx
loc_005C139B: call 005C55E0h
loc_005C13A0: mov eax, [0073A2D4h]
loc_005C13A5: test eax, eax
loc_005C13A7: jnz 005C13B5h
loc_005C13A9: push 0073A2D4h
loc_005C13AE: push 00420A7Ch
loc_005C13B3: call edi
loc_005C13B5: mov eax, [0073A2D4h]
loc_005C13BA: push eax
loc_005C13BB: call 005C80F0h
loc_005C13C0: mov eax, [0073C818h]
loc_005C13C5: test eax, eax
loc_005C13C7: jnz 005C13D5h
loc_005C13C9: push 0073C818h
loc_005C13CE: push 00441F00h
loc_005C13D3: call edi
loc_005C13D5: mov edi, [0073C818h]
loc_005C13DB: mov ebx, [edi]
loc_005C13DD: push esi
loc_005C13DE: lea ecx, var_44
loc_005C13E1: push ecx
loc_005C13E2: call [00401130h] ; __vbaObjSetAddref
loc_005C13E8: push eax
loc_005C13E9: push edi
loc_005C13EA: call [ebx+00000010h]
loc_005C13ED: fnclex
loc_005C13EF: test eax, eax
loc_005C13F1: jge 005C1588h
loc_005C13F7: jmp 005C1579h
loc_005C13FC: call [edx+00000300h]
loc_005C1402: mov var_4C, eax
loc_005C1405: mov var_54, 00000009h
loc_005C140C: lea eax, var_54
loc_005C140F: push eax
loc_005C1410: lea ecx, var_64
loc_005C1413: push ecx
loc_005C1414: call ebx
loc_005C1416: lea edx, var_64
loc_005C1419: push edx
loc_005C141A: call [00401040h] ; __vbaStrVarMove
loc_005C1420: mov edx, eax
loc_005C1422: lea ecx, var_40
loc_005C1425: call [004013C0h] ; __vbaStrMove
loc_005C142B: mov edx, eax
loc_005C142D: lea ecx, var_38
loc_005C1430: call [00401310h] ; __vbaStrCopy
loc_005C1436: lea ecx, var_40
loc_005C1439: call [00401430h] ; __vbaFreeStr
loc_005C143F: lea eax, var_64
loc_005C1442: push eax
loc_005C1443: lea ecx, var_54
loc_005C1446: push ecx
loc_005C1447: push 00000002h
loc_005C1449: call edi
loc_005C144B: add esp, 0000000Ch
loc_005C144E: mov edx, [esi]
loc_005C1450: push esi
loc_005C1451: call [edx+00000304h]
loc_005C1457: mov var_4C, eax
loc_005C145A: mov var_54, 00000009h
loc_005C1461: lea eax, var_54
loc_005C1464: push eax
loc_005C1465: lea ecx, var_64
loc_005C1468: push ecx
loc_005C1469: call ebx
loc_005C146B: lea edx, var_64
loc_005C146E: push edx
loc_005C146F: call [00401040h] ; __vbaStrVarMove
loc_005C1475: mov edx, eax
loc_005C1477: lea ecx, var_40
loc_005C147A: call [004013C0h] ; __vbaStrMove
loc_005C1480: mov edx, eax
loc_005C1482: lea ecx, var_3C
loc_005C1485: call [00401310h] ; __vbaStrCopy
loc_005C148B: lea ecx, var_40
loc_005C148E: call [00401430h] ; __vbaFreeStr
loc_005C1494: lea eax, var_64
loc_005C1497: push eax
loc_005C1498: lea ecx, var_54
loc_005C149B: push ecx
loc_005C149C: push 00000002h
loc_005C149E: call edi
loc_005C14A0: add esp, 0000000Ch
loc_005C14A3: mov edx, [esi]
loc_005C14A5: lea eax, var_CC
loc_005C14AB: push eax
loc_005C14AC: push esi
loc_005C14AD: call [edx+00000700h]
loc_005C14B3: fnclex
loc_005C14B5: test eax, eax
loc_005C14B7: jge 005C14CBh
loc_005C14B9: push 00000700h
loc_005C14BE: push 004425BCh ; "ç‘ýÿ‚m·M’³È˜á­×htxtDescription"
loc_005C14C3: push esi
loc_005C14C4: push eax
loc_005C14C5: call [004010CCh] ; __vbaHresultCheckObj
loc_005C14CB: mov eax, [0073A2D4h]
loc_005C14D0: test eax, eax
loc_005C14D2: jnz 005C14E8h
loc_005C14D4: push 0073A2D4h
loc_005C14D9: push 00420A7Ch
loc_005C14DE: mov edi, [004012FCh] ; __vbaNew2
loc_005C14E4: call edi
loc_005C14E6: jmp 005C14EEh
loc_005C14E8: mov edi, [004012FCh] ; __vbaNew2
loc_005C14EE: mov ecx, var_CC
loc_005C14F4: push ecx
loc_005C14F5: lea edx, var_3C
loc_005C14F8: push edx
loc_005C14F9: mov eax, [0073A2D4h]
loc_005C14FE: push eax
loc_005C14FF: call 005C3470h
loc_005C1504: mov eax, [0073A2D4h]
loc_005C1509: test eax, eax
loc_005C150B: jnz 005C1519h
loc_005C150D: push 0073A2D4h
loc_005C1512: push 00420A7Ch
loc_005C1517: call edi
loc_005C1519: mov ecx, [0073A2D4h]
loc_005C151F: push ecx
loc_005C1520: call 005C55E0h
loc_005C1525: mov eax, [0073A2D4h]
loc_005C152A: test eax, eax
loc_005C152C: jnz 005C153Ah
loc_005C152E: push 0073A2D4h
loc_005C1533: push 00420A7Ch
loc_005C1538: call edi
loc_005C153A: mov edx, [0073A2D4h]
loc_005C1540: push edx
loc_005C1541: call 005C80F0h
loc_005C1546: mov eax, [0073C818h]
loc_005C154B: test eax, eax
loc_005C154D: jnz 005C155Bh
loc_005C154F: push 0073C818h
loc_005C1554: push 00441F00h
loc_005C1559: call edi
loc_005C155B: mov edi, [0073C818h]
loc_005C1561: mov ebx, [edi]
loc_005C1563: push esi
loc_005C1564: lea eax, var_44
loc_005C1567: push eax
loc_005C1568: call [00401130h] ; __vbaObjSetAddref
loc_005C156E: push eax
loc_005C156F: push edi
loc_005C1570: call [ebx+00000010h]
loc_005C1573: fnclex
loc_005C1575: test eax, eax
loc_005C1577: jge 005C1588h
loc_005C1579: push 00000010h
loc_005C157B: push 00441EF0h
loc_005C1580: push edi
loc_005C1581: push eax
loc_005C1582: call [004010CCh] ; __vbaHresultCheckObj
loc_005C1588: lea ecx, var_44
loc_005C158B: call [0040142Ch] ; __vbaFreeObj
loc_005C1591: jmp 005C16C4h
loc_005C1596: mov ecx, 80020004h
loc_005C159B: mov var_7C, ecx
loc_005C159E: mov eax, 0000000Ah
loc_005C15A3: mov var_84, eax
loc_005C15A9: mov var_6C, ecx
loc_005C15AC: mov var_74, eax
loc_005C15AF: mov var_5C, ecx
loc_005C15B2: mov var_64, eax
loc_005C15B5: mov var_8C, 00443450h ; "You must enter a URL for the file before it can be added to the download list."
loc_005C15BF: mov var_94, 00000008h
loc_005C15C9: lea edx, var_94
loc_005C15CF: lea ecx, var_54
loc_005C15D2: call [00401374h] ; __vbaVarDup
loc_005C15D8: lea ecx, var_84
loc_005C15DE: push ecx
loc_005C15DF: lea edx, var_74
loc_005C15E2: push edx
loc_005C15E3: lea eax, var_64
loc_005C15E6: push eax
loc_005C15E7: push 00000030h
loc_005C15E9: lea ecx, var_54
loc_005C15EC: push ecx
loc_005C15ED: call [00401120h] ; rtcMsgBox
loc_005C15F3: lea edx, var_84
loc_005C15F9: push edx
loc_005C15FA: lea eax, var_74
loc_005C15FD: push eax
loc_005C15FE: lea ecx, var_64
loc_005C1601: push ecx
loc_005C1602: lea edx, var_54
loc_005C1605: push edx
loc_005C1606: push 00000004h
loc_005C1608: call edi
loc_005C160A: jmp 005C16C1h
loc_005C160F: call [00401340h] ; rtcErrObj
loc_005C1615: push eax
loc_005C1616: lea eax, var_44
loc_005C1619: push eax
loc_005C161A: call [00401128h] ; __vbaObjSet
loc_005C1620: mov esi, eax
loc_005C1622: mov ecx, [esi]
loc_005C1624: lea edx, var_40
loc_005C1627: push edx
loc_005C1628: push esi
loc_005C1629: call [ecx+0000002Ch]
loc_005C162C: fnclex
loc_005C162E: test eax, eax
loc_005C1630: jge 005C1641h
loc_005C1632: push 0000002Ch
loc_005C1634: push 00443540h
loc_005C1639: push esi
loc_005C163A: push eax
loc_005C163B: call [004010CCh] ; __vbaHresultCheckObj
loc_005C1641: mov ecx, 80020004h
loc_005C1646: mov var_7C, ecx
loc_005C1649: mov eax, 0000000Ah
loc_005C164E: mov var_84, eax
loc_005C1654: mov var_6C, ecx
loc_005C1657: mov var_74, eax
loc_005C165A: mov var_5C, ecx
loc_005C165D: mov var_64, eax
loc_005C1660: push 004434F4h ; "Error adding file to download list: "
loc_005C1665: mov eax, var_40
loc_005C1668: push eax
loc_005C1669: call [00401098h] ; __vbaStrCat
loc_005C166F: mov var_4C, eax
loc_005C1672: mov var_54, 00000008h
loc_005C1679: lea ecx, var_84
loc_005C167F: push ecx
loc_005C1680: lea edx, var_74
loc_005C1683: push edx
loc_005C1684: lea eax, var_64
loc_005C1687: push eax
loc_005C1688: push 00000010h
loc_005C168A: lea ecx, var_54
loc_005C168D: push ecx
loc_005C168E: call [00401120h] ; rtcMsgBox
loc_005C1694: lea ecx, var_40
loc_005C1697: call [00401430h] ; __vbaFreeStr
loc_005C169D: lea ecx, var_44
loc_005C16A0: call [0040142Ch] ; __vbaFreeObj
loc_005C16A6: lea edx, var_84
loc_005C16AC: push edx
loc_005C16AD: lea eax, var_74
loc_005C16B0: push eax
loc_005C16B1: lea ecx, var_64
loc_005C16B4: push ecx
loc_005C16B5: lea edx, var_54
loc_005C16B8: push edx
loc_005C16B9: push 00000004h
loc_005C16BB: call [00401050h] ; __vbaFreeVarList
loc_005C16C1: add esp, 00000014h
loc_005C16C4: call [00401114h] ; __vbaExitProc
loc_005C16CA: push 005C1712h
loc_005C16CF: jmp 005C1702h
loc_005C16D1: lea ecx, var_40
loc_005C16D4: call [00401430h] ; __vbaFreeStr
loc_005C16DA: lea ecx, var_44
loc_005C16DD: call [0040142Ch] ; __vbaFreeObj
loc_005C16E3: lea eax, var_84
loc_005C16E9: push eax
loc_005C16EA: lea ecx, var_74
loc_005C16ED: push ecx
loc_005C16EE: lea edx, var_64
loc_005C16F1: push edx
loc_005C16F2: lea eax, var_54
loc_005C16F5: push eax
loc_005C16F6: push 00000004h
loc_005C16F8: call [00401050h] ; __vbaFreeVarList
loc_005C16FE: add esp, 00000014h
loc_005C1701: ret
loc_005C1702: lea ecx, var_3C
loc_005C1705: push ecx
loc_005C1706: push 0043E41Ch ; ", "
loc_005C170B: call [004010C0h] ; __vbaRecDestruct
loc_005C1711: ret
loc_005C1712: mov eax, Me
loc_005C1715: mov edx, [eax]
loc_005C1717: push eax
loc_005C1718: call [edx+00000008h]
loc_005C171B: mov eax, var_C
loc_005C171E: mov ecx, var_1C
loc_005C1721: mov fs:[00000000h], ecx
loc_005C1728: pop edi
loc_005C1729: pop esi
loc_005C172A: pop ebx
loc_005C172B: mov esp, ebp
loc_005C172D: pop ebp
loc_005C172E: retn 0004h
End Sub
Private Sub CancelButton_Click() '5C10A0
loc_005C10A0: push ebp
loc_005C10A1: mov ebp, esp
loc_005C10A3: sub esp, 0000000Ch
loc_005C10A6: push 00412856h ; __vbaExceptHandler
loc_005C10AB: mov eax, fs:[00000000h]
loc_005C10B1: push eax
loc_005C10B2: mov fs:[00000000h], esp
loc_005C10B9: sub esp, 00000018h
loc_005C10BC: push ebx
loc_005C10BD: push esi
loc_005C10BE: push edi
loc_005C10BF: mov var_C, esp
loc_005C10C2: mov var_8, 004016F8h
loc_005C10C9: mov edi, Me
loc_005C10CC: mov eax, edi
loc_005C10CE: and eax, 00000001h
loc_005C10D1: mov var_4, eax
loc_005C10D4: and edi, FFFFFFFEh
loc_005C10D7: push edi
loc_005C10D8: mov Me, edi
loc_005C10DB: mov ecx, [edi]
loc_005C10DD: call [ecx+00000004h]
loc_005C10E0: mov eax, [0073C818h]
loc_005C10E5: xor ebx, ebx
loc_005C10E7: cmp eax, ebx
loc_005C10E9: mov var_18, ebx
loc_005C10EC: jnz 005C10FEh
loc_005C10EE: push 0073C818h
loc_005C10F3: push 00441F00h
loc_005C10F8: call [004012FCh] ; __vbaNew2
loc_005C10FE: mov esi, [0073C818h]
loc_005C1104: lea eax, var_18
loc_005C1107: push edi
loc_005C1108: push eax
loc_005C1109: mov edx, [esi]
loc_005C110B: mov var_2C, edx
loc_005C110E: call [00401130h] ; __vbaObjSetAddref
loc_005C1114: mov ecx, var_2C
loc_005C1117: push eax
loc_005C1118: push esi
loc_005C1119: call [ecx+00000010h]
loc_005C111C: cmp eax, ebx
loc_005C111E: fnclex
loc_005C1120: jge 005C1131h
loc_005C1122: push 00000010h
loc_005C1124: push 00441EF0h
loc_005C1129: push esi
loc_005C112A: push eax
loc_005C112B: call [004010CCh] ; __vbaHresultCheckObj
loc_005C1131: lea ecx, var_18
loc_005C1134: call [0040142Ch] ; __vbaFreeObj
loc_005C113A: mov var_4, ebx
loc_005C113D: push 005C114Fh
loc_005C1142: jmp 005C114Eh
loc_005C1144: lea ecx, var_18
loc_005C1147: call [0040142Ch] ; __vbaFreeObj
loc_005C114D: ret
loc_005C114E: ret
loc_005C114F: mov eax, Me
loc_005C1152: push eax
loc_005C1153: mov edx, [eax]
loc_005C1155: call [edx+00000008h]
loc_005C1158: mov eax, var_4
loc_005C115B: mov ecx, var_14
loc_005C115E: pop edi
loc_005C115F: pop esi
loc_005C1160: mov fs:[00000000h], ecx
loc_005C1167: pop ebx
loc_005C1168: mov esp, ebp
loc_005C116A: pop ebp
loc_005C116B: retn 0004h
End Sub
Public Property Get Editing(Index As Integer) '5C1740
loc_005C1740: push ebp
loc_005C1741: mov ebp, esp
loc_005C1743: sub esp, 0000000Ch
loc_005C1746: push 00412856h ; __vbaExceptHandler
loc_005C174B: mov eax, fs:[00000000h]
loc_005C1751: push eax
loc_005C1752: mov fs:[00000000h], esp
loc_005C1759: sub esp, 0000000Ch
loc_005C175C: push ebx
loc_005C175D: push esi
loc_005C175E: push edi
loc_005C175F: mov var_C, esp
loc_005C1762: mov var_8, 00401730h
loc_005C1769: xor edi, edi
loc_005C176B: mov var_4, edi
loc_005C176E: mov esi, Me
loc_005C1771: push esi
loc_005C1772: mov eax, [esi]
loc_005C1774: call [eax+00000004h]
loc_005C1777: mov cx, [esi+00000034h]
loc_005C177B: mov var_18, edi
loc_005C177E: mov var_18, ecx
loc_005C1781: mov eax, Me
loc_005C1784: push eax
loc_005C1785: mov edx, [eax]
loc_005C1787: call [edx+00000008h]
loc_005C178A: mov eax, Index
loc_005C178D: mov cx, var_18
loc_005C1791: mov [eax], cx
loc_005C1794: mov eax, var_4
loc_005C1797: mov ecx, var_14
loc_005C179A: pop edi
loc_005C179B: pop esi
loc_005C179C: mov fs:[00000000h], ecx
loc_005C17A3: pop ebx
loc_005C17A4: mov esp, ebp
loc_005C17A6: pop ebp
loc_005C17A7: retn 0008h
End Sub
Public Property Let Editing(blnNewValue) '5C17B0
loc_005C17B0: push ebp
loc_005C17B1: mov ebp, esp
loc_005C17B3: sub esp, 0000000Ch
loc_005C17B6: push 00412856h ; __vbaExceptHandler
loc_005C17BB: mov eax, fs:[00000000h]
loc_005C17C1: push eax
loc_005C17C2: mov fs:[00000000h], esp
loc_005C17C9: sub esp, 00000008h
loc_005C17CC: push ebx
loc_005C17CD: push esi
loc_005C17CE: push edi
loc_005C17CF: mov var_C, esp
loc_005C17D2: mov var_8, 00401738h
loc_005C17D9: mov var_4, 00000000h
loc_005C17E0: mov esi, Me
loc_005C17E3: push esi
loc_005C17E4: mov eax, [esi]
loc_005C17E6: call [eax+00000004h]
loc_005C17E9: mov cx, blnNewValue
loc_005C17ED: mov [esi+00000034h], cx
loc_005C17F1: mov eax, Me
loc_005C17F4: push eax
loc_005C17F5: mov edx, [eax]
loc_005C17F7: call [edx+00000008h]
loc_005C17FA: mov eax, var_4
loc_005C17FD: mov ecx, var_14
loc_005C1800: pop edi
loc_005C1801: pop esi
loc_005C1802: mov fs:[00000000h], ecx
loc_005C1809: pop ebx
loc_005C180A: mov esp, ebp
loc_005C180C: pop ebp
loc_005C180D: retn 0008h
End Sub
Public Property Get EditingIndex(arg_C) '5C1810
loc_005C1810: push ebp
loc_005C1811: mov ebp, esp
loc_005C1813: sub esp, 0000000Ch
loc_005C1816: push 00412856h ; __vbaExceptHandler
loc_005C181B: mov eax, fs:[00000000h]
loc_005C1821: push eax
loc_005C1822: mov fs:[00000000h], esp
loc_005C1829: sub esp, 0000000Ch
loc_005C182C: push ebx
loc_005C182D: push esi
loc_005C182E: push edi
loc_005C182F: mov var_C, esp
loc_005C1832: mov var_8, 00401740h
loc_005C1839: xor edi, edi
loc_005C183B: mov var_4, edi
loc_005C183E: mov esi, Me
loc_005C1841: push esi
loc_005C1842: mov eax, [esi]
loc_005C1844: call [eax+00000004h]
loc_005C1847: mov ecx, [esi+00000038h]
loc_005C184A: mov var_18, edi
loc_005C184D: mov var_18, ecx
loc_005C1850: mov eax, Me
loc_005C1853: push eax
loc_005C1854: mov edx, [eax]
loc_005C1856: call [edx+00000008h]
loc_005C1859: mov eax, arg_C
loc_005C185C: mov ecx, var_18
loc_005C185F: mov [eax], ecx
loc_005C1861: mov eax, var_4
loc_005C1864: mov ecx, var_14
loc_005C1867: pop edi
loc_005C1868: pop esi
loc_005C1869: mov fs:[00000000h], ecx
loc_005C1870: pop ebx
loc_005C1871: mov esp, ebp
loc_005C1873: pop ebp
loc_005C1874: retn 0008h
End Sub
Public Property Let EditingIndex(lngNewValue) '5C1880
loc_005C1880: push ebp
loc_005C1881: mov ebp, esp
loc_005C1883: sub esp, 0000000Ch
loc_005C1886: push 00412856h ; __vbaExceptHandler
loc_005C188B: mov eax, fs:[00000000h]
loc_005C1891: push eax
loc_005C1892: mov fs:[00000000h], esp
loc_005C1899: sub esp, 00000008h
loc_005C189C: push ebx
loc_005C189D: push esi
loc_005C189E: push edi
loc_005C189F: mov var_C, esp
loc_005C18A2: mov var_8, 00401748h
loc_005C18A9: mov var_4, 00000000h
loc_005C18B0: mov esi, Me
loc_005C18B3: push esi
loc_005C18B4: mov eax, [esi]
loc_005C18B6: call [eax+00000004h]
loc_005C18B9: mov ecx, lngNewValue
loc_005C18BC: mov [esi+00000038h], ecx
loc_005C18BF: mov eax, Me
loc_005C18C2: push eax
loc_005C18C3: mov edx, [eax]
loc_005C18C5: call [edx+00000008h]
loc_005C18C8: mov eax, var_4
loc_005C18CB: mov ecx, var_14
loc_005C18CE: pop edi
loc_005C18CF: pop esi
loc_005C18D0: mov fs:[00000000h], ecx
loc_005C18D7: pop ebx
loc_005C18D8: mov esp, ebp
loc_005C18DA: pop ebp
loc_005C18DB: retn 0008h
End Sub

BIN
Src Code/frmAddFile.frx
View File

4069
Src Code/frmAddressBook.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmAddressBook.frx
View File

929
Src Code/frmAddressProperties.frm
View File

@ -0,0 +1,929 @@
VERSION 5.00
Begin VB.Form frmAddressProperties
Caption = "Address Book Entry"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ControlBox = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 5040
ClientHeight = 1350
LockControls = -1 'True
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdOK
Caption = "&OK"
Left = 2820
Top = 900
Width = 975
Height = 375
TabIndex = 5
Default = -1 'True
End
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
Left = 3930
Top = 900
Width = 975
Height = 375
TabIndex = 4
Cancel = -1 'True
End
Begin VB.TextBox txtAddress
Left = 1290
Top = 510
Width = 3615
Height = 285
TabIndex = 3
End
Begin VB.TextBox txtName
Left = 1290
Top = 90
Width = 3615
Height = 285
TabIndex = 0
End
Begin VB.Label Label2
Caption = "E-Mail Address:"
Left = 120
Top = 540
Width = 1095
Height = 195
TabIndex = 2
AutoSize = -1 'True
End
Begin VB.Label Label1
Caption = "Name:"
Left = 750
Top = 120
Width = 465
Height = 195
TabIndex = 1
AutoSize = -1 'True
End
End
Attribute VB_Name = "frmAddressProperties"
Private Sub cmdCancel_Click() '601BD0
loc_00601BD0: push ebp
loc_00601BD1: mov ebp, esp
loc_00601BD3: sub esp, 0000000Ch
loc_00601BD6: push 00412856h ; __vbaExceptHandler
loc_00601BDB: mov eax, fs:[00000000h]
loc_00601BE1: push eax
loc_00601BE2: mov fs:[00000000h], esp
loc_00601BE9: sub esp, 0000000Ch
loc_00601BEC: push ebx
loc_00601BED: push esi
loc_00601BEE: push edi
loc_00601BEF: mov var_C, esp
loc_00601BF2: mov var_8, 00404148h
loc_00601BF9: mov esi, Me
loc_00601BFC: mov eax, esi
loc_00601BFE: and eax, 00000001h
loc_00601C01: mov var_4, eax
loc_00601C04: and esi, FFFFFFFEh
loc_00601C07: push esi
loc_00601C08: mov Me, esi
loc_00601C0B: mov ecx, [esi]
loc_00601C0D: call [ecx+00000004h]
loc_00601C10: mov edx, [esi]
loc_00601C12: push esi
loc_00601C13: mov [esi+0000003Ch], FFFFFFh
loc_00601C19: call [edx+000002B4h]
loc_00601C1F: test eax, eax
loc_00601C21: fnclex
loc_00601C23: jge 00601C37h
loc_00601C25: push 000002B4h
loc_00601C2A: push 00448044h
loc_00601C2F: push esi
loc_00601C30: push eax
loc_00601C31: call [004010CCh] ; __vbaHresultCheckObj
loc_00601C37: mov var_4, 00000000h
loc_00601C3E: mov eax, Me
loc_00601C41: push eax
loc_00601C42: mov ecx, [eax]
loc_00601C44: call [ecx+00000008h]
loc_00601C47: mov eax, var_4
loc_00601C4A: mov ecx, var_14
loc_00601C4D: pop edi
loc_00601C4E: pop esi
loc_00601C4F: mov fs:[00000000h], ecx
loc_00601C56: pop ebx
loc_00601C57: mov esp, ebp
loc_00601C59: pop ebp
loc_00601C5A: retn 0004h
End Sub
Private Sub cmdOK_Click() '601C60
loc_00601C60: push ebp
loc_00601C61: mov ebp, esp
loc_00601C63: sub esp, 0000000Ch
loc_00601C66: push 00412856h ; __vbaExceptHandler
loc_00601C6B: mov eax, fs:[00000000h]
loc_00601C71: push eax
loc_00601C72: mov fs:[00000000h], esp
loc_00601C79: sub esp, 000001A4h
loc_00601C7F: push ebx
loc_00601C80: push esi
loc_00601C81: push edi
loc_00601C82: mov var_C, esp
loc_00601C85: mov var_8, 00404150h
loc_00601C8C: mov esi, Me
loc_00601C8F: mov eax, esi
loc_00601C91: and eax, 00000001h
loc_00601C94: mov var_4, eax
loc_00601C97: and esi, FFFFFFFEh
loc_00601C9A: push esi
loc_00601C9B: mov Me, esi
loc_00601C9E: mov ecx, [esi]
loc_00601CA0: call [ecx+00000004h]
loc_00601CA3: mov edx, [esi]
loc_00601CA5: xor edi, edi
loc_00601CA7: push esi
loc_00601CA8: mov var_18, edi
loc_00601CAB: mov var_1C, edi
loc_00601CAE: mov var_20, edi
loc_00601CB1: mov var_24, edi
loc_00601CB4: mov var_34, edi
loc_00601CB7: mov var_44, edi
loc_00601CBA: mov var_54, edi
loc_00601CBD: mov var_64, edi
loc_00601CC0: mov var_74, edi
loc_00601CC3: mov var_84, edi
loc_00601CC9: mov var_94, edi
loc_00601CCF: mov var_A4, edi
loc_00601CD5: mov var_B4, edi
loc_00601CDB: mov var_C4, edi
loc_00601CE1: mov var_D4, edi
loc_00601CE7: mov var_E4, edi
loc_00601CED: mov var_F4, edi
loc_00601CF3: mov var_104, edi
loc_00601CF9: mov var_114, edi
loc_00601CFF: mov var_124, edi
loc_00601D05: mov var_134, edi
loc_00601D0B: mov var_144, edi
loc_00601D11: mov var_154, edi
loc_00601D17: mov var_164, edi
loc_00601D1D: mov var_174, edi
loc_00601D23: mov var_184, edi
loc_00601D29: mov var_194, edi
loc_00601D2F: call [edx+00000308h]
loc_00601D35: push eax
loc_00601D36: lea eax, var_20
loc_00601D39: push eax
loc_00601D3A: call [00401128h] ; __vbaObjSet
loc_00601D40: mov ebx, eax
loc_00601D42: lea edx, var_18
loc_00601D45: push edx
loc_00601D46: push ebx
loc_00601D47: mov ecx, [ebx]
loc_00601D49: call [ecx+000000A0h]
loc_00601D4F: cmp eax, edi
loc_00601D51: fnclex
loc_00601D53: jge 00601D67h
loc_00601D55: push 000000A0h
loc_00601D5A: push 0043F42Ch
loc_00601D5F: push ebx
loc_00601D60: push eax
loc_00601D61: call [004010CCh] ; __vbaHresultCheckObj
loc_00601D67: mov eax, [esi]
loc_00601D69: push esi
loc_00601D6A: call [eax+00000308h]
loc_00601D70: lea ecx, var_24
loc_00601D73: push eax
loc_00601D74: push ecx
loc_00601D75: call [00401128h] ; __vbaObjSet
loc_00601D7B: mov edx, var_18
loc_00601D7E: mov ebx, [eax]
loc_00601D80: push edi
loc_00601D81: push FFFFFFFFh
loc_00601D83: push 00000001h
loc_00601D85: push 00448370h
loc_00601D8A: push 00448570h ; " ("
loc_00601D8F: push edx
loc_00601D90: mov var_1A4, eax
loc_00601D96: call [00401258h] ; rtcReplace
loc_00601D9C: mov edx, eax
loc_00601D9E: lea ecx, var_1C
loc_00601DA1: call [004013C0h] ; __vbaStrMove
loc_00601DA7: mov var_1B8, ebx
loc_00601DAD: mov ebx, var_1A4
loc_00601DB3: push eax
loc_00601DB4: mov eax, var_1B8
loc_00601DBA: push ebx
loc_00601DBB: call [eax+000000A4h]
loc_00601DC1: cmp eax, edi
loc_00601DC3: fnclex
loc_00601DC5: jge 00601DD9h
loc_00601DC7: push 000000A4h
loc_00601DCC: push 0043F42Ch
loc_00601DD1: push ebx
loc_00601DD2: push eax
loc_00601DD3: call [004010CCh] ; __vbaHresultCheckObj
loc_00601DD9: lea ecx, var_1C
loc_00601DDC: lea edx, var_18
loc_00601DDF: push ecx
loc_00601DE0: push edx
loc_00601DE1: push 00000002h
loc_00601DE3: call [00401324h] ; __vbaFreeStrList
loc_00601DE9: lea eax, var_24
loc_00601DEC: lea ecx, var_20
loc_00601DEF: push eax
loc_00601DF0: push ecx
loc_00601DF1: push 00000002h
loc_00601DF3: call [00401068h] ; __vbaFreeObjList
loc_00601DF9: mov edx, [esi]
loc_00601DFB: add esp, 00000018h
loc_00601DFE: push esi
loc_00601DFF: call [edx+00000304h]
loc_00601E05: mov var_2C, eax
loc_00601E08: lea eax, var_34
loc_00601E0B: lea ecx, var_44
loc_00601E0E: mov ebx, 00000009h
loc_00601E13: push eax
loc_00601E14: push ecx
loc_00601E15: mov var_34, ebx
loc_00601E18: call [00401154h] ; rtcTrimVar
loc_00601E1E: mov edx, [esi]
loc_00601E20: push esi
loc_00601E21: mov var_12C, edi
loc_00601E27: mov var_134, 00008002h
loc_00601E31: call [edx+00000304h]
loc_00601E37: mov var_6C, eax
loc_00601E3A: mov eax, [esi]
loc_00601E3C: push esi
loc_00601E3D: mov var_74, ebx
loc_00601E40: mov var_13C, 00444D98h ; "."
loc_00601E4A: mov var_144, 00000008h
loc_00601E54: mov var_14C, edi
loc_00601E5A: mov var_154, 00008002h
loc_00601E64: call [eax+00000304h]
loc_00601E6A: mov ecx, [esi]
loc_00601E6C: push esi
loc_00601E6D: mov var_AC, eax
loc_00601E73: mov var_B4, ebx
loc_00601E79: mov var_15C, 00448378h ; "@"
loc_00601E83: mov var_164, 00000008h
loc_00601E8D: mov var_16C, edi
loc_00601E93: mov var_174, 00008002h
loc_00601E9D: call [ecx+00000304h]
loc_00601EA3: mov var_EC, eax
loc_00601EA9: lea edx, var_44
loc_00601EAC: lea eax, var_54
loc_00601EAF: push edx
loc_00601EB0: push eax
loc_00601EB1: mov var_F4, ebx
loc_00601EB7: mov var_17C, 00448570h ; " ("
loc_00601EC1: mov var_184, 00000008h
loc_00601ECB: mov var_18C, edi
loc_00601ED1: mov var_194, 00008002h
loc_00601EDB: call [004010D4h] ; __vbaLenVar
loc_00601EE1: mov ebx, [00401094h] ; __vbaVarCmpNe
loc_00601EE7: lea ecx, var_134
loc_00601EED: push eax
loc_00601EEE: lea edx, var_64
loc_00601EF1: push ecx
loc_00601EF2: push edx
loc_00601EF3: call ebx
loc_00601EF5: push eax
loc_00601EF6: lea eax, var_74
loc_00601EF9: push 00000001h
loc_00601EFB: lea ecx, var_144
loc_00601F01: push eax
loc_00601F02: push ecx
loc_00601F03: lea edx, var_84
loc_00601F09: push edi
loc_00601F0A: push edx
loc_00601F0B: call [0040129Ch] ; __vbaInStrVar
loc_00601F11: push eax
loc_00601F12: lea eax, var_154
loc_00601F18: lea ecx, var_94
loc_00601F1E: push eax
loc_00601F1F: push ecx
loc_00601F20: call ebx
loc_00601F22: lea edx, var_A4
loc_00601F28: push eax
loc_00601F29: push edx
loc_00601F2A: call [00401240h] ; __vbaVarAnd
loc_00601F30: push eax
loc_00601F31: lea eax, var_B4
loc_00601F37: push 00000001h
loc_00601F39: lea ecx, var_164
loc_00601F3F: push eax
loc_00601F40: push ecx
loc_00601F41: lea edx, var_C4
loc_00601F47: push edi
loc_00601F48: push edx
loc_00601F49: call [0040129Ch] ; __vbaInStrVar
loc_00601F4F: push eax
loc_00601F50: lea eax, var_174
loc_00601F56: lea ecx, var_D4
loc_00601F5C: push eax
loc_00601F5D: push ecx
loc_00601F5E: call ebx
loc_00601F60: mov ebx, [00401240h] ; __vbaVarAnd
loc_00601F66: lea edx, var_E4
loc_00601F6C: push eax
loc_00601F6D: push edx
loc_00601F6E: call ebx
loc_00601F70: push eax
loc_00601F71: lea eax, var_F4
loc_00601F77: push 00000001h
loc_00601F79: lea ecx, var_184
loc_00601F7F: push eax
loc_00601F80: push ecx
loc_00601F81: lea edx, var_104
loc_00601F87: push edi
loc_00601F88: push edx
loc_00601F89: call [0040129Ch] ; __vbaInStrVar
loc_00601F8F: push eax
loc_00601F90: lea eax, var_194
loc_00601F96: lea ecx, var_114
loc_00601F9C: push eax
loc_00601F9D: push ecx
loc_00601F9E: call [00401350h] ; __vbaVarCmpEq
loc_00601FA4: lea edx, var_124
loc_00601FAA: push eax
loc_00601FAB: push edx
loc_00601FAC: call ebx
loc_00601FAE: push eax
loc_00601FAF: call [00401164h] ; __vbaBoolVarNull
loc_00601FB5: mov bx, ax
loc_00601FB8: lea eax, var_104
loc_00601FBE: lea ecx, var_F4
loc_00601FC4: push eax
loc_00601FC5: lea edx, var_C4
loc_00601FCB: push ecx
loc_00601FCC: lea eax, var_B4
loc_00601FD2: push edx
loc_00601FD3: lea ecx, var_84
loc_00601FD9: push eax
loc_00601FDA: lea edx, var_74
loc_00601FDD: push ecx
loc_00601FDE: lea eax, var_44
loc_00601FE1: push edx
loc_00601FE2: lea ecx, var_34
loc_00601FE5: push eax
loc_00601FE6: push ecx
loc_00601FE7: push 00000008h
loc_00601FE9: call [00401050h] ; __vbaFreeVarList
loc_00601FEF: add esp, 00000024h
loc_00601FF2: cmp bx, di
loc_00601FF5: jz 00602025h
loc_00601FF7: mov edx, [esi]
loc_00601FF9: push esi
loc_00601FFA: mov [esi+0000003Ch], di
loc_00601FFE: call [edx+000002B4h]
loc_00602004: cmp eax, edi
loc_00602006: fnclex
loc_00602008: jge 0060224Bh
loc_0060200E: push 000002B4h
loc_00602013: push 00448044h
loc_00602018: push esi
loc_00602019: push eax
loc_0060201A: call [004010CCh] ; __vbaHresultCheckObj
loc_00602020: jmp 0060224Bh
loc_00602025: mov eax, [esi]
loc_00602027: push esi
loc_00602028: call [eax+00000304h]
loc_0060202E: lea ecx, var_34
loc_00602031: lea edx, var_44
loc_00602034: push ecx
loc_00602035: push edx
loc_00602036: mov var_2C, eax
loc_00602039: mov var_34, 00000009h
loc_00602040: call [00401154h] ; rtcTrimVar
loc_00602046: lea eax, var_44
loc_00602049: lea ecx, var_54
loc_0060204C: push eax
loc_0060204D: push ecx
loc_0060204E: mov var_12C, edi
loc_00602054: mov var_134, 00008002h
loc_0060205E: call [004010D4h] ; __vbaLenVar
loc_00602064: push eax
loc_00602065: lea edx, var_134
loc_0060206B: lea eax, var_64
loc_0060206E: push edx
loc_0060206F: push eax
loc_00602070: call [00401350h] ; __vbaVarCmpEq
loc_00602076: push eax
loc_00602077: call [00401150h] ; __vbaBoolVar
loc_0060207D: xor ecx, ecx
loc_0060207F: cmp ax, FFFFFFh
loc_00602083: lea edx, var_44
loc_00602086: lea eax, var_34
loc_00602089: setz cl
loc_0060208C: push edx
loc_0060208D: push eax
loc_0060208E: neg ecx
loc_00602090: push 00000002h
loc_00602092: mov esi, ecx
loc_00602094: call [00401050h] ; __vbaFreeVarList
loc_0060209A: mov eax, [0073A08Ch]
loc_0060209F: add esp, 0000000Ch
loc_006020A2: lea edx, var_20
loc_006020A5: cmp si, di
loc_006020A8: mov ecx, [eax]
loc_006020AA: push edx
loc_006020AB: push 00448380h ; "Decline"
loc_006020B0: push eax
loc_006020B1: jz 00602172h
loc_006020B7: call [ecx+00000064h]
loc_006020BA: cmp eax, edi
loc_006020BC: fnclex
loc_006020BE: jge 006020D5h
loc_006020C0: mov ecx, [0073A08Ch]
loc_006020C6: push 00000064h
loc_006020C8: push 004419ACh
loc_006020CD: push ecx
loc_006020CE: push eax
loc_006020CF: call [004010CCh] ; __vbaHresultCheckObj
loc_006020D5: lea ecx, var_20
loc_006020D8: call [0040142Ch] ; __vbaFreeObj
loc_006020DE: mov edx, [0073A040h]
loc_006020E4: mov var_12C, 80020004h
loc_006020EE: push edx
loc_006020EF: push 0044857Ch
loc_006020F4: mov var_134, 0000000Ah
loc_006020FE: call [00401098h] ; __vbaStrCat
loc_00602104: mov ebx, var_134
loc_0060210A: lea esi, var_20
loc_0060210D: push esi
loc_0060210E: mov edx, [0073A08Ch]
loc_00602114: sub esp, 00000010h
loc_00602117: mov ecx, 00000008h
loc_0060211C: mov esi, esp
loc_0060211E: sub esp, 00000010h
loc_00602121: mov var_34, ecx
loc_00602124: mov var_2C, eax
loc_00602127: mov [esi], ebx
loc_00602129: mov ebx, var_130
loc_0060212F: mov edx, [edx]
loc_00602131: mov [esi+00000004h], ebx
loc_00602134: mov ebx, var_12C
loc_0060213A: mov [esi+00000008h], ebx
loc_0060213D: mov ebx, var_128
loc_00602143: mov [esi+0000000Ch], ebx
loc_00602146: mov esi, esp
loc_00602148: mov [esi], ecx
loc_0060214A: mov ecx, var_30
loc_0060214D: mov [esi+00000004h], ecx
loc_00602150: mov ecx, [0073A08Ch]
loc_00602156: push ecx
loc_00602157: mov [esi+00000008h], eax
loc_0060215A: mov eax, var_28
loc_0060215D: mov [esi+0000000Ch], eax
loc_00602160: call [edx+00000078h]
loc_00602163: cmp eax, edi
loc_00602165: fnclex
loc_00602167: jge 00602239h
loc_0060216D: jmp 00602224h
loc_00602172: call [ecx+00000064h]
loc_00602175: cmp eax, edi
loc_00602177: fnclex
loc_00602179: jge 00602190h
loc_0060217B: mov ecx, [0073A08Ch]
loc_00602181: push 00000064h
loc_00602183: push 004419ACh
loc_00602188: push ecx
loc_00602189: push eax
loc_0060218A: call [004010CCh] ; __vbaHresultCheckObj
loc_00602190: lea ecx, var_20
loc_00602193: call [0040142Ch] ; __vbaFreeObj
loc_00602199: mov edx, [0073A040h]
loc_0060219F: mov var_12C, 80020004h
loc_006021A9: push edx
loc_006021AA: push 004485FCh
loc_006021AF: mov var_134, 0000000Ah
loc_006021B9: call [00401098h] ; __vbaStrCat
loc_006021BF: mov ebx, var_134
loc_006021C5: lea esi, var_20
loc_006021C8: push esi
loc_006021C9: mov edx, [0073A08Ch]
loc_006021CF: sub esp, 00000010h
loc_006021D2: mov ecx, 00000008h
loc_006021D7: mov esi, esp
loc_006021D9: sub esp, 00000010h
loc_006021DC: mov var_34, ecx
loc_006021DF: mov var_2C, eax
loc_006021E2: mov [esi], ebx
loc_006021E4: mov ebx, var_130
loc_006021EA: mov edx, [edx]
loc_006021EC: mov [esi+00000004h], ebx
loc_006021EF: mov ebx, var_12C
loc_006021F5: mov [esi+00000008h], ebx
loc_006021F8: mov ebx, var_128
loc_006021FE: mov [esi+0000000Ch], ebx
loc_00602201: mov esi, esp
loc_00602203: mov [esi], ecx
loc_00602205: mov ecx, var_30
loc_00602208: mov [esi+00000004h], ecx
loc_0060220B: mov ecx, [0073A08Ch]
loc_00602211: push ecx
loc_00602212: mov [esi+00000008h], eax
loc_00602215: mov eax, var_28
loc_00602218: mov [esi+0000000Ch], eax
loc_0060221B: call [edx+00000078h]
loc_0060221E: cmp eax, edi
loc_00602220: fnclex
loc_00602222: jge 00602239h
loc_00602224: mov edx, [0073A08Ch]
loc_0060222A: push 00000078h
loc_0060222C: push 004419ACh
loc_00602231: push edx
loc_00602232: push eax
loc_00602233: call [004010CCh] ; __vbaHresultCheckObj
loc_00602239: lea ecx, var_20
loc_0060223C: call [0040142Ch] ; __vbaFreeObj
loc_00602242: lea ecx, var_34
loc_00602245: call [00401030h] ; __vbaFreeVar
loc_0060224B: mov var_4, edi
loc_0060224E: push 006022E6h
loc_00602253: jmp 006022E5h
loc_00602258: lea eax, var_1C
loc_0060225B: lea ecx, var_18
loc_0060225E: push eax
loc_0060225F: push ecx
loc_00602260: push 00000002h
loc_00602262: call [00401324h] ; __vbaFreeStrList
loc_00602268: lea edx, var_24
loc_0060226B: lea eax, var_20
loc_0060226E: push edx
loc_0060226F: push eax
loc_00602270: push 00000002h
loc_00602272: call [00401068h] ; __vbaFreeObjList
loc_00602278: lea ecx, var_124
loc_0060227E: lea edx, var_114
loc_00602284: push ecx
loc_00602285: lea eax, var_104
loc_0060228B: push edx
loc_0060228C: lea ecx, var_F4
loc_00602292: push eax
loc_00602293: lea edx, var_E4
loc_00602299: push ecx
loc_0060229A: lea eax, var_D4
loc_006022A0: push edx
loc_006022A1: lea ecx, var_C4
loc_006022A7: push eax
loc_006022A8: lea edx, var_B4
loc_006022AE: push ecx
loc_006022AF: lea eax, var_A4
loc_006022B5: push edx
loc_006022B6: lea ecx, var_94
loc_006022BC: push eax
loc_006022BD: lea edx, var_84
loc_006022C3: push ecx
loc_006022C4: lea eax, var_74
loc_006022C7: push edx
loc_006022C8: lea ecx, var_64
loc_006022CB: push eax
loc_006022CC: lea edx, var_54
loc_006022CF: push ecx
loc_006022D0: lea eax, var_44
loc_006022D3: push edx
loc_006022D4: lea ecx, var_34
loc_006022D7: push eax
loc_006022D8: push ecx
loc_006022D9: push 00000010h
loc_006022DB: call [00401050h] ; __vbaFreeVarList
loc_006022E1: add esp, 0000005Ch
loc_006022E4: ret
loc_006022E5: ret
loc_006022E6: mov eax, Me
loc_006022E9: push eax
loc_006022EA: mov edx, [eax]
loc_006022EC: call [edx+00000008h]
loc_006022EF: mov eax, var_4
loc_006022F2: mov ecx, var_14
loc_006022F5: pop edi
loc_006022F6: pop esi
loc_006022F7: mov fs:[00000000h], ecx
loc_006022FE: pop ebx
loc_006022FF: mov esp, ebp
loc_00602301: pop ebp
loc_00602302: retn 0004h
End Sub
Private Sub Form_Load() '6023D0
loc_006023D0: push ebp
loc_006023D1: mov ebp, esp
loc_006023D3: sub esp, 0000000Ch
loc_006023D6: push 00412856h ; __vbaExceptHandler
loc_006023DB: mov eax, fs:[00000000h]
loc_006023E1: push eax
loc_006023E2: mov fs:[00000000h], esp
loc_006023E9: sub esp, 00000008h
loc_006023EC: push ebx
loc_006023ED: push esi
loc_006023EE: push edi
loc_006023EF: mov var_C, esp
loc_006023F2: mov var_8, 00404170h
loc_006023F9: mov esi, Me
loc_006023FC: mov eax, esi
loc_006023FE: and eax, 00000001h
loc_00602401: mov var_4, eax
loc_00602404: and esi, FFFFFFFEh
loc_00602407: push esi
loc_00602408: mov Me, esi
loc_0060240B: mov ecx, [esi]
loc_0060240D: call [ecx+00000004h]
loc_00602410: mov [esi+0000003Ch], FFFFFFh
loc_00602416: mov var_4, 00000000h
loc_0060241D: mov eax, Me
loc_00602420: push eax
loc_00602421: mov edx, [eax]
loc_00602423: call [edx+00000008h]
loc_00602426: mov eax, var_4
loc_00602429: mov ecx, var_14
loc_0060242C: pop edi
loc_0060242D: pop esi
loc_0060242E: mov fs:[00000000h], ecx
loc_00602435: pop ebx
loc_00602436: mov esp, ebp
loc_00602438: pop ebp
loc_00602439: retn 0004h
End Sub
Private Sub Form_Activate() '602310
loc_00602310: push ebp
loc_00602311: mov ebp, esp
loc_00602313: sub esp, 0000000Ch
loc_00602316: push 00412856h ; __vbaExceptHandler
loc_0060231B: mov eax, fs:[00000000h]
loc_00602321: push eax
loc_00602322: mov fs:[00000000h], esp
loc_00602329: sub esp, 00000014h
loc_0060232C: push ebx
loc_0060232D: push esi
loc_0060232E: push edi
loc_0060232F: mov var_C, esp
loc_00602332: mov var_8, 00404160h
loc_00602339: mov esi, Me
loc_0060233C: mov eax, esi
loc_0060233E: and eax, 00000001h
loc_00602341: mov var_4, eax
loc_00602344: and esi, FFFFFFFEh
loc_00602347: push esi
loc_00602348: mov Me, esi
loc_0060234B: mov ecx, [esi]
loc_0060234D: call [ecx+00000004h]
loc_00602350: mov edx, [esi]
loc_00602352: xor edi, edi
loc_00602354: push esi
loc_00602355: mov var_18, edi
loc_00602358: mov [esi+0000003Ch], FFFFFFh
loc_0060235E: call [edx+00000308h]
loc_00602364: push eax
loc_00602365: lea eax, var_18
loc_00602368: push eax
loc_00602369: call [00401128h] ; __vbaObjSet
loc_0060236F: mov esi, eax
loc_00602371: push esi
loc_00602372: mov ecx, [esi]
loc_00602374: call [ecx+00000204h]
loc_0060237A: cmp eax, edi
loc_0060237C: fnclex
loc_0060237E: jge 00602392h
loc_00602380: push 00000204h
loc_00602385: push 0043F42Ch
loc_0060238A: push esi
loc_0060238B: push eax
loc_0060238C: call [004010CCh] ; __vbaHresultCheckObj
loc_00602392: lea ecx, var_18
loc_00602395: call [0040142Ch] ; __vbaFreeObj
loc_0060239B: mov var_4, edi
loc_0060239E: push 006023B0h
loc_006023A3: jmp 006023AFh
loc_006023A5: lea ecx, var_18
loc_006023A8: call [0040142Ch] ; __vbaFreeObj
loc_006023AE: ret
loc_006023AF: ret
loc_006023B0: mov eax, Me
loc_006023B3: push eax
loc_006023B4: mov edx, [eax]
loc_006023B6: call [edx+00000008h]
loc_006023B9: mov eax, var_4
loc_006023BC: mov ecx, var_14
loc_006023BF: pop edi
loc_006023C0: pop esi
loc_006023C1: mov fs:[00000000h], ecx
loc_006023C8: pop ebx
loc_006023C9: mov esp, ebp
loc_006023CB: pop ebp
loc_006023CC: retn 0004h
End Sub
Public Property Get Cancelled(Index As Integer) '601980
loc_00601980: push ebp
loc_00601981: mov ebp, esp
loc_00601983: sub esp, 0000000Ch
loc_00601986: push 00412856h ; __vbaExceptHandler
loc_0060198B: mov eax, fs:[00000000h]
loc_00601991: push eax
loc_00601992: mov fs:[00000000h], esp
loc_00601999: sub esp, 0000000Ch
loc_0060199C: push ebx
loc_0060199D: push esi
loc_0060199E: push edi
loc_0060199F: mov var_C, esp
loc_006019A2: mov var_8, 00404118h
loc_006019A9: xor edi, edi
loc_006019AB: mov var_4, edi
loc_006019AE: mov esi, Me
loc_006019B1: push esi
loc_006019B2: mov eax, [esi]
loc_006019B4: call [eax+00000004h]
loc_006019B7: mov cx, [esi+0000003Ch]
loc_006019BB: mov var_18, edi
loc_006019BE: mov var_18, ecx
loc_006019C1: mov eax, Me
loc_006019C4: push eax
loc_006019C5: mov edx, [eax]
loc_006019C7: call [edx+00000008h]
loc_006019CA: mov eax, Index
loc_006019CD: mov cx, var_18
loc_006019D1: mov [eax], cx
loc_006019D4: mov eax, var_4
loc_006019D7: mov ecx, var_14
loc_006019DA: pop edi
loc_006019DB: pop esi
loc_006019DC: mov fs:[00000000h], ecx
loc_006019E3: pop ebx
loc_006019E4: mov esp, ebp
loc_006019E6: pop ebp
loc_006019E7: retn 0008h
End Sub
Public Property Let EditMode(blnEditMode) '6019F0
loc_006019F0: push ebp
loc_006019F1: mov ebp, esp
loc_006019F3: sub esp, 0000000Ch
loc_006019F6: push 00412856h ; __vbaExceptHandler
loc_006019FB: mov eax, fs:[00000000h]
loc_00601A01: push eax
loc_00601A02: mov fs:[00000000h], esp
loc_00601A09: sub esp, 00000008h
loc_00601A0C: push ebx
loc_00601A0D: push esi
loc_00601A0E: push edi
loc_00601A0F: mov var_C, esp
loc_00601A12: mov var_8, 00404120h
loc_00601A19: mov var_4, 00000000h
loc_00601A20: mov esi, Me
loc_00601A23: push esi
loc_00601A24: mov eax, [esi]
loc_00601A26: call [eax+00000004h]
loc_00601A29: mov ecx, blnEditMode
loc_00601A2C: mov dx, [ecx]
loc_00601A2F: mov [esi+00000034h], dx
loc_00601A33: mov eax, Me
loc_00601A36: push eax
loc_00601A37: mov ecx, [eax]
loc_00601A39: call [ecx+00000008h]
loc_00601A3C: mov eax, var_4
loc_00601A3F: mov ecx, var_14
loc_00601A42: pop edi
loc_00601A43: pop esi
loc_00601A44: mov fs:[00000000h], ecx
loc_00601A4B: pop ebx
loc_00601A4C: mov esp, ebp
loc_00601A4E: pop ebp
loc_00601A4F: retn 0008h
End Sub
Public Property Get EditMode(arg_C) '601A60
loc_00601A60: push ebp
loc_00601A61: mov ebp, esp
loc_00601A63: sub esp, 0000000Ch
loc_00601A66: push 00412856h ; __vbaExceptHandler
loc_00601A6B: mov eax, fs:[00000000h]
loc_00601A71: push eax
loc_00601A72: mov fs:[00000000h], esp
loc_00601A79: sub esp, 0000000Ch
loc_00601A7C: push ebx
loc_00601A7D: push esi
loc_00601A7E: push edi
loc_00601A7F: mov var_C, esp
loc_00601A82: mov var_8, 00404128h
loc_00601A89: xor edi, edi
loc_00601A8B: mov var_4, edi
loc_00601A8E: mov esi, Me
loc_00601A91: push esi
loc_00601A92: mov eax, [esi]
loc_00601A94: call [eax+00000004h]
loc_00601A97: mov cx, [esi+00000034h]
loc_00601A9B: mov var_18, edi
loc_00601A9E: mov var_18, ecx
loc_00601AA1: mov eax, Me
loc_00601AA4: push eax
loc_00601AA5: mov edx, [eax]
loc_00601AA7: call [edx+00000008h]
loc_00601AAA: mov eax, arg_C
loc_00601AAD: mov cx, var_18
loc_00601AB1: mov [eax], cx
loc_00601AB4: mov eax, var_4
loc_00601AB7: mov ecx, var_14
loc_00601ABA: pop edi
loc_00601ABB: pop esi
loc_00601ABC: mov fs:[00000000h], ecx
loc_00601AC3: pop ebx
loc_00601AC4: mov esp, ebp
loc_00601AC6: pop ebp
loc_00601AC7: retn 0008h
End Sub
Public Property Let OriginalAddressName(strOriginalAddressName) '601AD0
loc_00601AD0: push ebp
loc_00601AD1: mov ebp, esp
loc_00601AD3: sub esp, 0000000Ch
loc_00601AD6: push 00412856h ; __vbaExceptHandler
loc_00601ADB: mov eax, fs:[00000000h]
loc_00601AE1: push eax
loc_00601AE2: mov fs:[00000000h], esp
loc_00601AE9: sub esp, 00000008h
loc_00601AEC: push ebx
loc_00601AED: push esi
loc_00601AEE: push edi
loc_00601AEF: mov var_C, esp
loc_00601AF2: mov var_8, 00404130h
loc_00601AF9: mov var_4, 00000000h
loc_00601B00: mov esi, Me
loc_00601B03: push esi
loc_00601B04: mov eax, [esi]
loc_00601B06: call [eax+00000004h]
loc_00601B09: mov ecx, strOriginalAddressName
loc_00601B0C: mov edx, [ecx]
loc_00601B0E: lea ecx, [esi+00000038h]
loc_00601B11: call [00401310h] ; __vbaStrCopy
loc_00601B17: mov eax, Me
loc_00601B1A: push eax
loc_00601B1B: mov edx, [eax]
loc_00601B1D: call [edx+00000008h]
loc_00601B20: mov eax, var_4
loc_00601B23: mov ecx, var_14
loc_00601B26: pop edi
loc_00601B27: pop esi
loc_00601B28: mov fs:[00000000h], ecx
loc_00601B2F: pop ebx
loc_00601B30: mov esp, ebp
loc_00601B32: pop ebp
loc_00601B33: retn 0008h
End Sub
Public Property Get OriginalAddressName(arg_C) '601B40
loc_00601B40: push ebp
loc_00601B41: mov ebp, esp
loc_00601B43: sub esp, 0000000Ch
loc_00601B46: push 00412856h ; __vbaExceptHandler
loc_00601B4B: mov eax, fs:[00000000h]
loc_00601B51: push eax
loc_00601B52: mov fs:[00000000h], esp
loc_00601B59: sub esp, 0000000Ch
loc_00601B5C: push ebx
loc_00601B5D: push esi
loc_00601B5E: push edi
loc_00601B5F: mov var_C, esp
loc_00601B62: mov var_8, 00404138h
loc_00601B69: xor edi, edi
loc_00601B6B: mov var_4, edi
loc_00601B6E: mov esi, Me
loc_00601B71: push esi
loc_00601B72: mov eax, [esi]
loc_00601B74: call [eax+00000004h]
loc_00601B77: mov ecx, arg_C
loc_00601B7A: mov var_18, edi
loc_00601B7D: mov [ecx], edi
loc_00601B7F: mov edx, [esi+00000038h]
loc_00601B82: lea ecx, var_18
loc_00601B85: call [00401310h] ; __vbaStrCopy
loc_00601B8B: push 00601B9Dh
loc_00601B90: jmp 00601B9Ch
loc_00601B92: lea ecx, var_18
loc_00601B95: call [00401430h] ; __vbaFreeStr
loc_00601B9B: ret
loc_00601B9C: ret
loc_00601B9D: mov eax, Me
loc_00601BA0: push eax
loc_00601BA1: mov edx, [eax]
loc_00601BA3: call [edx+00000008h]
loc_00601BA6: mov eax, arg_C
loc_00601BA9: mov ecx, var_18
loc_00601BAC: mov [eax], ecx
loc_00601BAE: mov eax, var_4
loc_00601BB1: mov ecx, var_14
loc_00601BB4: pop edi
loc_00601BB5: pop esi
loc_00601BB6: mov fs:[00000000h], ecx
loc_00601BBD: pop ebx
loc_00601BBE: mov esp, ebp
loc_00601BC0: pop ebp
loc_00601BC1: retn 0008h
End Sub

87918
Src Code/frmAgent.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmAgent.frx
View File

4376
Src Code/frmAppointment.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmAppointment.frx
View File

330
Src Code/frmBBIMDialog.frm
View File

@ -0,0 +1,330 @@
VERSION 5.00
Begin VB.Form frmBBIMDialog
Caption = "BonziWORLD™ Logon Password Required"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmBBIMDialog.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5160
ClientHeight = 1110
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox txtPass
Left = 180
Top = 480
Width = 3075
Height = 315
TabIndex = 0
PasswordChar = "*"
End
Begin VB.CommandButton CancelButton
Caption = "Cancel"
Left = 3720
Top = 600
Width = 1215
Height = 375
TabIndex = 2
Cancel = -1 'True
End
Begin VB.CommandButton OKButton
Caption = "OK"
Left = 3720
Top = 120
Width = 1215
Height = 375
TabIndex = 1
Default = -1 'True
End
Begin VB.Label lblEnterPassword
Caption = "Please enter your logon password."
Left = 210
Top = 270
Width = 2430
Height = 195
TabIndex = 3
AutoSize = -1 'True
End
End
Attribute VB_Name = "frmBBIMDialog"
Private Sub OKButton_Click() '6E54B0
loc_006E54B0: push ebp
loc_006E54B1: mov ebp, esp
loc_006E54B3: sub esp, 0000000Ch
loc_006E54B6: push 00412856h ; __vbaExceptHandler
loc_006E54BB: mov eax, fs:[00000000h]
loc_006E54C1: push eax
loc_006E54C2: mov fs:[00000000h], esp
loc_006E54C9: sub esp, 00000024h
loc_006E54CC: push ebx
loc_006E54CD: push esi
loc_006E54CE: push edi
loc_006E54CF: mov var_C, esp
loc_006E54D2: mov var_8, 0040E768h
loc_006E54D9: mov edi, Me
loc_006E54DC: mov eax, edi
loc_006E54DE: and eax, 00000001h
loc_006E54E1: mov var_4, eax
loc_006E54E4: and edi, FFFFFFFEh
loc_006E54E7: push edi
loc_006E54E8: mov Me, edi
loc_006E54EB: mov ecx, [edi]
loc_006E54ED: call [ecx+00000004h]
loc_006E54F0: mov ecx, [0073A614h]
loc_006E54F6: xor eax, eax
loc_006E54F8: cmp ecx, eax
loc_006E54FA: mov var_18, eax
loc_006E54FD: mov var_1C, eax
loc_006E5500: jnz 006E5512h
loc_006E5502: push 0073A614h
loc_006E5507: push 004283E0h
loc_006E550C: call [004012FCh] ; __vbaNew2
loc_006E5512: mov edx, [edi]
loc_006E5514: mov ebx, [0073A614h]
loc_006E551A: push edi
loc_006E551B: call [edx+000002FCh]
loc_006E5521: push eax
loc_006E5522: lea eax, var_1C
loc_006E5525: push eax
loc_006E5526: call [00401128h] ; __vbaObjSet
loc_006E552C: mov esi, eax
loc_006E552E: lea edx, var_18
loc_006E5531: push edx
loc_006E5532: push esi
loc_006E5533: mov ecx, [esi]
loc_006E5535: call [ecx+000000A0h]
loc_006E553B: test eax, eax
loc_006E553D: fnclex
loc_006E553F: jge 006E5553h
loc_006E5541: push 000000A0h
loc_006E5546: push 0043F42Ch
loc_006E554B: push esi
loc_006E554C: push eax
loc_006E554D: call [004010CCh] ; __vbaHresultCheckObj
loc_006E5553: mov ecx, var_18
loc_006E5556: mov eax, [ebx]
loc_006E5558: push ecx
loc_006E5559: push ebx
loc_006E555A: call [eax+00000728h]
loc_006E5560: test eax, eax
loc_006E5562: fnclex
loc_006E5564: jge 006E5578h
loc_006E5566: push 00000728h
loc_006E556B: push 00455054h
loc_006E5570: push ebx
loc_006E5571: push eax
loc_006E5572: call [004010CCh] ; __vbaHresultCheckObj
loc_006E5578: lea ecx, var_18
loc_006E557B: call [00401430h] ; __vbaFreeStr
loc_006E5581: mov ebx, [0040142Ch] ; __vbaFreeObj
loc_006E5587: lea ecx, var_1C
loc_006E558A: call ebx
loc_006E558C: mov eax, [0073C818h]
loc_006E5591: test eax, eax
loc_006E5593: jnz 006E55A5h
loc_006E5595: push 0073C818h
loc_006E559A: push 00441F00h
loc_006E559F: call [004012FCh] ; __vbaNew2
loc_006E55A5: mov esi, [0073C818h]
loc_006E55AB: lea eax, var_1C
loc_006E55AE: push edi
loc_006E55AF: push eax
loc_006E55B0: mov edx, [esi]
loc_006E55B2: mov var_38, edx
loc_006E55B5: call [00401130h] ; __vbaObjSetAddref
loc_006E55BB: mov ecx, var_38
loc_006E55BE: push eax
loc_006E55BF: push esi
loc_006E55C0: call [ecx+00000010h]
loc_006E55C3: test eax, eax
loc_006E55C5: fnclex
loc_006E55C7: jge 006E55D8h
loc_006E55C9: push 00000010h
loc_006E55CB: push 00441EF0h
loc_006E55D0: push esi
loc_006E55D1: push eax
loc_006E55D2: call [004010CCh] ; __vbaHresultCheckObj
loc_006E55D8: lea ecx, var_1C
loc_006E55DB: call ebx
loc_006E55DD: mov var_4, 00000000h
loc_006E55E4: push 006E55FFh
loc_006E55E9: jmp 006E55FEh
loc_006E55EB: lea ecx, var_18
loc_006E55EE: call [00401430h] ; __vbaFreeStr
loc_006E55F4: lea ecx, var_1C
loc_006E55F7: call [0040142Ch] ; __vbaFreeObj
loc_006E55FD: ret
loc_006E55FE: ret
loc_006E55FF: mov eax, Me
loc_006E5602: push eax
loc_006E5603: mov edx, [eax]
loc_006E5605: call [edx+00000008h]
loc_006E5608: mov eax, var_4
loc_006E560B: mov ecx, var_14
loc_006E560E: pop edi
loc_006E560F: pop esi
loc_006E5610: mov fs:[00000000h], ecx
loc_006E5617: pop ebx
loc_006E5618: mov esp, ebp
loc_006E561A: pop ebp
loc_006E561B: retn 0004h
End Sub
Private Sub CancelButton_Click() '6E52E0
loc_006E52E0: push ebp
loc_006E52E1: mov ebp, esp
loc_006E52E3: sub esp, 0000000Ch
loc_006E52E6: push 00412856h ; __vbaExceptHandler
loc_006E52EB: mov eax, fs:[00000000h]
loc_006E52F1: push eax
loc_006E52F2: mov fs:[00000000h], esp
loc_006E52F9: sub esp, 00000018h
loc_006E52FC: push ebx
loc_006E52FD: push esi
loc_006E52FE: push edi
loc_006E52FF: mov var_C, esp
loc_006E5302: mov var_8, 0040E750h
loc_006E5309: mov edi, Me
loc_006E530C: mov eax, edi
loc_006E530E: and eax, 00000001h
loc_006E5311: mov var_4, eax
loc_006E5314: and edi, FFFFFFFEh
loc_006E5317: push edi
loc_006E5318: mov Me, edi
loc_006E531B: mov ecx, [edi]
loc_006E531D: call [ecx+00000004h]
loc_006E5320: mov eax, [0073A614h]
loc_006E5325: xor ebx, ebx
loc_006E5327: cmp eax, ebx
loc_006E5329: mov var_18, ebx
loc_006E532C: jnz 006E533Eh
loc_006E532E: push 0073A614h
loc_006E5333: push 004283E0h
loc_006E5338: call [004012FCh] ; __vbaNew2
loc_006E533E: mov esi, [0073A614h]
loc_006E5344: push 0047167Ch ; "This is what is returned when the user clicks cancel!"
loc_006E5349: push esi
loc_006E534A: mov edx, [esi]
loc_006E534C: call [edx+00000728h]
loc_006E5352: cmp eax, ebx
loc_006E5354: fnclex
loc_006E5356: jge 006E536Ah
loc_006E5358: push 00000728h
loc_006E535D: push 00455054h
loc_006E5362: push esi
loc_006E5363: push eax
loc_006E5364: call [004010CCh] ; __vbaHresultCheckObj
loc_006E536A: cmp [0073C818h], ebx
loc_006E5370: jnz 006E5382h
loc_006E5372: push 0073C818h
loc_006E5377: push 00441F00h
loc_006E537C: call [004012FCh] ; __vbaNew2
loc_006E5382: mov esi, [0073C818h]
loc_006E5388: lea eax, var_18
loc_006E538B: push edi
loc_006E538C: push eax
loc_006E538D: mov edx, [esi]
loc_006E538F: mov var_2C, edx
loc_006E5392: call [00401130h] ; __vbaObjSetAddref
loc_006E5398: mov ecx, var_2C
loc_006E539B: push eax
loc_006E539C: push esi
loc_006E539D: call [ecx+00000010h]
loc_006E53A0: cmp eax, ebx
loc_006E53A2: fnclex
loc_006E53A4: jge 006E53B5h
loc_006E53A6: push 00000010h
loc_006E53A8: push 00441EF0h
loc_006E53AD: push esi
loc_006E53AE: push eax
loc_006E53AF: call [004010CCh] ; __vbaHresultCheckObj
loc_006E53B5: lea ecx, var_18
loc_006E53B8: call [0040142Ch] ; __vbaFreeObj
loc_006E53BE: mov var_4, ebx
loc_006E53C1: push 006E53D3h
loc_006E53C6: jmp 006E53D2h
loc_006E53C8: lea ecx, var_18
loc_006E53CB: call [0040142Ch] ; __vbaFreeObj
loc_006E53D1: ret
loc_006E53D2: ret
loc_006E53D3: mov eax, Me
loc_006E53D6: push eax
loc_006E53D7: mov edx, [eax]
loc_006E53D9: call [edx+00000008h]
loc_006E53DC: mov eax, var_4
loc_006E53DF: mov ecx, var_14
loc_006E53E2: pop edi
loc_006E53E3: pop esi
loc_006E53E4: mov fs:[00000000h], ecx
loc_006E53EB: pop ebx
loc_006E53EC: mov esp, ebp
loc_006E53EE: pop ebp
loc_006E53EF: retn 0004h
End Sub
Private Sub Form_Load() '6E5400
loc_006E5400: push ebp
loc_006E5401: mov ebp, esp
loc_006E5403: sub esp, 0000000Ch
loc_006E5406: push 00412856h ; __vbaExceptHandler
loc_006E540B: mov eax, fs:[00000000h]
loc_006E5411: push eax
loc_006E5412: mov fs:[00000000h], esp
loc_006E5419: sub esp, 00000010h
loc_006E541C: push ebx
loc_006E541D: push esi
loc_006E541E: push edi
loc_006E541F: mov var_C, esp
loc_006E5422: mov var_8, 0040E760h
loc_006E5429: mov eax, Me
loc_006E542C: mov ecx, eax
loc_006E542E: and ecx, 00000001h
loc_006E5431: mov var_4, ecx
loc_006E5434: and al, FEh
loc_006E5436: push eax
loc_006E5437: mov Me, eax
loc_006E543A: mov edx, [eax]
loc_006E543C: call [edx+00000004h]
loc_006E543F: mov eax, [0073A614h]
loc_006E5444: test eax, eax
loc_006E5446: jnz 006E5458h
loc_006E5448: push 0073A614h
loc_006E544D: push 004283E0h
loc_006E5452: call [004012FCh] ; __vbaNew2
loc_006E5458: mov esi, [0073A614h]
loc_006E545E: push 0043C9F4h
loc_006E5463: push esi
loc_006E5464: mov eax, [esi]
loc_006E5466: call [eax+00000728h]
loc_006E546C: test eax, eax
loc_006E546E: fnclex
loc_006E5470: jge 006E5484h
loc_006E5472: push 00000728h
loc_006E5477: push 00455054h
loc_006E547C: push esi
loc_006E547D: push eax
loc_006E547E: call [004010CCh] ; __vbaHresultCheckObj
loc_006E5484: mov var_4, 00000000h
loc_006E548B: mov eax, Me
loc_006E548E: push eax
loc_006E548F: mov ecx, [eax]
loc_006E5491: call [ecx+00000008h]
loc_006E5494: mov eax, var_4
loc_006E5497: mov ecx, var_14
loc_006E549A: pop edi
loc_006E549B: pop esi
loc_006E549C: mov fs:[00000000h], ecx
loc_006E54A3: pop ebx
loc_006E54A4: mov esp, ebp
loc_006E54A6: pop ebp
loc_006E54A7: retn 0004h
End Sub

BIN
Src Code/frmBBIMDialog.frx
View File

22028
Src Code/frmBBIMMain.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmBBIMMain.frx
View File

8325
Src Code/frmBBIMOptions.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmBBIMOptions.frx
View File

1954
Src Code/frmBBIMReverseList.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmBBIMReverseList.frx
View File

8626
Src Code/frmBBIMSession.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmBBIMSession.frx
View File

174
Src Code/frmBBIMUserProperties.frm
View File

@ -0,0 +1,174 @@
VERSION 5.00
Begin VB.Form frmBBIMUserProperties
Caption = "BonziWORLD™ User Properties"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmBBIMUserProperties.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Visible = 0 'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 4875
ClientHeight = 2880
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.PictureBox Picture1
Left = 90
Top = 120
Width = 4695
Height = 2115
TabIndex = 1
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
Begin VB.Frame fraProperties
Caption = "About the selected user"
Left = 120
Top = 60
Width = 4425
Height = 1875
TabIndex = 2
Begin VB.Label lbltxtName
Left = 1380
Top = 420
Width = 45
Height = 195
TabIndex = 8
AutoSize = -1 'True
End
Begin VB.Label lbltxtEmail
Left = 1380
Top = 900
Width = 45
Height = 195
TabIndex = 7
AutoSize = -1 'True
End
Begin VB.Label lbltxtStatus
Left = 1380
Top = 1380
Width = 45
Height = 195
TabIndex = 6
AutoSize = -1 'True
End
Begin VB.Label lblName
Caption = "Name:"
Left = 180
Top = 420
Width = 465
Height = 195
TabIndex = 5
AutoSize = -1 'True
End
Begin VB.Label lblEmail
Caption = "Email Address:"
Left = 180
Top = 900
Width = 1035
Height = 195
TabIndex = 4
AutoSize = -1 'True
End
Begin VB.Label lblStatus
Caption = "Status:"
Left = 180
Top = 1380
Width = 495
Height = 195
TabIndex = 3
AutoSize = -1 'True
End
End
End
Begin VB.CommandButton cmdClose
Caption = "&Close"
Left = 1860
Top = 2400
Width = 1215
Height = 375
TabIndex = 0
End
End
Attribute VB_Name = "frmBBIMUserProperties"
Private Sub cmdClose_Click() '6F05F0
loc_006F05F0: push ebp
loc_006F05F1: mov ebp, esp
loc_006F05F3: sub esp, 0000000Ch
loc_006F05F6: push 00412856h ; __vbaExceptHandler
loc_006F05FB: mov eax, fs:[00000000h]
loc_006F0601: push eax
loc_006F0602: mov fs:[00000000h], esp
loc_006F0609: sub esp, 00000018h
loc_006F060C: push ebx
loc_006F060D: push esi
loc_006F060E: push edi
loc_006F060F: mov var_C, esp
loc_006F0612: mov var_8, 0040F290h
loc_006F0619: mov edi, Me
loc_006F061C: mov eax, edi
loc_006F061E: and eax, 00000001h
loc_006F0621: mov var_4, eax
loc_006F0624: and edi, FFFFFFFEh
loc_006F0627: push edi
loc_006F0628: mov Me, edi
loc_006F062B: mov ecx, [edi]
loc_006F062D: call [ecx+00000004h]
loc_006F0630: mov eax, [0073C818h]
loc_006F0635: xor ebx, ebx
loc_006F0637: cmp eax, ebx
loc_006F0639: mov var_18, ebx
loc_006F063C: jnz 006F064Eh
loc_006F063E: push 0073C818h
loc_006F0643: push 00441F00h
loc_006F0648: call [004012FCh] ; __vbaNew2
loc_006F064E: mov esi, [0073C818h]
loc_006F0654: lea eax, var_18
loc_006F0657: push edi
loc_006F0658: push eax
loc_006F0659: mov edx, [esi]
loc_006F065B: mov var_2C, edx
loc_006F065E: call [00401130h] ; __vbaObjSetAddref
loc_006F0664: mov ecx, var_2C
loc_006F0667: push eax
loc_006F0668: push esi
loc_006F0669: call [ecx+00000010h]
loc_006F066C: cmp eax, ebx
loc_006F066E: fnclex
loc_006F0670: jge 006F0681h
loc_006F0672: push 00000010h
loc_006F0674: push 00441EF0h
loc_006F0679: push esi
loc_006F067A: push eax
loc_006F067B: call [004010CCh] ; __vbaHresultCheckObj
loc_006F0681: lea ecx, var_18
loc_006F0684: call [0040142Ch] ; __vbaFreeObj
loc_006F068A: mov var_4, ebx
loc_006F068D: push 006F069Fh
loc_006F0692: jmp 006F069Eh
loc_006F0694: lea ecx, var_18
loc_006F0697: call [0040142Ch] ; __vbaFreeObj
loc_006F069D: ret
loc_006F069E: ret
loc_006F069F: mov eax, Me
loc_006F06A2: push eax
loc_006F06A3: mov edx, [eax]
loc_006F06A5: call [edx+00000008h]
loc_006F06A8: mov eax, var_4
loc_006F06AB: mov ecx, var_14
loc_006F06AE: pop edi
loc_006F06AF: pop esi
loc_006F06B0: mov fs:[00000000h], ecx
loc_006F06B7: pop ebx
loc_006F06B8: mov esp, ebp
loc_006F06BA: pop ebp
loc_006F06BB: retn 0004h
End Sub

BIN
Src Code/frmBBIMUserProperties.frx
View File

580
Src Code/frmCTBMsgBox.frm
View File

@ -0,0 +1,580 @@
VERSION 5.00
Begin VB.Form frmCTBMsgBox
Caption = "BonziBUDDY Bargain Hunter - Save Money!"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmCTBMsgBox.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Visible = 0 'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 6030
ClientHeight = 1815
LockControls = -1 'True
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox chkStopIt
Caption = "Don't Prompt Me Again"
Left = 210
Top = 1830
Width = 2655
Height = 225
Visible = 0 'False
TabIndex = 3
End
Begin VB.CommandButton cmdYes
Caption = "&Yes"
Left = 4680
Top = 120
Width = 1215
Height = 375
TabIndex = 0
Default = -1 'True
End
Begin VB.CommandButton cmdNo
Caption = "&No"
Left = 4680
Top = 600
Width = 1215
Height = 375
TabIndex = 1
Cancel = -1 'True
End
Begin VB.Label lblPrompt
Left = 1110
Top = 150
Width = 3405
Height = 1575
TabIndex = 2
End
Begin VB.Image Image1
Picture = "frmCTBMsgBox.frx":08CA
Left = -360
Top = -120
Width = 1950
Height = 1560
End
End
Attribute VB_Name = "frmCTBMsgBox"
Private Sub cmdNo_Click() '6DA9E0
loc_006DA9E0: push ebp
loc_006DA9E1: mov ebp, esp
loc_006DA9E3: sub esp, 0000000Ch
loc_006DA9E6: push 00412856h ; __vbaExceptHandler
loc_006DA9EB: mov eax, fs:[00000000h]
loc_006DA9F1: push eax
loc_006DA9F2: mov fs:[00000000h], esp
loc_006DA9F9: sub esp, 0000000Ch
loc_006DA9FC: push ebx
loc_006DA9FD: push esi
loc_006DA9FE: push edi
loc_006DA9FF: mov var_C, esp
loc_006DAA02: mov var_8, 0040DDE8h
loc_006DAA09: mov esi, Me
loc_006DAA0C: mov eax, esi
loc_006DAA0E: and eax, 00000001h
loc_006DAA11: mov var_4, eax
loc_006DAA14: and esi, FFFFFFFEh
loc_006DAA17: push esi
loc_006DAA18: mov Me, esi
loc_006DAA1B: mov ecx, [esi]
loc_006DAA1D: call [ecx+00000004h]
loc_006DAA20: mov edx, [esi]
loc_006DAA22: push esi
loc_006DAA23: call [edx+000002B4h]
loc_006DAA29: test eax, eax
loc_006DAA2B: fnclex
loc_006DAA2D: jge 006DAA41h
loc_006DAA2F: push 000002B4h
loc_006DAA34: push 004565C8h
loc_006DAA39: push esi
loc_006DAA3A: push eax
loc_006DAA3B: call [004010CCh] ; __vbaHresultCheckObj
loc_006DAA41: mov eax, [esi]
loc_006DAA43: push esi
loc_006DAA44: call [eax+00000704h]
loc_006DAA4A: mov var_4, 00000000h
loc_006DAA51: mov eax, Me
loc_006DAA54: push eax
loc_006DAA55: mov ecx, [eax]
loc_006DAA57: call [ecx+00000008h]
loc_006DAA5A: mov eax, var_4
loc_006DAA5D: mov ecx, var_14
loc_006DAA60: pop edi
loc_006DAA61: pop esi
loc_006DAA62: mov fs:[00000000h], ecx
loc_006DAA69: pop ebx
loc_006DAA6A: mov esp, ebp
loc_006DAA6C: pop ebp
loc_006DAA6D: retn 0004h
End Sub
Private Sub cmdYes_Click() '6DAA70
loc_006DAA70: push ebp
loc_006DAA71: mov ebp, esp
loc_006DAA73: sub esp, 00000018h
loc_006DAA76: push 00412856h ; __vbaExceptHandler
loc_006DAA7B: mov eax, fs:[00000000h]
loc_006DAA81: push eax
loc_006DAA82: mov fs:[00000000h], esp
loc_006DAA89: mov eax, 0000003Ch
loc_006DAA8E: call 00412850h ; __vbaChkstk
loc_006DAA93: push ebx
loc_006DAA94: push esi
loc_006DAA95: push edi
loc_006DAA96: mov var_18, esp
loc_006DAA99: mov var_14, 0040DDF0h ; Chr(37)
loc_006DAAA0: mov eax, Me
loc_006DAAA3: and eax, 00000001h
loc_006DAAA6: mov var_10, eax
loc_006DAAA9: mov ecx, Me
loc_006DAAAC: and ecx, FFFFFFFEh
loc_006DAAAF: mov Me, ecx
loc_006DAAB2: mov var_C, 00000000h
loc_006DAAB9: mov edx, Me
loc_006DAABC: mov eax, [edx]
loc_006DAABE: mov ecx, Me
loc_006DAAC1: push ecx
loc_006DAAC2: call [eax+00000004h]
loc_006DAAC5: mov var_4, 00000001h
loc_006DAACC: mov var_4, 00000002h
loc_006DAAD3: push FFFFFFFFh
loc_006DAAD5: call [00401124h] ; __vbaOnError
loc_006DAADB: mov var_4, 00000003h
loc_006DAAE2: mov edx, Me
loc_006DAAE5: mov eax, [edx]
loc_006DAAE7: mov ecx, Me
loc_006DAAEA: push ecx
loc_006DAAEB: call [eax+00000704h]
loc_006DAAF1: mov var_4, 00000004h
loc_006DAAF8: mov edx, Me
loc_006DAAFB: mov eax, [edx]
loc_006DAAFD: mov ecx, Me
loc_006DAB00: push ecx
loc_006DAB01: call [eax+000002B4h]
loc_006DAB07: fnclex
loc_006DAB09: mov var_40, eax
loc_006DAB0C: cmp var_40, 00000000h
loc_006DAB10: jge 006DAB2Fh
loc_006DAB12: push 000002B4h
loc_006DAB17: push 004565C8h
loc_006DAB1C: mov edx, Me
loc_006DAB1F: push edx
loc_006DAB20: mov eax, var_40
loc_006DAB23: push eax
loc_006DAB24: call [004010CCh] ; __vbaHresultCheckObj
loc_006DAB2A: mov var_58, eax
loc_006DAB2D: jmp 006DAB36h
loc_006DAB2F: mov var_58, 00000000h
loc_006DAB36: mov var_4, 00000005h
loc_006DAB3D: lea ecx, var_24
loc_006DAB40: push ecx
loc_006DAB41: push 0044946Ch ; "Search"
loc_006DAB46: mov edx, [0073A08Ch]
loc_006DAB4C: mov eax, [edx]
loc_006DAB4E: mov ecx, [0073A08Ch]
loc_006DAB54: push ecx
loc_006DAB55: call [eax+00000064h]
loc_006DAB58: fnclex
loc_006DAB5A: mov var_40, eax
loc_006DAB5D: cmp var_40, 00000000h
loc_006DAB61: jge 006DAB80h
loc_006DAB63: push 00000064h
loc_006DAB65: push 004419ACh
loc_006DAB6A: mov edx, [0073A08Ch]
loc_006DAB70: push edx
loc_006DAB71: mov eax, var_40
loc_006DAB74: push eax
loc_006DAB75: call [004010CCh] ; __vbaHresultCheckObj
loc_006DAB7B: mov var_5C, eax
loc_006DAB7E: jmp 006DAB87h
loc_006DAB80: mov var_5C, 00000000h
loc_006DAB87: lea ecx, var_24
loc_006DAB8A: call [0040142Ch] ; __vbaFreeObj
loc_006DAB90: mov var_4, 00000006h
loc_006DAB97: push 0046F978h ; "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
loc_006DAB9C: mov ecx, Me
loc_006DAB9F: mov edx, [ecx+00000034h]
loc_006DABA2: push edx
loc_006DABA3: call [00401098h] ; __vbaStrCat
loc_006DABA9: mov var_2C, eax
loc_006DABAC: mov var_34, 00000008h
loc_006DABB3: push 00000001h
loc_006DABB5: lea eax, var_34
loc_006DABB8: push eax
loc_006DABB9: call [00401230h] ; rtcShell
loc_006DABBF: fstp real8 ptr var_3C
loc_006DABC2: lea ecx, var_34
loc_006DABC5: call [00401030h] ; __vbaFreeVar
loc_006DABCB: mov var_10, 00000000h
loc_006DABD2: fwait
loc_006DABD3: push 006DABEEh
loc_006DABD8: jmp 006DABEDh
loc_006DABDA: lea ecx, var_24
loc_006DABDD: call [0040142Ch] ; __vbaFreeObj
loc_006DABE3: lea ecx, var_34
loc_006DABE6: call [00401030h] ; __vbaFreeVar
loc_006DABEC: ret
loc_006DABED: ret
loc_006DABEE: mov ecx, Me
loc_006DABF1: mov edx, [ecx]
loc_006DABF3: mov eax, Me
loc_006DABF6: push eax
loc_006DABF7: call [edx+00000008h]
loc_006DABFA: mov eax, var_10
loc_006DABFD: mov ecx, var_20
loc_006DAC00: mov fs:[00000000h], ecx
loc_006DAC07: pop edi
loc_006DAC08: pop esi
loc_006DAC09: pop ebx
loc_006DAC0A: mov esp, ebp
loc_006DAC0C: pop ebp
loc_006DAC0D: retn 0004h
End Sub
Public Sub DisplayYaSelfAndIfYesGoHere(strPrompt, strURL) '6DAC10
loc_006DAC10: push ebp
loc_006DAC11: mov ebp, esp
loc_006DAC13: sub esp, 00000018h
loc_006DAC16: push 00412856h ; __vbaExceptHandler
loc_006DAC1B: mov eax, fs:[00000000h]
loc_006DAC21: push eax
loc_006DAC22: mov fs:[00000000h], esp
loc_006DAC29: mov eax, 00000054h
loc_006DAC2E: call 00412850h ; __vbaChkstk
loc_006DAC33: push ebx
loc_006DAC34: push esi
loc_006DAC35: push edi
loc_006DAC36: mov var_18, esp
loc_006DAC39: mov var_14, 0040DE30h ; Chr(37)
loc_006DAC40: mov var_10, 00000000h
loc_006DAC47: mov var_C, 00000000h
loc_006DAC4E: mov eax, Me
loc_006DAC51: mov ecx, [eax]
loc_006DAC53: mov edx, Me
loc_006DAC56: push edx
loc_006DAC57: call [ecx+00000004h]
loc_006DAC5A: mov var_4, 00000001h
loc_006DAC61: mov var_4, 00000002h
loc_006DAC68: push FFFFFFFFh
loc_006DAC6A: call [00401124h] ; __vbaOnError
loc_006DAC70: mov var_4, 00000003h
loc_006DAC77: mov eax, strURL
loc_006DAC7A: mov edx, [eax]
loc_006DAC7C: mov ecx, Me
loc_006DAC7F: add ecx, 00000034h
loc_006DAC82: call [00401310h] ; __vbaStrCopy
loc_006DAC88: mov var_4, 00000004h
loc_006DAC8F: mov ecx, Me
loc_006DAC92: mov edx, [ecx]
loc_006DAC94: mov eax, Me
loc_006DAC97: push eax
loc_006DAC98: call [edx+00000308h]
loc_006DAC9E: push eax
loc_006DAC9F: lea ecx, var_24
loc_006DACA2: push ecx
loc_006DACA3: call [00401128h] ; __vbaObjSet
loc_006DACA9: mov var_4C, eax
loc_006DACAC: mov edx, strPrompt
loc_006DACAF: mov eax, [edx]
loc_006DACB1: push eax
loc_006DACB2: mov ecx, var_4C
loc_006DACB5: mov edx, [ecx]
loc_006DACB7: mov eax, var_4C
loc_006DACBA: push eax
loc_006DACBB: call [edx+00000054h]
loc_006DACBE: fnclex
loc_006DACC0: mov var_50, eax
loc_006DACC3: cmp var_50, 00000000h
loc_006DACC7: jge 006DACE3h
loc_006DACC9: push 00000054h
loc_006DACCB: push 00441988h
loc_006DACD0: mov ecx, var_4C
loc_006DACD3: push ecx
loc_006DACD4: mov edx, var_50
loc_006DACD7: push edx
loc_006DACD8: call [004010CCh] ; __vbaHresultCheckObj
loc_006DACDE: mov var_68, eax
loc_006DACE1: jmp 006DACEAh
loc_006DACE3: mov var_68, 00000000h
loc_006DACEA: lea ecx, var_24
loc_006DACED: call [0040142Ch] ; __vbaFreeObj
loc_006DACF3: mov var_4, 00000005h
loc_006DACFA: mov var_3C, 80020004h
loc_006DAD01: mov var_44, 0000000Ah
loc_006DAD08: mov var_2C, 80020004h
loc_006DAD0F: mov var_34, 0000000Ah
loc_006DAD16: mov eax, 00000010h
loc_006DAD1B: call 00412850h ; __vbaChkstk
loc_006DAD20: mov eax, esp
loc_006DAD22: mov ecx, var_44
loc_006DAD25: mov [eax], ecx
loc_006DAD27: mov edx, var_40
loc_006DAD2A: mov [eax+00000004h], edx
loc_006DAD2D: mov ecx, var_3C
loc_006DAD30: mov [eax+00000008h], ecx
loc_006DAD33: mov edx, var_38
loc_006DAD36: mov [eax+0000000Ch], edx
loc_006DAD39: mov eax, 00000010h
loc_006DAD3E: call 00412850h ; __vbaChkstk
loc_006DAD43: mov eax, esp
loc_006DAD45: mov ecx, var_34
loc_006DAD48: mov [eax], ecx
loc_006DAD4A: mov edx, var_30
loc_006DAD4D: mov [eax+00000004h], edx
loc_006DAD50: mov ecx, var_2C
loc_006DAD53: mov [eax+00000008h], ecx
loc_006DAD56: mov edx, var_28
loc_006DAD59: mov [eax+0000000Ch], edx
loc_006DAD5C: mov eax, Me
loc_006DAD5F: mov ecx, [eax]
loc_006DAD61: mov edx, Me
loc_006DAD64: push edx
loc_006DAD65: call [ecx+000002B0h]
loc_006DAD6B: fnclex
loc_006DAD6D: mov var_4C, eax
loc_006DAD70: cmp var_4C, 00000000h
loc_006DAD74: jge 006DAD93h
loc_006DAD76: push 000002B0h
loc_006DAD7B: push 004565C8h
loc_006DAD80: mov eax, Me
loc_006DAD83: push eax
loc_006DAD84: mov ecx, var_4C
loc_006DAD87: push ecx
loc_006DAD88: call [004010CCh] ; __vbaHresultCheckObj
loc_006DAD8E: mov var_6C, eax
loc_006DAD91: jmp 006DAD9Ah
loc_006DAD93: mov var_6C, 00000000h
loc_006DAD9A: mov var_4, 00000006h
loc_006DADA1: lea edx, var_48
loc_006DADA4: push edx
loc_006DADA5: mov eax, Me
loc_006DADA8: mov ecx, [eax]
loc_006DADAA: mov edx, Me
loc_006DADAD: push edx
loc_006DADAE: call [ecx+00000058h]
loc_006DADB1: fnclex
loc_006DADB3: mov var_4C, eax
loc_006DADB6: cmp var_4C, 00000000h
loc_006DADBA: jge 006DADD6h
loc_006DADBC: push 00000058h
loc_006DADBE: push 004565C8h
loc_006DADC3: mov eax, Me
loc_006DADC6: push eax
loc_006DADC7: mov ecx, var_4C
loc_006DADCA: push ecx
loc_006DADCB: call [004010CCh] ; __vbaHresultCheckObj
loc_006DADD1: mov var_70, eax
loc_006DADD4: jmp 006DADDDh
loc_006DADD6: mov var_70, 00000000h
loc_006DADDD: mov edx, var_48
loc_006DADE0: push edx
loc_006DADE1: AllowSetForegroundWindow(%x1v)
loc_006DADE6: call [004010BCh] ; __vbaSetSystemError
loc_006DADEC: mov var_4, 00000007h
loc_006DADF3: mov eax, Me
loc_006DADF6: mov ecx, [eax]
loc_006DADF8: mov edx, Me
loc_006DADFB: push edx
loc_006DADFC: call [ecx+00000300h]
loc_006DAE02: push eax
loc_006DAE03: lea eax, var_24
loc_006DAE06: push eax
loc_006DAE07: call [00401128h] ; __vbaObjSet
loc_006DAE0D: mov var_4C, eax
loc_006DAE10: mov ecx, var_4C
loc_006DAE13: mov edx, [ecx]
loc_006DAE15: mov eax, var_4C
loc_006DAE18: push eax
loc_006DAE19: call [edx+000001A4h]
loc_006DAE1F: fnclex
loc_006DAE21: mov var_50, eax
loc_006DAE24: cmp var_50, 00000000h
loc_006DAE28: jge 006DAE47h
loc_006DAE2A: push 000001A4h
loc_006DAE2F: push 004431B8h
loc_006DAE34: mov ecx, var_4C
loc_006DAE37: push ecx
loc_006DAE38: mov edx, var_50
loc_006DAE3B: push edx
loc_006DAE3C: call [004010CCh] ; __vbaHresultCheckObj
loc_006DAE42: mov var_74, eax
loc_006DAE45: jmp 006DAE4Eh
loc_006DAE47: mov var_74, 00000000h
loc_006DAE4E: lea ecx, var_24
loc_006DAE51: call [0040142Ch] ; __vbaFreeObj
loc_006DAE57: push 006DAE69h
loc_006DAE5C: jmp 006DAE68h
loc_006DAE5E: lea ecx, var_24
loc_006DAE61: call [0040142Ch] ; __vbaFreeObj
loc_006DAE67: ret
loc_006DAE68: ret
loc_006DAE69: mov eax, Me
loc_006DAE6C: mov ecx, [eax]
loc_006DAE6E: mov edx, Me
loc_006DAE71: push edx
loc_006DAE72: call [ecx+00000008h]
loc_006DAE75: mov eax, var_10
loc_006DAE78: mov ecx, var_20
loc_006DAE7B: mov fs:[00000000h], ecx
loc_006DAE82: pop edi
loc_006DAE83: pop esi
loc_006DAE84: pop ebx
loc_006DAE85: mov esp, ebp
loc_006DAE87: pop ebp
loc_006DAE88: retn 000Ch
End Sub
Private Sub Proc_45_3_6DAE90
loc_006DAE90: push ebp
loc_006DAE91: mov ebp, esp
loc_006DAE93: sub esp, 00000008h
loc_006DAE96: push 00412856h ; __vbaExceptHandler
loc_006DAE9B: mov eax, fs:[00000000h]
loc_006DAEA1: push eax
loc_006DAEA2: mov fs:[00000000h], esp
loc_006DAEA9: sub esp, 00000020h
loc_006DAEAC: push ebx
loc_006DAEAD: push esi
loc_006DAEAE: push edi
loc_006DAEAF: mov var_8, esp
loc_006DAEB2: mov var_4, 0040DE70h
loc_006DAEB9: mov eax, Me
loc_006DAEBC: xor ebx, ebx
loc_006DAEBE: push eax
loc_006DAEBF: mov var_14, ebx
loc_006DAEC2: mov ecx, [eax]
loc_006DAEC4: mov var_18, ebx
loc_006DAEC7: mov var_1C, ebx
loc_006DAECA: call [ecx+000002FCh]
loc_006DAED0: lea edx, var_18
loc_006DAED3: push eax
loc_006DAED4: push edx
loc_006DAED5: call [00401128h] ; __vbaObjSet
loc_006DAEDB: mov esi, eax
loc_006DAEDD: lea ecx, var_1C
loc_006DAEE0: push ecx
loc_006DAEE1: push esi
loc_006DAEE2: mov eax, [esi]
loc_006DAEE4: call [eax+000000E0h]
loc_006DAEEA: cmp eax, ebx
loc_006DAEEC: fnclex
loc_006DAEEE: jge 006DAF06h
loc_006DAEF0: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_006DAEF6: push 000000E0h
loc_006DAEFB: push 00446678h
loc_006DAF00: push esi
loc_006DAF01: push eax
loc_006DAF02: call edi
loc_006DAF04: jmp 006DAF0Ch
loc_006DAF06: mov edi, [004010CCh] ; __vbaHresultCheckObj
loc_006DAF0C: mov si, var_1C
loc_006DAF10: lea ecx, var_18
loc_006DAF13: call [0040142Ch] ; __vbaFreeObj
loc_006DAF19: mov eax, [0073C818h]
loc_006DAF1E: cmp si, bx
loc_006DAF21: jz 006DAF7Fh
loc_006DAF23: cmp eax, ebx
loc_006DAF25: jnz 006DAF37h
loc_006DAF27: push 0073C818h
loc_006DAF2C: push 00441F00h
loc_006DAF31: call [004012FCh] ; __vbaNew2
loc_006DAF37: mov esi, [0073C818h]
loc_006DAF3D: lea eax, var_18
loc_006DAF40: push eax
loc_006DAF41: push esi
loc_006DAF42: mov edx, [esi]
loc_006DAF44: call [edx+00000014h]
loc_006DAF47: cmp eax, ebx
loc_006DAF49: fnclex
loc_006DAF4B: jge 006DAF58h
loc_006DAF4D: push 00000014h
loc_006DAF4F: push 00441EF0h
loc_006DAF54: push esi
loc_006DAF55: push eax
loc_006DAF56: call edi
loc_006DAF58: mov eax, var_18
loc_006DAF5B: lea edx, var_14
loc_006DAF5E: push edx
loc_006DAF5F: push eax
loc_006DAF60: mov ecx, [eax]
loc_006DAF62: mov esi, eax
loc_006DAF64: call [ecx+00000060h]
loc_006DAF67: cmp eax, ebx
loc_006DAF69: fnclex
loc_006DAF6B: jge 006DAF78h
loc_006DAF6D: push 00000060h
loc_006DAF6F: push 004437B4h
loc_006DAF74: push esi
loc_006DAF75: push eax
loc_006DAF76: call edi
loc_006DAF78: push 00443ED0h ; "TRUE"
loc_006DAF7D: jmp 006DAFD9h
loc_006DAF7F: cmp eax, ebx
loc_006DAF81: jnz 006DAF93h
loc_006DAF83: push 0073C818h
loc_006DAF88: push 00441F00h
loc_006DAF8D: call [004012FCh] ; __vbaNew2
loc_006DAF93: mov esi, [0073C818h]
loc_006DAF99: lea edx, var_18
loc_006DAF9C: push edx
loc_006DAF9D: push esi
loc_006DAF9E: mov ecx, [esi]
loc_006DAFA0: call [ecx+00000014h]
loc_006DAFA3: cmp eax, ebx
loc_006DAFA5: fnclex
loc_006DAFA7: jge 006DAFB4h
loc_006DAFA9: push 00000014h
loc_006DAFAB: push 00441EF0h
loc_006DAFB0: push esi
loc_006DAFB1: push eax
loc_006DAFB2: call edi
loc_006DAFB4: mov eax, var_18
loc_006DAFB7: lea edx, var_14
loc_006DAFBA: push edx
loc_006DAFBB: push eax
loc_006DAFBC: mov ecx, [eax]
loc_006DAFBE: mov esi, eax
loc_006DAFC0: call [ecx+00000060h]
loc_006DAFC3: cmp eax, ebx
loc_006DAFC5: fnclex
loc_006DAFC7: jge 006DAFD4h
loc_006DAFC9: push 00000060h
loc_006DAFCB: push 004437B4h
loc_006DAFD0: push esi
loc_006DAFD1: push eax
loc_006DAFD2: call edi
loc_006DAFD4: push 00446EC0h ; "FALSE"
loc_006DAFD9: mov eax, var_14
loc_006DAFDC: push 0044C57Ch ; "Disabled"
loc_006DAFE1: push 0044B54Ch ; "CTB"
loc_006DAFE6: push eax
loc_006DAFE7: call [00401010h] ; rtcSaveSetting
loc_006DAFED: lea ecx, var_14
loc_006DAFF0: call [00401430h] ; __vbaFreeStr
loc_006DAFF6: lea ecx, var_18
loc_006DAFF9: call [0040142Ch] ; __vbaFreeObj
loc_006DAFFF: push 006DB01Ah
loc_006DB004: jmp 006DB019h
loc_006DB006: lea ecx, var_14
loc_006DB009: call [00401430h] ; __vbaFreeStr
loc_006DB00F: lea ecx, var_18
loc_006DB012: call [0040142Ch] ; __vbaFreeObj
loc_006DB018: ret
loc_006DB019: ret
loc_006DB01A: mov ecx, var_10
loc_006DB01D: pop edi
loc_006DB01E: pop esi
loc_006DB01F: xor eax, eax
loc_006DB021: mov fs:[00000000h], ecx
loc_006DB028: pop ebx
loc_006DB029: mov esp, ebp
loc_006DB02B: pop ebp
loc_006DB02C: retn 0004h
End Sub

BIN
Src Code/frmCTBMsgBox.frx
View File

9511
Src Code/frmCalendar2.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmCalendar2.frx
View File

128
Src Code/frmCalendarReminder.frm
View File

@ -0,0 +1,128 @@
VERSION 5.00
Begin VB.Form frmCalendarReminder
Caption = "BonziBUDDY Scheduled Reminder! "
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
Icon = "frmCalendarReminder.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 6165
ClientHeight = 1875
LockControls = -1 'True
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdYes
Caption = "&Dismiss"
Left = 2460
Top = 1410
Width = 1215
Height = 375
TabIndex = 0
Default = -1 'True
End
Begin VB.Frame fraMain
Left = 780
Top = 120
Width = 5175
Height = 1125
TabIndex = 1
Begin VB.Label lblReminder
BackColor = &H8000000E&
Left = 120
Top = 240
Width = 4935
Height = 735
TabIndex = 2
BorderStyle = 1 'Fixed Single
WordWrap = -1 'True
End
End
Begin VB.Image Image1
Picture = "frmCalendarReminder.frx":0742
Left = 150
Top = 300
Width = 480
Height = 480
End
End
Attribute VB_Name = "frmCalendarReminder"
Private Sub cmdYes_Click() '6DB030
loc_006DB030: push ebp
loc_006DB031: mov ebp, esp
loc_006DB033: sub esp, 0000000Ch
loc_006DB036: push 00412856h ; __vbaExceptHandler
loc_006DB03B: mov eax, fs:[00000000h]
loc_006DB041: push eax
loc_006DB042: mov fs:[00000000h], esp
loc_006DB049: sub esp, 00000018h
loc_006DB04C: push ebx
loc_006DB04D: push esi
loc_006DB04E: push edi
loc_006DB04F: mov var_C, esp
loc_006DB052: mov var_8, 0040DE80h
loc_006DB059: mov edi, Me
loc_006DB05C: mov eax, edi
loc_006DB05E: and eax, 00000001h
loc_006DB061: mov var_4, eax
loc_006DB064: and edi, FFFFFFFEh
loc_006DB067: push edi
loc_006DB068: mov Me, edi
loc_006DB06B: mov ecx, [edi]
loc_006DB06D: call [ecx+00000004h]
loc_006DB070: mov eax, [0073C818h]
loc_006DB075: xor ebx, ebx
loc_006DB077: cmp eax, ebx
loc_006DB079: mov var_18, ebx
loc_006DB07C: jnz 006DB08Eh
loc_006DB07E: push 0073C818h
loc_006DB083: push 00441F00h
loc_006DB088: call [004012FCh] ; __vbaNew2
loc_006DB08E: mov esi, [0073C818h]
loc_006DB094: lea eax, var_18
loc_006DB097: push edi
loc_006DB098: push eax
loc_006DB099: mov edx, [esi]
loc_006DB09B: mov var_2C, edx
loc_006DB09E: call [00401130h] ; __vbaObjSetAddref
loc_006DB0A4: mov ecx, var_2C
loc_006DB0A7: push eax
loc_006DB0A8: push esi
loc_006DB0A9: call [ecx+00000010h]
loc_006DB0AC: cmp eax, ebx
loc_006DB0AE: fnclex
loc_006DB0B0: jge 006DB0C1h
loc_006DB0B2: push 00000010h
loc_006DB0B4: push 00441EF0h
loc_006DB0B9: push esi
loc_006DB0BA: push eax
loc_006DB0BB: call [004010CCh] ; __vbaHresultCheckObj
loc_006DB0C1: lea ecx, var_18
loc_006DB0C4: call [0040142Ch] ; __vbaFreeObj
loc_006DB0CA: mov var_4, ebx
loc_006DB0CD: push 006DB0DFh
loc_006DB0D2: jmp 006DB0DEh
loc_006DB0D4: lea ecx, var_18
loc_006DB0D7: call [0040142Ch] ; __vbaFreeObj
loc_006DB0DD: ret
loc_006DB0DE: ret
loc_006DB0DF: mov eax, Me
loc_006DB0E2: push eax
loc_006DB0E3: mov edx, [eax]
loc_006DB0E5: call [edx+00000008h]
loc_006DB0E8: mov eax, var_4
loc_006DB0EB: mov ecx, var_14
loc_006DB0EE: pop edi
loc_006DB0EF: pop esi
loc_006DB0F0: mov fs:[00000000h], ecx
loc_006DB0F7: pop ebx
loc_006DB0F8: mov esp, ebp
loc_006DB0FA: pop ebp
loc_006DB0FB: retn 0004h
End Sub

BIN
Src Code/frmCalendarReminder.frx
View File

735
Src Code/frmConnectionType.frm
View File

@ -0,0 +1,735 @@
VERSION 5.00
Begin VB.Form frmConnectionType
Caption = "How should we connect to the Internet?"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
Icon = "frmConnectionType.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 4680
ClientHeight = 3735
LockControls = -1 'True
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdOK
Caption = "&Done"
Left = 1740
Top = 3150
Width = 1185
Height = 405
TabIndex = 1
Default = -1 'True
End
Begin VB.Frame fraConnectType
Caption = "Select Our Internet Connection Type:"
Left = 240
Top = 1110
Width = 4155
Height = 1815
TabIndex = 0
Begin VB.OptionButton optLAN
Caption = "Always connected to the Internet (LAN, T1, ISDN, Cable Modem, etc.)"
Left = 330
Top = 1170
Width = 3585
Height = 525
TabIndex = 4
End
Begin VB.OptionButton optAOL
Caption = "Using America Online (AOL)"
Left = 330
Top = 810
Width = 3645
Height = 285
TabIndex = 3
End
Begin VB.OptionButton optModem
Caption = "Using a dial-up modem"
Left = 330
Top = 390
Width = 3345
Height = 225
TabIndex = 2
Value = 255
End
End
Begin VB.Label lblDesc
Caption = "frmConnectionType.frx":0442
Left = 240
Top = 150
Width = 4215
Height = 825
TabIndex = 5
End
End
Attribute VB_Name = "frmConnectionType"
Private Sub cmdOK_Click() '6C3E20
loc_006C3E20: push ebp
loc_006C3E21: mov ebp, esp
loc_006C3E23: sub esp, 00000018h
loc_006C3E26: push 00412856h ; __vbaExceptHandler
loc_006C3E2B: mov eax, fs:[00000000h]
loc_006C3E31: push eax
loc_006C3E32: mov fs:[00000000h], esp
loc_006C3E39: mov eax, 00000064h
loc_006C3E3E: call 00412850h ; __vbaChkstk
loc_006C3E43: push ebx
loc_006C3E44: push esi
loc_006C3E45: push edi
loc_006C3E46: mov var_18, esp
loc_006C3E49: mov var_14, 0040CFB8h ; Chr(37)
loc_006C3E50: mov eax, Me
loc_006C3E53: and eax, 00000001h
loc_006C3E56: mov var_10, eax
loc_006C3E59: mov ecx, Me
loc_006C3E5C: and ecx, FFFFFFFEh
loc_006C3E5F: mov Me, ecx
loc_006C3E62: mov var_C, 00000000h
loc_006C3E69: mov edx, Me
loc_006C3E6C: mov eax, [edx]
loc_006C3E6E: mov ecx, Me
loc_006C3E71: push ecx
loc_006C3E72: call [eax+00000004h]
loc_006C3E75: mov var_4, 00000001h
loc_006C3E7C: mov var_4, 00000002h
loc_006C3E83: push FFFFFFFFh
loc_006C3E85: call [00401124h] ; __vbaOnError
loc_006C3E8B: mov var_4, 00000003h
loc_006C3E92: mov edx, Me
loc_006C3E95: mov eax, [edx]
loc_006C3E97: mov ecx, Me
loc_006C3E9A: push ecx
loc_006C3E9B: call [eax+0000030Ch]
loc_006C3EA1: mov var_30, eax
loc_006C3EA4: mov var_38, 00000009h
loc_006C3EAB: lea edx, var_38
loc_006C3EAE: push edx
loc_006C3EAF: call [00401164h] ; __vbaBoolVarNull
loc_006C3EB5: mov var_4C, ax
loc_006C3EB9: lea ecx, var_38
loc_006C3EBC: call [00401030h] ; __vbaFreeVar
loc_006C3EC2: movsx eax, var_4C
loc_006C3EC6: test eax, eax
loc_006C3EC8: jz 006C3EF0h
loc_006C3ECA: mov var_4, 00000004h
loc_006C3ED1: push 004519E8h ; "Modem"
loc_006C3ED6: push 00448C4Ch ; "ConnectionType"
loc_006C3EDB: push 0044317Ch ; "UserInfo"
loc_006C3EE0: push 0043B010h ; "BONZIBUDDY"
loc_006C3EE5: call [00401010h] ; rtcSaveSetting
loc_006C3EEB: jmp 006C3FB2h
loc_006C3EF0: mov var_4, 00000005h
loc_006C3EF7: mov ecx, Me
loc_006C3EFA: mov edx, [ecx]
loc_006C3EFC: mov eax, Me
loc_006C3EFF: push eax
loc_006C3F00: call [edx+00000308h]
loc_006C3F06: mov var_30, eax
loc_006C3F09: mov var_38, 00000009h
loc_006C3F10: lea ecx, var_38
loc_006C3F13: push ecx
loc_006C3F14: call [00401164h] ; __vbaBoolVarNull
loc_006C3F1A: mov var_4C, ax
loc_006C3F1E: lea ecx, var_38
loc_006C3F21: call [00401030h] ; __vbaFreeVar
loc_006C3F27: movsx edx, var_4C
loc_006C3F2B: test edx, edx
loc_006C3F2D: jz 006C3F52h
loc_006C3F2F: mov var_4, 00000006h
loc_006C3F36: push 00448C70h ; "AOL"
loc_006C3F3B: push 00448C4Ch ; "ConnectionType"
loc_006C3F40: push 0044317Ch ; "UserInfo"
loc_006C3F45: push 0043B010h ; "BONZIBUDDY"
loc_006C3F4A: call [00401010h] ; rtcSaveSetting
loc_006C3F50: jmp 006C3FB2h
loc_006C3F52: mov var_4, 00000007h
loc_006C3F59: mov eax, Me
loc_006C3F5C: mov ecx, [eax]
loc_006C3F5E: mov edx, Me
loc_006C3F61: push edx
loc_006C3F62: call [ecx+00000304h]
loc_006C3F68: mov var_30, eax
loc_006C3F6B: mov var_38, 00000009h
loc_006C3F72: lea eax, var_38
loc_006C3F75: push eax
loc_006C3F76: call [00401164h] ; __vbaBoolVarNull
loc_006C3F7C: mov var_4C, ax
loc_006C3F80: lea ecx, var_38
loc_006C3F83: call [00401030h] ; __vbaFreeVar
loc_006C3F89: movsx ecx, var_4C
loc_006C3F8D: test ecx, ecx
loc_006C3F8F: jz 006C3FB2h
loc_006C3F91: mov var_4, 00000008h
loc_006C3F98: push 004519F8h ; "LAN"
loc_006C3F9D: push 00448C4Ch ; "ConnectionType"
loc_006C3FA2: push 0044317Ch ; "UserInfo"
loc_006C3FA7: push 0043B010h ; "BONZIBUDDY"
loc_006C3FAC: call [00401010h] ; rtcSaveSetting
loc_006C3FB2: mov var_4, 0000000Ah
loc_006C3FB9: mov edx, Me
loc_006C3FBC: mov eax, [edx]
loc_006C3FBE: mov ecx, Me
loc_006C3FC1: push ecx
loc_006C3FC2: call [eax+0000030Ch]
loc_006C3FC8: mov var_30, eax
loc_006C3FCB: mov var_38, 00000009h
loc_006C3FD2: lea edx, var_38
loc_006C3FD5: push edx
loc_006C3FD6: call [00401164h] ; __vbaBoolVarNull
loc_006C3FDC: mov var_4C, ax
loc_006C3FE0: lea ecx, var_38
loc_006C3FE3: call [00401030h] ; __vbaFreeVar
loc_006C3FE9: movsx eax, var_4C
loc_006C3FED: test eax, eax
loc_006C3FEF: jz 006C4030h
loc_006C3FF1: mov var_4, 0000000Bh
loc_006C3FF8: cmp [0073A254h], 00000000h
loc_006C3FFF: jnz 006C401Ah
loc_006C4001: push 0073A254h
loc_006C4006: push 00431838h
loc_006C400B: call [004012FCh] ; __vbaNew2
loc_006C4011: mov var_68, 0073A254h
loc_006C4018: jmp 006C4021h
loc_006C401A: mov var_68, 0073A254h
loc_006C4021: push FFFFFFFFh
loc_006C4023: mov ecx, var_68
loc_006C4026: mov edx, [ecx]
loc_006C4028: push edx
loc_006C4029: call 006A8030h
loc_006C402E: jmp 006C406Dh
loc_006C4030: mov var_4, 0000000Dh
loc_006C4037: cmp [0073A254h], 00000000h
loc_006C403E: jnz 006C4059h
loc_006C4040: push 0073A254h
loc_006C4045: push 00431838h
loc_006C404A: call [004012FCh] ; __vbaNew2
loc_006C4050: mov var_6C, 0073A254h
loc_006C4057: jmp 006C4060h
loc_006C4059: mov var_6C, 0073A254h
loc_006C4060: push 00000000h
loc_006C4062: mov eax, var_6C
loc_006C4065: mov ecx, [eax]
loc_006C4067: push ecx
loc_006C4068: call 006A8030h
loc_006C406D: mov var_4, 0000000Fh
loc_006C4074: cmp [0073A254h], 00000000h
loc_006C407B: jnz 006C4096h
loc_006C407D: push 0073A254h
loc_006C4082: push 00431838h
loc_006C4087: call [004012FCh] ; __vbaNew2
loc_006C408D: mov var_70, 0073A254h
loc_006C4094: jmp 006C409Dh
loc_006C4096: mov var_70, 0073A254h
loc_006C409D: mov edx, var_70
loc_006C40A0: mov eax, [edx]
loc_006C40A2: push eax
loc_006C40A3: call 006A8890h
loc_006C40A8: mov var_4, 00000010h
loc_006C40AF: cmp [0073A254h], 00000000h
loc_006C40B6: jnz 006C40D1h
loc_006C40B8: push 0073A254h
loc_006C40BD: push 00431838h
loc_006C40C2: call [004012FCh] ; __vbaNew2
loc_006C40C8: mov var_74, 0073A254h
loc_006C40CF: jmp 006C40D8h
loc_006C40D1: mov var_74, 0073A254h
loc_006C40D8: mov ecx, var_74
loc_006C40DB: mov edx, [ecx]
loc_006C40DD: push edx
loc_006C40DE: call 006A8D20h
loc_006C40E3: mov var_4, 00000011h
loc_006C40EA: lea eax, var_28
loc_006C40ED: push eax
loc_006C40EE: push 004519CCh ; "Acknowledge"
loc_006C40F3: mov ecx, [0073A08Ch]
loc_006C40F9: mov edx, [ecx]
loc_006C40FB: mov eax, [0073A08Ch]
loc_006C4100: push eax
loc_006C4101: call [edx+00000064h]
loc_006C4104: fnclex
loc_006C4106: mov var_4C, eax
loc_006C4109: cmp var_4C, 00000000h
loc_006C410D: jge 006C412Ch
loc_006C410F: push 00000064h
loc_006C4111: push 004419ACh
loc_006C4116: mov ecx, [0073A08Ch]
loc_006C411C: push ecx
loc_006C411D: mov edx, var_4C
loc_006C4120: push edx
loc_006C4121: call [004010CCh] ; __vbaHresultCheckObj
loc_006C4127: mov var_78, eax
loc_006C412A: jmp 006C4133h
loc_006C412C: mov var_78, 00000000h
loc_006C4133: lea ecx, var_28
loc_006C4136: call [0040142Ch] ; __vbaFreeObj
loc_006C413C: mov var_4, 00000012h
loc_006C4143: mov var_40, 80020004h
loc_006C414A: mov var_48, 0000000Ah
loc_006C4151: push 0046D314h ; "Thanks "
loc_006C4156: mov eax, [0073A040h]
loc_006C415B: push eax
loc_006C415C: call [00401098h] ; __vbaStrCat
loc_006C4162: mov edx, eax
loc_006C4164: lea ecx, var_24
loc_006C4167: call [004013C0h] ; __vbaStrMove
loc_006C416D: push eax
loc_006C416E: push 00442684h
loc_006C4173: call [00401098h] ; __vbaStrCat
loc_006C4179: mov var_30, eax
loc_006C417C: mov var_38, 00000008h
loc_006C4183: lea ecx, var_28
loc_006C4186: push ecx
loc_006C4187: mov eax, 00000010h
loc_006C418C: call 00412850h ; __vbaChkstk
loc_006C4191: mov edx, esp
loc_006C4193: mov eax, var_48
loc_006C4196: mov [edx], eax
loc_006C4198: mov ecx, var_44
loc_006C419B: mov [edx+00000004h], ecx
loc_006C419E: mov eax, var_40
loc_006C41A1: mov [edx+00000008h], eax
loc_006C41A4: mov ecx, var_3C
loc_006C41A7: mov [edx+0000000Ch], ecx
loc_006C41AA: mov eax, 00000010h
loc_006C41AF: call 00412850h ; __vbaChkstk
loc_006C41B4: mov edx, esp
loc_006C41B6: mov eax, var_38
loc_006C41B9: mov [edx], eax
loc_006C41BB: mov ecx, var_34
loc_006C41BE: mov [edx+00000004h], ecx
loc_006C41C1: mov eax, var_30
loc_006C41C4: mov [edx+00000008h], eax
loc_006C41C7: mov ecx, var_2C
loc_006C41CA: mov [edx+0000000Ch], ecx
loc_006C41CD: mov edx, [0073A08Ch]
loc_006C41D3: mov eax, [edx]
loc_006C41D5: mov ecx, [0073A08Ch]
loc_006C41DB: push ecx
loc_006C41DC: call [eax+00000078h]
loc_006C41DF: fnclex
loc_006C41E1: mov var_4C, eax
loc_006C41E4: cmp var_4C, 00000000h
loc_006C41E8: jge 006C4207h
loc_006C41EA: push 00000078h
loc_006C41EC: push 004419ACh
loc_006C41F1: mov edx, [0073A08Ch]
loc_006C41F7: push edx
loc_006C41F8: mov eax, var_4C
loc_006C41FB: push eax
loc_006C41FC: call [004010CCh] ; __vbaHresultCheckObj
loc_006C4202: mov var_7C, eax
loc_006C4205: jmp 006C420Eh
loc_006C4207: mov var_7C, 00000000h
loc_006C420E: lea ecx, var_24
loc_006C4211: call [00401430h] ; __vbaFreeStr
loc_006C4217: lea ecx, var_28
loc_006C421A: call [0040142Ch] ; __vbaFreeObj
loc_006C4220: lea ecx, var_38
loc_006C4223: call [00401030h] ; __vbaFreeVar
loc_006C4229: mov var_4, 00000013h
loc_006C4230: cmp [0073C818h], 00000000h
loc_006C4237: jnz 006C4252h
loc_006C4239: push 0073C818h
loc_006C423E: push 00441F00h
loc_006C4243: call [004012FCh] ; __vbaNew2
loc_006C4249: mov var_80, 0073C818h
loc_006C4250: jmp 006C4259h
loc_006C4252: mov var_80, 0073C818h
loc_006C4259: mov ecx, var_80
loc_006C425C: mov edx, [ecx]
loc_006C425E: mov var_4C, edx
loc_006C4261: mov eax, Me
loc_006C4264: push eax
loc_006C4265: lea ecx, var_28
loc_006C4268: push ecx
loc_006C4269: call [00401130h] ; __vbaObjSetAddref
loc_006C426F: push eax
loc_006C4270: mov edx, var_4C
loc_006C4273: mov eax, [edx]
loc_006C4275: mov ecx, var_4C
loc_006C4278: push ecx
loc_006C4279: call [eax+00000010h]
loc_006C427C: fnclex
loc_006C427E: mov var_50, eax
loc_006C4281: cmp var_50, 00000000h
loc_006C4285: jge 006C42A4h
loc_006C4287: push 00000010h
loc_006C4289: push 00441EF0h
loc_006C428E: mov edx, var_4C
loc_006C4291: push edx
loc_006C4292: mov eax, var_50
loc_006C4295: push eax
loc_006C4296: call [004010CCh] ; __vbaHresultCheckObj
loc_006C429C: mov var_84, eax
loc_006C42A2: jmp 006C42AEh
loc_006C42A4: mov var_84, 00000000h
loc_006C42AE: lea ecx, var_28
loc_006C42B1: call [0040142Ch] ; __vbaFreeObj
loc_006C42B7: mov var_10, 00000000h
loc_006C42BE: push 006C42E2h
loc_006C42C3: jmp 006C42E1h
loc_006C42C5: lea ecx, var_24
loc_006C42C8: call [00401430h] ; __vbaFreeStr
loc_006C42CE: lea ecx, var_28
loc_006C42D1: call [0040142Ch] ; __vbaFreeObj
loc_006C42D7: lea ecx, var_38
loc_006C42DA: call [00401030h] ; __vbaFreeVar
loc_006C42E0: ret
loc_006C42E1: ret
loc_006C42E2: mov ecx, Me
loc_006C42E5: mov edx, [ecx]
loc_006C42E7: mov eax, Me
loc_006C42EA: push eax
loc_006C42EB: call [edx+00000008h]
loc_006C42EE: mov eax, var_10
loc_006C42F1: mov ecx, var_20
loc_006C42F4: mov fs:[00000000h], ecx
loc_006C42FB: pop edi
loc_006C42FC: pop esi
loc_006C42FD: pop ebx
loc_006C42FE: mov esp, ebp
loc_006C4300: pop ebp
loc_006C4301: retn 0004h
End Sub
Private Sub Form_Load() '6C43E0
loc_006C43E0: push ebp
loc_006C43E1: mov ebp, esp
loc_006C43E3: sub esp, 00000018h
loc_006C43E6: push 00412856h ; __vbaExceptHandler
loc_006C43EB: mov eax, fs:[00000000h]
loc_006C43F1: push eax
loc_006C43F2: mov fs:[00000000h], esp
loc_006C43F9: mov eax, 00000054h
loc_006C43FE: call 00412850h ; __vbaChkstk
loc_006C4403: push ebx
loc_006C4404: push esi
loc_006C4405: push edi
loc_006C4406: mov var_18, esp
loc_006C4409: mov var_14, 0040D038h ; "'"
loc_006C4410: mov eax, Me
loc_006C4413: and eax, 00000001h
loc_006C4416: mov var_10, eax
loc_006C4419: mov ecx, Me
loc_006C441C: and ecx, FFFFFFFEh
loc_006C441F: mov Me, ecx
loc_006C4422: mov var_C, 00000000h
loc_006C4429: mov edx, Me
loc_006C442C: mov eax, [edx]
loc_006C442E: mov ecx, Me
loc_006C4431: push ecx
loc_006C4432: call [eax+00000004h]
loc_006C4435: mov var_4, 00000001h
loc_006C443C: mov var_4, 00000002h
loc_006C4443: push FFFFFFFFh
loc_006C4445: call [00401124h] ; __vbaOnError
loc_006C444B: mov var_4, 00000003h
loc_006C4452: mov var_30, 0043C9F4h
loc_006C4459: mov var_38, 00000008h
loc_006C4460: mov eax, 00000010h
loc_006C4465: call 00412850h ; __vbaChkstk
loc_006C446A: mov edx, esp
loc_006C446C: mov eax, var_38
loc_006C446F: mov [edx], eax
loc_006C4471: mov ecx, var_34
loc_006C4474: mov [edx+00000004h], ecx
loc_006C4477: mov eax, var_30
loc_006C447A: mov [edx+00000008h], eax
loc_006C447D: mov ecx, var_2C
loc_006C4480: mov [edx+0000000Ch], ecx
loc_006C4483: push 00448C4Ch ; "ConnectionType"
loc_006C4488: push 0044317Ch ; "UserInfo"
loc_006C448D: push 0043B010h ; "BONZIBUDDY"
loc_006C4492: call [00401354h] ; rtcGetSetting
loc_006C4498: mov edx, eax
loc_006C449A: lea ecx, var_24
loc_006C449D: call [004013C0h] ; __vbaStrMove
loc_006C44A3: mov var_4, 00000004h
loc_006C44AA: mov edx, var_24
loc_006C44AD: push edx
loc_006C44AE: call [00401044h] ; __vbaLenBstr
loc_006C44B4: mov esi, eax
loc_006C44B6: neg esi
loc_006C44B8: sbb esi, esi
loc_006C44BA: neg esi
loc_006C44BC: mov eax, var_24
loc_006C44BF: push eax
loc_006C44C0: push 004519E8h ; "Modem"
loc_006C44C5: call [004011B8h] ; __vbaStrCmp
loc_006C44CB: neg eax
loc_006C44CD: sbb eax, eax
loc_006C44CF: neg eax
loc_006C44D1: and esi, eax
loc_006C44D3: test esi, esi
loc_006C44D5: jnz 006C4549h
loc_006C44D7: mov var_4, 00000005h
loc_006C44DE: mov ecx, Me
loc_006C44E1: mov edx, [ecx]
loc_006C44E3: mov eax, Me
loc_006C44E6: push eax
loc_006C44E7: call [edx+0000030Ch]
loc_006C44ED: push eax
loc_006C44EE: lea ecx, var_28
loc_006C44F1: push ecx
loc_006C44F2: call [00401128h] ; __vbaObjSet
loc_006C44F8: mov var_4C, eax
loc_006C44FB: push FFFFFFFFh
loc_006C44FD: mov edx, var_4C
loc_006C4500: mov eax, [edx]
loc_006C4502: mov ecx, var_4C
loc_006C4505: push ecx
loc_006C4506: call [eax+000000E4h]
loc_006C450C: fnclex
loc_006C450E: mov var_50, eax
loc_006C4511: cmp var_50, 00000000h
loc_006C4515: jge 006C4534h
loc_006C4517: push 000000E4h
loc_006C451C: push 00451A20h
loc_006C4521: mov edx, var_4C
loc_006C4524: push edx
loc_006C4525: mov eax, var_50
loc_006C4528: push eax
loc_006C4529: call [004010CCh] ; __vbaHresultCheckObj
loc_006C452F: mov var_68, eax
loc_006C4532: jmp 006C453Bh
loc_006C4534: mov var_68, 00000000h
loc_006C453B: lea ecx, var_28
loc_006C453E: call [0040142Ch] ; __vbaFreeObj
loc_006C4544: jmp 006C465Ch
loc_006C4549: mov var_4, 00000006h
loc_006C4550: mov ecx, var_24
loc_006C4553: push ecx
loc_006C4554: push 00448C70h ; "AOL"
loc_006C4559: call [004011B8h] ; __vbaStrCmp
loc_006C455F: test eax, eax
loc_006C4561: jnz 006C45D5h
loc_006C4563: mov var_4, 00000007h
loc_006C456A: mov edx, Me
loc_006C456D: mov eax, [edx]
loc_006C456F: mov ecx, Me
loc_006C4572: push ecx
loc_006C4573: call [eax+00000308h]
loc_006C4579: push eax
loc_006C457A: lea edx, var_28
loc_006C457D: push edx
loc_006C457E: call [00401128h] ; __vbaObjSet
loc_006C4584: mov var_4C, eax
loc_006C4587: push FFFFFFFFh
loc_006C4589: mov eax, var_4C
loc_006C458C: mov ecx, [eax]
loc_006C458E: mov edx, var_4C
loc_006C4591: push edx
loc_006C4592: call [ecx+000000E4h]
loc_006C4598: fnclex
loc_006C459A: mov var_50, eax
loc_006C459D: cmp var_50, 00000000h
loc_006C45A1: jge 006C45C0h
loc_006C45A3: push 000000E4h
loc_006C45A8: push 00451A20h
loc_006C45AD: mov eax, var_4C
loc_006C45B0: push eax
loc_006C45B1: mov ecx, var_50
loc_006C45B4: push ecx
loc_006C45B5: call [004010CCh] ; __vbaHresultCheckObj
loc_006C45BB: mov var_6C, eax
loc_006C45BE: jmp 006C45C7h
loc_006C45C0: mov var_6C, 00000000h
loc_006C45C7: lea ecx, var_28
loc_006C45CA: call [0040142Ch] ; __vbaFreeObj
loc_006C45D0: jmp 006C465Ch
loc_006C45D5: mov var_4, 00000008h
loc_006C45DC: mov edx, var_24
loc_006C45DF: push edx
loc_006C45E0: push 004519F8h ; "LAN"
loc_006C45E5: call [004011B8h] ; __vbaStrCmp
loc_006C45EB: test eax, eax
loc_006C45ED: jnz 006C465Ch
loc_006C45EF: mov var_4, 00000009h
loc_006C45F6: mov eax, Me
loc_006C45F9: mov ecx, [eax]
loc_006C45FB: mov edx, Me
loc_006C45FE: push edx
loc_006C45FF: call [ecx+00000304h]
loc_006C4605: push eax
loc_006C4606: lea eax, var_28
loc_006C4609: push eax
loc_006C460A: call [00401128h] ; __vbaObjSet
loc_006C4610: mov var_4C, eax
loc_006C4613: push FFFFFFFFh
loc_006C4615: mov ecx, var_4C
loc_006C4618: mov edx, [ecx]
loc_006C461A: mov eax, var_4C
loc_006C461D: push eax
loc_006C461E: call [edx+000000E4h]
loc_006C4624: fnclex
loc_006C4626: mov var_50, eax
loc_006C4629: cmp var_50, 00000000h
loc_006C462D: jge 006C464Ch
loc_006C462F: push 000000E4h
loc_006C4634: push 00451A20h
loc_006C4639: mov ecx, var_4C
loc_006C463C: push ecx
loc_006C463D: mov edx, var_50
loc_006C4640: push edx
loc_006C4641: call [004010CCh] ; __vbaHresultCheckObj
loc_006C4647: mov var_70, eax
loc_006C464A: jmp 006C4653h
loc_006C464C: mov var_70, 00000000h
loc_006C4653: lea ecx, var_28
loc_006C4656: call [0040142Ch] ; __vbaFreeObj
loc_006C465C: mov var_4, 0000000Bh
loc_006C4663: mov var_40, 80020004h
loc_006C466A: mov var_48, 0000000Ah
loc_006C4671: mov var_30, 0046D328h ; "Now let's select the option from my Internet Connection Screen which best describes how we will be connecting to the Internet!"
loc_006C4678: mov var_38, 00000008h
loc_006C467F: lea eax, var_28
loc_006C4682: push eax
loc_006C4683: mov eax, 00000010h
loc_006C4688: call 00412850h ; __vbaChkstk
loc_006C468D: mov ecx, esp
loc_006C468F: mov edx, var_48
loc_006C4692: mov [ecx], edx
loc_006C4694: mov eax, var_44
loc_006C4697: mov [ecx+00000004h], eax
loc_006C469A: mov edx, var_40
loc_006C469D: mov [ecx+00000008h], edx
loc_006C46A0: mov eax, var_3C
loc_006C46A3: mov [ecx+0000000Ch], eax
loc_006C46A6: mov eax, 00000010h
loc_006C46AB: call 00412850h ; __vbaChkstk
loc_006C46B0: mov ecx, esp
loc_006C46B2: mov edx, var_38
loc_006C46B5: mov [ecx], edx
loc_006C46B7: mov eax, var_34
loc_006C46BA: mov [ecx+00000004h], eax
loc_006C46BD: mov edx, var_30
loc_006C46C0: mov [ecx+00000008h], edx
loc_006C46C3: mov eax, var_2C
loc_006C46C6: mov [ecx+0000000Ch], eax
loc_006C46C9: mov ecx, [0073A08Ch]
loc_006C46CF: mov edx, [ecx]
loc_006C46D1: mov eax, [0073A08Ch]
loc_006C46D6: push eax
loc_006C46D7: call [edx+00000078h]
loc_006C46DA: fnclex
loc_006C46DC: mov var_4C, eax
loc_006C46DF: cmp var_4C, 00000000h
loc_006C46E3: jge 006C4702h
loc_006C46E5: push 00000078h
loc_006C46E7: push 004419ACh
loc_006C46EC: mov ecx, [0073A08Ch]
loc_006C46F2: push ecx
loc_006C46F3: mov edx, var_4C
loc_006C46F6: push edx
loc_006C46F7: call [004010CCh] ; __vbaHresultCheckObj
loc_006C46FD: mov var_74, eax
loc_006C4700: jmp 006C4709h
loc_006C4702: mov var_74, 00000000h
loc_006C4709: lea ecx, var_28
loc_006C470C: call [0040142Ch] ; __vbaFreeObj
loc_006C4712: mov var_10, 00000000h
loc_006C4719: push 006C4734h
loc_006C471E: jmp 006C472Ah
loc_006C4720: lea ecx, var_28
loc_006C4723: call [0040142Ch] ; __vbaFreeObj
loc_006C4729: ret
loc_006C472A: lea ecx, var_24
loc_006C472D: call [00401430h] ; __vbaFreeStr
loc_006C4733: ret
loc_006C4734: mov eax, Me
loc_006C4737: mov ecx, [eax]
loc_006C4739: mov edx, Me
loc_006C473C: push edx
loc_006C473D: call [ecx+00000008h]
loc_006C4740: mov eax, var_10
loc_006C4743: mov ecx, var_20
loc_006C4746: mov fs:[00000000h], ecx
loc_006C474D: pop edi
loc_006C474E: pop esi
loc_006C474F: pop ebx
loc_006C4750: mov esp, ebp
loc_006C4752: pop ebp
loc_006C4753: retn 0004h
End Sub
Private Sub Form_Activate() '6C4310
loc_006C4310: push ebp
loc_006C4311: mov ebp, esp
loc_006C4313: sub esp, 0000000Ch
loc_006C4316: push 00412856h ; __vbaExceptHandler
loc_006C431B: mov eax, fs:[00000000h]
loc_006C4321: push eax
loc_006C4322: mov fs:[00000000h], esp
loc_006C4329: sub esp, 00000014h
loc_006C432C: push ebx
loc_006C432D: push esi
loc_006C432E: push edi
loc_006C432F: mov var_C, esp
loc_006C4332: mov var_8, 0040D028h
loc_006C4339: mov esi, Me
loc_006C433C: mov eax, esi
loc_006C433E: and eax, 00000001h
loc_006C4341: mov var_4, eax
loc_006C4344: and esi, FFFFFFFEh
loc_006C4347: push esi
loc_006C4348: mov Me, esi
loc_006C434B: mov ecx, [esi]
loc_006C434D: call [ecx+00000004h]
loc_006C4350: xor edi, edi
loc_006C4352: push 00440B00h
loc_006C4357: mov var_1C, edi
loc_006C435A: push esi
loc_006C435B: mov var_18, edi
loc_006C435E: mov var_1C, edi
loc_006C4361: call [004013C4h] ; __vbaCastObj
loc_006C4367: lea edx, var_18
loc_006C436A: push eax
loc_006C436B: push edx
loc_006C436C: call [00401128h] ; __vbaObjSet
loc_006C4372: mov eax, [0073A218h]
loc_006C4377: lea edx, var_1C
loc_006C437A: push edx
loc_006C437B: lea edx, var_18
loc_006C437E: mov ecx, [eax]
loc_006C4380: push edx
loc_006C4381: push eax
loc_006C4382: call [ecx+00000020h]
loc_006C4385: cmp eax, edi
loc_006C4387: fnclex
loc_006C4389: jge 006C43A0h
loc_006C438B: mov ecx, [0073A218h]
loc_006C4391: push 00000020h
loc_006C4393: push 00440B10h
loc_006C4398: push ecx
loc_006C4399: push eax
loc_006C439A: call [004010CCh] ; __vbaHresultCheckObj
loc_006C43A0: lea ecx, var_18
loc_006C43A3: call [0040142Ch] ; __vbaFreeObj
loc_006C43A9: mov var_4, edi
loc_006C43AC: push 006C43BEh
loc_006C43B1: jmp 006C43BDh
loc_006C43B3: lea ecx, var_18
loc_006C43B6: call [0040142Ch] ; __vbaFreeObj
loc_006C43BC: ret
loc_006C43BD: ret
loc_006C43BE: mov eax, Me
loc_006C43C1: push eax
loc_006C43C2: mov edx, [eax]
loc_006C43C4: call [edx+00000008h]
loc_006C43C7: mov eax, var_4
loc_006C43CA: mov ecx, var_14
loc_006C43CD: pop edi
loc_006C43CE: pop esi
loc_006C43CF: mov fs:[00000000h], ecx
loc_006C43D6: pop ebx
loc_006C43D7: mov esp, ebp
loc_006C43D9: pop ebp
loc_006C43DA: retn 0004h
End Sub

BIN
Src Code/frmConnectionType.frx
View File

1240
Src Code/frmDialog.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmDialog.frx
View File

28886
Src Code/frmDownloader.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmDownloader.frx
View File

1488
Src Code/frmDownloaderOptions.frm
File diff suppressed because it is too large
View File

1130
Src Code/frmEmailConfirm.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmEmailConfirm.frx
View File

13310
Src Code/frmEmailQueue.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmEmailQueue.frx
View File

2560
Src Code/frmGoldChangePassword.frm
File diff suppressed because it is too large
View File

974
Src Code/frmGoldLogin.frm
View File

@ -0,0 +1,974 @@
VERSION 5.00
Begin VB.Form frmGoldLogin
Caption = "Gold Membership Login"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ControlBox = 0 'False
Visible = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 5685
ClientHeight = 2550
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Caption = "Gold Member Logon Information"
Left = 120
Top = 120
Width = 5445
Height = 2295
TabIndex = 5
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
Left = 2962
Top = 1695
Width = 1095
Height = 375
TabIndex = 4
Cancel = -1 'True
End
Begin VB.CheckBox chkSavePassword
Caption = "Remember my password when logging in."
Left = 360
Top = 1230
Width = 3315
Height = 195
TabIndex = 2
Value = 1
End
Begin VB.CommandButton cmdLogin
Caption = "&Login"
Left = 1627
Top = 1695
Width = 1095
Height = 375
TabIndex = 3
Default = -1 'True
End
Begin VB.TextBox txtEmail
Left = 2550
Top = 330
Width = 2475
Height = 315
TabIndex = 0
End
Begin VB.TextBox txtPassword
Left = 2550
Top = 750
Width = 2475
Height = 315
TabIndex = 1
PasswordChar = "*"
End
Begin VB.Label Label9
Caption = "Password:"
Left = 360
Top = 810
Width = 735
Height = 195
TabIndex = 7
AutoSize = -1 'True
End
Begin VB.Label Label8
Caption = "Email Address:"
Left = 360
Top = 390
Width = 1035
Height = 195
TabIndex = 6
AutoSize = -1 'True
End
End
End
Attribute VB_Name = "frmGoldLogin"
Private Sub cmdLogin_Click() '725AC0
loc_00725AC0: push ebp
loc_00725AC1: mov ebp, esp
loc_00725AC3: sub esp, 0000000Ch
loc_00725AC6: push 00412856h ; __vbaExceptHandler
loc_00725ACB: mov eax, fs:[00000000h]
loc_00725AD1: push eax
loc_00725AD2: mov fs:[00000000h], esp
loc_00725AD9: sub esp, 00000060h
loc_00725ADC: push ebx
loc_00725ADD: push esi
loc_00725ADE: push edi
loc_00725ADF: mov var_C, esp
loc_00725AE2: mov var_8, 00411FE0h
loc_00725AE9: mov esi, Me
loc_00725AEC: mov eax, esi
loc_00725AEE: and eax, 00000001h
loc_00725AF1: mov var_4, eax
loc_00725AF4: and esi, FFFFFFFEh
loc_00725AF7: push esi
loc_00725AF8: mov Me, esi
loc_00725AFB: mov ecx, [esi]
loc_00725AFD: call [ecx+00000004h]
loc_00725B00: mov edx, [esi]
loc_00725B02: xor eax, eax
loc_00725B04: push esi
loc_00725B05: mov var_18, eax
loc_00725B08: mov var_1C, eax
loc_00725B0B: mov var_20, eax
loc_00725B0E: mov var_24, eax
loc_00725B11: mov var_28, eax
loc_00725B14: mov var_2C, eax
loc_00725B17: call [edx+00000308h]
loc_00725B1D: mov ebx, [00401128h] ; __vbaObjSet
loc_00725B23: push eax
loc_00725B24: lea eax, var_28
loc_00725B27: push eax
loc_00725B28: call ebx
loc_00725B2A: mov edi, eax
loc_00725B2C: push 00000000h
loc_00725B2E: push edi
loc_00725B2F: mov ecx, [edi]
loc_00725B31: call [ecx+0000008Ch]
loc_00725B37: test eax, eax
loc_00725B39: fnclex
loc_00725B3B: jge 00725B4Fh
loc_00725B3D: push 0000008Ch
loc_00725B42: push 004431B8h
loc_00725B47: push edi
loc_00725B48: push eax
loc_00725B49: call [004010CCh] ; __vbaHresultCheckObj
loc_00725B4F: lea ecx, var_28
loc_00725B52: call [0040142Ch] ; __vbaFreeObj
loc_00725B58: mov edx, [esi]
loc_00725B5A: push esi
loc_00725B5B: call [edx+00000300h]
loc_00725B61: push eax
loc_00725B62: lea eax, var_28
loc_00725B65: push eax
loc_00725B66: call ebx
loc_00725B68: mov edi, eax
loc_00725B6A: push 00000000h
loc_00725B6C: push edi
loc_00725B6D: mov ecx, [edi]
loc_00725B6F: call [ecx+0000008Ch]
loc_00725B75: test eax, eax
loc_00725B77: fnclex
loc_00725B79: jge 00725B8Dh
loc_00725B7B: push 0000008Ch
loc_00725B80: push 004431B8h
loc_00725B85: push edi
loc_00725B86: push eax
loc_00725B87: call [004010CCh] ; __vbaHresultCheckObj
loc_00725B8D: lea ecx, var_28
loc_00725B90: call [0040142Ch] ; __vbaFreeObj
loc_00725B96: mov edx, [esi]
loc_00725B98: push esi
loc_00725B99: call [edx+0000030Ch]
loc_00725B9F: push eax
loc_00725BA0: lea eax, var_28
loc_00725BA3: push eax
loc_00725BA4: call ebx
loc_00725BA6: mov edi, eax
loc_00725BA8: lea edx, var_18
loc_00725BAB: push edx
loc_00725BAC: push edi
loc_00725BAD: mov ecx, [edi]
loc_00725BAF: call [ecx+000000A0h]
loc_00725BB5: test eax, eax
loc_00725BB7: fnclex
loc_00725BB9: jge 00725BCDh
loc_00725BBB: push 000000A0h
loc_00725BC0: push 0043F42Ch
loc_00725BC5: push edi
loc_00725BC6: push eax
loc_00725BC7: call [004010CCh] ; __vbaHresultCheckObj
loc_00725BCD: mov eax, [esi]
loc_00725BCF: push esi
loc_00725BD0: call [eax+00000310h]
loc_00725BD6: lea ecx, var_2C
loc_00725BD9: push eax
loc_00725BDA: push ecx
loc_00725BDB: call ebx
loc_00725BDD: mov edi, eax
loc_00725BDF: lea eax, var_20
loc_00725BE2: push eax
loc_00725BE3: push edi
loc_00725BE4: mov edx, [edi]
loc_00725BE6: call [edx+000000A0h]
loc_00725BEC: xor ebx, ebx
loc_00725BEE: cmp eax, ebx
loc_00725BF0: fnclex
loc_00725BF2: jge 00725C06h
loc_00725BF4: push 000000A0h
loc_00725BF9: push 0043F42Ch
loc_00725BFE: push edi
loc_00725BFF: push eax
loc_00725C00: call [004010CCh] ; __vbaHresultCheckObj
loc_00725C06: mov edx, var_20
loc_00725C09: mov edi, [004013C0h] ; __vbaStrMove
loc_00725C0F: lea ecx, var_24
loc_00725C12: mov var_20, ebx
loc_00725C15: call edi
loc_00725C17: mov edx, var_18
loc_00725C1A: lea ecx, var_1C
loc_00725C1D: mov var_18, ebx
loc_00725C20: call edi
loc_00725C22: lea ecx, var_24
loc_00725C25: lea edx, var_1C
loc_00725C28: push ecx
loc_00725C29: push edx
loc_00725C2A: call 0065C1A0h
loc_00725C2F: mov edi, eax
loc_00725C31: lea eax, var_24
loc_00725C34: lea ecx, var_1C
loc_00725C37: push eax
loc_00725C38: push ecx
loc_00725C39: push 00000002h
loc_00725C3B: call [00401324h] ; __vbaFreeStrList
loc_00725C41: lea edx, var_2C
loc_00725C44: lea eax, var_28
loc_00725C47: push edx
loc_00725C48: push eax
loc_00725C49: push 00000002h
loc_00725C4B: call [00401068h] ; __vbaFreeObjList
loc_00725C51: add esp, 00000018h
loc_00725C54: cmp di, bx
loc_00725C57: jz 00725D83h
loc_00725C5D: mov ecx, [esi]
loc_00725C5F: push esi
loc_00725C60: call [ecx+00000700h]
loc_00725C66: cmp [0073A6C8h], ebx
loc_00725C6C: jnz 00725C7Eh
loc_00725C6E: push 0073A6C8h
loc_00725C73: push 00426004h
loc_00725C78: call [004012FCh] ; __vbaNew2
loc_00725C7E: sub esp, 00000010h
loc_00725C81: mov ecx, 0000000Ah
loc_00725C86: mov ebx, esp
loc_00725C88: mov var_3C, ecx
loc_00725C8B: mov eax, 80020004h
loc_00725C90: sub esp, 00000010h
loc_00725C93: mov [ebx], ecx
loc_00725C95: mov ecx, var_48
loc_00725C98: mov var_34, eax
loc_00725C9B: mov edi, [0073A6C8h]
loc_00725CA1: mov [ebx+00000004h], ecx
loc_00725CA4: mov ecx, esp
loc_00725CA6: mov edx, [edi]
loc_00725CA8: push edi
loc_00725CA9: mov [ebx+00000008h], eax
loc_00725CAC: mov eax, var_40
loc_00725CAF: mov [ebx+0000000Ch], eax
loc_00725CB2: mov eax, var_3C
loc_00725CB5: mov [ecx], eax
loc_00725CB7: mov eax, var_38
loc_00725CBA: mov [ecx+00000004h], eax
loc_00725CBD: mov eax, var_34
loc_00725CC0: mov [ecx+00000008h], eax
loc_00725CC3: mov eax, var_30
loc_00725CC6: mov [ecx+0000000Ch], eax
loc_00725CC9: call [edx+000002B0h]
loc_00725CCF: test eax, eax
loc_00725CD1: fnclex
loc_00725CD3: jge 00725CEBh
loc_00725CD5: mov ebx, [004010CCh] ; __vbaHresultCheckObj
loc_00725CDB: push 000002B0h
loc_00725CE0: push 0045E798h
loc_00725CE5: push edi
loc_00725CE6: push eax
loc_00725CE7: call ebx
loc_00725CE9: jmp 00725CF1h
loc_00725CEB: mov ebx, [004010CCh] ; __vbaHresultCheckObj
loc_00725CF1: mov eax, [0073A6C8h]
loc_00725CF6: test eax, eax
loc_00725CF8: jnz 00725D0Ah
loc_00725CFA: push 0073A6C8h
loc_00725CFF: push 00426004h
loc_00725D04: call [004012FCh] ; __vbaNew2
loc_00725D0A: mov edi, [0073A6C8h]
loc_00725D10: push edi
loc_00725D11: mov ecx, [edi]
loc_00725D13: call [ecx+000006FCh]
loc_00725D19: test eax, eax
loc_00725D1B: fnclex
loc_00725D1D: jge 00725D2Dh
loc_00725D1F: push 000006FCh
loc_00725D24: push 0045E3A8h
loc_00725D29: push edi
loc_00725D2A: push eax
loc_00725D2B: call ebx
loc_00725D2D: mov eax, [0073C818h]
loc_00725D32: test eax, eax
loc_00725D34: jnz 00725D46h
loc_00725D36: push 0073C818h
loc_00725D3B: push 00441F00h
loc_00725D40: call [004012FCh] ; __vbaNew2
loc_00725D46: mov edi, [0073C818h]
loc_00725D4C: lea eax, var_28
loc_00725D4F: push esi
loc_00725D50: push eax
loc_00725D51: mov edx, [edi]
loc_00725D53: mov var_74, edx
loc_00725D56: call [00401130h] ; __vbaObjSetAddref
loc_00725D5C: mov ecx, var_74
loc_00725D5F: push eax
loc_00725D60: push edi
loc_00725D61: call [ecx+00000010h]
loc_00725D64: test eax, eax
loc_00725D66: fnclex
loc_00725D68: jge 00725D75h
loc_00725D6A: push 00000010h
loc_00725D6C: push 00441EF0h
loc_00725D71: push edi
loc_00725D72: push eax
loc_00725D73: call ebx
loc_00725D75: lea ecx, var_28
loc_00725D78: call [0040142Ch] ; __vbaFreeObj
loc_00725D7E: jmp 00725E9Eh
loc_00725D83: sub esp, 00000010h
loc_00725D86: mov ecx, 0000000Ah
loc_00725D8B: mov ebx, esp
loc_00725D8D: mov var_3C, ecx
loc_00725D90: mov eax, 80020004h
loc_00725D95: sub esp, 00000010h
loc_00725D98: mov [ebx], ecx
loc_00725D9A: mov ecx, var_48
loc_00725D9D: mov edx, eax
loc_00725D9F: mov edi, [esi]
loc_00725DA1: mov [ebx+00000004h], ecx
loc_00725DA4: mov ecx, esp
loc_00725DA6: push esi
loc_00725DA7: mov [ebx+00000008h], eax
loc_00725DAA: mov eax, var_40
loc_00725DAD: mov [ebx+0000000Ch], eax
loc_00725DB0: mov eax, var_3C
loc_00725DB3: mov [ecx], eax
loc_00725DB5: mov eax, var_38
loc_00725DB8: mov [ecx+00000004h], eax
loc_00725DBB: mov [ecx+00000008h], edx
loc_00725DBE: mov edx, var_30
loc_00725DC1: mov [ecx+0000000Ch], edx
loc_00725DC4: call [edi+000002B0h]
loc_00725DCA: test eax, eax
loc_00725DCC: fnclex
loc_00725DCE: jge 00725DE2h
loc_00725DD0: push 000002B0h
loc_00725DD5: push 004537E4h
loc_00725DDA: push esi
loc_00725DDB: push eax
loc_00725DDC: call [004010CCh] ; __vbaHresultCheckObj
loc_00725DE2: mov eax, [esi]
loc_00725DE4: push esi
loc_00725DE5: call [eax+00000310h]
loc_00725DEB: mov ebx, [00401128h] ; __vbaObjSet
loc_00725DF1: lea ecx, var_28
loc_00725DF4: push eax
loc_00725DF5: push ecx
loc_00725DF6: call ebx
loc_00725DF8: mov edi, eax
loc_00725DFA: push edi
loc_00725DFB: mov edx, [edi]
loc_00725DFD: call [edx+00000204h]
loc_00725E03: test eax, eax
loc_00725E05: fnclex
loc_00725E07: jge 00725E1Bh
loc_00725E09: push 00000204h
loc_00725E0E: push 0043F42Ch
loc_00725E13: push edi
loc_00725E14: push eax
loc_00725E15: call [004010CCh] ; __vbaHresultCheckObj
loc_00725E1B: lea ecx, var_28
loc_00725E1E: call [0040142Ch] ; __vbaFreeObj
loc_00725E24: mov eax, [esi]
loc_00725E26: push esi
loc_00725E27: call [eax+00000308h]
loc_00725E2D: lea ecx, var_28
loc_00725E30: push eax
loc_00725E31: push ecx
loc_00725E32: call ebx
loc_00725E34: mov edi, eax
loc_00725E36: push FFFFFFFFh
loc_00725E38: push edi
loc_00725E39: mov edx, [edi]
loc_00725E3B: call [edx+0000008Ch]
loc_00725E41: test eax, eax
loc_00725E43: fnclex
loc_00725E45: jge 00725E59h
loc_00725E47: push 0000008Ch
loc_00725E4C: push 004431B8h
loc_00725E51: push edi
loc_00725E52: push eax
loc_00725E53: call [004010CCh] ; __vbaHresultCheckObj
loc_00725E59: mov edi, [0040142Ch] ; __vbaFreeObj
loc_00725E5F: lea ecx, var_28
loc_00725E62: call edi
loc_00725E64: mov eax, [esi]
loc_00725E66: push esi
loc_00725E67: call [eax+00000300h]
loc_00725E6D: lea ecx, var_28
loc_00725E70: push eax
loc_00725E71: push ecx
loc_00725E72: call ebx
loc_00725E74: mov esi, eax
loc_00725E76: push FFFFFFFFh
loc_00725E78: push esi
loc_00725E79: mov edx, [esi]
loc_00725E7B: call [edx+0000008Ch]
loc_00725E81: test eax, eax
loc_00725E83: fnclex
loc_00725E85: jge 00725E99h
loc_00725E87: push 0000008Ch
loc_00725E8C: push 004431B8h
loc_00725E91: push esi
loc_00725E92: push eax
loc_00725E93: call [004010CCh] ; __vbaHresultCheckObj
loc_00725E99: lea ecx, var_28
loc_00725E9C: call edi
loc_00725E9E: mov var_4, 00000000h
loc_00725EA5: push 00725ED9h
loc_00725EAA: jmp 00725ED8h
loc_00725EAC: lea eax, var_24
loc_00725EAF: lea ecx, var_20
loc_00725EB2: push eax
loc_00725EB3: lea edx, var_1C
loc_00725EB6: push ecx
loc_00725EB7: lea eax, var_18
loc_00725EBA: push edx
loc_00725EBB: push eax
loc_00725EBC: push 00000004h
loc_00725EBE: call [00401324h] ; __vbaFreeStrList
loc_00725EC4: lea ecx, var_2C
loc_00725EC7: lea edx, var_28
loc_00725ECA: push ecx
loc_00725ECB: push edx
loc_00725ECC: push 00000002h
loc_00725ECE: call [00401068h] ; __vbaFreeObjList
loc_00725ED4: add esp, 00000020h
loc_00725ED7: ret
loc_00725ED8: ret
loc_00725ED9: mov eax, Me
loc_00725EDC: push eax
loc_00725EDD: mov ecx, [eax]
loc_00725EDF: call [ecx+00000008h]
loc_00725EE2: mov eax, var_4
loc_00725EE5: mov ecx, var_14
loc_00725EE8: pop edi
loc_00725EE9: pop esi
loc_00725EEA: mov fs:[00000000h], ecx
loc_00725EF1: pop ebx
loc_00725EF2: mov esp, ebp
loc_00725EF4: pop ebp
loc_00725EF5: retn 0004h
End Sub
Private Sub cmdCancel_Click() '7259F0
loc_007259F0: push ebp
loc_007259F1: mov ebp, esp
loc_007259F3: sub esp, 0000000Ch
loc_007259F6: push 00412856h ; __vbaExceptHandler
loc_007259FB: mov eax, fs:[00000000h]
loc_00725A01: push eax
loc_00725A02: mov fs:[00000000h], esp
loc_00725A09: sub esp, 00000018h
loc_00725A0C: push ebx
loc_00725A0D: push esi
loc_00725A0E: push edi
loc_00725A0F: mov var_C, esp
loc_00725A12: mov var_8, 00411FD0h
loc_00725A19: mov edi, Me
loc_00725A1C: mov eax, edi
loc_00725A1E: and eax, 00000001h
loc_00725A21: mov var_4, eax
loc_00725A24: and edi, FFFFFFFEh
loc_00725A27: push edi
loc_00725A28: mov Me, edi
loc_00725A2B: mov ecx, [edi]
loc_00725A2D: call [ecx+00000004h]
loc_00725A30: mov eax, [0073C818h]
loc_00725A35: xor ebx, ebx
loc_00725A37: cmp eax, ebx
loc_00725A39: mov var_18, ebx
loc_00725A3C: jnz 00725A4Eh
loc_00725A3E: push 0073C818h
loc_00725A43: push 00441F00h
loc_00725A48: call [004012FCh] ; __vbaNew2
loc_00725A4E: mov esi, [0073C818h]
loc_00725A54: lea eax, var_18
loc_00725A57: push edi
loc_00725A58: push eax
loc_00725A59: mov edx, [esi]
loc_00725A5B: mov var_2C, edx
loc_00725A5E: call [00401130h] ; __vbaObjSetAddref
loc_00725A64: mov ecx, var_2C
loc_00725A67: push eax
loc_00725A68: push esi
loc_00725A69: call [ecx+00000010h]
loc_00725A6C: cmp eax, ebx
loc_00725A6E: fnclex
loc_00725A70: jge 00725A81h
loc_00725A72: push 00000010h
loc_00725A74: push 00441EF0h
loc_00725A79: push esi
loc_00725A7A: push eax
loc_00725A7B: call [004010CCh] ; __vbaHresultCheckObj
loc_00725A81: lea ecx, var_18
loc_00725A84: call [0040142Ch] ; __vbaFreeObj
loc_00725A8A: mov var_4, ebx
loc_00725A8D: push 00725A9Fh
loc_00725A92: jmp 00725A9Eh
loc_00725A94: lea ecx, var_18
loc_00725A97: call [0040142Ch] ; __vbaFreeObj
loc_00725A9D: ret
loc_00725A9E: ret
loc_00725A9F: mov eax, Me
loc_00725AA2: push eax
loc_00725AA3: mov edx, [eax]
loc_00725AA5: call [edx+00000008h]
loc_00725AA8: mov eax, var_4
loc_00725AAB: mov ecx, var_14
loc_00725AAE: pop edi
loc_00725AAF: pop esi
loc_00725AB0: mov fs:[00000000h], ecx
loc_00725AB7: pop ebx
loc_00725AB8: mov esp, ebp
loc_00725ABA: pop ebp
loc_00725ABB: retn 0004h
End Sub
Private Sub Form_Load() '725F00
loc_00725F00: push ebp
loc_00725F01: mov ebp, esp
loc_00725F03: sub esp, 0000000Ch
loc_00725F06: push 00412856h ; __vbaExceptHandler
loc_00725F0B: mov eax, fs:[00000000h]
loc_00725F11: push eax
loc_00725F12: mov fs:[00000000h], esp
loc_00725F19: sub esp, 00000008h
loc_00725F1C: push ebx
loc_00725F1D: push esi
loc_00725F1E: push edi
loc_00725F1F: mov var_C, esp
loc_00725F22: mov var_8, 00411FF0h
loc_00725F29: mov esi, Me
loc_00725F2C: mov eax, esi
loc_00725F2E: and eax, 00000001h
loc_00725F31: mov var_4, eax
loc_00725F34: and esi, FFFFFFFEh
loc_00725F37: push esi
loc_00725F38: mov Me, esi
loc_00725F3B: mov ecx, [esi]
loc_00725F3D: call [ecx+00000004h]
loc_00725F40: mov edx, [esi]
loc_00725F42: push esi
loc_00725F43: call [edx+000006FCh]
loc_00725F49: mov var_4, 00000000h
loc_00725F50: mov eax, Me
loc_00725F53: push eax
loc_00725F54: mov ecx, [eax]
loc_00725F56: call [ecx+00000008h]
loc_00725F59: mov eax, var_4
loc_00725F5C: mov ecx, var_14
loc_00725F5F: pop edi
loc_00725F60: pop esi
loc_00725F61: mov fs:[00000000h], ecx
loc_00725F68: pop ebx
loc_00725F69: mov esp, ebp
loc_00725F6B: pop ebp
loc_00725F6C: retn 0004h
End Sub
Private Sub Proc_72_3_725520
loc_00725520: push ebp
loc_00725521: mov ebp, esp
loc_00725523: sub esp, 00000008h
loc_00725526: push 00412856h ; __vbaExceptHandler
loc_0072552B: mov eax, fs:[00000000h]
loc_00725531: push eax
loc_00725532: mov fs:[00000000h], esp
loc_00725539: sub esp, 00000024h
loc_0072553C: push ebx
loc_0072553D: push esi
loc_0072553E: push edi
loc_0072553F: mov var_8, esp
loc_00725542: mov var_4, 00411FB0h
loc_00725549: mov esi, Me
loc_0072554C: xor eax, eax
loc_0072554E: mov var_14, eax
loc_00725551: mov var_18, eax
loc_00725554: mov eax, [esi]
loc_00725556: push esi
loc_00725557: call [eax+0000030Ch]
loc_0072555D: lea ecx, var_18
loc_00725560: push eax
loc_00725561: push ecx
loc_00725562: call [00401128h] ; __vbaObjSet
loc_00725568: sub esp, 00000010h
loc_0072556B: mov ecx, 00000008h
loc_00725570: mov edx, esp
loc_00725572: mov edi, eax
loc_00725574: mov eax, 0043C9F4h
loc_00725579: push 00453860h ; "GoldEmail"
loc_0072557E: mov [edx], ecx
loc_00725580: mov ecx, var_24
loc_00725583: mov ebx, [edi]
loc_00725585: push 0044317Ch ; "UserInfo"
loc_0072558A: mov [edx+00000004h], ecx
loc_0072558D: push 004537A4h ; "BonziBUDDY"
loc_00725592: mov [edx+00000008h], eax
loc_00725595: mov eax, var_1C
loc_00725598: mov [edx+0000000Ch], eax
loc_0072559B: call [00401354h] ; rtcGetSetting
loc_007255A1: mov edx, eax
loc_007255A3: lea ecx, var_14
loc_007255A6: call [004013C0h] ; __vbaStrMove
loc_007255AC: push eax
loc_007255AD: push edi
loc_007255AE: call [ebx+000000A4h]
loc_007255B4: test eax, eax
loc_007255B6: fnclex
loc_007255B8: jge 007255CCh
loc_007255BA: push 000000A4h
loc_007255BF: push 0043F42Ch
loc_007255C4: push edi
loc_007255C5: push eax
loc_007255C6: call [004010CCh] ; __vbaHresultCheckObj
loc_007255CC: mov ebx, [00401430h] ; __vbaFreeStr
loc_007255D2: lea ecx, var_14
loc_007255D5: call ebx
loc_007255D7: lea ecx, var_18
loc_007255DA: call [0040142Ch] ; __vbaFreeObj
loc_007255E0: sub esp, 00000010h
loc_007255E3: mov ecx, 00000008h
loc_007255E8: mov edx, esp
loc_007255EA: mov eax, 0044DDBCh ; "-1"
loc_007255EF: push 004537C0h ; "GoldPassRemember"
loc_007255F4: push 0044317Ch ; "UserInfo"
loc_007255F9: mov [edx], ecx
loc_007255FB: mov ecx, var_24
loc_007255FE: push 004537A4h ; "BonziBUDDY"
loc_00725603: mov [edx+00000004h], ecx
loc_00725606: mov [edx+00000008h], eax
loc_00725609: mov eax, var_1C
loc_0072560C: mov [edx+0000000Ch], eax
loc_0072560F: call [00401354h] ; rtcGetSetting
loc_00725615: mov edx, eax
loc_00725617: lea ecx, var_14
loc_0072561A: call [004013C0h] ; __vbaStrMove
loc_00725620: push eax
loc_00725621: call [00401434h] ; rtcR8ValFromBstr
loc_00725627: call [00401168h] ; __vbaFpR8
loc_0072562D: fcomp real8 ptr [004073C8h]
loc_00725633: fnstsw ax
loc_00725635: test ah, 40h
loc_00725638: jz 00725641h
loc_0072563A: mov edi, 00000001h
loc_0072563F: jmp 00725643h
loc_00725641: xor edi, edi
loc_00725643: lea ecx, var_14
loc_00725646: call ebx
loc_00725648: mov ecx, [esi]
loc_0072564A: push esi
loc_0072564B: neg edi
loc_0072564D: test di, di
loc_00725650: jz 00725732h
loc_00725656: call [ecx+00000304h]
loc_0072565C: lea edx, var_18
loc_0072565F: push eax
loc_00725660: push edx
loc_00725661: call [00401128h] ; __vbaObjSet
loc_00725667: mov edi, eax
loc_00725669: mov ecx, 00000001h
loc_0072566E: mov ebx, [edi]
loc_00725670: call [004011E4h] ; __vbaI2I4
loc_00725676: push eax
loc_00725677: push edi
loc_00725678: call [ebx+000000E4h]
loc_0072567E: test eax, eax
loc_00725680: fnclex
loc_00725682: jge 00725696h
loc_00725684: push 000000E4h
loc_00725689: push 00446678h
loc_0072568E: push edi
loc_0072568F: push eax
loc_00725690: call [004010CCh] ; __vbaHresultCheckObj
loc_00725696: mov edi, [0040142Ch] ; __vbaFreeObj
loc_0072569C: lea ecx, var_18
loc_0072569F: call edi
loc_007256A1: mov eax, [esi]
loc_007256A3: push esi
loc_007256A4: call [eax+00000310h]
loc_007256AA: lea ecx, var_18
loc_007256AD: push eax
loc_007256AE: push ecx
loc_007256AF: call [00401128h] ; __vbaObjSet
loc_007256B5: sub esp, 00000010h
loc_007256B8: mov ecx, 00000008h
loc_007256BD: mov edx, esp
loc_007256BF: mov esi, eax
loc_007256C1: mov eax, 0043C9F4h
loc_007256C6: push 00453878h ; "GoldPass"
loc_007256CB: mov [edx], ecx
loc_007256CD: mov ecx, var_24
loc_007256D0: mov ebx, [esi]
loc_007256D2: push 0044317Ch ; "UserInfo"
loc_007256D7: mov [edx+00000004h], ecx
loc_007256DA: push 004537A4h ; "BonziBUDDY"
loc_007256DF: mov [edx+00000008h], eax
loc_007256E2: mov eax, var_1C
loc_007256E5: mov [edx+0000000Ch], eax
loc_007256E8: call [00401354h] ; rtcGetSetting
loc_007256EE: mov edx, eax
loc_007256F0: lea ecx, var_14
loc_007256F3: call [004013C0h] ; __vbaStrMove
loc_007256F9: push eax
loc_007256FA: push esi
loc_007256FB: call [ebx+000000A4h]
loc_00725701: test eax, eax
loc_00725703: fnclex
loc_00725705: jge 00725719h
loc_00725707: push 000000A4h
loc_0072570C: push 0043F42Ch
loc_00725711: push esi
loc_00725712: push eax
loc_00725713: call [004010CCh] ; __vbaHresultCheckObj
loc_00725719: lea ecx, var_14
loc_0072571C: call [00401430h] ; __vbaFreeStr
loc_00725722: lea ecx, var_18
loc_00725725: call edi
loc_00725727: fwait
loc_00725728: push 007257D7h
loc_0072572D: jmp 007257D6h
loc_00725732: call [ecx+00000304h]
loc_00725738: lea edx, var_18
loc_0072573B: push eax
loc_0072573C: push edx
loc_0072573D: call [00401128h] ; __vbaObjSet
loc_00725743: mov edi, eax
loc_00725745: xor ecx, ecx
loc_00725747: mov ebx, [edi]
loc_00725749: call [004011E4h] ; __vbaI2I4
loc_0072574F: push eax
loc_00725750: push edi
loc_00725751: call [ebx+000000E4h]
loc_00725757: test eax, eax
loc_00725759: fnclex
loc_0072575B: jge 0072576Fh
loc_0072575D: push 000000E4h
loc_00725762: push 00446678h
loc_00725767: push edi
loc_00725768: push eax
loc_00725769: call [004010CCh] ; __vbaHresultCheckObj
loc_0072576F: mov edi, [0040142Ch] ; __vbaFreeObj
loc_00725775: lea ecx, var_18
loc_00725778: call edi
loc_0072577A: mov eax, [esi]
loc_0072577C: push esi
loc_0072577D: call [eax+00000310h]
loc_00725783: lea ecx, var_18
loc_00725786: push eax
loc_00725787: push ecx
loc_00725788: call [00401128h] ; __vbaObjSet
loc_0072578E: mov esi, eax
loc_00725790: push 0043C9F4h
loc_00725795: push esi
loc_00725796: mov edx, [esi]
loc_00725798: call [edx+000000A4h]
loc_0072579E: test eax, eax
loc_007257A0: fnclex
loc_007257A2: jge 007257B6h
loc_007257A4: push 000000A4h
loc_007257A9: push 0043F42Ch
loc_007257AE: push esi
loc_007257AF: push eax
loc_007257B0: call [004010CCh] ; __vbaHresultCheckObj
loc_007257B6: lea ecx, var_18
loc_007257B9: call edi
loc_007257BB: fwait
loc_007257BC: push 007257D7h
loc_007257C1: jmp 007257D6h
loc_007257C3: lea ecx, var_14
loc_007257C6: call [00401430h] ; __vbaFreeStr
loc_007257CC: lea ecx, var_18
loc_007257CF: call [0040142Ch] ; __vbaFreeObj
loc_007257D5: ret
loc_007257D6: ret
loc_007257D7: mov ecx, var_10
loc_007257DA: pop edi
loc_007257DB: pop esi
loc_007257DC: xor eax, eax
loc_007257DE: mov fs:[00000000h], ecx
loc_007257E5: pop ebx
loc_007257E6: mov esp, ebp
loc_007257E8: pop ebp
loc_007257E9: retn 0004h
End Sub
Private Sub Proc_72_4_7257F0
loc_007257F0: push ebp
loc_007257F1: mov ebp, esp
loc_007257F3: sub esp, 00000008h
loc_007257F6: push 00412856h ; __vbaExceptHandler
loc_007257FB: mov eax, fs:[00000000h]
loc_00725801: push eax
loc_00725802: mov fs:[00000000h], esp
loc_00725809: sub esp, 0000001Ch
loc_0072580C: push ebx
loc_0072580D: push esi
loc_0072580E: push edi
loc_0072580F: mov var_8, esp
loc_00725812: mov var_4, 00411FC0h
loc_00725819: mov esi, Me
loc_0072581C: xor eax, eax
loc_0072581E: mov var_14, eax
loc_00725821: mov var_18, eax
loc_00725824: mov var_1C, eax
loc_00725827: mov eax, [esi]
loc_00725829: push esi
loc_0072582A: call [eax+0000030Ch]
loc_00725830: mov edi, [00401128h] ; __vbaObjSet
loc_00725836: lea ecx, var_18
loc_00725839: push eax
loc_0072583A: push ecx
loc_0072583B: call edi
loc_0072583D: mov ebx, eax
loc_0072583F: lea eax, var_14
loc_00725842: push eax
loc_00725843: push ebx
loc_00725844: mov edx, [ebx]
loc_00725846: call [edx+000000A0h]
loc_0072584C: test eax, eax
loc_0072584E: fnclex
loc_00725850: jge 00725864h
loc_00725852: push 000000A0h
loc_00725857: push 0043F42Ch
loc_0072585C: push ebx
loc_0072585D: push eax
loc_0072585E: call [004010CCh] ; __vbaHresultCheckObj
loc_00725864: mov ecx, var_14
loc_00725867: mov ebx, [00401010h] ; rtcSaveSetting
loc_0072586D: push ecx
loc_0072586E: push 00453860h ; "GoldEmail"
loc_00725873: push 0044317Ch ; "UserInfo"
loc_00725878: push 004537A4h ; "BonziBUDDY"
loc_0072587D: call ebx
loc_0072587F: lea ecx, var_14
loc_00725882: call [00401430h] ; __vbaFreeStr
loc_00725888: lea ecx, var_18
loc_0072588B: call [0040142Ch] ; __vbaFreeObj
loc_00725891: mov edx, [esi]
loc_00725893: push esi
loc_00725894: call [edx+00000304h]
loc_0072589A: push eax
loc_0072589B: lea eax, var_18
loc_0072589E: push eax
loc_0072589F: call edi
loc_007258A1: mov edi, eax
loc_007258A3: lea edx, var_1C
loc_007258A6: push edx
loc_007258A7: push edi
loc_007258A8: mov ecx, [edi]
loc_007258AA: call [ecx+000000E0h]
loc_007258B0: test eax, eax
loc_007258B2: fnclex
loc_007258B4: jge 007258C8h
loc_007258B6: push 000000E0h
loc_007258BB: push 00446678h
loc_007258C0: push edi
loc_007258C1: push eax
loc_007258C2: call [004010CCh] ; __vbaHresultCheckObj
loc_007258C8: xor eax, eax
loc_007258CA: cmp var_1C, 0001h
loc_007258CF: lea ecx, var_18
loc_007258D2: setz al
loc_007258D5: neg eax
loc_007258D7: mov edi, eax
loc_007258D9: call [0040142Ch] ; __vbaFreeObj
loc_007258DF: test di, di
loc_007258E2: jz 0072593Bh
loc_007258E4: push 0044DDBCh ; "-1"
loc_007258E9: push 004537C0h ; "GoldPassRemember"
loc_007258EE: push 0044317Ch ; "UserInfo"
loc_007258F3: push 004537A4h ; "BonziBUDDY"
loc_007258F8: call ebx
loc_007258FA: mov ecx, [esi]
loc_007258FC: push esi
loc_007258FD: call [ecx+00000310h]
loc_00725903: lea edx, var_18
loc_00725906: push eax
loc_00725907: push edx
loc_00725908: call [00401128h] ; __vbaObjSet
loc_0072590E: mov esi, eax
loc_00725910: lea ecx, var_14
loc_00725913: push ecx
loc_00725914: push esi
loc_00725915: mov eax, [esi]
loc_00725917: call [eax+000000A0h]
loc_0072591D: test eax, eax
loc_0072591F: fnclex
loc_00725921: jge 00725935h
loc_00725923: push 000000A0h
loc_00725928: push 0043F42Ch
loc_0072592D: push esi
loc_0072592E: push eax
loc_0072592F: call [004010CCh] ; __vbaHresultCheckObj
loc_00725935: mov edx, var_14
loc_00725938: push edx
loc_00725939: jmp 00725990h
loc_0072593B: push 0044402Ch
loc_00725940: push 004537C0h ; "GoldPassRemember"
loc_00725945: push 0044317Ch ; "UserInfo"
loc_0072594A: push 004537A4h ; "BonziBUDDY"
loc_0072594F: call ebx
loc_00725951: mov eax, [esi]
loc_00725953: push esi
loc_00725954: call [eax+00000310h]
loc_0072595A: lea ecx, var_18
loc_0072595D: push eax
loc_0072595E: push ecx
loc_0072595F: call [00401128h] ; __vbaObjSet
loc_00725965: mov esi, eax
loc_00725967: lea eax, var_14
loc_0072596A: push eax
loc_0072596B: push esi
loc_0072596C: mov edx, [esi]
loc_0072596E: call [edx+000000A0h]
loc_00725974: test eax, eax
loc_00725976: fnclex
loc_00725978: jge 0072598Ch
loc_0072597A: push 000000A0h
loc_0072597F: push 0043F42Ch
loc_00725984: push esi
loc_00725985: push eax
loc_00725986: call [004010CCh] ; __vbaHresultCheckObj
loc_0072598C: mov ecx, var_14
loc_0072598F: push ecx
loc_00725990: push 00453878h ; "GoldPass"
loc_00725995: push 0044317Ch ; "UserInfo"
loc_0072599A: push 004537A4h ; "BonziBUDDY"
loc_0072599F: call ebx
loc_007259A1: lea ecx, var_14
loc_007259A4: call [00401430h] ; __vbaFreeStr
loc_007259AA: lea ecx, var_18
loc_007259AD: call [0040142Ch] ; __vbaFreeObj
loc_007259B3: push 007259CEh
loc_007259B8: jmp 007259CDh
loc_007259BA: lea ecx, var_14
loc_007259BD: call [00401430h] ; __vbaFreeStr
loc_007259C3: lea ecx, var_18
loc_007259C6: call [0040142Ch] ; __vbaFreeObj
loc_007259CC: ret
loc_007259CD: ret
loc_007259CE: mov ecx, var_10
loc_007259D1: pop edi
loc_007259D2: pop esi
loc_007259D3: xor eax, eax
loc_007259D5: mov fs:[00000000h], ecx
loc_007259DC: pop ebx
loc_007259DD: mov esp, ebp
loc_007259DF: pop ebp
loc_007259E0: retn 0004h
End Sub

8973
Src Code/frmGoldOptions.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmGoldOptions.frx
View File

334
Src Code/frmGoldPasswordEntry.frm
View File

@ -0,0 +1,334 @@
VERSION 5.00
Begin VB.Form frmGoldPasswordEntry
Caption = "Please enter your Gold Member Password"
ScaleMode = 0
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmGoldPasswordEntry.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 4410
ClientHeight = 1290
ScaleLeft = 0
ScaleTop = 0
ScaleWidth = 4140.751
ScaleHeight = 762.175
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdOK
Caption = "OK"
Left = 833
Top = 780
Width = 1140
Height = 390
TabIndex = 2
Default = -1 'True
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Left = 2438
Top = 780
Width = 1140
Height = 390
TabIndex = 3
Cancel = -1 'True
End
Begin VB.TextBox txtPassword
Left = 1155
Top = 195
Width = 2445
Height = 405
TabIndex = 1
PasswordChar = "*"
End
Begin VB.Label lblLabels
Caption = "&Password: "
Index = 1
Left = 210
Top = 300
Width = 825
Height = 195
TabIndex = 0
AutoSize = -1 'True
End
End
Attribute VB_Name = "frmGoldPasswordEntry"
Public g_blnGoldLoginSucceeded As Boolean
Private Sub cmdOK_Click() '728140
loc_00728140: push ebp
loc_00728141: mov ebp, esp
loc_00728143: sub esp, 0000000Ch
loc_00728146: push 00412856h ; __vbaExceptHandler
loc_0072814B: mov eax, fs:[00000000h]
loc_00728151: push eax
loc_00728152: mov fs:[00000000h], esp
loc_00728159: sub esp, 00000050h
loc_0072815C: push ebx
loc_0072815D: push esi
loc_0072815E: push edi
loc_0072815F: mov var_C, esp
loc_00728162: mov var_8, 00412158h
loc_00728169: mov edi, Me
loc_0072816C: mov eax, edi
loc_0072816E: and eax, 00000001h
loc_00728171: mov var_4, eax
loc_00728174: and edi, FFFFFFFEh
loc_00728177: push edi
loc_00728178: mov Me, edi
loc_0072817B: mov ecx, [edi]
loc_0072817D: call [ecx+00000004h]
loc_00728180: mov edx, [edi]
loc_00728182: xor ebx, ebx
loc_00728184: push edi
loc_00728185: mov var_18, ebx
loc_00728188: mov var_1C, ebx
loc_0072818B: mov var_20, ebx
loc_0072818E: mov var_30, ebx
loc_00728191: mov var_50, ebx
loc_00728194: call [edx+00000304h]
loc_0072819A: push eax
loc_0072819B: lea eax, var_20
loc_0072819E: push eax
loc_0072819F: call [00401128h] ; __vbaObjSet
loc_007281A5: mov esi, eax
loc_007281A7: lea edx, var_18
loc_007281AA: push edx
loc_007281AB: push esi
loc_007281AC: mov ecx, [esi]
loc_007281AE: call [ecx+000000A0h]
loc_007281B4: cmp eax, ebx
loc_007281B6: fnclex
loc_007281B8: jge 007281CCh
loc_007281BA: push 000000A0h
loc_007281BF: push 0043F42Ch
loc_007281C4: push esi
loc_007281C5: push eax
loc_007281C6: call [004010CCh] ; __vbaHresultCheckObj
loc_007281CC: mov edx, var_18
loc_007281CF: mov ecx, 00000008h
loc_007281D4: push edx
loc_007281D5: mov eax, 0043C9F4h
loc_007281DA: sub esp, 00000010h
loc_007281DD: mov edx, esp
loc_007281DF: push 00453878h ; "GoldPass"
loc_007281E4: push 0044317Ch ; "UserInfo"
loc_007281E9: mov [edx], ecx
loc_007281EB: mov ecx, var_3C
loc_007281EE: push 004537A4h ; "BonziBUDDY"
loc_007281F3: mov [edx+00000004h], ecx
loc_007281F6: mov [edx+00000008h], eax
loc_007281F9: mov eax, var_34
loc_007281FC: mov [edx+0000000Ch], eax
loc_007281FF: call [00401354h] ; rtcGetSetting
loc_00728205: mov edx, eax
loc_00728207: lea ecx, var_1C
loc_0072820A: call [004013C0h] ; __vbaStrMove
loc_00728210: push eax
loc_00728211: call [004011B8h] ; __vbaStrCmp
loc_00728217: mov esi, eax
loc_00728219: lea ecx, var_1C
loc_0072821C: neg esi
loc_0072821E: sbb esi, esi
loc_00728220: lea edx, var_18
loc_00728223: push ecx
loc_00728224: inc esi
loc_00728225: push edx
loc_00728226: push 00000002h
loc_00728228: neg esi
loc_0072822A: call [00401324h] ; __vbaFreeStrList
loc_00728230: mov ebx, [0040142Ch] ; __vbaFreeObj
loc_00728236: add esp, 0000000Ch
loc_00728239: lea ecx, var_20
loc_0072823C: call ebx
loc_0072823E: test si, si
loc_00728241: jz 00728273h
loc_00728243: mov eax, [edi]
loc_00728245: push edi
loc_00728246: mov [edi+00000034h], FFFFFFh
loc_0072824C: call [eax+000002B4h]
loc_00728252: test eax, eax
loc_00728254: fnclex
loc_00728256: jge 00728389h
loc_0072825C: push 000002B4h
loc_00728261: push 004762D4h
loc_00728266: push edi
loc_00728267: push eax
loc_00728268: call [004010CCh] ; __vbaHresultCheckObj
loc_0072826E: jmp 00728389h
loc_00728273: mov eax, [0073A08Ch]
loc_00728278: lea edx, var_20
loc_0072827B: push edx
loc_0072827C: push 004522E4h ; "Sad"
loc_00728281: mov ecx, [eax]
loc_00728283: push eax
loc_00728284: call [ecx+00000064h]
loc_00728287: test eax, eax
loc_00728289: fnclex
loc_0072828B: jge 007282A2h
loc_0072828D: mov ecx, [0073A08Ch]
loc_00728293: push 00000064h
loc_00728295: push 004419ACh
loc_0072829A: push ecx
loc_0072829B: push eax
loc_0072829C: call [004010CCh] ; __vbaHresultCheckObj
loc_007282A2: lea ecx, var_20
loc_007282A5: call ebx
loc_007282A7: lea ebx, var_20
loc_007282AA: mov ecx, 0000000Ah
loc_007282AF: push ebx
loc_007282B0: mov eax, 80020004h
loc_007282B5: sub esp, 00000010h
loc_007282B8: mov esi, [0073A08Ch]
loc_007282BE: mov ebx, esp
loc_007282C0: sub esp, 00000010h
loc_007282C3: mov var_40, 00000008h
loc_007282CA: mov esi, [esi]
loc_007282CC: mov [ebx], ecx
loc_007282CE: mov ecx, var_4C
loc_007282D1: mov edx, 00476324h ; "Invalid password, please try again!"
loc_007282D6: mov [ebx+00000004h], ecx
loc_007282D9: mov ecx, esp
loc_007282DB: mov [ebx+00000008h], eax
loc_007282DE: mov eax, var_44
loc_007282E1: mov [ebx+0000000Ch], eax
loc_007282E4: mov eax, var_40
loc_007282E7: mov [ecx], eax
loc_007282E9: mov eax, var_3C
loc_007282EC: mov [ecx+00000004h], eax
loc_007282EF: mov eax, [0073A08Ch]
loc_007282F4: push eax
loc_007282F5: mov [ecx+00000008h], edx
loc_007282F8: mov edx, var_34
loc_007282FB: mov [ecx+0000000Ch], edx
loc_007282FE: call [esi+00000078h]
loc_00728301: test eax, eax
loc_00728303: fnclex
loc_00728305: jge 0072831Ch
loc_00728307: mov ecx, [0073A08Ch]
loc_0072830D: push 00000078h
loc_0072830F: push 004419ACh
loc_00728314: push ecx
loc_00728315: push eax
loc_00728316: call [004010CCh] ; __vbaHresultCheckObj
loc_0072831C: mov ebx, [0040142Ch] ; __vbaFreeObj
loc_00728322: lea ecx, var_20
loc_00728325: call ebx
loc_00728327: mov edx, [edi]
loc_00728329: push edi
loc_0072832A: call [edx+00000304h]
loc_00728330: push eax
loc_00728331: lea eax, var_20
loc_00728334: push eax
loc_00728335: call [00401128h] ; __vbaObjSet
loc_0072833B: mov esi, eax
loc_0072833D: push esi
loc_0072833E: mov ecx, [esi]
loc_00728340: call [ecx+00000204h]
loc_00728346: test eax, eax
loc_00728348: fnclex
loc_0072834A: jge 0072835Eh
loc_0072834C: push 00000204h
loc_00728351: push 0043F42Ch
loc_00728356: push esi
loc_00728357: push eax
loc_00728358: call [004010CCh] ; __vbaHresultCheckObj
loc_0072835E: lea ecx, var_20
loc_00728361: call ebx
loc_00728363: lea edx, var_30
loc_00728366: mov var_28, 80020004h
loc_0072836D: push edx
loc_0072836E: push 00476370h ; "{Home}+{End}"
loc_00728373: mov var_30, 0000000Ah
loc_0072837A: call [00401140h] ; rtcSendKeys
loc_00728380: lea ecx, var_30
loc_00728383: call [00401030h] ; __vbaFreeVar
loc_00728389: mov var_4, 00000000h
loc_00728390: push 007283BEh
loc_00728395: jmp 007283BDh
loc_00728397: lea eax, var_1C
loc_0072839A: lea ecx, var_18
loc_0072839D: push eax
loc_0072839E: push ecx
loc_0072839F: push 00000002h
loc_007283A1: call [00401324h] ; __vbaFreeStrList
loc_007283A7: add esp, 0000000Ch
loc_007283AA: lea ecx, var_20
loc_007283AD: call [0040142Ch] ; __vbaFreeObj
loc_007283B3: lea ecx, var_30
loc_007283B6: call [00401030h] ; __vbaFreeVar
loc_007283BC: ret
loc_007283BD: ret
loc_007283BE: mov eax, Me
loc_007283C1: push eax
loc_007283C2: mov edx, [eax]
loc_007283C4: call [edx+00000008h]
loc_007283C7: mov eax, var_4
loc_007283CA: mov ecx, var_14
loc_007283CD: pop edi
loc_007283CE: pop esi
loc_007283CF: mov fs:[00000000h], ecx
loc_007283D6: pop ebx
loc_007283D7: mov esp, ebp
loc_007283D9: pop ebp
loc_007283DA: retn 0004h
End Sub
Private Sub cmdCancel_Click() '7280B0
loc_007280B0: push ebp
loc_007280B1: mov ebp, esp
loc_007280B3: sub esp, 0000000Ch
loc_007280B6: push 00412856h ; __vbaExceptHandler
loc_007280BB: mov eax, fs:[00000000h]
loc_007280C1: push eax
loc_007280C2: mov fs:[00000000h], esp
loc_007280C9: sub esp, 0000000Ch
loc_007280CC: push ebx
loc_007280CD: push esi
loc_007280CE: push edi
loc_007280CF: mov var_C, esp
loc_007280D2: mov var_8, 00412150h
loc_007280D9: mov esi, Me
loc_007280DC: mov eax, esi
loc_007280DE: and eax, 00000001h
loc_007280E1: mov var_4, eax
loc_007280E4: and esi, FFFFFFFEh
loc_007280E7: push esi
loc_007280E8: mov Me, esi
loc_007280EB: mov ecx, [esi]
loc_007280ED: call [ecx+00000004h]
loc_007280F0: mov edx, [esi]
loc_007280F2: xor edi, edi
loc_007280F4: push esi
loc_007280F5: mov [esi+00000034h], di
loc_007280F9: call [edx+000002B4h]
loc_007280FF: cmp eax, edi
loc_00728101: fnclex
loc_00728103: jge 00728117h
loc_00728105: push 000002B4h
loc_0072810A: push 004762D4h
loc_0072810F: push esi
loc_00728110: push eax
loc_00728111: call [004010CCh] ; __vbaHresultCheckObj
loc_00728117: mov var_4, edi
loc_0072811A: mov eax, Me
loc_0072811D: push eax
loc_0072811E: mov ecx, [eax]
loc_00728120: call [ecx+00000008h]
loc_00728123: mov eax, var_4
loc_00728126: mov ecx, var_14
loc_00728129: pop edi
loc_0072812A: pop esi
loc_0072812B: mov fs:[00000000h], ecx
loc_00728132: pop ebx
loc_00728133: mov esp, ebp
loc_00728135: pop ebp
loc_00728136: retn 0004h
End Sub

BIN
Src Code/frmGoldPasswordEntry.frx
View File

990
Src Code/frmInput.frm
View File

@ -0,0 +1,990 @@
VERSION 5.00
Begin VB.Form frmInput
Caption = "Form1"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
Icon = "frmInput.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 4680
ClientHeight = 3330
LockControls = -1 'True
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdOK
Caption = "&OK"
Left = 780
Top = 2670
Width = 1155
Height = 405
TabIndex = 1
Default = -1 'True
End
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
Left = 2640
Top = 2670
Width = 1155
Height = 405
TabIndex = 2
End
Begin VB.Frame fraQuestion
Left = 90
Top = 1350
Width = 4455
Height = 1005
TabIndex = 3
Begin VB.TextBox txtAnswer
Left = 150
Top = 390
Width = 4155
Height = 345
TabIndex = 0
MultiLine = -1 'True
End
End
Begin VB.Label lblDescription
Left = 270
Top = 210
Width = 4125
Height = 915
TabIndex = 4
End
End
Attribute VB_Name = "frmInput"
'VA: 477474
Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
'VA: 474B2C
Private Declare Function GetFocus Lib "user32" () As Long
'VA: 474AE8
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
'VA: 474AA4
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
'VA: 474A5C
Private Declare Sub OleTranslateColor Lib "olepro32"()
'VA: 474A14
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
'VA: 4749D0
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'VA: 47496C
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
'VA: 474928
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'VA: 4748E4
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
'VA: 47489C
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'VA: 474850
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
'VA: 474808
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
'VA: 4747C0
Private Declare Function InflateRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
'VA: 47477C
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
'VA: 4567E8
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
'VA: 4567A4
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
'VA: 456758
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
'VA: 44D838
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
'VA: 44D7F4
Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
'VA: 44D5E8
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
'VA: 44D5A4
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'VA: 44CE84
Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
'VA: 44C904
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
'VA: 4482F4
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'VA: 447A74
Private Declare Function GetStretchBltMode Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 44748C
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'VA: 446970
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'VA: 44690C
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'VA: 4468C4
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
'VA: 446880
Private Declare Function ReleaseCapture Lib "user32" () As Long
'VA: 446838
Private Declare Function GetUpdateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
'VA: 4467F0
Private Declare Function GetTickCount Lib "kernel32" () As Long
'VA: 4467A8
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'VA: 4433BC
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
'VA: 4414F0
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'VA: 4408BC
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
'VA: 440874
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long
'VA: 440828
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
'VA: 4407E0
Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'VA: 44079C
Private Declare Function RasGetConnectStatus Lib "rasapi32" Alias "RasGetConnectStatusA" (ByVal hrasconn As Long, ByRef lprasconnstatusa As RASCONNSTATUS) As Long
'VA: 44074C
Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" (ByRef lprasconna As RASCONN, ByRef lpdword As Long, ByRef lpdword As Long) As Long
'VA: 4406EC
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'VA: 44069C
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
'VA: 44065C
Private Declare Function ShowOwnedPopups Lib "user32" (ByVal hwnd As Long, ByVal fShow As Long) As Long
'VA: 440614
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
'VA: 4405A0
Private Declare Function GetSaveFileName Lib "comdlg32" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
'VA: 43E468
Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
'VA: 43DEC4
Private Declare Function AllowSetForegroundWindow Lib "user32" (ByVal dwProcessId As Long) As Long
'VA: 43D8B4
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
'VA: 43D870
Private Declare Function DrawFrameControl Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
'VA: 43D824
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
'VA: 43D7DC
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43D7A4
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43D760
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
'VA: 43D71C
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
'VA: 43D6D8
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'VA: 43D694
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'VA: 43D650
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
'VA: 43D610
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
'VA: 43D5AC
Private Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, lpRect As Rect, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long
'VA: 43D568
Private Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, lpRect As Rect, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long
'VA: 43D524
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
'VA: 43D4E0
Private Declare Function GetCurrentPositionEx Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI) As Long
'VA: 43D490
Private Declare Function GetLastError Lib "kernel32" () As Long
'VA: 43D448
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long
'VA: 43D400
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
'VA: 43D3B8
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'VA: 43D36C
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
'VA: 43D328
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
'VA: 43D2DC
Private Declare Function OleTranslateColor Lib "oleaut32" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long
'VA: 43D27C
Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
'VA: 43D234
Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long
'VA: 43D1F0
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long
'VA: 43D1A0
Private Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
'VA: 43D15C
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'VA: 43D114
Private Declare Function CreateHalftonePalette Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43D0C4
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'VA: 43D05C
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'VA: 43D018
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43CFD0
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
'VA: 43CF88
Private Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43CF40
Private Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43CEFC
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
'VA: 43CEB4
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
'VA: 43CE6C
Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
'VA: 43CE2C
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'VA: 43CDEC
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
'VA: 43CDA8
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
'VA: 43CD64
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
'VA: 43CD1C
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
'VA: 43CCD0
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
'VA: 43CC80
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43CC3C
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
'VA: 43CBF0
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
'VA: 43CBAC
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'VA: 43CB6C
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
'VA: 43CB08
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub cmdCancel_Click() '5BD590
loc_005BD590: push ebp
loc_005BD591: mov ebp, esp
loc_005BD593: sub esp, 0000000Ch
loc_005BD596: push 00412856h ; __vbaExceptHandler
loc_005BD59B: mov eax, fs:[00000000h]
loc_005BD5A1: push eax
loc_005BD5A2: mov fs:[00000000h], esp
loc_005BD5A9: sub esp, 0000001Ch
loc_005BD5AC: push ebx
loc_005BD5AD: push esi
loc_005BD5AE: push edi
loc_005BD5AF: mov var_C, esp
loc_005BD5B2: mov var_8, 00401440h
loc_005BD5B9: mov esi, Me
loc_005BD5BC: mov eax, esi
loc_005BD5BE: and eax, 00000001h
loc_005BD5C1: mov var_4, eax
loc_005BD5C4: and esi, FFFFFFFEh
loc_005BD5C7: push esi
loc_005BD5C8: mov Me, esi
loc_005BD5CB: mov ecx, [esi]
loc_005BD5CD: call [ecx+00000004h]
loc_005BD5D0: mov edx, [esi]
loc_005BD5D2: xor ebx, ebx
loc_005BD5D4: push esi
loc_005BD5D5: mov var_18, ebx
loc_005BD5D8: mov var_1C, ebx
loc_005BD5DB: mov var_20, ebx
loc_005BD5DE: call [edx+00000308h]
loc_005BD5E4: push eax
loc_005BD5E5: lea eax, var_18
loc_005BD5E8: push eax
loc_005BD5E9: call [00401128h] ; __vbaObjSet
loc_005BD5EF: mov edi, eax
loc_005BD5F1: push 0043C9F4h
loc_005BD5F6: push edi
loc_005BD5F7: mov ecx, [edi]
loc_005BD5F9: call [ecx+000000A4h]
loc_005BD5FF: cmp eax, ebx
loc_005BD601: fnclex
loc_005BD603: jge 005BD617h
loc_005BD605: push 000000A4h
loc_005BD60A: push 0043F42Ch
loc_005BD60F: push edi
loc_005BD610: push eax
loc_005BD611: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD617: mov edi, [0040142Ch] ; __vbaFreeObj
loc_005BD61D: lea ecx, var_18
loc_005BD620: call edi
loc_005BD622: push 00440B00h
loc_005BD627: push esi
loc_005BD628: mov var_20, ebx
loc_005BD62B: mov var_1C, ebx
loc_005BD62E: call [004013C4h] ; __vbaCastObj
loc_005BD634: lea edx, var_18
loc_005BD637: push eax
loc_005BD638: push edx
loc_005BD639: call [00401128h] ; __vbaObjSet
loc_005BD63F: mov eax, [0073A218h]
loc_005BD644: lea edx, var_20
loc_005BD647: push edx
loc_005BD648: lea edx, var_1C
loc_005BD64B: mov ecx, [eax]
loc_005BD64D: push edx
loc_005BD64E: lea edx, var_18
loc_005BD651: push edx
loc_005BD652: push eax
loc_005BD653: call [ecx+0000001Ch]
loc_005BD656: cmp eax, ebx
loc_005BD658: fnclex
loc_005BD65A: jge 005BD671h
loc_005BD65C: mov ecx, [0073A218h]
loc_005BD662: push 0000001Ch
loc_005BD664: push 00440B10h
loc_005BD669: push ecx
loc_005BD66A: push eax
loc_005BD66B: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD671: lea ecx, var_18
loc_005BD674: call edi
loc_005BD676: mov edx, [esi]
loc_005BD678: push esi
loc_005BD679: call [edx+000002B4h]
loc_005BD67F: cmp eax, ebx
loc_005BD681: fnclex
loc_005BD683: jge 005BD697h
loc_005BD685: push 000002B4h
loc_005BD68A: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
loc_005BD68F: push esi
loc_005BD690: push eax
loc_005BD691: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD697: mov var_4, ebx
loc_005BD69A: push 005BD6ACh
loc_005BD69F: jmp 005BD6ABh
loc_005BD6A1: lea ecx, var_18
loc_005BD6A4: call [0040142Ch] ; __vbaFreeObj
loc_005BD6AA: ret
loc_005BD6AB: ret
loc_005BD6AC: mov eax, Me
loc_005BD6AF: push eax
loc_005BD6B0: mov ecx, [eax]
loc_005BD6B2: call [ecx+00000008h]
loc_005BD6B5: mov eax, var_4
loc_005BD6B8: mov ecx, var_14
loc_005BD6BB: pop edi
loc_005BD6BC: pop esi
loc_005BD6BD: mov fs:[00000000h], ecx
loc_005BD6C4: pop ebx
loc_005BD6C5: mov esp, ebp
loc_005BD6C7: pop ebp
loc_005BD6C8: retn 0004h
End Sub
Private Sub Form_Load() '5BDD60
loc_005BDD60: push ebp
loc_005BDD61: mov ebp, esp
loc_005BDD63: sub esp, 0000000Ch
loc_005BDD66: push 00412856h ; __vbaExceptHandler
loc_005BDD6B: mov eax, fs:[00000000h]
loc_005BDD71: push eax
loc_005BDD72: mov fs:[00000000h], esp
loc_005BDD79: sub esp, 0000000Ch
loc_005BDD7C: push ebx
loc_005BDD7D: push esi
loc_005BDD7E: push edi
loc_005BDD7F: mov var_C, esp
loc_005BDD82: mov var_8, 00401480h
loc_005BDD89: mov esi, Me
loc_005BDD8C: mov eax, esi
loc_005BDD8E: and eax, 00000001h
loc_005BDD91: mov var_4, eax
loc_005BDD94: and esi, FFFFFFFEh
loc_005BDD97: push esi
loc_005BDD98: mov Me, esi
loc_005BDD9B: mov ecx, [esi]
loc_005BDD9D: call [ecx+00000004h]
loc_005BDDA0: mov edx, [esi]
loc_005BDDA2: push FFFFFFFFh
loc_005BDDA4: push esi
loc_005BDDA5: call [edx+000001D4h]
loc_005BDDAB: test eax, eax
loc_005BDDAD: fnclex
loc_005BDDAF: jge 005BDDC3h
loc_005BDDB1: push 000001D4h
loc_005BDDB6: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
loc_005BDDBB: push esi
loc_005BDDBC: push eax
loc_005BDDBD: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDDC3: mov var_4, 00000000h
loc_005BDDCA: mov eax, Me
loc_005BDDCD: push eax
loc_005BDDCE: mov ecx, [eax]
loc_005BDDD0: call [ecx+00000008h]
loc_005BDDD3: mov eax, var_4
loc_005BDDD6: mov ecx, var_14
loc_005BDDD9: pop edi
loc_005BDDDA: pop esi
loc_005BDDDB: mov fs:[00000000h], ecx
loc_005BDDE2: pop ebx
loc_005BDDE3: mov esp, ebp
loc_005BDDE5: pop ebp
loc_005BDDE6: retn 0004h
End Sub
Private Sub Form_Activate() '5BD7D0
loc_005BD7D0: push ebp
loc_005BD7D1: mov ebp, esp
loc_005BD7D3: sub esp, 0000000Ch
loc_005BD7D6: push 00412856h ; __vbaExceptHandler
loc_005BD7DB: mov eax, fs:[00000000h]
loc_005BD7E1: push eax
loc_005BD7E2: mov fs:[00000000h], esp
loc_005BD7E9: sub esp, 0000001Ch
loc_005BD7EC: push ebx
loc_005BD7ED: push esi
loc_005BD7EE: push edi
loc_005BD7EF: mov var_C, esp
loc_005BD7F2: mov var_8, 00401460h
loc_005BD7F9: mov esi, Me
loc_005BD7FC: mov eax, esi
loc_005BD7FE: and eax, 00000001h
loc_005BD801: mov var_4, eax
loc_005BD804: and esi, FFFFFFFEh
loc_005BD807: push esi
loc_005BD808: mov Me, esi
loc_005BD80B: mov ecx, [esi]
loc_005BD80D: call [ecx+00000004h]
loc_005BD810: mov edx, [esi]
loc_005BD812: xor eax, eax
loc_005BD814: push esi
loc_005BD815: mov var_18, eax
loc_005BD818: mov var_1C, eax
loc_005BD81B: call [edx+00000308h]
loc_005BD821: mov ebx, [00401128h] ; __vbaObjSet
loc_005BD827: push eax
loc_005BD828: lea eax, var_18
loc_005BD82B: push eax
loc_005BD82C: call ebx
loc_005BD82E: mov edi, eax
loc_005BD830: lea edx, var_1C
loc_005BD833: push edx
loc_005BD834: push edi
loc_005BD835: mov ecx, [edi]
loc_005BD837: call [ecx+00000090h]
loc_005BD83D: test eax, eax
loc_005BD83F: fnclex
loc_005BD841: jge 005BD855h
loc_005BD843: push 00000090h
loc_005BD848: push 0043F42Ch
loc_005BD84D: push edi
loc_005BD84E: push eax
loc_005BD84F: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD855: mov edi, var_1C
loc_005BD858: lea ecx, var_18
loc_005BD85B: call [0040142Ch] ; __vbaFreeObj
loc_005BD861: test di, di
loc_005BD864: jz 005BD8A2h
loc_005BD866: mov eax, [esi]
loc_005BD868: push esi
loc_005BD869: call [eax+00000308h]
loc_005BD86F: lea ecx, var_18
loc_005BD872: push eax
loc_005BD873: push ecx
loc_005BD874: call ebx
loc_005BD876: mov edi, eax
loc_005BD878: push edi
loc_005BD879: mov edx, [edi]
loc_005BD87B: call [edx+00000204h]
loc_005BD881: test eax, eax
loc_005BD883: fnclex
loc_005BD885: jge 005BD899h
loc_005BD887: push 00000204h
loc_005BD88C: push 0043F42Ch
loc_005BD891: push edi
loc_005BD892: push eax
loc_005BD893: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD899: lea ecx, var_18
loc_005BD89C: call [0040142Ch] ; __vbaFreeObj
loc_005BD8A2: push 00440B00h
loc_005BD8A7: push esi
loc_005BD8A8: mov var_1C, 00000000h
loc_005BD8AF: call [004013C4h] ; __vbaCastObj
loc_005BD8B5: push eax
loc_005BD8B6: lea eax, var_18
loc_005BD8B9: push eax
loc_005BD8BA: call ebx
loc_005BD8BC: mov eax, [0073A218h]
loc_005BD8C1: lea edx, var_1C
loc_005BD8C4: push edx
loc_005BD8C5: lea edx, var_18
loc_005BD8C8: mov ecx, [eax]
loc_005BD8CA: push edx
loc_005BD8CB: push eax
loc_005BD8CC: call [ecx+00000020h]
loc_005BD8CF: test eax, eax
loc_005BD8D1: fnclex
loc_005BD8D3: jge 005BD8EAh
loc_005BD8D5: mov ecx, [0073A218h]
loc_005BD8DB: push 00000020h
loc_005BD8DD: push 00440B10h
loc_005BD8E2: push ecx
loc_005BD8E3: push eax
loc_005BD8E4: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD8EA: lea ecx, var_18
loc_005BD8ED: call [0040142Ch] ; __vbaFreeObj
loc_005BD8F3: mov var_4, 00000000h
loc_005BD8FA: push 005BD90Ch
loc_005BD8FF: jmp 005BD90Bh
loc_005BD901: lea ecx, var_18
loc_005BD904: call [0040142Ch] ; __vbaFreeObj
loc_005BD90A: ret
loc_005BD90B: ret
loc_005BD90C: mov eax, Me
loc_005BD90F: push eax
loc_005BD910: mov edx, [eax]
loc_005BD912: call [edx+00000008h]
loc_005BD915: mov eax, var_4
loc_005BD918: mov ecx, var_14
loc_005BD91B: pop edi
loc_005BD91C: pop esi
loc_005BD91D: mov fs:[00000000h], ecx
loc_005BD924: pop ebx
loc_005BD925: mov esp, ebp
loc_005BD927: pop ebp
loc_005BD928: retn 0004h
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) '5BD930
loc_005BD930: push ebp
loc_005BD931: mov ebp, esp
loc_005BD933: sub esp, 0000000Ch
loc_005BD936: push 00412856h ; __vbaExceptHandler
loc_005BD93B: mov eax, fs:[00000000h]
loc_005BD941: push eax
loc_005BD942: mov fs:[00000000h], esp
loc_005BD949: sub esp, 00000040h
loc_005BD94C: push ebx
loc_005BD94D: push esi
loc_005BD94E: push edi
loc_005BD94F: mov var_C, esp
loc_005BD952: mov var_8, 00401470h
loc_005BD959: mov edi, Me
loc_005BD95C: mov eax, edi
loc_005BD95E: and eax, 00000001h
loc_005BD961: mov var_4, eax
loc_005BD964: and edi, FFFFFFFEh
loc_005BD967: push edi
loc_005BD968: mov Me, edi
loc_005BD96B: mov ecx, [edi]
loc_005BD96D: call [ecx+00000004h]
loc_005BD970: mov edx, KeyCode
loc_005BD973: xor ebx, ebx
loc_005BD975: mov var_18, ebx
loc_005BD978: mov var_1C, ebx
loc_005BD97B: cmp [edx], 0070h
loc_005BD97F: mov var_2C, ebx
loc_005BD982: mov var_3C, ebx
loc_005BD985: jnz 005BDD1Ah
loc_005BD98B: cmp [0073A254h], ebx
loc_005BD991: jnz 005BD9A3h
loc_005BD993: push 0073A254h
loc_005BD998: push 00431838h
loc_005BD99D: call [004012FCh] ; __vbaNew2
loc_005BD9A3: mov eax, [0073A254h]
loc_005BD9A8: push eax
loc_005BD9A9: call 00695250h
loc_005BD9AE: mov ecx, [edi]
loc_005BD9B0: push edi
loc_005BD9B1: call [ecx+0000030Ch]
loc_005BD9B7: lea edx, var_1C
loc_005BD9BA: push eax
loc_005BD9BB: push edx
loc_005BD9BC: call [00401128h] ; __vbaObjSet
loc_005BD9C2: mov esi, eax
loc_005BD9C4: lea ecx, var_18
loc_005BD9C7: push ecx
loc_005BD9C8: push esi
loc_005BD9C9: mov eax, [esi]
loc_005BD9CB: call [eax+00000050h]
loc_005BD9CE: cmp eax, ebx
loc_005BD9D0: fnclex
loc_005BD9D2: jge 005BD9E3h
loc_005BD9D4: push 00000050h
loc_005BD9D6: push 00441988h
loc_005BD9DB: push esi
loc_005BD9DC: push eax
loc_005BD9DD: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD9E3: mov edx, var_18
loc_005BD9E6: push edx
loc_005BD9E7: push 0043B364h ; "Let's Travel! Simply enter the web site address below and off we go! (ie: www.bonzi.com)"
loc_005BD9EC: call [004011B8h] ; __vbaStrCmp
loc_005BD9F2: mov esi, eax
loc_005BD9F4: lea ecx, var_18
loc_005BD9F7: neg esi
loc_005BD9F9: sbb esi, esi
loc_005BD9FB: inc esi
loc_005BD9FC: neg esi
loc_005BD9FE: call [00401430h] ; __vbaFreeStr
loc_005BDA04: mov ebx, [0040142Ch] ; __vbaFreeObj
loc_005BDA0A: lea ecx, var_1C
loc_005BDA0D: call ebx
loc_005BDA0F: test si, si
loc_005BDA12: jz 005BDAC6h
loc_005BDA18: mov eax, [0073A08Ch]
loc_005BDA1D: lea edx, var_1C
loc_005BDA20: push edx
loc_005BDA21: push 0044199Ch ; "Suggest"
loc_005BDA26: mov ecx, [eax]
loc_005BDA28: push eax
loc_005BDA29: call [ecx+00000064h]
loc_005BDA2C: test eax, eax
loc_005BDA2E: fnclex
loc_005BDA30: jge 005BDA47h
loc_005BDA32: mov ecx, [0073A08Ch]
loc_005BDA38: push 00000064h
loc_005BDA3A: push 004419ACh
loc_005BDA3F: push ecx
loc_005BDA40: push eax
loc_005BDA41: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDA47: lea ecx, var_1C
loc_005BDA4A: call ebx
loc_005BDA4C: lea edi, var_1C
loc_005BDA4F: mov ecx, 0000000Ah
loc_005BDA54: push edi
loc_005BDA55: mov eax, 80020004h
loc_005BDA5A: sub esp, 00000010h
loc_005BDA5D: mov esi, [0073A08Ch]
loc_005BDA63: mov edi, esp
loc_005BDA65: sub esp, 00000010h
loc_005BDA68: mov esi, [esi]
loc_005BDA6A: mov edx, 004419DCh ; "Having trouble? Let me help you. Enter the web site below and click on the 'OK' button. For example, if you want to go to the \ctx=""EMAIL""\bonzi.com site, you would enter \ctx=""EMAIL""\www.bonzi.com."
loc_005BDA6F: mov [edi], ecx
loc_005BDA71: mov ecx, var_38
loc_005BDA74: mov [edi+00000004h], ecx
loc_005BDA77: mov ecx, esp
loc_005BDA79: mov [edi+00000008h], eax
loc_005BDA7C: mov eax, var_30
loc_005BDA7F: mov [edi+0000000Ch], eax
loc_005BDA82: mov eax, 00000008h
loc_005BDA87: mov [ecx], eax
loc_005BDA89: mov eax, var_28
loc_005BDA8C: mov [ecx+00000004h], eax
loc_005BDA8F: mov eax, [0073A08Ch]
loc_005BDA94: push eax
loc_005BDA95: mov [ecx+00000008h], edx
loc_005BDA98: mov edx, var_20
loc_005BDA9B: mov [ecx+0000000Ch], edx
loc_005BDA9E: call [esi+00000078h]
loc_005BDAA1: test eax, eax
loc_005BDAA3: fnclex
loc_005BDAA5: jge 005BDABCh
loc_005BDAA7: mov ecx, [0073A08Ch]
loc_005BDAAD: push 00000078h
loc_005BDAAF: push 004419ACh
loc_005BDAB4: push ecx
loc_005BDAB5: push eax
loc_005BDAB6: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDABC: lea ecx, var_1C
loc_005BDABF: call ebx
loc_005BDAC1: jmp 005BDCD3h
loc_005BDAC6: mov edx, [edi]
loc_005BDAC8: push edi
loc_005BDAC9: call [edx+0000030Ch]
loc_005BDACF: push eax
loc_005BDAD0: lea eax, var_1C
loc_005BDAD3: push eax
loc_005BDAD4: call [00401128h] ; __vbaObjSet
loc_005BDADA: mov esi, eax
loc_005BDADC: lea edx, var_18
loc_005BDADF: push edx
loc_005BDAE0: push esi
loc_005BDAE1: mov ecx, [esi]
loc_005BDAE3: call [ecx+00000050h]
loc_005BDAE6: test eax, eax
loc_005BDAE8: fnclex
loc_005BDAEA: jge 005BDAFBh
loc_005BDAEC: push 00000050h
loc_005BDAEE: push 00441988h
loc_005BDAF3: push esi
loc_005BDAF4: push eax
loc_005BDAF5: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDAFB: mov eax, var_18
loc_005BDAFE: push eax
loc_005BDAFF: push 0043B248h ; "What are we looking for? Enter search word(s) or topic(s) below and we'll travel the world until we find it!"
loc_005BDB04: call [004011B8h] ; __vbaStrCmp
loc_005BDB0A: mov esi, eax
loc_005BDB0C: lea ecx, var_18
loc_005BDB0F: neg esi
loc_005BDB11: sbb esi, esi
loc_005BDB13: inc esi
loc_005BDB14: neg esi
loc_005BDB16: call [00401430h] ; __vbaFreeStr
loc_005BDB1C: lea ecx, var_1C
loc_005BDB1F: call ebx
loc_005BDB21: test si, si
loc_005BDB24: jz 005BDBC2h
loc_005BDB2A: mov eax, [0073A08Ch]
loc_005BDB2F: lea edx, var_1C
loc_005BDB32: push edx
loc_005BDB33: push 0044199Ch ; "Suggest"
loc_005BDB38: mov ecx, [eax]
loc_005BDB3A: push eax
loc_005BDB3B: call [ecx+00000064h]
loc_005BDB3E: test eax, eax
loc_005BDB40: fnclex
loc_005BDB42: jge 005BDB59h
loc_005BDB44: mov ecx, [0073A08Ch]
loc_005BDB4A: push 00000064h
loc_005BDB4C: push 004419ACh
loc_005BDB51: push ecx
loc_005BDB52: push eax
loc_005BDB53: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDB59: lea ecx, var_1C
loc_005BDB5C: call ebx
loc_005BDB5E: lea ebx, var_1C
loc_005BDB61: mov ecx, 0000000Ah
loc_005BDB66: push ebx
loc_005BDB67: mov eax, 80020004h
loc_005BDB6C: sub esp, 00000010h
loc_005BDB6F: mov edi, [0073A08Ch]
loc_005BDB75: mov ebx, esp
loc_005BDB77: sub esp, 00000010h
loc_005BDB7A: mov esi, 00000008h
loc_005BDB7F: mov edi, [edi]
loc_005BDB81: mov [ebx], ecx
loc_005BDB83: mov ecx, var_38
loc_005BDB86: mov edx, 00441B90h ; "Having trouble? Let me help you. Enter the words or phrases you would like me to search the web for and click on the 'OK' button."
loc_005BDB8B: mov [ebx+00000004h], ecx
loc_005BDB8E: mov ecx, esp
loc_005BDB90: mov [ebx+00000008h], eax
loc_005BDB93: mov eax, var_30
loc_005BDB96: mov [ebx+0000000Ch], eax
loc_005BDB99: mov eax, var_28
loc_005BDB9C: mov [ecx], esi
loc_005BDB9E: mov [ecx+00000004h], eax
loc_005BDBA1: mov eax, [0073A08Ch]
loc_005BDBA6: push eax
loc_005BDBA7: mov [ecx+00000008h], edx
loc_005BDBAA: mov edx, var_20
loc_005BDBAD: mov [ecx+0000000Ch], edx
loc_005BDBB0: call [edi+00000078h]
loc_005BDBB3: test eax, eax
loc_005BDBB5: fnclex
loc_005BDBB7: jge 005BDCCAh
loc_005BDBBD: jmp 005BDCB5h
loc_005BDBC2: mov edx, [edi]
loc_005BDBC4: push edi
loc_005BDBC5: call [edx+0000030Ch]
loc_005BDBCB: push eax
loc_005BDBCC: lea eax, var_1C
loc_005BDBCF: push eax
loc_005BDBD0: call [00401128h] ; __vbaObjSet
loc_005BDBD6: mov esi, eax
loc_005BDBD8: lea edx, var_18
loc_005BDBDB: push edx
loc_005BDBDC: push esi
loc_005BDBDD: mov ecx, [esi]
loc_005BDBDF: call [ecx+00000050h]
loc_005BDBE2: test eax, eax
loc_005BDBE4: fnclex
loc_005BDBE6: jge 005BDBF7h
loc_005BDBE8: push 00000050h
loc_005BDBEA: push 00441988h
loc_005BDBEF: push esi
loc_005BDBF0: push eax
loc_005BDBF1: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDBF7: mov eax, var_18
loc_005BDBFA: push eax
loc_005BDBFB: push 0043B41Ch ; "Enter your name or a name that you would like to be called and press OK."
loc_005BDC00: call [004011B8h] ; __vbaStrCmp
loc_005BDC06: mov esi, eax
loc_005BDC08: lea ecx, var_18
loc_005BDC0B: neg esi
loc_005BDC0D: sbb esi, esi
loc_005BDC0F: inc esi
loc_005BDC10: neg esi
loc_005BDC12: call [00401430h] ; __vbaFreeStr
loc_005BDC18: lea ecx, var_1C
loc_005BDC1B: call ebx
loc_005BDC1D: test si, si
loc_005BDC20: jz 005BDCD3h
loc_005BDC26: mov eax, [0073A08Ch]
loc_005BDC2B: lea edx, var_1C
loc_005BDC2E: push edx
loc_005BDC2F: push 0044199Ch ; "Suggest"
loc_005BDC34: mov ecx, [eax]
loc_005BDC36: push eax
loc_005BDC37: call [ecx+00000064h]
loc_005BDC3A: test eax, eax
loc_005BDC3C: fnclex
loc_005BDC3E: jge 005BDC55h
loc_005BDC40: mov ecx, [0073A08Ch]
loc_005BDC46: push 00000064h
loc_005BDC48: push 004419ACh
loc_005BDC4D: push ecx
loc_005BDC4E: push eax
loc_005BDC4F: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDC55: lea ecx, var_1C
loc_005BDC58: call ebx
loc_005BDC5A: lea ebx, var_1C
loc_005BDC5D: mov ecx, 0000000Ah
loc_005BDC62: push ebx
loc_005BDC63: mov eax, 80020004h
loc_005BDC68: sub esp, 00000010h
loc_005BDC6B: mov edi, [0073A08Ch]
loc_005BDC71: mov ebx, esp
loc_005BDC73: sub esp, 00000010h
loc_005BDC76: mov esi, 00000008h
loc_005BDC7B: mov edi, [edi]
loc_005BDC7D: mov [ebx], ecx
loc_005BDC7F: mov ecx, var_38
loc_005BDC82: mov edx, 00441C9Ch ; "Having trouble? Let me help you. Tell me your name or salutation below. This is how I will address you."
loc_005BDC87: mov [ebx+00000004h], ecx
loc_005BDC8A: mov ecx, esp
loc_005BDC8C: mov [ebx+00000008h], eax
loc_005BDC8F: mov eax, var_30
loc_005BDC92: mov [ebx+0000000Ch], eax
loc_005BDC95: mov eax, var_28
loc_005BDC98: mov [ecx], esi
loc_005BDC9A: mov [ecx+00000004h], eax
loc_005BDC9D: mov eax, [0073A08Ch]
loc_005BDCA2: push eax
loc_005BDCA3: mov [ecx+00000008h], edx
loc_005BDCA6: mov edx, var_20
loc_005BDCA9: mov [ecx+0000000Ch], edx
loc_005BDCAC: call [edi+00000078h]
loc_005BDCAF: test eax, eax
loc_005BDCB1: fnclex
loc_005BDCB3: jge 005BDCCAh
loc_005BDCB5: mov ecx, [0073A08Ch]
loc_005BDCBB: push 00000078h
loc_005BDCBD: push 004419ACh
loc_005BDCC2: push ecx
loc_005BDCC3: push eax
loc_005BDCC4: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDCCA: lea ecx, var_1C
loc_005BDCCD: call [0040142Ch] ; __vbaFreeObj
loc_005BDCD3: mov eax, [0073A08Ch]
loc_005BDCD8: lea ecx, var_1C
loc_005BDCDB: push ecx
loc_005BDCDC: push 00441D74h ; "Blink"
loc_005BDCE1: mov edx, [eax]
loc_005BDCE3: push eax
loc_005BDCE4: call [edx+00000064h]
loc_005BDCE7: test eax, eax
loc_005BDCE9: fnclex
loc_005BDCEB: jge 005BDD02h
loc_005BDCED: mov edx, [0073A08Ch]
loc_005BDCF3: push 00000064h
loc_005BDCF5: push 004419ACh
loc_005BDCFA: push edx
loc_005BDCFB: push eax
loc_005BDCFC: call [004010CCh] ; __vbaHresultCheckObj
loc_005BDD02: mov eax, var_1C
loc_005BDD05: mov var_1C, 00000000h
loc_005BDD0C: push eax
loc_005BDD0D: push 0073A1E4h
loc_005BDD12: call [00401128h] ; __vbaObjSet
loc_005BDD18: xor ebx, ebx
loc_005BDD1A: mov var_4, ebx
loc_005BDD1D: push 005BDD38h
loc_005BDD22: jmp 005BDD37h
loc_005BDD24: lea ecx, var_18
loc_005BDD27: call [00401430h] ; __vbaFreeStr
loc_005BDD2D: lea ecx, var_1C
loc_005BDD30: call [0040142Ch] ; __vbaFreeObj
loc_005BDD36: ret
loc_005BDD37: ret
loc_005BDD38: mov eax, Me
loc_005BDD3B: push eax
loc_005BDD3C: mov ecx, [eax]
loc_005BDD3E: call [ecx+00000008h]
loc_005BDD41: mov eax, var_4
loc_005BDD44: mov ecx, var_14
loc_005BDD47: pop edi
loc_005BDD48: pop esi
loc_005BDD49: mov fs:[00000000h], ecx
loc_005BDD50: pop ebx
loc_005BDD51: mov esp, ebp
loc_005BDD53: pop ebp
loc_005BDD54: retn 000Ch
End Sub
Private Sub cmdOK_Click() '5BD6D0
loc_005BD6D0: push ebp
loc_005BD6D1: mov ebp, esp
loc_005BD6D3: sub esp, 0000000Ch
loc_005BD6D6: push 00412856h ; __vbaExceptHandler
loc_005BD6DB: mov eax, fs:[00000000h]
loc_005BD6E1: push eax
loc_005BD6E2: mov fs:[00000000h], esp
loc_005BD6E9: sub esp, 00000018h
loc_005BD6EC: push ebx
loc_005BD6ED: push esi
loc_005BD6EE: push edi
loc_005BD6EF: mov var_C, esp
loc_005BD6F2: mov var_8, 00401450h
loc_005BD6F9: mov esi, Me
loc_005BD6FC: mov eax, esi
loc_005BD6FE: and eax, 00000001h
loc_005BD701: mov var_4, eax
loc_005BD704: and esi, FFFFFFFEh
loc_005BD707: push esi
loc_005BD708: mov Me, esi
loc_005BD70B: mov ecx, [esi]
loc_005BD70D: call [ecx+00000004h]
loc_005BD710: xor edi, edi
loc_005BD712: push 00440B00h
loc_005BD717: mov var_1C, edi
loc_005BD71A: mov var_20, edi
loc_005BD71D: push esi
loc_005BD71E: mov var_18, edi
loc_005BD721: mov var_20, edi
loc_005BD724: mov var_1C, edi
loc_005BD727: call [004013C4h] ; __vbaCastObj
loc_005BD72D: lea edx, var_18
loc_005BD730: push eax
loc_005BD731: push edx
loc_005BD732: call [00401128h] ; __vbaObjSet
loc_005BD738: mov eax, [0073A218h]
loc_005BD73D: lea edx, var_20
loc_005BD740: push edx
loc_005BD741: lea edx, var_1C
loc_005BD744: mov ecx, [eax]
loc_005BD746: push edx
loc_005BD747: lea edx, var_18
loc_005BD74A: push edx
loc_005BD74B: push eax
loc_005BD74C: call [ecx+0000001Ch]
loc_005BD74F: cmp eax, edi
loc_005BD751: fnclex
loc_005BD753: jge 005BD76Ah
loc_005BD755: mov ecx, [0073A218h]
loc_005BD75B: push 0000001Ch
loc_005BD75D: push 00440B10h
loc_005BD762: push ecx
loc_005BD763: push eax
loc_005BD764: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD76A: lea ecx, var_18
loc_005BD76D: call [0040142Ch] ; __vbaFreeObj
loc_005BD773: mov edx, [esi]
loc_005BD775: push esi
loc_005BD776: call [edx+000002B4h]
loc_005BD77C: cmp eax, edi
loc_005BD77E: fnclex
loc_005BD780: jge 005BD794h
loc_005BD782: push 000002B4h
loc_005BD787: push 0044034Ch ; "uÚ.ÇFK*D¸5Å3YÚ™ðJmá­vÅUBµfúCÆõŒ'^¢w³" & Chr(11) & "m¿A»˜"
loc_005BD78C: push esi
loc_005BD78D: push eax
loc_005BD78E: call [004010CCh] ; __vbaHresultCheckObj
loc_005BD794: mov var_4, edi
loc_005BD797: push 005BD7A9h
loc_005BD79C: jmp 005BD7A8h
loc_005BD79E: lea ecx, var_18
loc_005BD7A1: call [0040142Ch] ; __vbaFreeObj
loc_005BD7A7: ret
loc_005BD7A8: ret
loc_005BD7A9: mov eax, Me
loc_005BD7AC: push eax
loc_005BD7AD: mov ecx, [eax]
loc_005BD7AF: call [ecx+00000008h]
loc_005BD7B2: mov eax, var_4
loc_005BD7B5: mov ecx, var_14
loc_005BD7B8: pop edi
loc_005BD7B9: pop esi
loc_005BD7BA: mov fs:[00000000h], ecx
loc_005BD7C1: pop ebx
loc_005BD7C2: mov esp, ebp
loc_005BD7C4: pop ebp
loc_005BD7C5: retn 0004h
End Sub

BIN
Src Code/frmInput.frx
View File

3099
Src Code/frmMailSetup.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmMailSetup.frx
View File

14108
Src Code/frmMsgEdit.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmMsgEdit.frx
View File

981
Src Code/frmMusicLicense.frm
View File

@ -0,0 +1,981 @@
VERSION 5.00
Begin VB.Form frmMusicLicense
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 4 'Fixed ToolWindow
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 90
ClientTop = 375
ClientWidth = 6615
ClientHeight = 5175
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox lblMusic
BackColor = &H8000000F&
Left = 120
Top = 120
Width = 6375
Height = 4935
Text = "Text1"
TabIndex = 0
MultiLine = -1 'True
ScrollBars = 3
Locked = -1 'True
End
End
Attribute VB_Name = "frmMusicLicense"
Private Sub Form_Load() '61BE10
loc_0061BE10: push ebp
loc_0061BE11: mov ebp, esp
loc_0061BE13: sub esp, 0000000Ch
loc_0061BE16: push 00412856h ; __vbaExceptHandler
loc_0061BE1B: mov eax, fs:[00000000h]
loc_0061BE21: push eax
loc_0061BE22: mov fs:[00000000h], esp
loc_0061BE29: sub esp, 0000006Ch
loc_0061BE2C: push ebx
loc_0061BE2D: push esi
loc_0061BE2E: push edi
loc_0061BE2F: mov var_C, esp
loc_0061BE32: mov var_8, 00404DC0h
loc_0061BE39: mov esi, Me
loc_0061BE3C: mov eax, esi
loc_0061BE3E: and eax, 00000001h
loc_0061BE41: mov var_4, eax
loc_0061BE44: and esi, FFFFFFFEh
loc_0061BE47: push esi
loc_0061BE48: mov Me, esi
loc_0061BE4B: mov ecx, [esi]
loc_0061BE4D: call [ecx+00000004h]
loc_0061BE50: mov edx, [esi]
loc_0061BE52: xor eax, eax
loc_0061BE54: push esi
loc_0061BE55: mov var_18, eax
loc_0061BE58: mov var_1C, eax
loc_0061BE5B: mov var_20, eax
loc_0061BE5E: mov var_24, eax
loc_0061BE61: mov var_28, eax
loc_0061BE64: mov var_2C, eax
loc_0061BE67: mov var_30, eax
loc_0061BE6A: mov var_34, eax
loc_0061BE6D: mov var_38, eax
loc_0061BE70: mov var_3C, eax
loc_0061BE73: mov var_40, eax
loc_0061BE76: mov var_44, eax
loc_0061BE79: mov var_48, eax
loc_0061BE7C: mov var_4C, eax
loc_0061BE7F: mov var_50, eax
loc_0061BE82: mov var_54, eax
loc_0061BE85: call [edx+000002FCh]
loc_0061BE8B: push eax
loc_0061BE8C: lea eax, var_50
loc_0061BE8F: push eax
loc_0061BE90: call [00401128h] ; __vbaObjSet
loc_0061BE96: mov esi, [00401098h] ; __vbaStrCat
loc_0061BE9C: mov ebx, [eax]
loc_0061BE9E: push 0044BBD4h ; "MAYBE (from the Broadway Musical ""Annie"")"
loc_0061BEA3: push 0043FBCCh ; vbCrLf
loc_0061BEA8: mov var_58, eax
loc_0061BEAB: call __vbaStrCat
loc_0061BEAD: mov edi, [004013C0h] ; __vbaStrMove
loc_0061BEB3: mov edx, eax
loc_0061BEB5: lea ecx, var_18
loc_0061BEB8: call edi
loc_0061BEBA: push eax
loc_0061BEBB: push 0044BC2Ch ; "Music by Charles Strouse, Lyric by Martin Charnin"
loc_0061BEC0: call __vbaStrCat
loc_0061BEC2: mov edx, eax
loc_0061BEC4: lea ecx, var_1C
loc_0061BEC7: call edi
loc_0061BEC9: push eax
loc_0061BECA: push 0043FBCCh ; vbCrLf
loc_0061BECF: call __vbaStrCat
loc_0061BED1: mov edx, eax
loc_0061BED3: lea ecx, var_20
loc_0061BED6: call edi
loc_0061BED8: push eax
loc_0061BED9: push 0044BC94h ; "© 1977 Charles Strouse Publications (ASCAP) and Edwin H. Morris & Co., a division of MPL Communications (ASCAP)"
loc_0061BEDE: call __vbaStrCat
loc_0061BEE0: mov edx, eax
loc_0061BEE2: lea ecx, var_24
loc_0061BEE5: call edi
loc_0061BEE7: push eax
loc_0061BEE8: push 0043FBCCh ; vbCrLf
loc_0061BEED: call __vbaStrCat
loc_0061BEEF: mov edx, eax
loc_0061BEF1: lea ecx, var_28
loc_0061BEF4: call edi
loc_0061BEF6: push eax
loc_0061BEF7: push 0044BDC4h ; "Used by permission of Helene Blue Musique Ltd. and MPL Communications"
loc_0061BEFC: call __vbaStrCat
loc_0061BEFE: mov edx, eax
loc_0061BF00: lea ecx, var_2C
loc_0061BF03: call edi
loc_0061BF05: push eax
loc_0061BF06: push 0043FBCCh ; vbCrLf
loc_0061BF0B: call __vbaStrCat
loc_0061BF0D: mov edx, eax
loc_0061BF0F: lea ecx, var_30
loc_0061BF12: call edi
loc_0061BF14: push eax
loc_0061BF15: push 0044BE54h ; "All Rights Reserved"
loc_0061BF1A: call __vbaStrCat
loc_0061BF1C: mov edx, eax
loc_0061BF1E: lea ecx, var_34
loc_0061BF21: call edi
loc_0061BF23: mov ecx, ebx
loc_0061BF25: mov ebx, var_58
loc_0061BF28: push eax
loc_0061BF29: push ebx
loc_0061BF2A: call [ecx+000000A4h]
loc_0061BF30: test eax, eax
loc_0061BF32: fnclex
loc_0061BF34: jge 0061BF48h
loc_0061BF36: push 000000A4h
loc_0061BF3B: push 0043F42Ch
loc_0061BF40: push ebx
loc_0061BF41: push eax
loc_0061BF42: call [004010CCh] ; __vbaHresultCheckObj
loc_0061BF48: lea edx, var_34
loc_0061BF4B: lea eax, var_30
loc_0061BF4E: push edx
loc_0061BF4F: lea ecx, var_2C
loc_0061BF52: push eax
loc_0061BF53: lea edx, var_28
loc_0061BF56: push ecx
loc_0061BF57: lea eax, var_24
loc_0061BF5A: push edx
loc_0061BF5B: lea ecx, var_20
loc_0061BF5E: push eax
loc_0061BF5F: lea edx, var_1C
loc_0061BF62: push ecx
loc_0061BF63: lea eax, var_18
loc_0061BF66: push edx
loc_0061BF67: push eax
loc_0061BF68: push 00000008h
loc_0061BF6A: call [00401324h] ; __vbaFreeStrList
loc_0061BF70: add esp, 00000024h
loc_0061BF73: lea ecx, var_50
loc_0061BF76: call [0040142Ch] ; __vbaFreeObj
loc_0061BF7C: mov ebx, Me
loc_0061BF7F: push ebx
loc_0061BF80: mov ecx, [ebx]
loc_0061BF82: call [ecx+000002FCh]
loc_0061BF88: lea edx, var_54
loc_0061BF8B: push eax
loc_0061BF8C: push edx
loc_0061BF8D: call [00401128h] ; __vbaObjSet
loc_0061BF93: mov var_60, eax
loc_0061BF96: mov eax, [ebx]
loc_0061BF98: push ebx
loc_0061BF99: call [eax+000002FCh]
loc_0061BF9F: lea ecx, var_50
loc_0061BFA2: push eax
loc_0061BFA3: push ecx
loc_0061BFA4: call [00401128h] ; __vbaObjSet
loc_0061BFAA: mov ebx, eax
loc_0061BFAC: lea eax, var_18
loc_0061BFAF: push eax
loc_0061BFB0: push ebx
loc_0061BFB1: mov edx, [ebx]
loc_0061BFB3: call [edx+000000A0h]
loc_0061BFB9: test eax, eax
loc_0061BFBB: fnclex
loc_0061BFBD: jge 0061BFD1h
loc_0061BFBF: push 000000A0h
loc_0061BFC4: push 0043F42Ch
loc_0061BFC9: push ebx
loc_0061BFCA: push eax
loc_0061BFCB: call [004010CCh] ; __vbaHresultCheckObj
loc_0061BFD1: mov edx, var_18
loc_0061BFD4: mov ecx, var_60
loc_0061BFD7: push edx
loc_0061BFD8: push 0043FBCCh ; vbCrLf
loc_0061BFDD: mov ebx, [ecx]
loc_0061BFDF: call __vbaStrCat
loc_0061BFE1: mov edx, eax
loc_0061BFE3: lea ecx, var_1C
loc_0061BFE6: call edi
loc_0061BFE8: push eax
loc_0061BFE9: push 0043FBCCh ; vbCrLf
loc_0061BFEE: call __vbaStrCat
loc_0061BFF0: mov edx, eax
loc_0061BFF2: lea ecx, var_20
loc_0061BFF5: call edi
loc_0061BFF7: push eax
loc_0061BFF8: push 0044BE80h ; "TOMORROW (from the Broadway Musical ""Annie"")"
loc_0061BFFD: call __vbaStrCat
loc_0061BFFF: mov edx, eax
loc_0061C001: lea ecx, var_24
loc_0061C004: call edi
loc_0061C006: push eax
loc_0061C007: push 0043FBCCh ; vbCrLf
loc_0061C00C: call __vbaStrCat
loc_0061C00E: mov edx, eax
loc_0061C010: lea ecx, var_28
loc_0061C013: call edi
loc_0061C015: push eax
loc_0061C016: push 0044BEE0h ; "Music by Charles Strouse Lyric by Martin Charnin"
loc_0061C01B: call __vbaStrCat
loc_0061C01D: mov edx, eax
loc_0061C01F: lea ecx, var_2C
loc_0061C022: call edi
loc_0061C024: push eax
loc_0061C025: push 0043FBCCh ; vbCrLf
loc_0061C02A: call __vbaStrCat
loc_0061C02C: mov edx, eax
loc_0061C02E: lea ecx, var_30
loc_0061C031: call edi
loc_0061C033: push eax
loc_0061C034: push 0044BC94h ; "© 1977 Charles Strouse Publications (ASCAP) and Edwin H. Morris & Co., a division of MPL Communications (ASCAP)"
loc_0061C039: call __vbaStrCat
loc_0061C03B: mov edx, eax
loc_0061C03D: lea ecx, var_34
loc_0061C040: call edi
loc_0061C042: push eax
loc_0061C043: push 0043FBCCh ; vbCrLf
loc_0061C048: call __vbaStrCat
loc_0061C04A: mov edx, eax
loc_0061C04C: lea ecx, var_38
loc_0061C04F: call edi
loc_0061C051: push eax
loc_0061C052: push 0044BDC4h ; "Used by permission of Helene Blue Musique Ltd. and MPL Communications"
loc_0061C057: call __vbaStrCat
loc_0061C059: mov edx, eax
loc_0061C05B: lea ecx, var_3C
loc_0061C05E: call edi
loc_0061C060: push eax
loc_0061C061: push 0043FBCCh ; vbCrLf
loc_0061C066: call __vbaStrCat
loc_0061C068: mov edx, eax
loc_0061C06A: lea ecx, var_40
loc_0061C06D: call edi
loc_0061C06F: push eax
loc_0061C070: push 0044BE54h ; "All Rights Reserved"
loc_0061C075: call __vbaStrCat
loc_0061C077: mov edx, eax
loc_0061C079: lea ecx, var_44
loc_0061C07C: call edi
loc_0061C07E: mov var_74, ebx
loc_0061C081: mov ebx, var_60
loc_0061C084: push eax
loc_0061C085: mov eax, var_74
loc_0061C088: push ebx
loc_0061C089: call [eax+000000A4h]
loc_0061C08F: test eax, eax
loc_0061C091: fnclex
loc_0061C093: jge 0061C0A7h
loc_0061C095: push 000000A4h
loc_0061C09A: push 0043F42Ch
loc_0061C09F: push ebx
loc_0061C0A0: push eax
loc_0061C0A1: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C0A7: lea ecx, var_44
loc_0061C0AA: lea edx, var_40
loc_0061C0AD: push ecx
loc_0061C0AE: lea eax, var_3C
loc_0061C0B1: push edx
loc_0061C0B2: lea ecx, var_38
loc_0061C0B5: push eax
loc_0061C0B6: lea edx, var_34
loc_0061C0B9: push ecx
loc_0061C0BA: lea eax, var_30
loc_0061C0BD: push edx
loc_0061C0BE: lea ecx, var_2C
loc_0061C0C1: push eax
loc_0061C0C2: lea edx, var_28
loc_0061C0C5: push ecx
loc_0061C0C6: lea eax, var_24
loc_0061C0C9: push edx
loc_0061C0CA: lea ecx, var_20
loc_0061C0CD: push eax
loc_0061C0CE: lea edx, var_1C
loc_0061C0D1: push ecx
loc_0061C0D2: lea eax, var_18
loc_0061C0D5: push edx
loc_0061C0D6: push eax
loc_0061C0D7: push 0000000Ch
loc_0061C0D9: call [00401324h] ; __vbaFreeStrList
loc_0061C0DF: lea ecx, var_54
loc_0061C0E2: lea edx, var_50
loc_0061C0E5: push ecx
loc_0061C0E6: push edx
loc_0061C0E7: push 00000002h
loc_0061C0E9: call [00401068h] ; __vbaFreeObjList
loc_0061C0EF: mov ebx, Me
loc_0061C0F2: add esp, 00000040h
loc_0061C0F5: mov eax, [ebx]
loc_0061C0F7: push ebx
loc_0061C0F8: call [eax+000002FCh]
loc_0061C0FE: lea ecx, var_54
loc_0061C101: push eax
loc_0061C102: push ecx
loc_0061C103: call [00401128h] ; __vbaObjSet
loc_0061C109: mov edx, [ebx]
loc_0061C10B: push ebx
loc_0061C10C: mov var_60, eax
loc_0061C10F: call [edx+000002FCh]
loc_0061C115: push eax
loc_0061C116: lea eax, var_50
loc_0061C119: push eax
loc_0061C11A: call [00401128h] ; __vbaObjSet
loc_0061C120: mov ebx, eax
loc_0061C122: lea edx, var_18
loc_0061C125: push edx
loc_0061C126: push ebx
loc_0061C127: mov ecx, [ebx]
loc_0061C129: call [ecx+000000A0h]
loc_0061C12F: test eax, eax
loc_0061C131: fnclex
loc_0061C133: jge 0061C147h
loc_0061C135: push 000000A0h
loc_0061C13A: push 0043F42Ch
loc_0061C13F: push ebx
loc_0061C140: push eax
loc_0061C141: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C147: mov ecx, var_18
loc_0061C14A: mov eax, var_60
loc_0061C14D: push ecx
loc_0061C14E: push 0043FBCCh ; vbCrLf
loc_0061C153: mov ebx, [eax]
loc_0061C155: call __vbaStrCat
loc_0061C157: mov edx, eax
loc_0061C159: lea ecx, var_1C
loc_0061C15C: call edi
loc_0061C15E: push eax
loc_0061C15F: push 0043FBCCh ; vbCrLf
loc_0061C164: call __vbaStrCat
loc_0061C166: mov edx, eax
loc_0061C168: lea ecx, var_20
loc_0061C16B: call edi
loc_0061C16D: push eax
loc_0061C16E: push 0044BF48h ; "GETTING TO KNOW YOU (from ""The King And I"")"
loc_0061C173: call __vbaStrCat
loc_0061C175: mov edx, eax
loc_0061C177: lea ecx, var_24
loc_0061C17A: call edi
loc_0061C17C: push eax
loc_0061C17D: push 0043FBCCh ; vbCrLf
loc_0061C182: call __vbaStrCat
loc_0061C184: mov edx, eax
loc_0061C186: lea ecx, var_28
loc_0061C189: call edi
loc_0061C18B: push eax
loc_0061C18C: push 0044BFA4h ; "By Richard Rodgers and Oscar Hammerstein II"
loc_0061C191: call __vbaStrCat
loc_0061C193: mov edx, eax
loc_0061C195: lea ecx, var_2C
loc_0061C198: call edi
loc_0061C19A: push eax
loc_0061C19B: push 0043FBCCh ; vbCrLf
loc_0061C1A0: call __vbaStrCat
loc_0061C1A2: mov edx, eax
loc_0061C1A4: lea ecx, var_30
loc_0061C1A7: call edi
loc_0061C1A9: push eax
loc_0061C1AA: push 0044C000h ; "Copyright © 1951 By Richard Rodgers and Oscar Hammerstein II"
loc_0061C1AF: call __vbaStrCat
loc_0061C1B1: mov edx, eax
loc_0061C1B3: lea ecx, var_34
loc_0061C1B6: call edi
loc_0061C1B8: push eax
loc_0061C1B9: push 0043FBCCh ; vbCrLf
loc_0061C1BE: call __vbaStrCat
loc_0061C1C0: mov edx, eax
loc_0061C1C2: lea ecx, var_38
loc_0061C1C5: call edi
loc_0061C1C7: push eax
loc_0061C1C8: push 0044C080h ; "Copyright Renewed. WILLIAMSON MUSIC owner of publication and allied rights throughout the world."
loc_0061C1CD: call __vbaStrCat
loc_0061C1CF: mov edx, eax
loc_0061C1D1: lea ecx, var_3C
loc_0061C1D4: call edi
loc_0061C1D6: push eax
loc_0061C1D7: push 0043FBCCh ; vbCrLf
loc_0061C1DC: call __vbaStrCat
loc_0061C1DE: mov edx, eax
loc_0061C1E0: lea ecx, var_40
loc_0061C1E3: call edi
loc_0061C1E5: push eax
loc_0061C1E6: push 0044C18Ch ; "International Copyright Secured Used by Permission All Rights Reserved"
loc_0061C1EB: call __vbaStrCat
loc_0061C1ED: mov edx, eax
loc_0061C1EF: lea ecx, var_44
loc_0061C1F2: call edi
loc_0061C1F4: mov edx, ebx
loc_0061C1F6: mov ebx, var_60
loc_0061C1F9: push eax
loc_0061C1FA: push ebx
loc_0061C1FB: call [edx+000000A4h]
loc_0061C201: test eax, eax
loc_0061C203: fnclex
loc_0061C205: jge 0061C219h
loc_0061C207: push 000000A4h
loc_0061C20C: push 0043F42Ch
loc_0061C211: push ebx
loc_0061C212: push eax
loc_0061C213: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C219: lea eax, var_44
loc_0061C21C: lea ecx, var_40
loc_0061C21F: push eax
loc_0061C220: lea edx, var_3C
loc_0061C223: push ecx
loc_0061C224: lea eax, var_38
loc_0061C227: push edx
loc_0061C228: lea ecx, var_34
loc_0061C22B: push eax
loc_0061C22C: lea edx, var_30
loc_0061C22F: push ecx
loc_0061C230: lea eax, var_2C
loc_0061C233: push edx
loc_0061C234: lea ecx, var_28
loc_0061C237: push eax
loc_0061C238: lea edx, var_24
loc_0061C23B: push ecx
loc_0061C23C: lea eax, var_20
loc_0061C23F: push edx
loc_0061C240: lea ecx, var_1C
loc_0061C243: push eax
loc_0061C244: lea edx, var_18
loc_0061C247: push ecx
loc_0061C248: push edx
loc_0061C249: push 0000000Ch
loc_0061C24B: call [00401324h] ; __vbaFreeStrList
loc_0061C251: lea eax, var_54
loc_0061C254: lea ecx, var_50
loc_0061C257: push eax
loc_0061C258: push ecx
loc_0061C259: push 00000002h
loc_0061C25B: call [00401068h] ; __vbaFreeObjList
loc_0061C261: mov ebx, Me
loc_0061C264: add esp, 00000040h
loc_0061C267: mov edx, [ebx]
loc_0061C269: push ebx
loc_0061C26A: call [edx+000002FCh]
loc_0061C270: push eax
loc_0061C271: lea eax, var_54
loc_0061C274: push eax
loc_0061C275: call [00401128h] ; __vbaObjSet
loc_0061C27B: mov ecx, [ebx]
loc_0061C27D: push ebx
loc_0061C27E: mov var_60, eax
loc_0061C281: call [ecx+000002FCh]
loc_0061C287: lea edx, var_50
loc_0061C28A: push eax
loc_0061C28B: push edx
loc_0061C28C: call [00401128h] ; __vbaObjSet
loc_0061C292: mov ebx, eax
loc_0061C294: lea ecx, var_18
loc_0061C297: push ecx
loc_0061C298: push ebx
loc_0061C299: mov eax, [ebx]
loc_0061C29B: call [eax+000000A0h]
loc_0061C2A1: test eax, eax
loc_0061C2A3: fnclex
loc_0061C2A5: jge 0061C2B9h
loc_0061C2A7: push 000000A0h
loc_0061C2AC: push 0043F42Ch
loc_0061C2B1: push ebx
loc_0061C2B2: push eax
loc_0061C2B3: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C2B9: mov eax, var_18
loc_0061C2BC: mov edx, var_60
loc_0061C2BF: push eax
loc_0061C2C0: push 0043FBCCh ; vbCrLf
loc_0061C2C5: mov ebx, [edx]
loc_0061C2C7: call __vbaStrCat
loc_0061C2C9: mov edx, eax
loc_0061C2CB: lea ecx, var_1C
loc_0061C2CE: call edi
loc_0061C2D0: push eax
loc_0061C2D1: push 0043FBCCh ; vbCrLf
loc_0061C2D6: call __vbaStrCat
loc_0061C2D8: mov edx, eax
loc_0061C2DA: lea ecx, var_20
loc_0061C2DD: call edi
loc_0061C2DF: push eax
loc_0061C2E0: push 0044C224h ; "IN MY OWN LITTLE CORNER"
loc_0061C2E5: call __vbaStrCat
loc_0061C2E7: mov edx, eax
loc_0061C2E9: lea ecx, var_24
loc_0061C2EC: call edi
loc_0061C2EE: push eax
loc_0061C2EF: push 0043FBCCh ; vbCrLf
loc_0061C2F4: call __vbaStrCat
loc_0061C2F6: mov edx, eax
loc_0061C2F8: lea ecx, var_28
loc_0061C2FB: call edi
loc_0061C2FD: push eax
loc_0061C2FE: push 0044BFA4h ; "By Richard Rodgers and Oscar Hammerstein II"
loc_0061C303: call __vbaStrCat
loc_0061C305: mov edx, eax
loc_0061C307: lea ecx, var_2C
loc_0061C30A: call edi
loc_0061C30C: push eax
loc_0061C30D: push 0043FBCCh ; vbCrLf
loc_0061C312: call __vbaStrCat
loc_0061C314: mov edx, eax
loc_0061C316: lea ecx, var_30
loc_0061C319: call edi
loc_0061C31B: push eax
loc_0061C31C: push 0044C000h ; "Copyright © 1951 By Richard Rodgers and Oscar Hammerstein II"
loc_0061C321: call __vbaStrCat
loc_0061C323: mov edx, eax
loc_0061C325: lea ecx, var_34
loc_0061C328: call edi
loc_0061C32A: push eax
loc_0061C32B: push 0043FBCCh ; vbCrLf
loc_0061C330: call __vbaStrCat
loc_0061C332: mov edx, eax
loc_0061C334: lea ecx, var_38
loc_0061C337: call edi
loc_0061C339: push eax
loc_0061C33A: push 0044C080h ; "Copyright Renewed. WILLIAMSON MUSIC owner of publication and allied rights throughout the world."
loc_0061C33F: call __vbaStrCat
loc_0061C341: mov edx, eax
loc_0061C343: lea ecx, var_3C
loc_0061C346: call edi
loc_0061C348: push eax
loc_0061C349: push 0043FBCCh ; vbCrLf
loc_0061C34E: call __vbaStrCat
loc_0061C350: mov edx, eax
loc_0061C352: lea ecx, var_40
loc_0061C355: call edi
loc_0061C357: push eax
loc_0061C358: push 0044C258h ; "International Copyright Secured Used by Permission All Rights Reserved"
loc_0061C35D: call __vbaStrCat
loc_0061C35F: mov edx, eax
loc_0061C361: lea ecx, var_44
loc_0061C364: call edi
loc_0061C366: mov ecx, ebx
loc_0061C368: mov ebx, var_60
loc_0061C36B: push eax
loc_0061C36C: push ebx
loc_0061C36D: call [ecx+000000A4h]
loc_0061C373: test eax, eax
loc_0061C375: fnclex
loc_0061C377: jge 0061C38Bh
loc_0061C379: push 000000A4h
loc_0061C37E: push 0043F42Ch
loc_0061C383: push ebx
loc_0061C384: push eax
loc_0061C385: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C38B: lea edx, var_44
loc_0061C38E: lea eax, var_40
loc_0061C391: push edx
loc_0061C392: lea ecx, var_3C
loc_0061C395: push eax
loc_0061C396: lea edx, var_38
loc_0061C399: push ecx
loc_0061C39A: lea eax, var_34
loc_0061C39D: push edx
loc_0061C39E: lea ecx, var_30
loc_0061C3A1: push eax
loc_0061C3A2: lea edx, var_2C
loc_0061C3A5: push ecx
loc_0061C3A6: lea eax, var_28
loc_0061C3A9: push edx
loc_0061C3AA: lea ecx, var_24
loc_0061C3AD: push eax
loc_0061C3AE: lea edx, var_20
loc_0061C3B1: push ecx
loc_0061C3B2: lea eax, var_1C
loc_0061C3B5: push edx
loc_0061C3B6: lea ecx, var_18
loc_0061C3B9: push eax
loc_0061C3BA: push ecx
loc_0061C3BB: push 0000000Ch
loc_0061C3BD: call [00401324h] ; __vbaFreeStrList
loc_0061C3C3: lea edx, var_54
loc_0061C3C6: lea eax, var_50
loc_0061C3C9: push edx
loc_0061C3CA: push eax
loc_0061C3CB: push 00000002h
loc_0061C3CD: call [00401068h] ; __vbaFreeObjList
loc_0061C3D3: mov ebx, Me
loc_0061C3D6: add esp, 00000040h
loc_0061C3D9: mov ecx, [ebx]
loc_0061C3DB: push ebx
loc_0061C3DC: call [ecx+000002FCh]
loc_0061C3E2: lea edx, var_54
loc_0061C3E5: push eax
loc_0061C3E6: push edx
loc_0061C3E7: call [00401128h] ; __vbaObjSet
loc_0061C3ED: mov var_60, eax
loc_0061C3F0: mov eax, [ebx]
loc_0061C3F2: push ebx
loc_0061C3F3: call [eax+000002FCh]
loc_0061C3F9: lea ecx, var_50
loc_0061C3FC: push eax
loc_0061C3FD: push ecx
loc_0061C3FE: call [00401128h] ; __vbaObjSet
loc_0061C404: mov ebx, eax
loc_0061C406: lea eax, var_18
loc_0061C409: push eax
loc_0061C40A: push ebx
loc_0061C40B: mov edx, [ebx]
loc_0061C40D: call [edx+000000A0h]
loc_0061C413: test eax, eax
loc_0061C415: fnclex
loc_0061C417: jge 0061C42Bh
loc_0061C419: push 000000A0h
loc_0061C41E: push 0043F42Ch
loc_0061C423: push ebx
loc_0061C424: push eax
loc_0061C425: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C42B: mov edx, var_18
loc_0061C42E: mov ecx, var_60
loc_0061C431: push edx
loc_0061C432: push 0043FBCCh ; vbCrLf
loc_0061C437: mov ebx, [ecx]
loc_0061C439: call __vbaStrCat
loc_0061C43B: mov edx, eax
loc_0061C43D: lea ecx, var_1C
loc_0061C440: call edi
loc_0061C442: push eax
loc_0061C443: push 0043FBCCh ; vbCrLf
loc_0061C448: call __vbaStrCat
loc_0061C44A: mov edx, eax
loc_0061C44C: lea ecx, var_20
loc_0061C44F: call edi
loc_0061C451: push eax
loc_0061C452: push 0044C2F4h ; "HOW MUCH IS THAT DOGGIE IN THE WINDOW"
loc_0061C457: call __vbaStrCat
loc_0061C459: mov edx, eax
loc_0061C45B: lea ecx, var_24
loc_0061C45E: call edi
loc_0061C460: push eax
loc_0061C461: push 0043FBCCh ; vbCrLf
loc_0061C466: call __vbaStrCat
loc_0061C468: mov edx, eax
loc_0061C46A: lea ecx, var_28
loc_0061C46D: call edi
loc_0061C46F: push eax
loc_0061C470: push 0044C148h ; "Words and Music by Bob Merrill"
loc_0061C475: call __vbaStrCat
loc_0061C477: mov edx, eax
loc_0061C479: lea ecx, var_2C
loc_0061C47C: call edi
loc_0061C47E: push eax
loc_0061C47F: push 0043FBCCh ; vbCrLf
loc_0061C484: call __vbaStrCat
loc_0061C486: mov edx, eax
loc_0061C488: lea ecx, var_30
loc_0061C48B: call edi
loc_0061C48D: push eax
loc_0061C48E: push 0044BD78h ; "Copyright © 1952 Golden Bell Songs"
loc_0061C493: call __vbaStrCat
loc_0061C495: mov edx, eax
loc_0061C497: lea ecx, var_34
loc_0061C49A: call edi
loc_0061C49C: push eax
loc_0061C49D: push 0043FBCCh ; vbCrLf
loc_0061C4A2: call __vbaStrCat
loc_0061C4A4: mov edx, eax
loc_0061C4A6: lea ecx, var_38
loc_0061C4A9: call edi
loc_0061C4AB: push eax
loc_0061C4AC: push 0044C344h ; "Copyright Renewed 1980"
loc_0061C4B1: call __vbaStrCat
loc_0061C4B3: mov edx, eax
loc_0061C4B5: lea ecx, var_3C
loc_0061C4B8: call edi
loc_0061C4BA: push eax
loc_0061C4BB: push 0043FBCCh ; vbCrLf
loc_0061C4C0: call __vbaStrCat
loc_0061C4C2: mov edx, eax
loc_0061C4C4: lea ecx, var_40
loc_0061C4C7: call edi
loc_0061C4C9: push eax
loc_0061C4CA: push 0044C378h ; "Administered by Music & Media International"
loc_0061C4CF: call __vbaStrCat
loc_0061C4D1: mov edx, eax
loc_0061C4D3: lea ecx, var_44
loc_0061C4D6: call edi
loc_0061C4D8: push eax
loc_0061C4D9: push 0043FBCCh ; vbCrLf
loc_0061C4DE: call __vbaStrCat
loc_0061C4E0: mov edx, eax
loc_0061C4E2: lea ecx, var_48
loc_0061C4E5: call edi
loc_0061C4E7: push eax
loc_0061C4E8: push 0044C258h ; "International Copyright Secured Used by Permission All Rights Reserved"
loc_0061C4ED: call __vbaStrCat
loc_0061C4EF: mov edx, eax
loc_0061C4F1: lea ecx, var_4C
loc_0061C4F4: call edi
loc_0061C4F6: mov var_80, ebx
loc_0061C4F9: mov ebx, var_60
loc_0061C4FC: push eax
loc_0061C4FD: mov eax, var_80
loc_0061C500: push ebx
loc_0061C501: call [eax+000000A4h]
loc_0061C507: test eax, eax
loc_0061C509: fnclex
loc_0061C50B: jge 0061C51Fh
loc_0061C50D: push 000000A4h
loc_0061C512: push 0043F42Ch
loc_0061C517: push ebx
loc_0061C518: push eax
loc_0061C519: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C51F: lea ecx, var_4C
loc_0061C522: lea edx, var_48
loc_0061C525: push ecx
loc_0061C526: lea eax, var_44
loc_0061C529: push edx
loc_0061C52A: lea ecx, var_40
loc_0061C52D: push eax
loc_0061C52E: lea edx, var_3C
loc_0061C531: push ecx
loc_0061C532: lea eax, var_38
loc_0061C535: push edx
loc_0061C536: lea ecx, var_34
loc_0061C539: push eax
loc_0061C53A: lea edx, var_30
loc_0061C53D: push ecx
loc_0061C53E: lea eax, var_2C
loc_0061C541: push edx
loc_0061C542: lea ecx, var_28
loc_0061C545: push eax
loc_0061C546: lea edx, var_24
loc_0061C549: push ecx
loc_0061C54A: lea eax, var_20
loc_0061C54D: push edx
loc_0061C54E: lea ecx, var_1C
loc_0061C551: push eax
loc_0061C552: lea edx, var_18
loc_0061C555: push ecx
loc_0061C556: push edx
loc_0061C557: push 0000000Eh
loc_0061C559: call [00401324h] ; __vbaFreeStrList
loc_0061C55F: lea eax, var_54
loc_0061C562: lea ecx, var_50
loc_0061C565: push eax
loc_0061C566: push ecx
loc_0061C567: push 00000002h
loc_0061C569: call [00401068h] ; __vbaFreeObjList
loc_0061C56F: mov ebx, Me
loc_0061C572: add esp, 00000048h
loc_0061C575: mov edx, [ebx]
loc_0061C577: push ebx
loc_0061C578: call [edx+000002FCh]
loc_0061C57E: push eax
loc_0061C57F: lea eax, var_54
loc_0061C582: push eax
loc_0061C583: call [00401128h] ; __vbaObjSet
loc_0061C589: mov ecx, [ebx]
loc_0061C58B: push ebx
loc_0061C58C: mov var_60, eax
loc_0061C58F: call [ecx+000002FCh]
loc_0061C595: lea edx, var_50
loc_0061C598: push eax
loc_0061C599: push edx
loc_0061C59A: call [00401128h] ; __vbaObjSet
loc_0061C5A0: mov ebx, eax
loc_0061C5A2: lea ecx, var_18
loc_0061C5A5: push ecx
loc_0061C5A6: push ebx
loc_0061C5A7: mov eax, [ebx]
loc_0061C5A9: call [eax+000000A0h]
loc_0061C5AF: test eax, eax
loc_0061C5B1: fnclex
loc_0061C5B3: jge 0061C5C7h
loc_0061C5B5: push 000000A0h
loc_0061C5BA: push 0043F42Ch
loc_0061C5BF: push ebx
loc_0061C5C0: push eax
loc_0061C5C1: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C5C7: mov eax, var_18
loc_0061C5CA: mov edx, var_60
loc_0061C5CD: push eax
loc_0061C5CE: push 0043FBCCh ; vbCrLf
loc_0061C5D3: mov ebx, [edx]
loc_0061C5D5: call __vbaStrCat
loc_0061C5D7: mov edx, eax
loc_0061C5D9: lea ecx, var_1C
loc_0061C5DC: call edi
loc_0061C5DE: push eax
loc_0061C5DF: push 0043FBCCh ; vbCrLf
loc_0061C5E4: call __vbaStrCat
loc_0061C5E6: mov edx, eax
loc_0061C5E8: lea ecx, var_20
loc_0061C5EB: call edi
loc_0061C5ED: push eax
loc_0061C5EE: push 0044C3D4h ; "ON TOP OF SPAGHETTI"
loc_0061C5F3: call __vbaStrCat
loc_0061C5F5: mov edx, eax
loc_0061C5F7: lea ecx, var_24
loc_0061C5FA: call edi
loc_0061C5FC: push eax
loc_0061C5FD: push 0043FBCCh ; vbCrLf
loc_0061C602: call __vbaStrCat
loc_0061C604: mov edx, eax
loc_0061C606: lea ecx, var_28
loc_0061C609: call edi
loc_0061C60B: push eax
loc_0061C60C: push 0044C400h ; "Words and Music by Tom Glazer"
loc_0061C611: call __vbaStrCat
loc_0061C613: mov edx, eax
loc_0061C615: lea ecx, var_2C
loc_0061C618: call edi
loc_0061C61A: push eax
loc_0061C61B: push 0043FBCCh ; vbCrLf
loc_0061C620: call __vbaStrCat
loc_0061C622: mov edx, eax
loc_0061C624: lea ecx, var_30
loc_0061C627: call edi
loc_0061C629: push eax
loc_0061C62A: push 0044C440h ; "Copyright © 1963, 1965 by Songs Music Inc."
loc_0061C62F: call __vbaStrCat
loc_0061C631: mov edx, eax
loc_0061C633: lea ecx, var_34
loc_0061C636: call edi
loc_0061C638: push eax
loc_0061C639: push 0043FBCCh ; vbCrLf
loc_0061C63E: call __vbaStrCat
loc_0061C640: mov edx, eax
loc_0061C642: lea ecx, var_38
loc_0061C645: call edi
loc_0061C647: push eax
loc_0061C648: push 0044C49Ch ; "Copyright Renewed"
loc_0061C64D: call __vbaStrCat
loc_0061C64F: mov edx, eax
loc_0061C651: lea ecx, var_3C
loc_0061C654: call edi
loc_0061C656: push eax
loc_0061C657: push 0043FBCCh ; vbCrLf
loc_0061C65C: call __vbaStrCat
loc_0061C65E: mov edx, eax
loc_0061C660: lea ecx, var_40
loc_0061C663: call edi
loc_0061C665: push eax
loc_0061C666: push 0044C4C4h ; "Administered in the United States and Canada by September Music Corp."
loc_0061C66B: call __vbaStrCat
loc_0061C66D: mov edx, eax
loc_0061C66F: lea ecx, var_44
loc_0061C672: call edi
loc_0061C674: push eax
loc_0061C675: push 0043FBCCh ; vbCrLf
loc_0061C67A: call __vbaStrCat
loc_0061C67C: mov edx, eax
loc_0061C67E: lea ecx, var_48
loc_0061C681: call edi
loc_0061C683: push eax
loc_0061C684: push 0044C258h ; "International Copyright Secured Used by Permission All Rights Reserved"
loc_0061C689: call __vbaStrCat
loc_0061C68B: mov edx, eax
loc_0061C68D: lea ecx, var_4C
loc_0061C690: call edi
loc_0061C692: mov esi, var_60
loc_0061C695: push eax
loc_0061C696: push esi
loc_0061C697: call [ebx+000000A4h]
loc_0061C69D: test eax, eax
loc_0061C69F: fnclex
loc_0061C6A1: jge 0061C6B5h
loc_0061C6A3: push 000000A4h
loc_0061C6A8: push 0043F42Ch
loc_0061C6AD: push esi
loc_0061C6AE: push eax
loc_0061C6AF: call [004010CCh] ; __vbaHresultCheckObj
loc_0061C6B5: lea ecx, var_4C
loc_0061C6B8: lea edx, var_48
loc_0061C6BB: push ecx
loc_0061C6BC: lea eax, var_44
loc_0061C6BF: push edx
loc_0061C6C0: lea ecx, var_40
loc_0061C6C3: push eax
loc_0061C6C4: lea edx, var_3C
loc_0061C6C7: push ecx
loc_0061C6C8: lea eax, var_38
loc_0061C6CB: push edx
loc_0061C6CC: lea ecx, var_34
loc_0061C6CF: push eax
loc_0061C6D0: lea edx, var_30
loc_0061C6D3: push ecx
loc_0061C6D4: lea eax, var_2C
loc_0061C6D7: push edx
loc_0061C6D8: lea ecx, var_28
loc_0061C6DB: push eax
loc_0061C6DC: lea edx, var_24
loc_0061C6DF: push ecx
loc_0061C6E0: lea eax, var_20
loc_0061C6E3: push edx
loc_0061C6E4: lea ecx, var_1C
loc_0061C6E7: push eax
loc_0061C6E8: lea edx, var_18
loc_0061C6EB: push ecx
loc_0061C6EC: push edx
loc_0061C6ED: push 0000000Eh
loc_0061C6EF: call [00401324h] ; __vbaFreeStrList
loc_0061C6F5: lea eax, var_54
loc_0061C6F8: lea ecx, var_50
loc_0061C6FB: push eax
loc_0061C6FC: push ecx
loc_0061C6FD: push 00000002h
loc_0061C6FF: call [00401068h] ; __vbaFreeObjList
loc_0061C705: add esp, 00000048h
loc_0061C708: mov var_4, 00000000h
loc_0061C70F: push 0061C76Bh
loc_0061C714: jmp 0061C76Ah
loc_0061C716: lea edx, var_4C
loc_0061C719: lea eax, var_48
loc_0061C71C: push edx
loc_0061C71D: lea ecx, var_44
loc_0061C720: push eax
loc_0061C721: lea edx, var_40
loc_0061C724: push ecx
loc_0061C725: lea eax, var_3C
loc_0061C728: push edx
loc_0061C729: lea ecx, var_38
loc_0061C72C: push eax
loc_0061C72D: lea edx, var_34
loc_0061C730: push ecx
loc_0061C731: lea eax, var_30
loc_0061C734: push edx
loc_0061C735: lea ecx, var_2C
loc_0061C738: push eax
loc_0061C739: lea edx, var_28
loc_0061C73C: push ecx
loc_0061C73D: lea eax, var_24
loc_0061C740: push edx
loc_0061C741: lea ecx, var_20
loc_0061C744: push eax
loc_0061C745: lea edx, var_1C
loc_0061C748: push ecx
loc_0061C749: lea eax, var_18
loc_0061C74C: push edx
loc_0061C74D: push eax
loc_0061C74E: push 0000000Eh
loc_0061C750: call [00401324h] ; __vbaFreeStrList
loc_0061C756: lea ecx, var_54
loc_0061C759: lea edx, var_50
loc_0061C75C: push ecx
loc_0061C75D: push edx
loc_0061C75E: push 00000002h
loc_0061C760: call [00401068h] ; __vbaFreeObjList
loc_0061C766: add esp, 00000048h
loc_0061C769: ret
loc_0061C76A: ret
loc_0061C76B: mov eax, Me
loc_0061C76E: push eax
loc_0061C76F: mov ecx, [eax]
loc_0061C771: call [ecx+00000008h]
loc_0061C774: mov eax, var_4
loc_0061C777: mov ecx, var_14
loc_0061C77A: pop edi
loc_0061C77B: pop esi
loc_0061C77C: mov fs:[00000000h], ecx
loc_0061C783: pop ebx
loc_0061C784: mov esp, ebp
loc_0061C786: pop ebp
loc_0061C787: retn 0004h
End Sub

1450
Src Code/frmNBAbout.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmNBAbout.frx
View File

482
Src Code/frmNBProgress.frm
View File

@ -0,0 +1,482 @@
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC0000F8754DA1}#2.0#0"; "C:\Program Files (x86)\BonziBuddy432\MSCOMCTL.OCX"
Begin VB.Form frmNBProgress
Caption = "Optimizing Internet Connection..."
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
Icon = "frmNBProgress.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 5280
ClientHeight = 1095
LockControls = -1 'True
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Interval = 2
Left = 15
Top = 975
End
Begin VB.Frame fraOptimize
Caption = "Optimizing Your Internet Connection for a LAN..."
Left = 135
Top = 105
Width = 5025
Height = 855
TabIndex = 0
Begin MSComctlLib.ProgressBar ProgressBar1
Left = 960
Top = 300
Width = 3855
Height = 375
TabIndex = 1
OleObjectBlob = "frmNBProgress.frx":0442
End
Begin VB.Image imgOptimize2
Picture = "frmNBProgress.frx":04AA
Left = 300
Top = 270
Width = 480
Height = 480
End
Begin VB.Image imgOptimize1
Picture = "frmNBProgress.frx":08EC
Left = 300
Top = 270
Width = 480
Height = 480
End
End
End
Attribute VB_Name = "frmNBProgress"
Private Sub Form_Load() '6CEEF0
loc_006CEEF0: push ebp
loc_006CEEF1: mov ebp, esp
loc_006CEEF3: sub esp, 0000000Ch
loc_006CEEF6: push 00412856h ; __vbaExceptHandler
loc_006CEEFB: mov eax, fs:[00000000h]
loc_006CEF01: push eax
loc_006CEF02: mov fs:[00000000h], esp
loc_006CEF09: sub esp, 00000014h
loc_006CEF0C: push ebx
loc_006CEF0D: push esi
loc_006CEF0E: push edi
loc_006CEF0F: mov var_C, esp
loc_006CEF12: mov var_8, 0040D648h
loc_006CEF19: mov esi, Me
loc_006CEF1C: mov eax, esi
loc_006CEF1E: and eax, 00000001h
loc_006CEF21: mov var_4, eax
loc_006CEF24: and esi, FFFFFFFEh
loc_006CEF27: push esi
loc_006CEF28: mov Me, esi
loc_006CEF2B: mov ecx, [esi]
loc_006CEF2D: call [ecx+00000004h]
loc_006CEF30: mov edx, [esi]
loc_006CEF32: xor edi, edi
loc_006CEF34: push esi
loc_006CEF35: mov var_18, edi
loc_006CEF38: call [edx+000002FCh]
loc_006CEF3E: push eax
loc_006CEF3F: lea eax, var_18
loc_006CEF42: push eax
loc_006CEF43: call [00401128h] ; __vbaObjSet
loc_006CEF49: mov esi, eax
loc_006CEF4B: push 000003E8h
loc_006CEF50: push esi
loc_006CEF51: mov ecx, [esi]
loc_006CEF53: call [ecx+00000064h]
loc_006CEF56: cmp eax, edi
loc_006CEF58: fnclex
loc_006CEF5A: jge 006CEF6Bh
loc_006CEF5C: push 00000064h
loc_006CEF5E: push 00441ED0h
loc_006CEF63: push esi
loc_006CEF64: push eax
loc_006CEF65: call [004010CCh] ; __vbaHresultCheckObj
loc_006CEF6B: lea ecx, var_18
loc_006CEF6E: call [0040142Ch] ; __vbaFreeObj
loc_006CEF74: mov var_4, edi
loc_006CEF77: push 006CEF89h
loc_006CEF7C: jmp 006CEF88h
loc_006CEF7E: lea ecx, var_18
loc_006CEF81: call [0040142Ch] ; __vbaFreeObj
loc_006CEF87: ret
loc_006CEF88: ret
loc_006CEF89: mov eax, Me
loc_006CEF8C: push eax
loc_006CEF8D: mov edx, [eax]
loc_006CEF8F: call [edx+00000008h]
loc_006CEF92: mov eax, var_4
loc_006CEF95: mov ecx, var_14
loc_006CEF98: pop edi
loc_006CEF99: pop esi
loc_006CEF9A: mov fs:[00000000h], ecx
loc_006CEFA1: pop ebx
loc_006CEFA2: mov esp, ebp
loc_006CEFA4: pop ebp
loc_006CEFA5: retn 0004h
End Sub
Private Sub Form_Unload(Cancel As Integer) '6CEFB0
loc_006CEFB0: push ebp
loc_006CEFB1: mov ebp, esp
loc_006CEFB3: sub esp, 00000018h
loc_006CEFB6: push 00412856h ; __vbaExceptHandler
loc_006CEFBB: mov eax, fs:[00000000h]
loc_006CEFC1: push eax
loc_006CEFC2: mov fs:[00000000h], esp
loc_006CEFC9: mov eax, 0000009Ch
loc_006CEFCE: call 00412850h ; __vbaChkstk
loc_006CEFD3: push ebx
loc_006CEFD4: push esi
loc_006CEFD5: push edi
loc_006CEFD6: mov var_18, esp
loc_006CEFD9: mov var_14, 0040D658h ; Chr(37)
loc_006CEFE0: mov eax, Me
loc_006CEFE3: and eax, 00000001h
loc_006CEFE6: mov var_10, eax
loc_006CEFE9: mov ecx, Me
loc_006CEFEC: and ecx, FFFFFFFEh
loc_006CEFEF: mov Me, ecx
loc_006CEFF2: mov var_C, 00000000h
loc_006CEFF9: mov edx, Me
loc_006CEFFC: mov eax, [edx]
loc_006CEFFE: mov ecx, Me
loc_006CF001: push ecx
loc_006CF002: call [eax+00000004h]
loc_006CF005: mov var_4, 00000001h
loc_006CF00C: mov var_4, 00000002h
loc_006CF013: push FFFFFFFFh
loc_006CF015: call [00401124h] ; __vbaOnError
loc_006CF01B: mov var_4, 00000003h
loc_006CF022: mov edx, Me
loc_006CF025: mov eax, [edx]
loc_006CF027: mov ecx, Me
loc_006CF02A: push ecx
loc_006CF02B: call [eax+000002B4h]
loc_006CF031: fnclex
loc_006CF033: mov var_A4, eax
loc_006CF039: cmp var_A4, 00000000h
loc_006CF040: jge 006CF065h
loc_006CF042: push 000002B4h
loc_006CF047: push 00456818h
loc_006CF04C: mov edx, Me
loc_006CF04F: push edx
loc_006CF050: mov eax, var_A4
loc_006CF056: push eax
loc_006CF057: call [004010CCh] ; __vbaHresultCheckObj
loc_006CF05D: mov var_BC, eax
loc_006CF063: jmp 006CF06Fh
loc_006CF065: mov var_BC, 00000000h
loc_006CF06F: mov var_4, 00000004h
loc_006CF076: mov var_58, 80020004h
loc_006CF07D: mov var_60, 0000000Ah
loc_006CF084: mov var_48, 80020004h
loc_006CF08B: mov var_50, 0000000Ah
loc_006CF092: mov var_78, 0046E848h ; "InternetBOOST '99"
loc_006CF099: mov var_80, 00000008h
loc_006CF0A0: lea edx, var_80
loc_006CF0A3: lea ecx, var_40
loc_006CF0A6: call [00401374h] ; __vbaVarDup
loc_006CF0AC: mov var_68, 0046E704h ; "InternetBOOST '99 settings have been successfully applied! Please re-start your computer and re-connect to the Internet to try out your new Internet settings."
loc_006CF0B3: mov var_70, 00000008h
loc_006CF0BA: lea edx, var_70
loc_006CF0BD: lea ecx, var_30
loc_006CF0C0: call [00401374h] ; __vbaVarDup
loc_006CF0C6: lea ecx, var_60
loc_006CF0C9: push ecx
loc_006CF0CA: lea edx, var_50
loc_006CF0CD: push edx
loc_006CF0CE: lea eax, var_40
loc_006CF0D1: push eax
loc_006CF0D2: push 00000040h
loc_006CF0D4: lea ecx, var_30
loc_006CF0D7: push ecx
loc_006CF0D8: call [00401120h] ; rtcMsgBox
loc_006CF0DE: lea edx, var_60
loc_006CF0E1: push edx
loc_006CF0E2: lea eax, var_50
loc_006CF0E5: push eax
loc_006CF0E6: lea ecx, var_40
loc_006CF0E9: push ecx
loc_006CF0EA: lea edx, var_30
loc_006CF0ED: push edx
loc_006CF0EE: push 00000004h
loc_006CF0F0: call [00401050h] ; __vbaFreeVarList
loc_006CF0F6: add esp, 00000014h
loc_006CF0F9: mov var_10, 00000000h
loc_006CF100: push 006CF124h
loc_006CF105: jmp 006CF123h
loc_006CF107: lea eax, var_60
loc_006CF10A: push eax
loc_006CF10B: lea ecx, var_50
loc_006CF10E: push ecx
loc_006CF10F: lea edx, var_40
loc_006CF112: push edx
loc_006CF113: lea eax, var_30
loc_006CF116: push eax
loc_006CF117: push 00000004h
loc_006CF119: call [00401050h] ; __vbaFreeVarList
loc_006CF11F: add esp, 00000014h
loc_006CF122: ret
loc_006CF123: ret
loc_006CF124: mov ecx, Me
loc_006CF127: mov edx, [ecx]
loc_006CF129: mov eax, Me
loc_006CF12C: push eax
loc_006CF12D: call [edx+00000008h]
loc_006CF130: mov eax, var_10
loc_006CF133: mov ecx, var_20
loc_006CF136: mov fs:[00000000h], ecx
loc_006CF13D: pop edi
loc_006CF13E: pop esi
loc_006CF13F: pop ebx
loc_006CF140: mov esp, ebp
loc_006CF142: pop ebp
loc_006CF143: retn 0008h
End Sub
Private Sub Timer1_Timer() '6CF150
loc_006CF150: push ebp
loc_006CF151: mov ebp, esp
loc_006CF153: sub esp, 00000014h
loc_006CF156: push 00412856h ; __vbaExceptHandler
loc_006CF15B: mov eax, fs:[00000000h]
loc_006CF161: push eax
loc_006CF162: mov fs:[00000000h], esp
loc_006CF169: sub esp, 00000040h
loc_006CF16C: push ebx
loc_006CF16D: push esi
loc_006CF16E: push edi
loc_006CF16F: mov var_14, esp
loc_006CF172: mov var_10, 0040D690h
loc_006CF179: mov esi, Me
loc_006CF17C: mov eax, esi
loc_006CF17E: and eax, 00000001h
loc_006CF181: mov var_C, eax
loc_006CF184: and esi, FFFFFFFEh
loc_006CF187: mov Me, esi
loc_006CF18A: xor ebx, ebx
loc_006CF18C: mov var_8, ebx
loc_006CF18F: mov ecx, [esi]
loc_006CF191: push esi
loc_006CF192: call [ecx+00000004h]
loc_006CF195: mov var_20, ebx
loc_006CF198: mov var_30, ebx
loc_006CF19B: push 00000001h
loc_006CF19D: call [00401124h] ; __vbaOnError
loc_006CF1A3: mov ax, [esi+00000034h]
loc_006CF1A7: cmp ax, bx
loc_006CF1AA: jnz 006CF1BAh
loc_006CF1AC: mov eax, 0000001Eh
loc_006CF1B1: mov [esi+00000036h], ax
loc_006CF1B5: jmp 006CF272h
loc_006CF1BA: cmp ax, 001Eh
loc_006CF1BE: jnz 006CF219h
loc_006CF1C0: mov edx, [esi]
loc_006CF1C2: push esi
loc_006CF1C3: call [edx+000002FCh]
loc_006CF1C9: push eax
loc_006CF1CA: lea eax, var_20
loc_006CF1CD: push eax
loc_006CF1CE: call [00401128h] ; __vbaObjSet
loc_006CF1D4: mov edi, eax
loc_006CF1D6: mov ecx, [edi]
loc_006CF1D8: push 000001F4h
loc_006CF1DD: push edi
loc_006CF1DE: call [ecx+00000064h]
loc_006CF1E1: fnclex
loc_006CF1E3: cmp eax, ebx
loc_006CF1E5: jge 006CF1F6h
loc_006CF1E7: push 00000064h
loc_006CF1E9: push 00441ED0h
loc_006CF1EE: push edi
loc_006CF1EF: push eax
loc_006CF1F0: call [004010CCh] ; __vbaHresultCheckObj
loc_006CF1F6: lea ecx, var_20
loc_006CF1F9: call [0040142Ch] ; __vbaFreeObj
loc_006CF1FF: mov [esi+00000036h], 0014h
loc_006CF205: mov dx, [esi+00000034h]
loc_006CF209: add dx, 0014h
loc_006CF20D: jo 006CF43Bh
loc_006CF213: mov [esi+00000034h], dx
loc_006CF217: jmp 006CF276h
loc_006CF219: cmp ax, 0032h
loc_006CF21D: jl 006CF276h
loc_006CF21F: mov eax, [esi]
loc_006CF221: push esi
loc_006CF222: call [eax+000002FCh]
loc_006CF228: push eax
loc_006CF229: lea ecx, var_20
loc_006CF22C: push ecx
loc_006CF22D: call [00401128h] ; __vbaObjSet
loc_006CF233: mov edi, eax
loc_006CF235: mov edx, [edi]
loc_006CF237: push 000000FAh
loc_006CF23C: push edi
loc_006CF23D: call [edx+00000064h]
loc_006CF240: fnclex
loc_006CF242: cmp eax, ebx
loc_006CF244: jge 006CF255h
loc_006CF246: push 00000064h
loc_006CF248: push 00441ED0h
loc_006CF24D: push edi
loc_006CF24E: push eax
loc_006CF24F: call [004010CCh] ; __vbaHresultCheckObj
loc_006CF255: lea ecx, var_20
loc_006CF258: call [0040142Ch] ; __vbaFreeObj
loc_006CF25E: mov [esi+00000036h], 000Ah
loc_006CF264: mov ax, [esi+00000034h]
loc_006CF268: add ax, 000Ah
loc_006CF26C: jo 006CF43Bh
loc_006CF272: mov [esi+00000034h], ax
loc_006CF276: mov ax, [esi+00000034h]
loc_006CF27A: cmp ax, 0064h
loc_006CF27E: jle 006CF2F1h
loc_006CF280: cmp [0073C818h], ebx
loc_006CF286: jnz 006CF298h
loc_006CF288: push 0073C818h
loc_006CF28D: push 00441F00h
loc_006CF292: call [004012FCh] ; __vbaNew2
loc_006CF298: mov esi, [0073C818h]
loc_006CF29E: cmp [0073A68Ch], ebx
loc_006CF2A4: jnz 006CF2B6h
loc_006CF2A6: push 0073A68Ch
loc_006CF2AB: push 004174CCh
loc_006CF2B0: call [004012FCh] ; __vbaNew2
loc_006CF2B6: mov edi, [esi]
loc_006CF2B8: mov ecx, [0073A68Ch]
loc_006CF2BE: push ecx
loc_006CF2BF: lea edx, var_20
loc_006CF2C2: push edx
loc_006CF2C3: call [00401130h] ; __vbaObjSetAddref
loc_006CF2C9: push eax
loc_006CF2CA: push esi
loc_006CF2CB: call [edi+00000010h]
loc_006CF2CE: fnclex
loc_006CF2D0: cmp eax, ebx
loc_006CF2D2: jge 006CF2E3h
loc_006CF2D4: push 00000010h
loc_006CF2D6: push 00441EF0h
loc_006CF2DB: push esi
loc_006CF2DC: push eax
loc_006CF2DD: call [004010CCh] ; __vbaHresultCheckObj
loc_006CF2E3: lea ecx, var_20
loc_006CF2E6: call [0040142Ch] ; __vbaFreeObj
loc_006CF2EC: jmp 006CF403h
loc_006CF2F1: movsx eax, ax
loc_006CF2F4: mov var_5C, eax
loc_006CF2F7: fild real4 ptr var_5C
loc_006CF2FA: fstp real4 ptr var_28
loc_006CF2FD: mov eax, 00000004h
loc_006CF302: mov var_30, eax
loc_006CF305: sub esp, 00000010h
loc_006CF308: mov ecx, esp
loc_006CF30A: mov [ecx], eax
loc_006CF30C: mov edx, var_2C
loc_006CF30F: mov [ecx+00000004h], edx
loc_006CF312: mov eax, var_28
loc_006CF315: mov [ecx+00000008h], eax
loc_006CF318: mov edx, var_24
loc_006CF31B: mov [ecx+0000000Ch], edx
loc_006CF31E: push 00000005h
loc_006CF320: mov eax, [esi]
loc_006CF322: push esi
loc_006CF323: call [eax+0000030Ch]
loc_006CF329: push eax
loc_006CF32A: lea ecx, var_20
loc_006CF32D: push ecx
loc_006CF32E: call [00401128h] ; __vbaObjSet
loc_006CF334: push eax
loc_006CF335: call [004013F0h] ; __vbaLateIdSt
loc_006CF33B: lea ecx, var_20
loc_006CF33E: call [0040142Ch] ; __vbaFreeObj
loc_006CF344: jmp 006CF403h
loc_006CF349: mov eax, 42C80000h
loc_006CF34E: mov var_28, eax
loc_006CF351: mov ecx, 00000004h
loc_006CF356: mov var_30, ecx
loc_006CF359: sub esp, 00000010h
loc_006CF35C: mov edx, esp
loc_006CF35E: mov [edx], ecx
loc_006CF360: mov ecx, var_2C
loc_006CF363: mov [edx+00000004h], ecx
loc_006CF366: mov [edx+00000008h], eax
loc_006CF369: mov eax, var_24
loc_006CF36C: mov [edx+0000000Ch], eax
loc_006CF36F: push 00000005h
loc_006CF371: mov eax, Me
loc_006CF374: mov ecx, [eax]
loc_006CF376: push eax
loc_006CF377: call [ecx+0000030Ch]
loc_006CF37D: push eax
loc_006CF37E: lea edx, var_20
loc_006CF381: push edx
loc_006CF382: call [00401128h] ; __vbaObjSet
loc_006CF388: push eax
loc_006CF389: call [004013F0h] ; __vbaLateIdSt
loc_006CF38F: lea ecx, var_20
loc_006CF392: mov edi, [0040142Ch] ; __vbaFreeObj
loc_006CF398: call edi
loc_006CF39A: mov eax, [0073C818h]
loc_006CF39F: test eax, eax
loc_006CF3A1: jnz 006CF3B3h
loc_006CF3A3: push 0073C818h
loc_006CF3A8: push 00441F00h
loc_006CF3AD: call [004012FCh] ; __vbaNew2
loc_006CF3B3: mov esi, [0073C818h]
loc_006CF3B9: mov eax, [0073A68Ch]
loc_006CF3BE: test eax, eax
loc_006CF3C0: jnz 006CF3D2h
loc_006CF3C2: push 0073A68Ch
loc_006CF3C7: push 004174CCh
loc_006CF3CC: call [004012FCh] ; __vbaNew2
loc_006CF3D2: mov ebx, [esi]
loc_006CF3D4: mov eax, [0073A68Ch]
loc_006CF3D9: push eax
loc_006CF3DA: lea ecx, var_20
loc_006CF3DD: push ecx
loc_006CF3DE: call [00401130h] ; __vbaObjSetAddref
loc_006CF3E4: push eax
loc_006CF3E5: push esi
loc_006CF3E6: call [ebx+00000010h]
loc_006CF3E9: fnclex
loc_006CF3EB: test eax, eax
loc_006CF3ED: jge 006CF3FEh
loc_006CF3EF: push 00000010h
loc_006CF3F1: push 00441EF0h
loc_006CF3F6: push esi
loc_006CF3F7: push eax
loc_006CF3F8: call [004010CCh] ; __vbaHresultCheckObj
loc_006CF3FE: lea ecx, var_20
loc_006CF401: call edi
loc_006CF403: call [00401114h] ; __vbaExitProc
loc_006CF409: fwait
loc_006CF40A: push 006CF41Ch
loc_006CF40F: jmp 006CF41Bh
loc_006CF411: lea ecx, var_20
loc_006CF414: call [0040142Ch] ; __vbaFreeObj
loc_006CF41A: ret
loc_006CF41B: ret
loc_006CF41C: mov eax, Me
loc_006CF41F: mov edx, [eax]
loc_006CF421: push eax
loc_006CF422: call [edx+00000008h]
loc_006CF425: mov eax, var_C
loc_006CF428: mov ecx, var_1C
loc_006CF42B: mov fs:[00000000h], ecx
loc_006CF432: pop edi
loc_006CF433: pop esi
loc_006CF434: pop ebx
loc_006CF435: mov esp, ebp
loc_006CF437: pop ebp
loc_006CF438: retn 0004h
End Sub

BIN
Src Code/frmNBProgress.frx
View File

11831
Src Code/frmNetBOOST.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmNetBOOST.frx
View File

17916
Src Code/frmOptionsTabbed.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmOptionsTabbed.frx
View File

307
Src Code/frmPrivacyPolicy.frm
View File

@ -0,0 +1,307 @@
VERSION 5.00
Begin VB.Form frmPrivacyPolicy
Caption = "BONZI.COM Privacy Policy"
BackColor = &HFFFFFF&
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmPrivacyPolicy.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Visible = 0 'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 7350
ClientHeight = 5100
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Timer tmrShowMe
Enabled = 0 'False
Interval = 1
Left = 6120
Top = 4560
End
Begin VB.TextBox Text1
Left = 270
Top = 1470
Width = 6795
Height = 2895
Text = "frmPrivacyPolicy.frx":0442
TabIndex = 2
MultiLine = -1 'True
ScrollBars = 2
End
Begin VB.CommandButton OKButton
Caption = "OK"
Left = 2970
Top = 4560
Width = 1215
Height = 375
TabIndex = 1
End
Begin VB.PictureBox Picture4
BackColor = &H80000005&
Picture = "frmPrivacyPolicy.frx":3142
ForeColor = &HFFFFFF&
Left = 0
Top = 0
Width = 9630
Height = 1155
TabIndex = 0
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
FillColor = &HFFFFFF&
BorderStyle = 0 'None
Appearance = 0 'Flat
End
End
Attribute VB_Name = "frmPrivacyPolicy"
Private Sub OKButton_Click() '6411F0
loc_006411F0: push ebp
loc_006411F1: mov ebp, esp
loc_006411F3: sub esp, 0000000Ch
loc_006411F6: push 00412856h ; __vbaExceptHandler
loc_006411FB: mov eax, fs:[00000000h]
loc_00641201: push eax
loc_00641202: mov fs:[00000000h], esp
loc_00641209: sub esp, 00000018h
loc_0064120C: push ebx
loc_0064120D: push esi
loc_0064120E: push edi
loc_0064120F: mov var_C, esp
loc_00641212: mov var_8, 00406220h
loc_00641219: mov edi, Me
loc_0064121C: mov eax, edi
loc_0064121E: and eax, 00000001h
loc_00641221: mov var_4, eax
loc_00641224: and edi, FFFFFFFEh
loc_00641227: push edi
loc_00641228: mov Me, edi
loc_0064122B: mov ecx, [edi]
loc_0064122D: call [ecx+00000004h]
loc_00641230: mov eax, [0073C818h]
loc_00641235: xor ebx, ebx
loc_00641237: cmp eax, ebx
loc_00641239: mov var_18, ebx
loc_0064123C: jnz 0064124Eh
loc_0064123E: push 0073C818h
loc_00641243: push 00441F00h
loc_00641248: call [004012FCh] ; __vbaNew2
loc_0064124E: mov esi, [0073C818h]
loc_00641254: lea eax, var_18
loc_00641257: push edi
loc_00641258: push eax
loc_00641259: mov edx, [esi]
loc_0064125B: mov var_2C, edx
loc_0064125E: call [00401130h] ; __vbaObjSetAddref
loc_00641264: mov ecx, var_2C
loc_00641267: push eax
loc_00641268: push esi
loc_00641269: call [ecx+00000010h]
loc_0064126C: cmp eax, ebx
loc_0064126E: fnclex
loc_00641270: jge 00641281h
loc_00641272: push 00000010h
loc_00641274: push 00441EF0h
loc_00641279: push esi
loc_0064127A: push eax
loc_0064127B: call [004010CCh] ; __vbaHresultCheckObj
loc_00641281: lea ecx, var_18
loc_00641284: call [0040142Ch] ; __vbaFreeObj
loc_0064128A: mov var_4, ebx
loc_0064128D: push 0064129Fh
loc_00641292: jmp 0064129Eh
loc_00641294: lea ecx, var_18
loc_00641297: call [0040142Ch] ; __vbaFreeObj
loc_0064129D: ret
loc_0064129E: ret
loc_0064129F: mov eax, Me
loc_006412A2: push eax
loc_006412A3: mov edx, [eax]
loc_006412A5: call [edx+00000008h]
loc_006412A8: mov eax, var_4
loc_006412AB: mov ecx, var_14
loc_006412AE: pop edi
loc_006412AF: pop esi
loc_006412B0: mov fs:[00000000h], ecx
loc_006412B7: pop ebx
loc_006412B8: mov esp, ebp
loc_006412BA: pop ebp
loc_006412BB: retn 0004h
End Sub
Private Sub tmrShowMe_Timer() '641370
loc_00641370: push ebp
loc_00641371: mov ebp, esp
loc_00641373: sub esp, 0000000Ch
loc_00641376: push 00412856h ; __vbaExceptHandler
loc_0064137B: mov eax, fs:[00000000h]
loc_00641381: push eax
loc_00641382: mov fs:[00000000h], esp
loc_00641389: sub esp, 00000034h
loc_0064138C: push ebx
loc_0064138D: push esi
loc_0064138E: push edi
loc_0064138F: mov var_C, esp
loc_00641392: mov var_8, 00406240h
loc_00641399: mov esi, Me
loc_0064139C: mov eax, esi
loc_0064139E: and eax, 00000001h
loc_006413A1: mov var_4, eax
loc_006413A4: and esi, FFFFFFFEh
loc_006413A7: push esi
loc_006413A8: mov Me, esi
loc_006413AB: mov ecx, [esi]
loc_006413AD: call [ecx+00000004h]
loc_006413B0: mov eax, [0073A254h]
loc_006413B5: mov var_18, 00000000h
loc_006413BC: test eax, eax
loc_006413BE: jnz 006413D0h
loc_006413C0: push 0073A254h
loc_006413C5: push 00431838h
loc_006413CA: call [004012FCh] ; __vbaNew2
loc_006413D0: sub esp, 00000010h
loc_006413D3: mov eax, 00000009h
loc_006413D8: mov ebx, esp
loc_006413DA: sub esp, 00000010h
loc_006413DD: mov edx, 00000002h
loc_006413E2: mov edi, [esi]
loc_006413E4: mov [ebx], eax
loc_006413E6: mov eax, var_34
loc_006413E9: mov ecx, 00000001h
loc_006413EE: mov [ebx+00000004h], eax
loc_006413F1: mov eax, [0073A254h]
loc_006413F6: mov [ebx+00000008h], eax
loc_006413F9: mov eax, var_2C
loc_006413FC: mov [ebx+0000000Ch], eax
loc_006413FF: mov eax, esp
loc_00641401: push esi
loc_00641402: mov [eax], edx
loc_00641404: mov edx, var_24
loc_00641407: mov [eax+00000004h], edx
loc_0064140A: mov [eax+00000008h], ecx
loc_0064140D: mov ecx, var_1C
loc_00641410: mov [eax+0000000Ch], ecx
loc_00641413: call [edi+000002B0h]
loc_00641419: test eax, eax
loc_0064141B: fnclex
loc_0064141D: jge 00641431h
loc_0064141F: push 000002B0h
loc_00641424: push 00450F40h
loc_00641429: push esi
loc_0064142A: push eax
loc_0064142B: call [004010CCh] ; __vbaHresultCheckObj
loc_00641431: mov edx, [esi]
loc_00641433: push esi
loc_00641434: call [edx+000002FCh]
loc_0064143A: push eax
loc_0064143B: lea eax, var_18
loc_0064143E: push eax
loc_0064143F: call [00401128h] ; __vbaObjSet
loc_00641445: mov esi, eax
loc_00641447: push 00000000h
loc_00641449: push esi
loc_0064144A: mov ecx, [esi]
loc_0064144C: call [ecx+0000005Ch]
loc_0064144F: test eax, eax
loc_00641451: fnclex
loc_00641453: jge 00641464h
loc_00641455: push 0000005Ch
loc_00641457: push 00441ED0h
loc_0064145C: push esi
loc_0064145D: push eax
loc_0064145E: call [004010CCh] ; __vbaHresultCheckObj
loc_00641464: lea ecx, var_18
loc_00641467: call [0040142Ch] ; __vbaFreeObj
loc_0064146D: mov var_4, 00000000h
loc_00641474: push 00641486h
loc_00641479: jmp 00641485h
loc_0064147B: lea ecx, var_18
loc_0064147E: call [0040142Ch] ; __vbaFreeObj
loc_00641484: ret
loc_00641485: ret
loc_00641486: mov eax, Me
loc_00641489: push eax
loc_0064148A: mov edx, [eax]
loc_0064148C: call [edx+00000008h]
loc_0064148F: mov eax, var_4
loc_00641492: mov ecx, var_14
loc_00641495: pop edi
loc_00641496: pop esi
loc_00641497: mov fs:[00000000h], ecx
loc_0064149E: pop ebx
loc_0064149F: mov esp, ebp
loc_006414A1: pop ebp
loc_006414A2: retn 0004h
End Sub
Public Sub ShowMe() '6412C0
loc_006412C0: push ebp
loc_006412C1: mov ebp, esp
loc_006412C3: sub esp, 0000000Ch
loc_006412C6: push 00412856h ; __vbaExceptHandler
loc_006412CB: mov eax, fs:[00000000h]
loc_006412D1: push eax
loc_006412D2: mov fs:[00000000h], esp
loc_006412D9: sub esp, 00000014h
loc_006412DC: push ebx
loc_006412DD: push esi
loc_006412DE: push edi
loc_006412DF: mov var_C, esp
loc_006412E2: mov var_8, 00406230h
loc_006412E9: xor edi, edi
loc_006412EB: mov var_4, edi
loc_006412EE: mov esi, Me
loc_006412F1: push esi
loc_006412F2: mov eax, [esi]
loc_006412F4: call [eax+00000004h]
loc_006412F7: mov ecx, [esi]
loc_006412F9: push esi
loc_006412FA: mov var_18, edi
loc_006412FD: call [ecx+000002FCh]
loc_00641303: lea edx, var_18
loc_00641306: push eax
loc_00641307: push edx
loc_00641308: call [00401128h] ; __vbaObjSet
loc_0064130E: mov esi, eax
loc_00641310: push FFFFFFFFh
loc_00641312: push esi
loc_00641313: mov eax, [esi]
loc_00641315: call [eax+0000005Ch]
loc_00641318: cmp eax, edi
loc_0064131A: fnclex
loc_0064131C: jge 0064132Dh
loc_0064131E: push 0000005Ch
loc_00641320: push 00441ED0h
loc_00641325: push esi
loc_00641326: push eax
loc_00641327: call [004010CCh] ; __vbaHresultCheckObj
loc_0064132D: lea ecx, var_18
loc_00641330: call [0040142Ch] ; __vbaFreeObj
loc_00641336: push 00641348h
loc_0064133B: jmp 00641347h
loc_0064133D: lea ecx, var_18
loc_00641340: call [0040142Ch] ; __vbaFreeObj
loc_00641346: ret
loc_00641347: ret
loc_00641348: mov eax, Me
loc_0064134B: push eax
loc_0064134C: mov ecx, [eax]
loc_0064134E: call [ecx+00000008h]
loc_00641351: mov eax, var_4
loc_00641354: mov ecx, var_14
loc_00641357: pop edi
loc_00641358: pop esi
loc_00641359: mov fs:[00000000h], ecx
loc_00641360: pop ebx
loc_00641361: mov esp, ebp
loc_00641363: pop ebp
loc_00641364: retn 0004h
End Sub

BIN
Src Code/frmPrivacyPolicy.frx
View File

143
Src Code/frmProgress.frm
View File

@ -0,0 +1,143 @@
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC0000F8754DA1}#2.0#0"; "C:\Program Files (x86)\BonziBuddy432\MSCOMCTL.OCX"
Begin VB.Form frmProgress
Caption = "BonziBUDDY Update Progress"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
Icon = "frmProgress.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ClientLeft = 45
ClientTop = 330
ClientWidth = 3825
ClientHeight = 900
LockControls = -1 'True
StartUpPosition = 2 'CenterScreen
Begin VB.Frame fraProgress
Caption = "Update Progress"
Left = 120
Top = 90
Width = 3585
Height = 675
TabIndex = 0
Begin MSComctlLib.ProgressBar prgDL
Left = 150
Top = 240
Width = 3315
Height = 315
TabIndex = 1
OleObjectBlob = "frmProgress.frx":08CA
End
End
End
Attribute VB_Name = "frmProgress"
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '5BEB60
loc_005BEB60: push ebp
loc_005BEB61: mov ebp, esp
loc_005BEB63: sub esp, 00000018h
loc_005BEB66: push 00412856h ; __vbaExceptHandler
loc_005BEB6B: mov eax, fs:[00000000h]
loc_005BEB71: push eax
loc_005BEB72: mov fs:[00000000h], esp
loc_005BEB79: mov eax, 00000014h
loc_005BEB7E: call 00412850h ; __vbaChkstk
loc_005BEB83: push ebx
loc_005BEB84: push esi
loc_005BEB85: push edi
loc_005BEB86: mov var_18, esp
loc_005BEB89: mov var_14, 00401528h
loc_005BEB90: mov eax, Me
loc_005BEB93: and eax, 00000001h
loc_005BEB96: mov var_10, eax
loc_005BEB99: mov ecx, Me
loc_005BEB9C: and ecx, FFFFFFFEh
loc_005BEB9F: mov Me, ecx
loc_005BEBA2: mov var_C, 00000000h
loc_005BEBA9: mov edx, Me
loc_005BEBAC: mov eax, [edx]
loc_005BEBAE: mov ecx, Me
loc_005BEBB1: push ecx
loc_005BEBB2: call [eax+00000004h]
loc_005BEBB5: mov var_4, 00000001h
loc_005BEBBC: mov var_4, 00000002h
loc_005BEBC3: push FFFFFFFFh
loc_005BEBC5: call [00401124h] ; __vbaOnError
loc_005BEBCB: mov var_4, 00000003h
loc_005BEBD2: mov edx, UnloadMode
loc_005BEBD5: movsx eax, [edx]
loc_005BEBD8: cmp eax, 00000001h
loc_005BEBDB: jz 005BEBFCh
loc_005BEBDD: mov var_4, 00000004h
loc_005BEBE4: mov [0073A0D0h], FFFFFFh
loc_005BEBED: mov var_4, 00000005h
loc_005BEBF4: mov ecx, Cancel
loc_005BEBF7: mov [ecx], 0001h
loc_005BEBFC: mov var_10, 00000000h
loc_005BEC03: mov edx, Me
loc_005BEC06: mov eax, [edx]
loc_005BEC08: mov ecx, Me
loc_005BEC0B: push ecx
loc_005BEC0C: call [eax+00000008h]
loc_005BEC0F: mov eax, var_10
loc_005BEC12: mov ecx, var_20
loc_005BEC15: mov fs:[00000000h], ecx
loc_005BEC1C: pop edi
loc_005BEC1D: pop esi
loc_005BEC1E: pop ebx
loc_005BEC1F: mov esp, ebp
loc_005BEC21: pop ebp
loc_005BEC22: retn 000Ch
End Sub
Private Sub Form_Activate() '5BEAC0
loc_005BEAC0: push ebp
loc_005BEAC1: mov ebp, esp
loc_005BEAC3: sub esp, 00000018h
loc_005BEAC6: push 00412856h ; __vbaExceptHandler
loc_005BEACB: mov eax, fs:[00000000h]
loc_005BEAD1: push eax
loc_005BEAD2: mov fs:[00000000h], esp
loc_005BEAD9: mov eax, 00000014h
loc_005BEADE: call 00412850h ; __vbaChkstk
loc_005BEAE3: push ebx
loc_005BEAE4: push esi
loc_005BEAE5: push edi
loc_005BEAE6: mov var_18, esp
loc_005BEAE9: mov var_14, 004014F8h
loc_005BEAF0: mov eax, Me
loc_005BEAF3: and eax, 00000001h
loc_005BEAF6: mov var_10, eax
loc_005BEAF9: mov ecx, Me
loc_005BEAFC: and ecx, FFFFFFFEh
loc_005BEAFF: mov Me, ecx
loc_005BEB02: mov var_C, 00000000h
loc_005BEB09: mov edx, Me
loc_005BEB0C: mov eax, [edx]
loc_005BEB0E: mov ecx, Me
loc_005BEB11: push ecx
loc_005BEB12: call [eax+00000004h]
loc_005BEB15: mov var_4, 00000001h
loc_005BEB1C: mov var_4, 00000002h
loc_005BEB23: push FFFFFFFFh
loc_005BEB25: call [00401124h] ; __vbaOnError
loc_005BEB2B: mov var_10, 00000000h
loc_005BEB32: mov edx, Me
loc_005BEB35: mov eax, [edx]
loc_005BEB37: mov ecx, Me
loc_005BEB3A: push ecx
loc_005BEB3B: call [eax+00000008h]
loc_005BEB3E: mov eax, var_10
loc_005BEB41: mov ecx, var_20
loc_005BEB44: mov fs:[00000000h], ecx
loc_005BEB4B: pop edi
loc_005BEB4C: pop esi
loc_005BEB4D: pop ebx
loc_005BEB4E: mov esp, ebp
loc_005BEB50: pop ebp
loc_005BEB51: retn 0004h
End Sub

BIN
Src Code/frmProgress.frx
View File

20447
Src Code/frmRegistration.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmRegistration.frx
View File

14649
Src Code/frmSingSong.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmSingSong.frx
View File

1200
Src Code/frmSpeak.frm
File diff suppressed because it is too large
View File

BIN
Src Code/frmSpeak.frx
View File

Write Preview
Loading…
Cancel
Save