Chuyển code C++ sang VB6, help me

[oktachiatay]

C++ Source

---------------------------------------------------------------
int main(void)
{
FILE *fp=fopen("VB.lic","rb");
int Key_Offset[]={0x0014,0x0022,0x0028,0x0030,0x003d,0x0068,0x006e ,0x0085,0x00ca,0x00e3};
char buffer[289],Company[16],KeyID[10],Name[17];
if (fp)
{
fread(buffer,1,289,fp);
fclose(fp);

int i,Cpn_Length=buffer[0],User_Length=buffer[272];

for(i=0;i<Cpn_Length&&(Company[i]=buffer[i+1]);i++);
Company[i]=0;

for(i=0;i<9&&(KeyID[i]=buffer[Key_Offset[i]])!=32;i++);
KeyID[i]=0;

for(i=0;i<User_Length&&(Name[i]=buffer[i+273]);i++);
Name[i]=0;

printf("\nName : %s\nKey ID : %s\nCompany: %s\n",Name,KeyID,Company);
}
else
printf("\n \"%s\" not found!\n","VB.lic");
getch();
return 0;
}

--------------------------------------------------------------

Ai có thể chuyển đoạn source này sang code của VB6 được không, mình chả biết tí tẹo gì về C++ cả

[NoZ]

Đoạn code trên làm nhiệm vụ đọc một file. Nội dung của file này chứa Name, KeyID và Company. Sau khi đọc xong sẽ lần lượt in ra nội dung trên màn hình.

Thay vì chuyển đoạn code trên thành VB, bạn có thể tự tìm hiểu về
Đọc và ghi file bằng ngôn ngữ VB. Cách này giúp bạn nhiều hơn.

[oktachiatay]

Chỗ mình ko hiểu chính là cái này -> chuyển qua VB -> Erorr

int Key_Offset[]={0x0014,0x0022,0x0028,0x0030,0x003d,0x0068,0x006e ,0x0085,0x00ca,0x00e3};

[NoZ]

tất nhiên là VB không hiểu cách khai báo Arrays của C++ rồi và thêm vào đó, VB cũng không hiểu các số như 0x0014. Bạn nên đặt &H vào ngoài trước số để VB hiểu là số hex.

Nhưng theo tôi, tốt nhất là bạn viết lại theo đúng ngôn ngữ VB. Cách đọc ghi file có cấu trúc bằng VB cũng rất dễ

[oktachiatay]

ọc, bạn làm ví dụ mẫu dc hok?