考验能力的问题，辛苦了！急需！

[cuijuhai]

有可以将下面的Delphi程序改写成功能相同的VB程序吗？急需！
var

myString: String; //客户请求字符串

i:integer; //循环变量

myFunc_id:integer; //客户请求的功能号

strTemp:string; //临时变量

realdata:string; //实时数据

begin

strTemp:='';

myString := Socket.ReceiveText;

//客户的请求字符串，类似于下面格式

//mystring='GET / HTTP/1.1'#$D#$A'Accept: image/gif ……

strTemp:='';

for i:=pos(' ',mystring)+2 to pos('HTTP',mystring)-2 do //解析客户参数

strTemp:=strTemp+myString[i];

if length(strTemp)>0 then

begin

myFunc_id:=StrToInt(strTemp);

end

else

myFunc_id:=100;//缺省功能号，依据功能号发送不同的数据

realdata:=IntToStr(Trunc(random(100)))+';'; //接收处理实时数据

case myFunc_id of

0:

begin

strTemp:='parent.main.flytime.innerHTML='+realdata;

Socket.SendText(strTemp);

strTemp:='parent.main.document.form1.trackdata.value='+realdata; Socket.SendText(strTemp);

end;

else;

end;

application.ProcessMessages; //切换任务

socket.Close;

end;


并在ServerSocket控件的ClientError事件中写入出错处理：

if ErrorCode>0 then errorcode:=0;