如何转换字节码？

Question

int __stdcall (*mf_ReadRfid)(unsigned char *id, unsigned char *type);
        unsigned char snr[8];
        int retVal;
        unsigned char type = 0;
        retVal = mf_ReadRfid(snr, &type);
            DWORD id=0;
            AnsiString sid="";
            msg = "";
            id = (DWORD)(snr[0]<<24); |
                (DWORD)(snr[1]<<16) |
                (DWORD)(snr[2]<<8) |
                snr[3];
            msg.printf("卡号:%010lu   厂商代码:%02X",id,type);
            sid.printf("%010lu",id);
            Edit6->Text = sid;以上C++BUILDER里的代码，换成VB该怎么写啊？应该如何用VB实现啊？各位高手帮帮忙啊！

Answer 1

public function mf_ReadRfid lib "?.dll"(byal id as long,byref type as long) as long
dim snr(7) as long
dim retVal as long
dim type as long
type=0
retVal = mf_ReadRfid(byval snr, type)
dim id as long
id=0
dim sid as string
sid=""
msgbox ""
'==============这句看不懂，没有学习过delphi
id = (DWORD)(snr[0]<<24); |
                (DWORD)(snr[1]<<16) |
                (DWORD)(snr[2]<<8) |
                snr[3];msgbox "卡号:" & id & "   厂商代码:" & type
debug.print id
Text6.text = sid