考验能力的问题,辛苦了!

Question

有可以将下面的Delphi程序改写成功能相同的VB程序吗？急需！
varmyString: String; //客户请求字符串i:integer; //循环变量myFunc_id:integer; //客户请求的功能号strTemp:string; //临时变量realdata:string; //实时数据beginstrTemp:='';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 thenbeginmyFunc_id:=StrToInt(strTemp);endelsemyFunc_id:=100;//缺省功能号，依据功能号发送不同的数据realdata:=IntToStr(Trunc(random(100)))+';'; //接收处理实时数据case myFunc_id of0:beginstrTemp:='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;

Answer 1

Sub proc1()
    Dim myString$ '¿Í»§ÇëÇó×Ö·û´®
    
    Dim i% 'Ñ­»·±äÁ¿
    
    Dim myFunc_id% '¿Í»§ÇëÇóµÄ¹¦ÄܺÅ
    
    Dim strTemp$ 'ÁÙʱ±äÁ¿
    
    Dim realdata$ 'ʵʱÊý¾Ý
    
    strTemp = ""
    
    myString = socket.ReceiveText
    
    '¿Í»§µÄÇëÇó×Ö·û´®£¬ÀàËÆÓÚÏÂÃæ¸ñʽ
    
    'mystring='GET / HTTP/1.1'#$D#$A'Accept: image/gif ¡­¡­
    
    strTemp = ""
    
    For i = InStr(0, " ", myString, vbTextCompare) + 2 To InStr(0, "HTTP", myString, vbTextCompare) - 2 '½âÎö¿Í»§²ÎÊý
        strTemp = strTemp + myString(i)
   
    Next
    
    If Len(strTemp) > 0 Then
        myFunc_id = CInt(strTemp)
    Else
        myFunc_id = 100 'ȱʡ¹¦Äܺţ¬ÒÀ¾Ý¹¦Äܺŷ¢ËͲ»Í¬µÄÊý¾Ý
    End If
    
    realdata = CStr(Fix(Rnd() * 100)) + ";" '½ÓÊÕ´¦ÀíʵʱÊý¾Ý
    
    Select Case myFunc_id
    
    Case 0:
    
        strTemp = "parent.main.flytime.innerHTML=" + realdata
        socket.SendText (strTemp)
        strTemp = "parent.main.document.form1.trackdata.value=" + realdata
        socket.SendText (strTemp)
    
    Case Else
    
    End Select
    
    Doevent 'Çл»ÈÎÎñ
    
    socket.Close
    
    
End Sub'²¢ÔÚServerSocket¿Ø¼þµÄClientErrorʼþÖÐдÈë³ö´í´¦Àí:
    
    If ErrorCode > 0 Then ErrorCode = 0

Answer 2

不好意思，乱码了Sub proc1()
    Dim myString$ '客户请求字符串    
    Dim i%       '循环变量
    
    Dim myFunc_id% '客户请求的功能号
  
    Dim strTemp$ '临时变量
    
    Dim realdata$ '实时数据
    
    strTemp = ""
    
    myString = socket.ReceiveText
    
    '客户的请求字符串，类似于下面格式
    
    'mystring='GET / HTTP/1.1'#$D#$A'Accept: image/gif     
    strTemp = ""
    
    For i = InStr(0, " ", myString, vbTextCompare) + 2 To InStr(0, "HTTP",myString, vbTextCompare) - 2 '解析客户参数        strTemp = strTemp + myString(i)
   
    Next
    
    If Len(strTemp) > 0 Then
        myFunc_id = CInt(strTemp)
    Else
        myFunc_id = 100 '缺省功能号，依据功能号发送不同的数据
    End If
    
    realdata = CStr(Fix(Rnd() * 100)) + ";" '接收处理实时数据
    
    Select Case myFunc_id
    
    Case 0:
    
        strTemp = "parent.main.flytime.innerHTML=" + realdata
        socket.SendText (strTemp)
        strTemp = "parent.main.document.form1.trackdata.value=" + realdata
        socket.SendText (strTemp)
    
    Case Else
    
    End Select
    
    DoEvent '切换任务    
   Socket.Close
    
    
End Sub'并在ServerSocket控件的ClientError事件中写入出错处理：
    
    If ErrorCode > 0 Then ErrorCode = 0