COMPILE ERROR: SUB OR FUNCTION NOT DEFINED

RMEA34 11/09/2013 19:55:43
#428722
compile error:

Sub or Function not defined

o que e isto vou mandar um arquivo junto para ver o erro


Private Sub Timer_Key_Timer() [ô]40ABF0
40 ABF0: ebp
40 ABF1: mov ebp, esp
0040ABF3: sub esp, 00000018h
0040ABF6: 00401756h ; undef [ô]Ignore this
40 ABFB: mov eax, fs: [00h]
40 AC01: eax
40 AC02: mov fs: [00000000h] , esp
0040AC09: mov eax, 00000080h
0040AC0E: call 00401750h ; undef [ô]Ignore this [ô]__vbaChkstk
40 AC13: ebx
40 AC14: esi
40 AC15: edi
40 AC16: mov var_18, esp
0040AC19: mov var_14, 004013E0h
40 AC20: mov eax, arg_8
0040AC23: and eax, 00000001h
MARCELO.TREZE 11/09/2013 20:31:17
#428727
rsrsrs, de onde vc tirou isto colega?
RMEA34 11/09/2013 20:33:28
#428728
Não entendi
Pode explicar melhor ?
MARCELO.TREZE 11/09/2013 23:21:32
#428733
esse rabisco acima não é uma codificação vb6 colega
RMEA34 12/09/2013 00:39:39
#428734
e que deu na parte do rabisco que vc esta vendo por que tem as outras partes
RQUINTANILHA 12/09/2013 01:17:16
#428735
Está dando erro porque esse código não é de VB6.
RMEA34 12/09/2013 01:50:18
#428737
Ele e de qual você sabe ?
CARLINHOS.SONEG 12/09/2013 07:09:36
#428738
Meu amigo isso é código assembler, da uma pesquisada no google, mas só pra adiantar um pouquinho é quase uma linguagem de maquina é chamada de linguagem de baixo nivel, não vai funfar no vb6!!!!
EPISCOPAL 12/09/2013 12:52:22
#428756
Bom eu não entendo de assembler ........ mas não sei se voces lembral do velhor vkcontrols ....

http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6811

Nele tem códigos assembler tambem .... porem funcionaaaa



[txt-color=#0000f0]Private Sub UserControl_Initialize()
Dim Ofs As Long
Dim Ptr As Long

[ô]Recupere l[ô]adresse de [Ô]Me.WindowProc[Ô]
Call CopyMemory(Ptr, ByVal (ObjPtr(Me)), 4)
Call CopyMemory(Ptr, ByVal (Ptr + 489 * 4), 4)

[ô]Crée la veritable fonction WindowProc (à optimiser)
Ofs = VarPtr(mAsm(0))
MovL Ofs, &H424448B [ô]8B 44 24 04 mov eax,dword ptr [esp+4]
MovL Ofs, &H8245C8B [ô]8B 5C 24 08 mov ebx,dword ptr [esp+8]
MovL Ofs, &HC244C8B [ô]8B 4C 24 0C mov ecx,dword ptr [esp+0Ch]
MovL Ofs, &H1024548B [ô]8B 54 24 10 mov edx,dword ptr [esp+10h]
MovB Ofs, &H68 [ô]68 44 33 22 11 push Offset RetVal
MovL Ofs, VarPtr(mAsm(59))
MovB Ofs, &H52 [ô]52 push edx
MovB Ofs, &H51 [ô]51 push ecx
MovB Ofs, &H53 [ô]53 push ebx
MovB Ofs, &H50 [ô]50 push eax
MovB Ofs, &H68 [ô]68 44 33 22 11 push ObjPtr(Me)
MovL Ofs, ObjPtr(Me)
MovB Ofs, &HE8 [ô]E8 1E 04 00 00 call Me.WindowProc
MovL Ofs, Ptr - Ofs - 4
MovB Ofs, &HA1 [ô]A1 20 20 40 00 mov eax,RetVal
MovL Ofs, VarPtr(mAsm(59))
MovL Ofs, &H10C2 [ô]C2 10 00 ret 10h
End Sub
[/txt-color]



Bom só não sei se até ai é compativel, como disse, não entendo de assembler
Faça seu login para responder
Voltar