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

1450 lines
45 KiB

VERSION 5.00
Begin VB.Form frmNBAbout
Caption = "About MyApp"
ScaleMode = 0
AutoRedraw = False
FontTransparent = True
BorderStyle = 3 'Fixed Dialog
Icon = "frmNBAbout.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ClipControls = 0 'False
ClientLeft = 2340
ClientTop = 1935
ClientWidth = 5730
ClientHeight = 4725
ScaleLeft = 0
ScaleTop = 0
ScaleWidth = 5380.766
ScaleHeight = 3261.279
LockControls = -1 'True
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "Licensed to:"
Left = 300
Top = 3540
Width = 3735
Height = 795
TabIndex = 6
Begin VB.Label Label1
Caption = "Registration Number: 5324698"
Left = 120
Top = 480
Width = 3435
Height = 195
TabIndex = 8
Alignment = 2 'Center
End
Begin VB.Label lblRegName
Caption = "RegName"
Left = 120
Top = 240
Width = 3435
Height = 195
TabIndex = 7
Alignment = 2 'Center
End
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Left = 4245
Top = 3585
Width = 1260
Height = 345
TabIndex = 0
Default = -1 'True
Cancel = -1 'True
End
Begin VB.CommandButton cmdSysInfo
Caption = "&System Info..."
Left = 4260
Top = 4035
Width = 1245
Height = 345
TabIndex = 1
End
Begin VB.Label lblBuild
Caption = "Build 3"
Left = 3660
Top = 1620
Width = 1275
Height = 225
TabIndex = 9
End
Begin VB.Image Image1
Picture = "frmNBAbout.frx":0442
Left = 135
Top = 60
Width = 5475
Height = 975
End
Begin VB.Line Line1
Index = 1
BorderColor = &H808080&
X1 = 90
Y1 = 3405
X2 = 5654
Y2 = 3405
BorderStyle = 6 'Inside Solid
End
Begin VB.Label lblDescription
Caption = "App Description"
ForeColor = &H0&
Left = 1050
Top = 2085
Width = 3885
Height = 1170
TabIndex = 2
End
Begin VB.Label lblTitle
Caption = "Application Title"
ForeColor = &H0&
Left = 1050
Top = 1200
Width = 3885
Height = 240
TabIndex = 4
End
Begin VB.Line Line1
Index = 0
BorderColor = &HFFFFFF&
X1 = 105
Y1 = 3420
X2 = 5654
Y2 = 3420
BorderWidth = 2
End
Begin VB.Label lblVersion
Caption = "Version"
Left = 1050
Top = 1620
Width = 2505
Height = 225
TabIndex = 5
End
Begin VB.Label lblDisclaimer
Caption = "Copyright 1999, BONZI.COM Software. All rights reserved."
ForeColor = &H0&
Left = 1395
Top = 4470
Width = 4110
Height = 195
TabIndex = 3
Alignment = 1 'Right Justify
AutoSize = -1 'True
End
End
Attribute VB_Name = "frmNBAbout"
Private Sub cmdOK_Click() '6CE000
loc_006CE000: push ebp
loc_006CE001: mov ebp, esp
loc_006CE003: sub esp, 0000000Ch
loc_006CE006: push 00412856h ; __vbaExceptHandler
loc_006CE00B: mov eax, fs:[00000000h]
loc_006CE011: push eax
loc_006CE012: mov fs:[00000000h], esp
loc_006CE019: sub esp, 00000018h
loc_006CE01C: push ebx
loc_006CE01D: push esi
loc_006CE01E: push edi
loc_006CE01F: mov var_C, esp
loc_006CE022: mov var_8, 0040D5F0h
loc_006CE029: mov edi, Me
loc_006CE02C: mov eax, edi
loc_006CE02E: and eax, 00000001h
loc_006CE031: mov var_4, eax
loc_006CE034: and edi, FFFFFFFEh
loc_006CE037: push edi
loc_006CE038: mov Me, edi
loc_006CE03B: mov ecx, [edi]
loc_006CE03D: call [ecx+00000004h]
loc_006CE040: mov eax, [0073C818h]
loc_006CE045: xor ebx, ebx
loc_006CE047: cmp eax, ebx
loc_006CE049: mov var_18, ebx
loc_006CE04C: jnz 006CE05Eh
loc_006CE04E: push 0073C818h
loc_006CE053: push 00441F00h
loc_006CE058: call [004012FCh] ; __vbaNew2
loc_006CE05E: mov esi, [0073C818h]
loc_006CE064: lea eax, var_18
loc_006CE067: push edi
loc_006CE068: push eax
loc_006CE069: mov edx, [esi]
loc_006CE06B: mov var_2C, edx
loc_006CE06E: call [00401130h] ; __vbaObjSetAddref
loc_006CE074: mov ecx, var_2C
loc_006CE077: push eax
loc_006CE078: push esi
loc_006CE079: call [ecx+00000010h]
loc_006CE07C: cmp eax, ebx
loc_006CE07E: fnclex
loc_006CE080: jge 006CE091h
loc_006CE082: push 00000010h
loc_006CE084: push 00441EF0h
loc_006CE089: push esi
loc_006CE08A: push eax
loc_006CE08B: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE091: lea ecx, var_18
loc_006CE094: call [0040142Ch] ; __vbaFreeObj
loc_006CE09A: mov var_4, ebx
loc_006CE09D: push 006CE0AFh
loc_006CE0A2: jmp 006CE0AEh
loc_006CE0A4: lea ecx, var_18
loc_006CE0A7: call [0040142Ch] ; __vbaFreeObj
loc_006CE0AD: ret
loc_006CE0AE: ret
loc_006CE0AF: mov eax, Me
loc_006CE0B2: push eax
loc_006CE0B3: mov edx, [eax]
loc_006CE0B5: call [edx+00000008h]
loc_006CE0B8: mov eax, var_4
loc_006CE0BB: mov ecx, var_14
loc_006CE0BE: pop edi
loc_006CE0BF: pop esi
loc_006CE0C0: mov fs:[00000000h], ecx
loc_006CE0C7: pop ebx
loc_006CE0C8: mov esp, ebp
loc_006CE0CA: pop ebp
loc_006CE0CB: retn 0004h
End Sub
Private Sub Form_Load() '6CE0D0
loc_006CE0D0: push ebp
loc_006CE0D1: mov ebp, esp
loc_006CE0D3: sub esp, 0000000Ch
loc_006CE0D6: push 00412856h ; __vbaExceptHandler
loc_006CE0DB: mov eax, fs:[00000000h]
loc_006CE0E1: push eax
loc_006CE0E2: mov fs:[00000000h], esp
loc_006CE0E9: sub esp, 000000B0h
loc_006CE0EF: push ebx
loc_006CE0F0: push esi
loc_006CE0F1: push edi
loc_006CE0F2: mov var_C, esp
loc_006CE0F5: mov var_8, 0040D600h
loc_006CE0FC: mov ebx, Me
loc_006CE0FF: mov eax, ebx
loc_006CE101: and eax, 00000001h
loc_006CE104: mov var_4, eax
loc_006CE107: and ebx, FFFFFFFEh
loc_006CE10A: push ebx
loc_006CE10B: mov Me, ebx
loc_006CE10E: mov ecx, [ebx]
loc_006CE110: call [ecx+00000004h]
loc_006CE113: lea edx, var_2C
loc_006CE116: xor esi, esi
loc_006CE118: push edx
loc_006CE119: push 000000FAh
loc_006CE11E: mov var_24, esi
loc_006CE121: mov var_28, esi
loc_006CE124: mov var_30, esi
loc_006CE127: mov var_34, esi
loc_006CE12A: mov var_38, esi
loc_006CE12D: mov var_3C, esi
loc_006CE130: mov var_40, esi
loc_006CE133: mov var_44, esi
loc_006CE136: mov var_48, esi
loc_006CE139: mov var_4C, esi
loc_006CE13C: mov var_50, esi
loc_006CE13F: mov var_54, esi
loc_006CE142: mov var_58, esi
loc_006CE145: mov var_5C, esi
loc_006CE148: mov var_6C, esi
loc_006CE14B: mov var_70, esi
loc_006CE14E: mov var_74, esi
loc_006CE151: mov var_78, esi
loc_006CE154: call [00401210h] ; __vbaFixstrConstruct
loc_006CE15A: mov eax, var_2C
loc_006CE15D: mov edi, [00401370h] ; __vbaStrToAnsi
loc_006CE163: push 000000F9h
loc_006CE168: lea ecx, var_3C
loc_006CE16B: push eax
loc_006CE16C: push ecx
loc_006CE16D: call edi
loc_006CE16F: push eax
loc_006CE170: lea edx, var_38
loc_006CE173: push 0043C9F4h
loc_006CE178: push edx
loc_006CE179: call edi
loc_006CE17B: push eax
loc_006CE17C: lea eax, var_34
loc_006CE17F: push 0046857Ch ; "RegName"
loc_006CE184: push eax
loc_006CE185: call edi
loc_006CE187: push eax
loc_006CE188: lea ecx, var_30
loc_006CE18B: push 00468378h ; "NetBOOST"
loc_006CE190: push ecx
loc_006CE191: call edi
loc_006CE193: push eax
loc_006CE194: GetProfileString(%x1v, %x2v, %x3v, %x4v, %x5v)
loc_006CE199: mov edi, eax
loc_006CE19B: call [004010BCh] ; __vbaSetSystemError
loc_006CE1A1: mov edx, var_3C
loc_006CE1A4: lea eax, var_40
loc_006CE1A7: push edx
loc_006CE1A8: push eax
loc_006CE1A9: call [00401260h] ; __vbaStrToUnicode
loc_006CE1AF: mov ecx, var_2C
loc_006CE1B2: push eax
loc_006CE1B3: push ecx
loc_006CE1B4: push esi
loc_006CE1B5: call [004010A4h] ; __vbaLsetFixstr
loc_006CE1BB: lea edx, var_6C
loc_006CE1BE: lea ecx, var_24
loc_006CE1C1: mov var_64, edi
loc_006CE1C4: mov var_6C, 00000003h
loc_006CE1CB: call [00401020h] ; __vbaVarMove
loc_006CE1D1: lea edx, var_40
loc_006CE1D4: lea eax, var_3C
loc_006CE1D7: push edx
loc_006CE1D8: lea ecx, var_38
loc_006CE1DB: push eax
loc_006CE1DC: lea edx, var_34
loc_006CE1DF: push ecx
loc_006CE1E0: lea eax, var_30
loc_006CE1E3: push edx
loc_006CE1E4: push eax
loc_006CE1E5: push 00000005h
loc_006CE1E7: call [00401324h] ; __vbaFreeStrList
loc_006CE1ED: mov ecx, var_2C
loc_006CE1F0: add esp, 00000018h
loc_006CE1F3: push 00000001h
loc_006CE1F5: push ecx
loc_006CE1F6: push esi
loc_006CE1F7: call [004012C8h] ; rtcBstrFromAnsi
loc_006CE1FD: mov edi, [004013C0h] ; __vbaStrMove
loc_006CE203: mov edx, eax
loc_006CE205: lea ecx, var_30
loc_006CE208: call edi
loc_006CE20A: push eax
loc_006CE20B: push esi
loc_006CE20C: call [004012ECh] ; __vbaInStr
loc_006CE212: mov edx, var_2C
loc_006CE215: sub eax, 00000001h
loc_006CE218: jo 006CE7B8h
loc_006CE21E: push eax
loc_006CE21F: lea ecx, var_34
loc_006CE222: call [00401310h] ; __vbaStrCopy
loc_006CE228: push eax
loc_006CE229: call [00401394h] ; rtcLeftCharBstr
loc_006CE22F: mov edx, eax
loc_006CE231: lea ecx, var_38
loc_006CE234: call edi
loc_006CE236: mov edx, var_34
loc_006CE239: mov eax, var_2C
loc_006CE23C: push edx
loc_006CE23D: push eax
loc_006CE23E: push esi
loc_006CE23F: call [004010A4h] ; __vbaLsetFixstr
loc_006CE245: mov edx, var_38
loc_006CE248: lea ecx, var_28
loc_006CE24B: mov var_38, esi
loc_006CE24E: call edi
loc_006CE250: lea ecx, var_34
loc_006CE253: lea edx, var_30
loc_006CE256: push ecx
loc_006CE257: push edx
loc_006CE258: push 00000002h
loc_006CE25A: call [00401324h] ; __vbaFreeStrList
loc_006CE260: mov eax, [ebx]
loc_006CE262: add esp, 0000000Ch
loc_006CE265: push ebx
loc_006CE266: call [eax+00000304h]
loc_006CE26C: lea ecx, var_50
loc_006CE26F: push eax
loc_006CE270: push ecx
loc_006CE271: call [00401128h] ; __vbaObjSet
loc_006CE277: mov edi, eax
loc_006CE279: mov eax, var_28
loc_006CE27C: push eax
loc_006CE27D: push edi
loc_006CE27E: mov edx, [edi]
loc_006CE280: call [edx+00000054h]
loc_006CE283: cmp eax, esi
loc_006CE285: fnclex
loc_006CE287: jge 006CE298h
loc_006CE289: push 00000054h
loc_006CE28B: push 00441988h
loc_006CE290: push edi
loc_006CE291: push eax
loc_006CE292: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE298: lea ecx, var_50
loc_006CE29B: call [0040142Ch] ; __vbaFreeObj
loc_006CE2A1: cmp [0073C818h], esi
loc_006CE2A7: jnz 006CE2B9h
loc_006CE2A9: push 0073C818h
loc_006CE2AE: push 00441F00h
loc_006CE2B3: call [004012FCh] ; __vbaNew2
loc_006CE2B9: mov edi, [0073C818h]
loc_006CE2BF: lea edx, var_50
loc_006CE2C2: push edx
loc_006CE2C3: push edi
loc_006CE2C4: mov ecx, [edi]
loc_006CE2C6: call [ecx+00000014h]
loc_006CE2C9: cmp eax, esi
loc_006CE2CB: fnclex
loc_006CE2CD: jge 006CE2DEh
loc_006CE2CF: push 00000014h
loc_006CE2D1: push 00441EF0h
loc_006CE2D6: push edi
loc_006CE2D7: push eax
loc_006CE2D8: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE2DE: mov eax, var_50
loc_006CE2E1: lea edx, var_30
loc_006CE2E4: push edx
loc_006CE2E5: push eax
loc_006CE2E6: mov ecx, [eax]
loc_006CE2E8: mov edi, eax
loc_006CE2EA: call [ecx+00000060h]
loc_006CE2ED: cmp eax, esi
loc_006CE2EF: fnclex
loc_006CE2F1: jge 006CE302h
loc_006CE2F3: push 00000060h
loc_006CE2F5: push 004437B4h
loc_006CE2FA: push edi
loc_006CE2FB: push eax
loc_006CE2FC: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE302: mov eax, var_30
loc_006CE305: mov edi, [ebx]
loc_006CE307: push 0046E52Ch ; "About "
loc_006CE30C: push eax
loc_006CE30D: call [00401098h] ; __vbaStrCat
loc_006CE313: mov edx, eax
loc_006CE315: lea ecx, var_34
loc_006CE318: call [004013C0h] ; __vbaStrMove
loc_006CE31E: push eax
loc_006CE31F: push ebx
loc_006CE320: call [edi+00000054h]
loc_006CE323: cmp eax, esi
loc_006CE325: fnclex
loc_006CE327: jge 006CE338h
loc_006CE329: push 00000054h
loc_006CE32B: push 004566B0h
loc_006CE330: push ebx
loc_006CE331: push eax
loc_006CE332: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE338: lea ecx, var_34
loc_006CE33B: lea edx, var_30
loc_006CE33E: push ecx
loc_006CE33F: push edx
loc_006CE340: push 00000002h
loc_006CE342: call [00401324h] ; __vbaFreeStrList
loc_006CE348: add esp, 0000000Ch
loc_006CE34B: lea ecx, var_50
loc_006CE34E: call [0040142Ch] ; __vbaFreeObj
loc_006CE354: mov eax, [ebx]
loc_006CE356: push ebx
loc_006CE357: call [eax+00000324h]
loc_006CE35D: lea ecx, var_5C
loc_006CE360: push eax
loc_006CE361: push ecx
loc_006CE362: call [00401128h] ; __vbaObjSet
loc_006CE368: mov var_B0, eax
loc_006CE36E: mov eax, [0073C818h]
loc_006CE373: cmp eax, esi
loc_006CE375: jnz 006CE387h
loc_006CE377: push 0073C818h
loc_006CE37C: push 00441F00h
loc_006CE381: call [004012FCh] ; __vbaNew2
loc_006CE387: mov edi, [0073C818h]
loc_006CE38D: lea eax, var_50
loc_006CE390: push eax
loc_006CE391: push edi
loc_006CE392: mov edx, [edi]
loc_006CE394: call [edx+00000014h]
loc_006CE397: cmp eax, esi
loc_006CE399: fnclex
loc_006CE39B: jge 006CE3ACh
loc_006CE39D: push 00000014h
loc_006CE39F: push 00441EF0h
loc_006CE3A4: push edi
loc_006CE3A5: push eax
loc_006CE3A6: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE3AC: mov eax, var_50
loc_006CE3AF: lea edx, var_70
loc_006CE3B2: push edx
loc_006CE3B3: push eax
loc_006CE3B4: mov ecx, [eax]
loc_006CE3B6: mov edi, eax
loc_006CE3B8: call [ecx+000000B8h]
loc_006CE3BE: cmp eax, esi
loc_006CE3C0: fnclex
loc_006CE3C2: jge 006CE3D6h
loc_006CE3C4: push 000000B8h
loc_006CE3C9: push 004437B4h
loc_006CE3CE: push edi
loc_006CE3CF: push eax
loc_006CE3D0: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE3D6: cmp [0073C818h], esi
loc_006CE3DC: jnz 006CE3EEh
loc_006CE3DE: push 0073C818h
loc_006CE3E3: push 00441F00h
loc_006CE3E8: call [004012FCh] ; __vbaNew2
loc_006CE3EE: mov edi, [0073C818h]
loc_006CE3F4: lea ecx, var_54
loc_006CE3F7: push ecx
loc_006CE3F8: push edi
loc_006CE3F9: mov eax, [edi]
loc_006CE3FB: call [eax+00000014h]
loc_006CE3FE: cmp eax, esi
loc_006CE400: fnclex
loc_006CE402: jge 006CE413h
loc_006CE404: push 00000014h
loc_006CE406: push 00441EF0h
loc_006CE40B: push edi
loc_006CE40C: push eax
loc_006CE40D: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE413: mov eax, var_54
loc_006CE416: lea ecx, var_74
loc_006CE419: push ecx
loc_006CE41A: push eax
loc_006CE41B: mov edx, [eax]
loc_006CE41D: mov edi, eax
loc_006CE41F: call [edx+000000C0h]
loc_006CE425: cmp eax, esi
loc_006CE427: fnclex
loc_006CE429: jge 006CE43Dh
loc_006CE42B: push 000000C0h
loc_006CE430: push 004437B4h
loc_006CE435: push edi
loc_006CE436: push eax
loc_006CE437: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE43D: cmp [0073C818h], esi
loc_006CE443: jnz 006CE455h
loc_006CE445: push 0073C818h
loc_006CE44A: push 00441F00h
loc_006CE44F: call [004012FCh] ; __vbaNew2
loc_006CE455: mov edi, [0073C818h]
loc_006CE45B: lea eax, var_58
loc_006CE45E: push eax
loc_006CE45F: push edi
loc_006CE460: mov edx, [edi]
loc_006CE462: call [edx+00000014h]
loc_006CE465: cmp eax, esi
loc_006CE467: fnclex
loc_006CE469: jge 006CE47Ah
loc_006CE46B: push 00000014h
loc_006CE46D: push 00441EF0h
loc_006CE472: push edi
loc_006CE473: push eax
loc_006CE474: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE47A: mov eax, var_58
loc_006CE47D: lea edx, var_78
loc_006CE480: push edx
loc_006CE481: push eax
loc_006CE482: mov ecx, [eax]
loc_006CE484: mov edi, eax
loc_006CE486: call [ecx+000000C8h]
loc_006CE48C: cmp eax, esi
loc_006CE48E: fnclex
loc_006CE490: jge 006CE4A4h
loc_006CE492: push 000000C8h
loc_006CE497: push 004437B4h
loc_006CE49C: push edi
loc_006CE49D: push eax
loc_006CE49E: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE4A4: mov eax, var_B0
loc_006CE4AA: mov ecx, var_70
loc_006CE4AD: push 004515DCh ; "Version "
loc_006CE4B2: push ecx
loc_006CE4B3: mov edi, [eax]
loc_006CE4B5: call [0040100Ch] ; __vbaStrI2
loc_006CE4BB: mov edx, eax
loc_006CE4BD: lea ecx, var_30
loc_006CE4C0: call [004013C0h] ; __vbaStrMove
loc_006CE4C6: push eax
loc_006CE4C7: call [00401098h] ; __vbaStrCat
loc_006CE4CD: mov edx, eax
loc_006CE4CF: lea ecx, var_34
loc_006CE4D2: call [004013C0h] ; __vbaStrMove
loc_006CE4D8: push eax
loc_006CE4D9: push 00444D98h ; "."
loc_006CE4DE: call [00401098h] ; __vbaStrCat
loc_006CE4E4: mov edx, eax
loc_006CE4E6: lea ecx, var_38
loc_006CE4E9: call [004013C0h] ; __vbaStrMove
loc_006CE4EF: mov edx, var_74
loc_006CE4F2: push eax
loc_006CE4F3: push edx
loc_006CE4F4: call [0040100Ch] ; __vbaStrI2
loc_006CE4FA: mov edx, eax
loc_006CE4FC: lea ecx, var_3C
loc_006CE4FF: call [004013C0h] ; __vbaStrMove
loc_006CE505: push eax
loc_006CE506: call [00401098h] ; __vbaStrCat
loc_006CE50C: mov edx, eax
loc_006CE50E: lea ecx, var_40
loc_006CE511: call [004013C0h] ; __vbaStrMove
loc_006CE517: push eax
loc_006CE518: push 00444D98h ; "."
loc_006CE51D: call [00401098h] ; __vbaStrCat
loc_006CE523: mov edx, eax
loc_006CE525: lea ecx, var_44
loc_006CE528: call [004013C0h] ; __vbaStrMove
loc_006CE52E: push eax
loc_006CE52F: mov eax, var_78
loc_006CE532: push eax
loc_006CE533: call [0040100Ch] ; __vbaStrI2
loc_006CE539: mov edx, eax
loc_006CE53B: lea ecx, var_48
loc_006CE53E: call [004013C0h] ; __vbaStrMove
loc_006CE544: push eax
loc_006CE545: call [00401098h] ; __vbaStrCat
loc_006CE54B: mov edx, eax
loc_006CE54D: lea ecx, var_4C
loc_006CE550: call [004013C0h] ; __vbaStrMove
loc_006CE556: mov ecx, edi
loc_006CE558: mov edi, var_B0
loc_006CE55E: push eax
loc_006CE55F: push edi
loc_006CE560: call [ecx+00000054h]
loc_006CE563: cmp eax, esi
loc_006CE565: fnclex
loc_006CE567: jge 006CE578h
loc_006CE569: push 00000054h
loc_006CE56B: push 00441988h
loc_006CE570: push edi
loc_006CE571: push eax
loc_006CE572: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE578: lea edx, var_4C
loc_006CE57B: lea eax, var_48
loc_006CE57E: push edx
loc_006CE57F: lea ecx, var_44
loc_006CE582: push eax
loc_006CE583: lea edx, var_40
loc_006CE586: push ecx
loc_006CE587: lea eax, var_3C
loc_006CE58A: push edx
loc_006CE58B: lea ecx, var_38
loc_006CE58E: push eax
loc_006CE58F: lea edx, var_34
loc_006CE592: push ecx
loc_006CE593: lea eax, var_30
loc_006CE596: push edx
loc_006CE597: push eax
loc_006CE598: push 00000008h
loc_006CE59A: call [00401324h] ; __vbaFreeStrList
loc_006CE5A0: lea ecx, var_5C
loc_006CE5A3: lea edx, var_58
loc_006CE5A6: push ecx
loc_006CE5A7: lea eax, var_54
loc_006CE5AA: push edx
loc_006CE5AB: lea ecx, var_50
loc_006CE5AE: push eax
loc_006CE5AF: push ecx
loc_006CE5B0: push 00000004h
loc_006CE5B2: call [00401068h] ; __vbaFreeObjList
loc_006CE5B8: mov edx, [ebx]
loc_006CE5BA: add esp, 00000038h
loc_006CE5BD: push ebx
loc_006CE5BE: call [edx+00000320h]
loc_006CE5C4: push eax
loc_006CE5C5: lea eax, var_54
loc_006CE5C8: push eax
loc_006CE5C9: call [00401128h] ; __vbaObjSet
loc_006CE5CF: mov var_90, eax
loc_006CE5D5: mov eax, [0073C818h]
loc_006CE5DA: cmp eax, esi
loc_006CE5DC: jnz 006CE5EEh
loc_006CE5DE: push 0073C818h
loc_006CE5E3: push 00441F00h
loc_006CE5E8: call [004012FCh] ; __vbaNew2
loc_006CE5EE: mov edi, [0073C818h]
loc_006CE5F4: lea edx, var_50
loc_006CE5F7: push edx
loc_006CE5F8: push edi
loc_006CE5F9: mov ecx, [edi]
loc_006CE5FB: call [ecx+00000014h]
loc_006CE5FE: cmp eax, esi
loc_006CE600: fnclex
loc_006CE602: jge 006CE613h
loc_006CE604: push 00000014h
loc_006CE606: push 00441EF0h
loc_006CE60B: push edi
loc_006CE60C: push eax
loc_006CE60D: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE613: mov eax, var_50
loc_006CE616: lea edx, var_30
loc_006CE619: push edx
loc_006CE61A: push eax
loc_006CE61B: mov ecx, [eax]
loc_006CE61D: mov edi, eax
loc_006CE61F: call [ecx+00000060h]
loc_006CE622: cmp eax, esi
loc_006CE624: fnclex
loc_006CE626: jge 006CE637h
loc_006CE628: push 00000060h
loc_006CE62A: push 004437B4h
loc_006CE62F: push edi
loc_006CE630: push eax
loc_006CE631: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE637: mov edi, var_90
loc_006CE63D: mov ecx, var_30
loc_006CE640: push ecx
loc_006CE641: push edi
loc_006CE642: mov eax, [edi]
loc_006CE644: call [eax+00000054h]
loc_006CE647: cmp eax, esi
loc_006CE649: fnclex
loc_006CE64B: jge 006CE65Ch
loc_006CE64D: push 00000054h
loc_006CE64F: push 00441988h
loc_006CE654: push edi
loc_006CE655: push eax
loc_006CE656: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE65C: lea ecx, var_30
loc_006CE65F: call [00401430h] ; __vbaFreeStr
loc_006CE665: lea edx, var_54
loc_006CE668: lea eax, var_50
loc_006CE66B: push edx
loc_006CE66C: push eax
loc_006CE66D: push 00000002h
loc_006CE66F: call [00401068h] ; __vbaFreeObjList
loc_006CE675: mov ecx, [ebx]
loc_006CE677: add esp, 0000000Ch
loc_006CE67A: push ebx
loc_006CE67B: call [ecx+0000031Ch]
loc_006CE681: lea edx, var_54
loc_006CE684: push eax
loc_006CE685: push edx
loc_006CE686: call [00401128h] ; __vbaObjSet
loc_006CE68C: mov edi, eax
loc_006CE68E: mov eax, [0073C818h]
loc_006CE693: cmp eax, esi
loc_006CE695: jnz 006CE6A7h
loc_006CE697: push 0073C818h
loc_006CE69C: push 00441F00h
loc_006CE6A1: call [004012FCh] ; __vbaNew2
loc_006CE6A7: mov ebx, [0073C818h]
loc_006CE6AD: lea ecx, var_50
loc_006CE6B0: push ecx
loc_006CE6B1: push ebx
loc_006CE6B2: mov eax, [ebx]
loc_006CE6B4: call [eax+00000014h]
loc_006CE6B7: cmp eax, esi
loc_006CE6B9: fnclex
loc_006CE6BB: jge 006CE6CCh
loc_006CE6BD: push 00000014h
loc_006CE6BF: push 00441EF0h
loc_006CE6C4: push ebx
loc_006CE6C5: push eax
loc_006CE6C6: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE6CC: mov eax, var_50
loc_006CE6CF: lea ecx, var_30
loc_006CE6D2: push ecx
loc_006CE6D3: push eax
loc_006CE6D4: mov edx, [eax]
loc_006CE6D6: mov ebx, eax
loc_006CE6D8: call [edx+000000E0h]
loc_006CE6DE: cmp eax, esi
loc_006CE6E0: fnclex
loc_006CE6E2: jge 006CE6F6h
loc_006CE6E4: push 000000E0h
loc_006CE6E9: push 004437B4h
loc_006CE6EE: push ebx
loc_006CE6EF: push eax
loc_006CE6F0: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE6F6: mov eax, var_30
loc_006CE6F9: mov edx, [edi]
loc_006CE6FB: push eax
loc_006CE6FC: push edi
loc_006CE6FD: call [edx+00000054h]
loc_006CE700: cmp eax, esi
loc_006CE702: fnclex
loc_006CE704: jge 006CE715h
loc_006CE706: push 00000054h
loc_006CE708: push 00441988h
loc_006CE70D: push edi
loc_006CE70E: push eax
loc_006CE70F: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE715: lea ecx, var_30
loc_006CE718: call [00401430h] ; __vbaFreeStr
loc_006CE71E: lea ecx, var_54
loc_006CE721: lea edx, var_50
loc_006CE724: push ecx
loc_006CE725: push edx
loc_006CE726: push 00000002h
loc_006CE728: call [00401068h] ; __vbaFreeObjList
loc_006CE72E: add esp, 0000000Ch
loc_006CE731: mov var_4, esi
loc_006CE734: push 006CE799h
loc_006CE739: jmp 006CE77Fh
loc_006CE73B: lea eax, var_4C
loc_006CE73E: lea ecx, var_48
loc_006CE741: push eax
loc_006CE742: lea edx, var_44
loc_006CE745: push ecx
loc_006CE746: lea eax, var_40
loc_006CE749: push edx
loc_006CE74A: lea ecx, var_3C
loc_006CE74D: push eax
loc_006CE74E: lea edx, var_38
loc_006CE751: push ecx
loc_006CE752: lea eax, var_34
loc_006CE755: push edx
loc_006CE756: lea ecx, var_30
loc_006CE759: push eax
loc_006CE75A: push ecx
loc_006CE75B: push 00000008h
loc_006CE75D: call [00401324h] ; __vbaFreeStrList
loc_006CE763: lea edx, var_5C
loc_006CE766: lea eax, var_58
loc_006CE769: push edx
loc_006CE76A: lea ecx, var_54
loc_006CE76D: push eax
loc_006CE76E: lea edx, var_50
loc_006CE771: push ecx
loc_006CE772: push edx
loc_006CE773: push 00000004h
loc_006CE775: call [00401068h] ; __vbaFreeObjList
loc_006CE77B: add esp, 00000038h
loc_006CE77E: ret
loc_006CE77F: lea ecx, var_24
loc_006CE782: call [00401030h] ; __vbaFreeVar
loc_006CE788: mov esi, [00401430h] ; __vbaFreeStr
loc_006CE78E: lea ecx, var_28
loc_006CE791: call __vbaFreeStr
loc_006CE793: lea ecx, var_2C
loc_006CE796: call __vbaFreeStr
loc_006CE798: ret
loc_006CE799: mov eax, Me
loc_006CE79C: push eax
loc_006CE79D: mov ecx, [eax]
loc_006CE79F: call [ecx+00000008h]
loc_006CE7A2: mov eax, var_4
loc_006CE7A5: mov ecx, var_14
loc_006CE7A8: pop edi
loc_006CE7A9: pop esi
loc_006CE7AA: mov fs:[00000000h], ecx
loc_006CE7B1: pop ebx
loc_006CE7B2: mov esp, ebp
loc_006CE7B4: pop ebp
loc_006CE7B5: retn 0004h
End Sub
Private Sub cmdSysInfo_Click() '6CDF70
loc_006CDF70: push ebp
loc_006CDF71: mov ebp, esp
loc_006CDF73: sub esp, 0000000Ch
loc_006CDF76: push 00412856h ; __vbaExceptHandler
loc_006CDF7B: mov eax, fs:[00000000h]
loc_006CDF81: push eax
loc_006CDF82: mov fs:[00000000h], esp
loc_006CDF89: sub esp, 0000000Ch
loc_006CDF8C: push ebx
loc_006CDF8D: push esi
loc_006CDF8E: push edi
loc_006CDF8F: mov var_C, esp
loc_006CDF92: mov var_8, 0040D5E8h
loc_006CDF99: mov esi, Me
loc_006CDF9C: mov eax, esi
loc_006CDF9E: and eax, 00000001h
loc_006CDFA1: mov var_4, eax
loc_006CDFA4: and esi, FFFFFFFEh
loc_006CDFA7: push esi
loc_006CDFA8: mov Me, esi
loc_006CDFAB: mov ecx, [esi]
loc_006CDFAD: call [ecx+00000004h]
loc_006CDFB0: mov edx, [esi]
loc_006CDFB2: push esi
loc_006CDFB3: call [edx+000006F8h]
loc_006CDFB9: test eax, eax
loc_006CDFBB: jge 006CDFCFh
loc_006CDFBD: push 000006F8h
loc_006CDFC2: push 004566E0h
loc_006CDFC7: push esi
loc_006CDFC8: push eax
loc_006CDFC9: call [004010CCh] ; __vbaHresultCheckObj
loc_006CDFCF: mov var_4, 00000000h
loc_006CDFD6: mov eax, Me
loc_006CDFD9: push eax
loc_006CDFDA: mov ecx, [eax]
loc_006CDFDC: call [ecx+00000008h]
loc_006CDFDF: mov eax, var_4
loc_006CDFE2: mov ecx, var_14
loc_006CDFE5: pop edi
loc_006CDFE6: pop esi
loc_006CDFE7: mov fs:[00000000h], ecx
loc_006CDFEE: pop ebx
loc_006CDFEF: mov esp, ebp
loc_006CDFF1: pop ebp
loc_006CDFF2: retn 0004h
End Sub
Public Sub StartSysInfo() '6CE7C0
loc_006CE7C0: push ebp
loc_006CE7C1: mov ebp, esp
loc_006CE7C3: sub esp, 00000014h
loc_006CE7C6: push 00412856h ; __vbaExceptHandler
loc_006CE7CB: mov eax, fs:[00000000h]
loc_006CE7D1: push eax
loc_006CE7D2: mov fs:[00000000h], esp
loc_006CE7D9: sub esp, 000000B8h
loc_006CE7DF: push ebx
loc_006CE7E0: push esi
loc_006CE7E1: push edi
loc_006CE7E2: mov var_14, esp
loc_006CE7E5: mov var_10, 0040D610h
loc_006CE7EC: xor ebx, ebx
loc_006CE7EE: mov var_C, ebx
loc_006CE7F1: mov var_8, ebx
loc_006CE7F4: mov esi, Me
loc_006CE7F7: mov eax, [esi]
loc_006CE7F9: push esi
loc_006CE7FA: call [eax+00000004h]
loc_006CE7FD: mov var_24, ebx
loc_006CE800: mov var_28, ebx
loc_006CE803: mov var_2C, ebx
loc_006CE806: mov var_3C, ebx
loc_006CE809: mov var_4C, ebx
loc_006CE80C: mov var_5C, ebx
loc_006CE80F: mov var_6C, ebx
loc_006CE812: mov var_7C, ebx
loc_006CE815: mov var_B0, ebx
loc_006CE81B: mov var_B4, ebx
loc_006CE821: push 00000001h
loc_006CE823: call [00401124h] ; __vbaOnError
loc_006CE829: mov edx, 0043DFA0h ; "PATH"
loc_006CE82E: lea ecx, var_2C
loc_006CE831: mov edi, [00401310h] ; __vbaStrCopy
loc_006CE837: call edi
loc_006CE839: mov edx, 0043DF4Ch ; "SOFTWARE\Microsoft\Shared Tools\MSINFO"
loc_006CE83E: lea ecx, var_28
loc_006CE841: call edi
loc_006CE843: mov var_B4, 80000002h
loc_006CE84D: mov ecx, [esi]
loc_006CE84F: lea edx, var_B0
loc_006CE855: push edx
loc_006CE856: lea eax, var_24
loc_006CE859: push eax
loc_006CE85A: lea edx, var_2C
loc_006CE85D: push edx
loc_006CE85E: lea eax, var_28
loc_006CE861: push eax
loc_006CE862: lea edx, var_B4
loc_006CE868: push edx
loc_006CE869: push esi
loc_006CE86A: call [ecx+000006FCh]
loc_006CE870: cmp eax, ebx
loc_006CE872: jge 006CE886h
loc_006CE874: push 000006FCh
loc_006CE879: push 004566E0h
loc_006CE87E: push esi
loc_006CE87F: push eax
loc_006CE880: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE886: mov eax, var_B0
loc_006CE88C: mov var_C4, eax
loc_006CE892: lea ecx, var_2C
loc_006CE895: push ecx
loc_006CE896: lea edx, var_28
loc_006CE899: push edx
loc_006CE89A: push 00000002h
loc_006CE89C: call [00401324h] ; __vbaFreeStrList
loc_006CE8A2: add esp, 0000000Ch
loc_006CE8A5: cmp var_C4, bx
loc_006CE8AC: jnz 006CE99Fh
loc_006CE8B2: mov edx, 0043DF38h ; "MSINFO"
loc_006CE8B7: lea ecx, var_2C
loc_006CE8BA: call edi
loc_006CE8BC: mov edx, 0043DEE0h ; "SOFTWARE\Microsoft\Shared Tools Location"
loc_006CE8C1: lea ecx, var_28
loc_006CE8C4: call edi
loc_006CE8C6: mov var_B4, 80000002h
loc_006CE8D0: mov eax, [esi]
loc_006CE8D2: lea ecx, var_B0
loc_006CE8D8: push ecx
loc_006CE8D9: lea edx, var_24
loc_006CE8DC: push edx
loc_006CE8DD: lea ecx, var_2C
loc_006CE8E0: push ecx
loc_006CE8E1: lea edx, var_28
loc_006CE8E4: push edx
loc_006CE8E5: lea ecx, var_B4
loc_006CE8EB: push ecx
loc_006CE8EC: push esi
loc_006CE8ED: call [eax+000006FCh]
loc_006CE8F3: cmp eax, ebx
loc_006CE8F5: jge 006CE909h
loc_006CE8F7: push 000006FCh
loc_006CE8FC: push 004566E0h
loc_006CE901: push esi
loc_006CE902: push eax
loc_006CE903: call [004010CCh] ; __vbaHresultCheckObj
loc_006CE909: mov esi, var_B0
loc_006CE90F: lea edx, var_2C
loc_006CE912: push edx
loc_006CE913: lea eax, var_28
loc_006CE916: push eax
loc_006CE917: push 00000002h
loc_006CE919: call [00401324h] ; __vbaFreeStrList
loc_006CE91F: add esp, 0000000Ch
loc_006CE922: cmp si, bx
loc_006CE925: jz 006CE9BCh
loc_006CE92B: mov ecx, var_24
loc_006CE92E: push ecx
loc_006CE92F: push 0046E540h ; "\MSINFO32.EXE"
loc_006CE934: mov edi, [00401098h] ; __vbaStrCat
loc_006CE93A: call edi
loc_006CE93C: mov var_34, eax
loc_006CE93F: mov var_3C, 00000008h
loc_006CE946: push ebx
loc_006CE947: lea edx, var_3C
loc_006CE94A: push edx
loc_006CE94B: call [004012D0h] ; rtcDir
loc_006CE951: mov edx, eax
loc_006CE953: lea ecx, var_28
loc_006CE956: call [004013C0h] ; __vbaStrMove
loc_006CE95C: push eax
loc_006CE95D: push 0043C9F4h
loc_006CE962: call [004011B8h] ; __vbaStrCmp
loc_006CE968: mov esi, eax
loc_006CE96A: neg esi
loc_006CE96C: sbb esi, esi
loc_006CE96E: neg esi
loc_006CE970: neg esi
loc_006CE972: lea ecx, var_28
loc_006CE975: call [00401430h] ; __vbaFreeStr
loc_006CE97B: lea ecx, var_3C
loc_006CE97E: call [00401030h] ; __vbaFreeVar
loc_006CE984: cmp si, bx
loc_006CE987: jz 006CE9BCh
loc_006CE989: mov eax, var_24
loc_006CE98C: push eax
loc_006CE98D: push 0046E540h ; "\MSINFO32.EXE"
loc_006CE992: call edi
loc_006CE994: mov edx, eax
loc_006CE996: lea ecx, var_24
loc_006CE999: call [004013C0h] ; __vbaStrMove
loc_006CE99F: lea ecx, var_24
loc_006CE9A2: mov var_74, ecx
loc_006CE9A5: mov var_7C, 00004008h
loc_006CE9AC: push 00000001h
loc_006CE9AE: lea edx, var_7C
loc_006CE9B1: push edx
loc_006CE9B2: call [00401230h] ; rtcShell
loc_006CE9B8: fstp st0
loc_006CE9BA: jmp 006CEA25h
loc_006CE9BC: mov ecx, 80020004h
loc_006CE9C1: mov var_64, ecx
loc_006CE9C4: mov eax, 0000000Ah
loc_006CE9C9: mov var_6C, eax
loc_006CE9CC: mov var_54, ecx
loc_006CE9CF: mov var_5C, eax
loc_006CE9D2: mov var_44, ecx
loc_006CE9D5: mov var_4C, eax
loc_006CE9D8: mov var_74, 0046E590h ; "System Information Is Unavailable At This Time"
loc_006CE9DF: mov var_7C, 00000008h
loc_006CE9E6: lea edx, var_7C
loc_006CE9E9: lea ecx, var_3C
loc_006CE9EC: call [00401374h] ; __vbaVarDup
loc_006CE9F2: lea eax, var_6C
loc_006CE9F5: push eax
loc_006CE9F6: lea ecx, var_5C
loc_006CE9F9: push ecx
loc_006CE9FA: lea edx, var_4C
loc_006CE9FD: push edx
loc_006CE9FE: push 00000000h
loc_006CEA00: lea eax, var_3C
loc_006CEA03: push eax
loc_006CEA04: call [00401120h] ; rtcMsgBox
loc_006CEA0A: lea ecx, var_6C
loc_006CEA0D: push ecx
loc_006CEA0E: lea edx, var_5C
loc_006CEA11: push edx
loc_006CEA12: lea eax, var_4C
loc_006CEA15: push eax
loc_006CEA16: lea ecx, var_3C
loc_006CEA19: push ecx
loc_006CEA1A: push 00000004h
loc_006CEA1C: call [00401050h] ; __vbaFreeVarList
loc_006CEA22: add esp, 00000014h
loc_006CEA25: call [00401114h] ; __vbaExitProc
loc_006CEA2B: fwait
loc_006CEA2C: push 006CEA69h
loc_006CEA31: jmp 006CEA5Fh
loc_006CEA33: lea edx, var_2C
loc_006CEA36: push edx
loc_006CEA37: lea eax, var_28
loc_006CEA3A: push eax
loc_006CEA3B: push 00000002h
loc_006CEA3D: call [00401324h] ; __vbaFreeStrList
loc_006CEA43: lea ecx, var_6C
loc_006CEA46: push ecx
loc_006CEA47: lea edx, var_5C
loc_006CEA4A: push edx
loc_006CEA4B: lea eax, var_4C
loc_006CEA4E: push eax
loc_006CEA4F: lea ecx, var_3C
loc_006CEA52: push ecx
loc_006CEA53: push 00000004h
loc_006CEA55: call [00401050h] ; __vbaFreeVarList
loc_006CEA5B: add esp, 00000020h
loc_006CEA5E: ret
loc_006CEA5F: lea ecx, var_24
loc_006CEA62: call [00401430h] ; __vbaFreeStr
loc_006CEA68: ret
loc_006CEA69: mov eax, Me
loc_006CEA6C: mov edx, [eax]
loc_006CEA6E: push eax
loc_006CEA6F: call [edx+00000008h]
loc_006CEA72: mov eax, var_C
loc_006CEA75: mov ecx, var_1C
loc_006CEA78: mov fs:[00000000h], ecx
loc_006CEA7F: pop edi
loc_006CEA80: pop esi
loc_006CEA81: pop ebx
loc_006CEA82: mov esp, ebp
loc_006CEA84: pop ebp
loc_006CEA85: retn 0004h
End Sub
Public Function GetKeyValue(KeyRoot, KeyName, SubKeyRef, KeyVal) '6CEA90
loc_006CEA90: push ebp
loc_006CEA91: mov ebp, esp
loc_006CEA93: sub esp, 0000000Ch
loc_006CEA96: push 00412856h ; __vbaExceptHandler
loc_006CEA9B: mov eax, fs:[00000000h]
loc_006CEAA1: push eax
loc_006CEAA2: mov fs:[00000000h], esp
loc_006CEAA9: sub esp, 000000D4h
loc_006CEAAF: push ebx
loc_006CEAB0: push esi
loc_006CEAB1: push edi
loc_006CEAB2: mov var_C, esp
loc_006CEAB5: mov var_8, 0040D638h
loc_006CEABC: xor edi, edi
loc_006CEABE: mov var_4, edi
loc_006CEAC1: mov eax, Me
loc_006CEAC4: push eax
loc_006CEAC5: mov ecx, [eax]
loc_006CEAC7: call [ecx+00000004h]
loc_006CEACA: mov ebx, KeyName
loc_006CEACD: mov esi, [00401370h] ; __vbaStrToAnsi
loc_006CEAD3: lea edx, var_18
loc_006CEAD6: lea ecx, var_38
loc_006CEAD9: mov eax, [ebx]
loc_006CEADB: push edx
loc_006CEADC: push 0002003Fh
loc_006CEAE1: push edi
loc_006CEAE2: push eax
loc_006CEAE3: push ecx
loc_006CEAE4: mov var_18, edi
loc_006CEAE7: mov var_24, edi
loc_006CEAEA: mov var_2C, edi
loc_006CEAED: mov var_30, edi
loc_006CEAF0: mov var_34, edi
loc_006CEAF3: mov var_38, edi
loc_006CEAF6: mov var_3C, edi
loc_006CEAF9: mov var_4C, edi
loc_006CEAFC: mov var_5C, edi
loc_006CEAFF: mov var_6C, edi
loc_006CEB02: mov var_7C, edi
loc_006CEB05: mov var_8C, edi
loc_006CEB0B: mov var_9C, edi
loc_006CEB11: mov var_CC, edi
loc_006CEB17: call __vbaStrToAnsi
loc_006CEB19: mov edx, KeyRoot
loc_006CEB1C: push eax
loc_006CEB1D: mov eax, [edx]
loc_006CEB1F: push eax
loc_006CEB20: RegOpenKeyEx(%x1v, %x2v, %x3v, %x4v, %x5v)
loc_006CEB25: mov var_D0, eax
loc_006CEB2B: call [004010BCh] ; __vbaSetSystemError
loc_006CEB31: mov ecx, var_38
loc_006CEB34: push ecx
loc_006CEB35: push ebx
loc_006CEB36: call [00401260h] ; __vbaStrToUnicode
loc_006CEB3C: lea ecx, var_38
loc_006CEB3F: call [00401430h] ; __vbaFreeStr
loc_006CEB45: cmp var_D0, edi
loc_006CEB4B: jnz 006CEBECh
loc_006CEB51: lea edx, var_4C
loc_006CEB54: mov var_44, edi
loc_006CEB57: push edx
loc_006CEB58: push 00000400h
loc_006CEB5D: mov var_4C, 00000002h
loc_006CEB64: call [00401264h] ; rtcStringBstr
loc_006CEB6A: mov ebx, [004013C0h] ; __vbaStrMove
loc_006CEB70: mov edx, eax
loc_006CEB72: lea ecx, var_30
loc_006CEB75: call ebx
loc_006CEB77: lea ecx, var_4C
loc_006CEB7A: call [00401030h] ; __vbaFreeVar
loc_006CEB80: mov ecx, var_30
loc_006CEB83: lea eax, var_34
loc_006CEB86: push eax
loc_006CEB87: lea edx, var_3C
loc_006CEB8A: push ecx
loc_006CEB8B: push edx
loc_006CEB8C: mov var_34, 00000400h
loc_006CEB93: call __vbaStrToAnsi
loc_006CEB95: mov ecx, SubKeyRef
loc_006CEB98: push eax
loc_006CEB99: lea eax, var_24
loc_006CEB9C: mov edx, [ecx]
loc_006CEB9E: push eax
loc_006CEB9F: push edi
loc_006CEBA0: lea eax, var_38
loc_006CEBA3: push edx
loc_006CEBA4: push eax
loc_006CEBA5: call __vbaStrToAnsi
loc_006CEBA7: mov ecx, var_18
loc_006CEBAA: push eax
loc_006CEBAB: push ecx
loc_006CEBAC: RegQueryValueEx(%x1v, %x2v, %x3v, %x4v, %x5v, %x6v)
loc_006CEBB1: mov esi, eax
loc_006CEBB3: call [004010BCh] ; __vbaSetSystemError
loc_006CEBB9: mov edx, var_38
loc_006CEBBC: mov eax, SubKeyRef
loc_006CEBBF: push edx
loc_006CEBC0: push eax
loc_006CEBC1: call [00401260h] ; __vbaStrToUnicode
loc_006CEBC7: mov ecx, var_3C
loc_006CEBCA: lea edx, var_30
loc_006CEBCD: push ecx
loc_006CEBCE: push edx
loc_006CEBCF: call [00401260h] ; __vbaStrToUnicode
loc_006CEBD5: lea eax, var_3C
loc_006CEBD8: lea ecx, var_38
loc_006CEBDB: push eax
loc_006CEBDC: push ecx
loc_006CEBDD: push 00000002h
loc_006CEBDF: call [00401324h] ; __vbaFreeStrList
loc_006CEBE5: add esp, 0000000Ch
loc_006CEBE8: cmp esi, edi
loc_006CEBEA: jz 006CEC06h
loc_006CEBEC: mov ecx, KeyVal
loc_006CEBEF: mov edx, 0043C9F4h
loc_006CEBF4: call [00401310h] ; __vbaStrCopy
loc_006CEBFA: mov edx, var_18
loc_006CEBFD: mov var_2C, edi
loc_006CEC00: push edx
loc_006CEC01: jmp 006CEE68h
loc_006CEC06: mov edx, var_34
loc_006CEC09: lea eax, var_30
loc_006CEC0C: lea ecx, var_4C
loc_006CEC0F: mov var_94, eax
loc_006CEC15: push ecx
loc_006CEC16: lea eax, var_9C
loc_006CEC1C: push edx
loc_006CEC1D: lea ecx, var_5C
loc_006CEC20: push eax
loc_006CEC21: push ecx
loc_006CEC22: mov var_44, 00000001h
loc_006CEC29: mov var_4C, 00000002h
loc_006CEC30: mov var_9C, 00004008h
loc_006CEC3A: call [00401188h] ; rtcMidCharVar
loc_006CEC40: lea edx, var_5C
loc_006CEC43: lea eax, var_38
loc_006CEC46: push edx
loc_006CEC47: push eax
loc_006CEC48: call [004012A8h] ; __vbaStrVarVal
loc_006CEC4E: push eax
loc_006CEC4F: call [0040106Ch] ; rtcAnsiValueBstr
loc_006CEC55: mov si, ax
loc_006CEC58: lea ecx, var_38
loc_006CEC5B: neg si
loc_006CEC5E: sbb esi, esi
loc_006CEC60: inc esi
loc_006CEC61: neg esi
loc_006CEC63: call [00401430h] ; __vbaFreeStr
loc_006CEC69: lea ecx, var_5C
loc_006CEC6C: lea edx, var_4C
loc_006CEC6F: push ecx
loc_006CEC70: push edx
loc_006CEC71: push 00000002h
loc_006CEC73: call [00401050h] ; __vbaFreeVarList
loc_006CEC79: add esp, 0000000Ch
loc_006CEC7C: cmp si, di
loc_006CEC7F: jz 006CECB8h
loc_006CEC81: mov ecx, var_34
loc_006CEC84: lea eax, var_30
loc_006CEC87: sub ecx, 00000001h
loc_006CEC8A: mov var_94, eax
loc_006CEC90: jo 006CEEE0h
loc_006CEC96: lea edx, var_9C
loc_006CEC9C: push ecx
loc_006CEC9D: lea eax, var_4C
loc_006CECA0: push edx
loc_006CECA1: push eax
loc_006CECA2: mov var_9C, 00004008h
loc_006CECAC: call [004013ACh] ; rtcLeftCharVar
loc_006CECB2: lea ecx, var_4C
loc_006CECB5: push ecx
loc_006CECB6: jmp 006CECE4h
loc_006CECB8: mov eax, var_34
loc_006CECBB: lea edx, var_30
loc_006CECBE: mov var_94, edx
loc_006CECC4: lea ecx, var_9C
loc_006CECCA: push eax
loc_006CECCB: lea edx, var_4C
loc_006CECCE: push ecx
loc_006CECCF: push edx
loc_006CECD0: mov var_9C, 00004008h
loc_006CECDA: call [004013ACh] ; rtcLeftCharVar
loc_006CECE0: lea eax, var_4C
loc_006CECE3: push eax
loc_006CECE4: call [00401040h] ; __vbaStrVarMove
loc_006CECEA: mov edx, eax
loc_006CECEC: lea ecx, var_30
loc_006CECEF: call ebx
loc_006CECF1: lea ecx, var_4C
loc_006CECF4: call [00401030h] ; __vbaFreeVar
loc_006CECFA: mov eax, var_24
loc_006CECFD: dec eax
loc_006CECFE: jz 006CEE51h
loc_006CED04: sub eax, 00000003h
loc_006CED07: jnz 006CEE5Dh
loc_006CED0D: mov ecx, var_30
loc_006CED10: push ecx
loc_006CED11: call [00401044h] ; __vbaLenBstr
loc_006CED17: mov edi, KeyVal
loc_006CED1A: mov esi, eax
loc_006CED1C: mov eax, 00000001h
loc_006CED21: cmp esi, eax
loc_006CED23: jl 006CEDFEh
loc_006CED29: mov edx, [edi]
loc_006CED2B: mov var_44, eax
loc_006CED2E: lea eax, var_30
loc_006CED31: lea ecx, var_4C
loc_006CED34: mov var_C4, edx
loc_006CED3A: mov var_94, eax
loc_006CED40: push ecx
loc_006CED41: lea edx, var_9C
loc_006CED47: push esi
loc_006CED48: lea eax, var_5C
loc_006CED4B: push edx
loc_006CED4C: push eax
loc_006CED4D: mov var_CC, 00000008h
loc_006CED57: mov var_4C, 00000002h
loc_006CED5E: mov var_9C, 00004008h
loc_006CED68: call [00401188h] ; rtcMidCharVar
loc_006CED6E: lea ecx, var_5C
loc_006CED71: lea edx, var_38
loc_006CED74: push ecx
loc_006CED75: push edx
loc_006CED76: call [004012A8h] ; __vbaStrVarVal
loc_006CED7C: push eax
loc_006CED7D: call [0040106Ch] ; rtcAnsiValueBstr
loc_006CED83: mov var_64, ax
loc_006CED87: lea eax, var_6C
loc_006CED8A: lea ecx, var_7C
loc_006CED8D: push eax
loc_006CED8E: push ecx
loc_006CED8F: mov var_6C, 00000002h
loc_006CED96: call [0040130Ch] ; rtcHexVarFromVar
loc_006CED9C: lea edx, var_CC
loc_006CEDA2: lea eax, var_7C
loc_006CEDA5: push edx
loc_006CEDA6: lea ecx, var_8C
loc_006CEDAC: push eax
loc_006CEDAD: push ecx
loc_006CEDAE: call [0040135Ch] ; __vbaVarAdd
loc_006CEDB4: push eax
loc_006CEDB5: call [00401040h] ; __vbaStrVarMove
loc_006CEDBB: mov edx, eax
loc_006CEDBD: mov ecx, edi
loc_006CEDBF: call ebx
loc_006CEDC1: lea ecx, var_38
loc_006CEDC4: call [00401430h] ; __vbaFreeStr
loc_006CEDCA: lea edx, var_8C
loc_006CEDD0: lea eax, var_7C
loc_006CEDD3: push edx
loc_006CEDD4: lea ecx, var_6C
loc_006CEDD7: push eax
loc_006CEDD8: lea edx, var_5C
loc_006CEDDB: push ecx
loc_006CEDDC: lea eax, var_4C
loc_006CEDDF: push edx
loc_006CEDE0: push eax
loc_006CEDE1: push 00000005h
loc_006CEDE3: call [00401050h] ; __vbaFreeVarList
loc_006CEDE9: or eax, FFFFFFFFh
loc_006CEDEC: add esp, 00000018h
loc_006CEDEF: add eax, esi
loc_006CEDF1: jo 006CEEE0h
loc_006CEDF7: mov esi, eax
loc_006CEDF9: jmp 006CED1Ch
loc_006CEDFE: mov ecx, [edi]
loc_006CEE00: push 0046E5F4h ; "&h"
loc_006CEE05: push ecx
loc_006CEE06: mov var_54, 80020004h
loc_006CEE0D: mov var_5C, 0000000Ah
loc_006CEE14: call [00401098h] ; __vbaStrCat
loc_006CEE1A: mov var_44, eax
loc_006CEE1D: push 00000001h
loc_006CEE1F: lea edx, var_5C
loc_006CEE22: push 00000001h
loc_006CEE24: lea eax, var_4C
loc_006CEE27: push edx
loc_006CEE28: push eax
loc_006CEE29: mov var_4C, 00000008h
loc_006CEE30: call [004013E4h] ; rtcBstrFromFormatVar
loc_006CEE36: mov edx, eax
loc_006CEE38: mov ecx, edi
loc_006CEE3A: call ebx
loc_006CEE3C: lea ecx, var_5C
loc_006CEE3F: lea edx, var_4C
loc_006CEE42: push ecx
loc_006CEE43: push edx
loc_006CEE44: push 00000002h
loc_006CEE46: call [00401050h] ; __vbaFreeVarList
loc_006CEE4C: add esp, 0000000Ch
loc_006CEE4F: jmp 006CEE5Dh
loc_006CEE51: mov edx, var_30
loc_006CEE54: mov ecx, KeyVal
loc_006CEE57: call [00401310h] ; __vbaStrCopy
loc_006CEE5D: mov eax, var_18
loc_006CEE60: mov var_2C, FFFFFFFFh
loc_006CEE67: push eax
loc_006CEE68: RegCloseKey(%x1v)
loc_006CEE6D: call [004010BCh] ; __vbaSetSystemError
loc_006CEE73: push 006CEEB7h
loc_006CEE78: jmp 006CEEADh
loc_006CEE7A: lea ecx, var_3C
loc_006CEE7D: lea edx, var_38
loc_006CEE80: push ecx
loc_006CEE81: push edx
loc_006CEE82: push 00000002h
loc_006CEE84: call [00401324h] ; __vbaFreeStrList
loc_006CEE8A: lea eax, var_8C
loc_006CEE90: lea ecx, var_7C
loc_006CEE93: push eax
loc_006CEE94: lea edx, var_6C
loc_006CEE97: push ecx
loc_006CEE98: lea eax, var_5C
loc_006CEE9B: push edx
loc_006CEE9C: lea ecx, var_4C
loc_006CEE9F: push eax
loc_006CEEA0: push ecx
loc_006CEEA1: push 00000005h
loc_006CEEA3: call [00401050h] ; __vbaFreeVarList
loc_006CEEA9: add esp, 00000024h
loc_006CEEAC: ret
loc_006CEEAD: lea ecx, var_30
loc_006CEEB0: call [00401430h] ; __vbaFreeStr
loc_006CEEB6: ret
loc_006CEEB7: mov eax, Me
loc_006CEEBA: push eax
loc_006CEEBB: mov edx, [eax]
loc_006CEEBD: call [edx+00000008h]
loc_006CEEC0: mov eax, arg_1C
loc_006CEEC3: mov cx, var_2C
loc_006CEEC7: mov [eax], cx
loc_006CEECA: mov eax, var_4
loc_006CEECD: mov ecx, var_14
loc_006CEED0: pop edi
loc_006CEED1: pop esi
loc_006CEED2: mov fs:[00000000h], ecx
loc_006CEED9: pop ebx
loc_006CEEDA: mov esp, ebp
loc_006CEEDC: pop ebp
loc_006CEEDD: retn 0018h
End Function