bu i just get this shit in the buttons
Private Sub Command1_Click() '402130
402130: push ebp
402131: mov ebp, esp
00402133: sub esp, 0000000Ch
00402136: push 004010D6h ; MSVBVM60.DLL.__vbaExceptHandler
40213 B: mov eax, fs: [00h]
402141: push eax
402142: mov fs: [00000000h] , esp
00402149: sub esp, 000000B4h
40214 F: push ebx
402150: push esi
402151: push edi
402152: mov var_0C, esp
00402155: mov var_08, 004010B0h
40215 C: mov esi, [ebp+08h]
40215 F: mov eax, esi
00402161: and eax, 00000001h
402164: mov var_04, eax
00402167: and esi, FFFFFFFEh
40216 A: push esi
40216 B: mov [ebp+08h], esi
0040216E: mov ecx, [esi]
402170: Call [ecx+04h]
00402173: mov ebx, MSVBVM60.DLL.__vbaStrCopy
00402179: xor edi, edi
0040217B: mov edx, 00401DB4h ; "lol"
402180: lea ecx, var_18
402183: mov var_18, edi
402186: mov var_1C, edi
402189: mov var_20, edi
40218 C: mov var_24, edi
40218 F: mov var_28, edi
402192: mov var_2C, edi
402195: mov var_3C, edi
402198: mov var_4C, edi
40219 B: mov var_5C, edi
0040219E: mov var_6C, edi
4021 A1: mov var_7C, edi
4021 A4: mov var_0000008C, edi
4021 AA: Call ebx
004021AC: mov edx, 00401DC0h ; "123"
4021 B1: lea ecx, var_1C
4021 B4: Call ebx
4021 B6: mov edx, [esi]
4021 B8: push esi
4021 B9: Call [edx+00000308h]
4021 BF: push eax
4021 C0: lea eax, var_28
4021 C3: push eax
004021C4: call [00401024h] ; Set (object)
4021 CA: mov ebx, eax
4021 CC: lea edx, var_20
4021 CF: push edx
004021D0: push ebx
004021D1: mov ecx, [ebx]
004021D3: call [ecx+000000A0h]
004021D9: cmp eax, edi
004021DB: fclex
004021DD: jnl 4021F1h
004021DF: push 000000A0h
004021E4: push 00401DC8h
004021E9: push ebx
004021EA: push eax
004021EB: call MSVBVM60.DLL.__vbaHresultCheckObj
4021 F1: mov eax, [esi]
4021 F3: push esi
4021 F4: Call [eax+00000304h]
4021 FA: lea ecx, var_2C
4021 FD: push eax
4021 FE: push ecx
004021FF: call [00401024h] ; Set (object)
402205: mov esi, eax
402207: lea eax, var_24
40220 A: push eax
40220 B: push esi
40220 C: mov edx, [esi]
0040220E: call [edx+000000A0h]
402214: cmp eax, edi
402216: fclex
00402218: jnl 40222Ch
0040221A: push 000000A0h
0040221F: push 00401DC8h
402224: push esi
402225: push eax
00402226: call MSVBVM60.DLL.__vbaHresultCheckObj
40222 C: mov ecx, var_24
40222 F: mov edx, var_1C
00402232: mov ebx, MSVBVM60.DLL.__vbaStrCmp
402238: push ecx
402239: push edx
40223 A: Call ebx
40223 C: mov ecx, var_18
40223 F: mov esi, eax
402241: mov eax, var_20
402244: neg esi
402246: sbb esi, esi
402248: push eax
402249: inc esi
40224 A: push ecx
40224 B: neg esi
0040224D: call ebx
40224 F: neg eax
402251: sbb eax, eax
402253: lea edx, var_24
402256: inc eax
402257: push edx
402258: neg eax
0040225A: and esi, eax
40225 C: lea eax, var_20
40225 F: push eax
00402260: push 00000002h
00402262: call MSVBVM60.DLL.__vbaFreeStrList
402268: lea ecx, var_2C
40226 B: lea edx, var_28
0040226E: push ecx
40226 F: push edx
00402270: push 00000002h
00402272: call MSVBVM60.DLL.__vbaFreeObjList
00402278: add esp, 00000018h
40227 B: cmp si, di
0040227E: jz 004023E4h
00402284: mov ecx, 0000000Ah
00402289: mov eax, 80020004h
0040228E: mov var_6C, ecx
402291: mov var_5C, ecx
402294: mov var_4C, ecx
402297: lea edx, var_7C
40229 A: lea ecx, var_3C
0040229D: mov var_64, eax
4022 A0: mov var_54, eax
4022 A3: mov var_44, eax
004022A6: mov var_74, 00401DDCh ; "Correct Login"
004022AD: mov var_7C, 00000008h
004022B4: call MSVBVM60.DLL.__vbaVarDup
4022 BA: lea eax, var_6C
4022 BD: lea ecx, var_5C
4022 C0: push eax
4022 C1: lea edx, var_4C
4022 C4: push ecx
4022 C5: push edx
4022 C6: lea eax, var_3C
4022 C9: push edi
4022 CA: push eax
004022CB: call [00401028h] ; MsgBox(arg_1, arg_2, arg_3, arg_4, arg_5)
004022D1: lea ecx, var_6C
004022D4: lea edx, var_5C
004022D7: push ecx
004022D8: lea eax, var_4C
004022DB: push edx
004022DC: lea ecx, var_3C
004022DF: push eax
004022E0: push ecx
004022E1: push 00000004h
004022E3: call MSVBVM60.DLL.__vbaFreeVarList
004022E9: mov eax, [40333Ch]
004022EE: add esp, 00000014h
4022 F1: cmp eax, edi
004022F3: jnz 402305h
004022F5: push 0040333Ch
004022FA: push 00401E1Ch
004022FF: call MSVBVM60.DLL.__vbaNew2
402305: mov eax, [403010h]
0040230A: mov esi, [0040333Ch] ;
402310: cmp eax, edi
00402312: jnz 402324h
00402314: push 00403010h
00402319: push 00401810h
0040231E: call MSVBVM60.DLL.__vbaNew2
00402324: mov edx, [00403010h] ;
40232 A: mov ebx, [esi]
40232 C: lea eax, var_28
40232 F: push edx
402330: push eax
00402331: call MSVBVM60.DLL.__vbaObjSetAddref
402337: push eax
402338: push esi
402339: Call [ebx+10h]
40233 C: cmp eax, edi
0040233E: fclex
00402340: jnl 402351h
00402342: push 00000010h
00402344: push 00401E0Ch
402349: push esi
40234 A: push eax
0040234B: call MSVBVM60.DLL.__vbaHresultCheckObj
402351: lea ecx, var_28
00402354: call MSVBVM60.DLL.__vbaFreeObj
40235 A: cmp [00403024h], edi
00402360: jnz 402372h
00402362: push 00403024h
00402367: push 00401498h
0040236C: call MSVBVM60.DLL.__vbaNew2
00402372: sub esp, 00000010h
00402375: mov ecx, 0000000Ah
40237 A: mov ebx, esp
40237 C: mov var_7C, ecx
0040237F: mov eax, 80020004h
00402384: sub esp, 00000010h
402387: mov [ebx], ecx
402389: mov ecx, var_00000088
40238 F: mov var_74, eax
00402392: mov esi, [00403024h] ;
402398: mov [ebx+04h], ecx
40239 B: mov ecx, esp
0040239D: mov edx, [esi]
40239 F: push esi
4023 A0: mov [ebx+08h], eax
4023 A3: mov eax, var_80
4023 A6: mov [ebx+0Ch], eax
4023 A9: mov eax, var_7C
4023 AC: mov [ecx], eax
4023 AE: mov eax, var_78
4023 B1: mov [ecx+04h], eax
4023 B4: mov eax, var_74
4023 B7: mov [ecx+08h], eax
4023 BA: mov eax, var_70
4023 BD: mov [ecx+0Ch], eax
4023 C0: Call [edx+000002B0h]
4023 C6: cmp eax, edi
4023 C8: fclex
004023CA: jnl 00402452h
004023D0: push 000002B0h
004023D5: push 00401E2Ch
004023DA: push esi
004023DB: push eax
004023DC: call MSVBVM60.DLL.__vbaHresultCheckObj
004023E2: jmp 402452h
004023E4: mov ecx, 80020004h
004023E9: mov eax, 0000000Ah
004023EE: mov var_64, ecx
4023 F1: mov var_54, ecx
4023 F4: mov var_44, ecx
4023 F7: lea edx, var_7C
4023 FA: lea ecx, var_3C
4023 FD: mov var_6C, eax
402400: mov var_5C, eax
402403: mov var_4C, eax
00402406: mov var_74, 00401E7Ch ; "Wrong userName And Or Password"
0040240D: mov var_7C, 00000008h
00402414: call MSVBVM60.DLL.__vbaVarDup
40241 A: lea ecx, var_6C
0040241D: lea edx, var_5C
402420: push ecx
402421: lea eax, var_4C
402424: push edx
402425: push eax
402426: lea ecx, var_3C
402429: push edi
40242 A: push ecx
0040242B: call [00401028h] ; MsgBox(arg_1, arg_2, arg_3, arg_4, arg_5)
402431: lea edx, var_6C
402434: lea eax, var_5C
402437: push edx
402438: lea ecx, var_4C
40243 B: push eax
40243 C: lea edx, var_3C
40243 F: push ecx
402440: push edx
00402441: push 00000004h
00402443: call MSVBVM60.DLL.__vbaFreeVarList
00402449: add esp, 00000014h
0040244C: call [0040100Ch] ; End
402452: mov var_04, edi
00402455: push 004024A9h
0040245A: jmp 402498h
40245 C: lea eax, var_24
40245 F: lea ecx, var_20
402462: push eax
402463: push ecx
00402464: push 00000002h
00402466: call MSVBVM60.DLL.__vbaFreeStrList
40246 C: lea edx, var_2C
40246 F: lea eax, var_28
402472: push edx
402473: push eax
00402474: push 00000002h
00402476: call MSVBVM60.DLL.__vbaFreeObjList
40247 C: lea ecx, var_6C
40247 F: lea edx, var_5C
402482: push ecx
402483: lea eax, var_4C
402486: push edx
402487: lea ecx, var_3C
40248 A: push eax
40248 B: push ecx
0040248C: push 00000004h
0040248E: call MSVBVM60.DLL.__vbaFreeVarList
00402494: add esp, 0000002Ch
402497: ret
End Sub
Private Sub Command2_Click() '4024D0
004024D0: push ebp
004024D1: mov ebp, esp
004024D3: sub esp, 0000000Ch
004024D6: push 004010D6h ; MSVBVM60.DLL.__vbaExceptHandler
004024DB: mov eax, fs:[00h]
004024E1: push eax
004024E2: mov fs:[00000000h], esp
004024E9: sub esp, 00000008h
004024EC: push ebx
004024ED: push esi
004024EE: push edi
004024EF: mov var_0C, esp
004024F2: mov var_08, 004010C0h
4024 F9: mov eax, [ebp+08h]
4024 FC: mov ecx, eax
004024FE: and ecx, 00000001h
402501: mov var_04, ecx
00402504: and al, FEh
402506: push eax
402507: mov [ebp+08h], eax
40250 A: mov edx, [eax]
40250 C: Call [edx+04h]
0040250F: call [0040100Ch] ; End
00402515: mov var_04, 00000000h
40251 C: mov eax, [ebp+08h]
40251 F: push eax
402520: mov ecx, [eax]
402522: Call [ecx+08h]
402525: mov eax, var_04
402528: mov ecx, var_14
40252 B: pop edi
40252 C: pop esi
0040252D: mov fs:[00000000h], ecx
402534: pop ebx
402535: mov esp, ebp
402537: pop ebp
00402538: retn 0004h
End Sub
Originally Posted by pbsucks
