Alguem pode passar essa função do delphi para vb.net pra mim?

[V!$h&® 0]

Titulo auto explicativo

function say(mensagem: string):string;

var

H: HWND;

letra: Integer;

B: Byte;

begin

H := FindWindow(nil, 'tibia');

for letra := 1 to Length(mensagem) do

begin

B := Byte(mensagem[letra]);

SendMessage(H, WM_CHAR, B, 0);

end;

SendMessage(H, WM_CHAR, 13, 0);

end;

[~*BewSted*~ 1]

Bom eu não sei muito sobre delphi...

 

Se você me disser o que faz esse cod eu posso tentar ajudar...

[Shippuuden' 0]

Área Errada.

 

Fechado