ich kann nun z.B die function per asm ancallen das sich der smiles per knopfdruck ändert,aber wie kann ich alle functionen einer .ocx rausrkiegen?
b.z.w die calladresse?
der ist für die smiles und funk einwandfrei!
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
| type
TArrc = array[0..5] of byte;
var
Call2 : integer = $22B0134;
uvbase: integer;
uvbasep : ^integer;
procedure TForm1.Timer4Timer(Sender: TObject);
var
s : OleVariant;
p1 : ^TArrc;
p2 : ^TArrc;
p3,p4,p5 : ^integer;
call2b : integer;
begin
s := edit6.Text;
uvbasep:=pointer(univoicex1.ControlInterface);
uvbase:=uvbasep^-$2309864;
Call2b:=Call2+uvbase;
p3:=Pointer(700+integer(uvbasep));
p4:=pointer(integer(p3)+$2FC);
p4:=pointer(p4^+$88);
p1:=pointer(p4^+$18);
p1^[0]:=s;
p5:=pointer(Call2);
asm
push edx
mov edx,p4
mov edx,[edx]
mov eax,p3
mov eax,[eax+$304]
call Call2b
pop edx
end;
end; |
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
Moderiert von Udontknow: Verschoben.
